00000000: 00 30 54 4F 20 46 20 3A 53 49 20 3A 4C 49 0D 20 |.0TO F :SI :LI. |
00000010: 49 46 20 3A 53 49 20 3C 20 3A 4C 49 20 54 48 45 |IF :SI < :LI THE|
00000020: 4E 20 46 44 20 3A 53 49 20 53 54 4F 50 0D 20 46 |N FD :SI STOP. F|
00000030: 20 3A 53 49 20 2F 20 35 20 3A 4C 49 20 4C 54 20 | :SI / 5 :LI LT |
00000040: 39 30 0D 20 52 45 50 45 41 54 20 35 20 5B 46 20 |90. REPEAT 5 [F |
00000050: 3A 53 49 2F 35 20 3A 4C 49 5D 0D 20 52 54 20 39 |:SI/5 :LI]. RT 9|
00000060: 30 0D 20 52 45 50 45 41 54 20 33 20 5B 46 20 3A |0. REPEAT 3 [F :|
00000070: 53 49 2F 35 20 3A 4C 49 5D 0D 20 52 54 20 39 30 |SI/5 :LI]. RT 90|
00000080: 0D 20 52 45 50 45 41 54 20 32 20 5B 46 20 3A 53 |. REPEAT 2 [F :S|
00000090: 49 2F 35 20 3A 4C 49 5D 0D 20 4C 54 20 39 30 0D |I/5 :LI]. LT 90.|
000000A0: 20 46 20 3A 53 49 20 2F 20 35 20 3A 4C 49 20 4C | F :SI / 5 :LI L|
000000B0: 54 20 39 30 0D 20 46 20 3A 53 49 20 2F 20 35 20 |T 90. F :SI / 5 |
000000C0: 3A 4C 49 20 52 54 20 39 30 0D 20 46 20 3A 53 49 |:LI RT 90. F :SI|
000000D0: 20 2F 20 35 20 3A 4C 49 20 52 54 20 39 30 0D 20 | / 5 :LI RT 90. |
000000E0: 46 20 3A 53 49 20 2F 20 35 20 3A 4C 49 20 4C 54 |F :SI / 5 :LI LT|
000000F0: 20 39 30 0D 20 52 45 50 45 41 54 20 32 20 5B 46 | 90. REPEAT 2 [F|
00000100: 20 3A 53 49 2F 35 20 3A 4C 49 5D 0D 20 4C 54 20 | :SI/5 :LI]. LT |
00000110: 39 30 0D 20 52 45 50 45 41 54 20 33 20 5B 46 20 |90. REPEAT 3 [F |
00000120: 3A 53 49 2F 35 20 3A 4C 49 5D 0D 45 4E 44 0D 0D |:SI/5 :LI].END..|
00000130: 54 4F 20 53 45 54 55 50 0D 20 43 53 20 50 55 20 |TO SETUP. CS PU |
00000140: 53 45 54 58 20 2D 20 38 35 20 53 45 54 59 20 30 |SETX - 85 SETY 0|
00000150: 0D 20 53 45 54 48 20 39 30 20 50 44 0D 45 4E 44 |. SETH 90 PD.END|
00000160: 0D 0D |.. |
.0TO F :SI :LI. IF :SI < :LI THEN FD :SI
STOP. F :SI / 5 :LI LT 90. REPEAT 5 [F
:SI/5 :LI]. RT 90. REPEAT 3 [F :SI/5 :LI
]. RT 90. REPEAT 2 [F :SI/5 :LI]. LT 90.
F :SI / 5 :LI LT 90. F :SI / 5 :LI RT 9
0. F :SI / 5 :LI RT 90. F :SI / 5 :LI LT
90. REPEAT 2 [F :SI/5 :LI]. LT 90. REPE
AT 3 [F :SI/5 :LI].END..TO SETUP. CS PU
SETX - 85 SETY 0. SETH 90 PD.END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL