00000000: 00 20 54 4F 20 48 45 4C 50 0D 20 4E 44 0D 20 50 |. TO HELP. ND. P|
00000010: 52 49 4E 54 20 5B 50 4C 55 47 20 41 20 4A 4F 59 |RINT [PLUG A JOY|
00000020: 53 54 49 43 4B 20 49 4E 20 50 4F 52 54 20 32 20 |STICK IN PORT 2 |
00000030: 41 4E 44 20 54 59 50 45 20 50 4C 41 59 2E 5D 0D |AND TYPE PLAY.].|
00000040: 20 50 52 49 4E 54 20 5B 55 53 45 20 54 48 45 20 | PRINT [USE THE |
00000050: 53 54 49 43 4B 20 54 4F 20 43 4F 4E 54 52 4F 4C |STICK TO CONTROL|
00000060: 20 44 49 52 45 43 54 49 4F 4E 5D 0D 20 50 52 49 | DIRECTION]. PRI|
00000070: 4E 54 20 5B 41 4E 44 20 54 48 45 20 42 55 54 54 |NT [AND THE BUTT|
00000080: 4F 4E 20 46 4F 52 20 54 48 45 20 50 45 4E 2E 5D |ON FOR THE PEN.]|
00000090: 0D 20 50 52 20 5B 5D 0D 20 50 52 20 5B 54 59 50 |. PR []. PR [TYP|
000000A0: 45 20 43 54 52 4C 2D 47 20 54 4F 20 51 55 49 54 |E CTRL-G TO QUIT|
000000B0: 2E 5D 0D 45 4E 44 0D 0D 54 4F 20 4D 4F 56 45 20 |.].END..TO MOVE |
000000C0: 3A 44 49 52 0D 20 49 46 20 3A 44 49 52 20 3C 20 |:DIR. IF :DIR < |
000000D0: 30 20 53 54 4F 50 0D 20 53 45 54 48 20 3A 44 49 |0 STOP. SETH :DI|
000000E0: 52 20 2A 20 34 35 20 46 44 20 38 0D 45 4E 44 0D |R * 45 FD 8.END.|
000000F0: 0D 54 4F 20 4A 4F 59 50 4C 41 59 0D 20 4D 4F 56 |.TO JOYPLAY. MOV|
00000100: 45 20 4A 4F 59 53 54 49 43 4B 20 31 0D 20 49 46 |E JOYSTICK 1. IF|
00000110: 20 4A 4F 59 42 55 54 54 4F 4E 20 31 20 50 45 4E | JOYBUTTON 1 PEN|
00000120: 44 4F 57 4E 20 45 4C 53 45 20 50 45 4E 55 50 0D |DOWN ELSE PENUP.|
00000130: 20 4A 4F 59 50 4C 41 59 0D 45 4E 44 0D 0D 54 4F | JOYPLAY.END..TO|
00000140: 20 50 4C 41 59 0D 20 46 55 4C 4C 53 43 52 45 45 | PLAY. FULLSCREE|
00000150: 4E 0D 20 4A 4F 59 50 4C 41 59 0D 45 4E 44 0D 0D |N. JOYPLAY.END..|
00000160: 4D 41 4B 45 20 22 53 54 41 52 54 55 50 20 5B 48 |MAKE "STARTUP [H|
00000170: 45 4C 50 5D 0D |ELP]. |
. TO HELP. ND. PRINT [PLUG A JOYSTICK IN
PORT 2 AND TYPE PLAY.]. PRINT [USE THE
STICK TO CONTROL DIRECTION]. PRINT [AND
THE BUTTON FOR THE PEN.]. PR []. PR [TYP
E CTRL-G TO QUIT.].END..TO MOVE :DIR. IF
:DIR < 0 STOP. SETH :DIR * 45 FD 8.END.
.TO JOYPLAY. MOVE JOYSTICK 1. IF JOYBUTT
ON 1 PENDOWN ELSE PENUP. JOYPLAY.END..TO
PLAY. FULLSCREEN. JOYPLAY.END..MAKE "ST
ARTUP [HELP].
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL