C64 Software  <  SCA: The C64 Software Collection / DIGISIM 1

  Run
1000 U1=210:U2=180:U3=100
1001 M=199:N=198
1010 :
1020 SYS32200:L=32767
1030 OPEN1,5
1040 PRINT#1,""
1050 PRINT#1,""
1060 :
1070 INPUT"";X,Y:PRINT#1,""10*X;10*Y
1080 PRINT#1,""
1090 :
1100 d0,0:d0,0:d11,12,15
1110 :
1120 FORY=0TO159STEP2
1130 :
1140 FORX=0TO159
1150 PRINT#1,""X;Y:SYS32100
1160 IFPEEK(L)""
1310 END
1320  
1330  
1340 d :SYS32100:PRINT""PEEK(32767):FORI=1TO100:NEXT:d)1=2
READY.