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