1000 '
1010 ' STRINGS -- Patrick Leabo
1020 '
1025 POKE 106,0
1030 DEFINT M:COMMON MENU
1035 SCREEN 1
2005 CLS
2007 COLOR 1,0
2010 X0=X0 + 1.06:Y1=Y1+1.9799999#
2020 Y0=Y0-2:X1=X1-1.43
2030 IF Y0<3 THEN Y0=Y0+180
2040 IF X1<3 THEN X1 = X1 + 300
2050 IF X0>300 THEN X0=X0-300
2060 IF Y1>180 THEN Y1=Y1-180
2070 C=INT(RND*3+1)
2080 LINE (X0,Y0)-(X1,Y1),C:K=K+1
2085 IF INKEY$<>"" THEN COLOR 0,7:SCREEN 0:CHAIN "MENU.BAS",1000
2090 IF K<185 THEN 2010
2100 K=0:FOR N=1 TO 2000:NEXT:CLS:GOTO 2005