1 'MOIRE PATTERN 2 'CTRL-C TO END 3 'ANY KEY FOR ANOTHER ONE 4 'ADAPTED FROM APPLE PRODOS 5 CLS 10 ONERRORGOTO20:MD=2:PSET(0,64):GOTO30 20 MD=1:POKE64634,PEEK(63791):GOTO50 30 POKE63277,PEEK(61983) 50 A=INT(RND(1)*240):B=INT(RND(1)*(MD*64)) 90 Y=0 100 FORX=0TO239:GOSUB300:NEXT:X=239 110 FORY=0TOMD*64-1:GOSUB300:NEXT:Y=MD*64-1 120 FORX=239TO0STEP-1:GOSUB300:NEXT:X=0 130 FORY=MD*64-1TO0STEP-1:GOSUB300:NEXT 140 IFINKEY$<>""THEN50ELSE140 300 LINE(A,B)-(X,Y),PS:PS=-(PS=0):RETURN