00000000: 50 4F 4B 45 34 30 39 37 30 2C 38 34 3A 52 45 4D |POKE40970,84:REM|
00000010: 20 53 45 54 20 50 52 54 0D 50 4F 4B 45 34 30 39 | SET PRT.POKE409|
00000020: 37 31 2C 36 30 3A 52 45 4D 20 4C 49 4E 45 53 2F |71,60:REM LINES/|
00000030: 50 41 47 45 0D 50 4F 4B 45 34 30 39 37 32 2C 36 |PAGE.POKE40972,6|
00000040: 3A 52 45 4D 20 4C 49 4E 45 53 2F 54 4F 46 0D 53 |:REM LINES/TOF.S|
00000050: 45 54 50 2C 31 39 36 3A 52 45 4D 20 23 34 2C 20 |ETP,196:REM #4, |
00000060: 46 4F 52 4D 41 54 2F 41 55 54 4F 20 50 47 0D 22 |FORMAT/AUTO PG."|
00000070: 93 50 CF 35 33 32 38 31 2C 30 3A 50 CF 35 33 32 |.P.53281,0:P.532|
00000080: 38 30 2C 31 31 99 0D 22 93 0D 4B 45 59 22 85 22 |80,11.."..KEY"."|
00000090: 2C 22 99 93 40 24 30 DA 0D 4B 45 59 22 86 22 2C |,"..@$0..KEY".",|
000000A0: 22 93 4C C9 DA 0D 4B 45 59 22 87 22 2C 22 93 50 |".L...KEY".",".P|
000000B0: CF 35 33 32 38 31 2C 30 3A 50 CF 35 33 32 38 30 |.53281,0:P.53280|
000000C0: 2C 31 31 99 DA 93 0D 4B 45 59 22 89 22 2C 22 99 |,11....KEY".",".|
000000D0: 93 40 24 31 DA 0D 4B 45 59 22 8A 22 2C 22 40 44 |.@$1..KEY".","@D|
000000E0: 31 3D 30 0D 4B 45 59 22 88 22 2C 22 53 45 54 44 |1=0.KEY".","SETD|
000000F0: 2C 38 DA 0D 4B 45 59 22 8C 22 2C 22 53 45 54 44 |,8..KEY".","SETD|
00000100: 2C 39 DA 0D 41 24 3D 22 22 3A 46 4F 52 49 3D 31 |,9..A$="":FORI=1|
00000110: 54 4F 38 30 3A 41 24 3D 41 24 2B 22 20 22 2B 43 |TO80:A$=A$+" "+C|
00000120: 48 52 24 28 32 30 29 3A 4E 45 58 54 0D 4B 45 59 |HR$(20):NEXT.KEY|
00000130: 22 8B 22 2C 41 24 0D 22 93 11 11 4B 45 59 20 46 |".",A$."...KEY F|
00000140: 55 4E 43 54 49 4F 4E 53 20 41 43 54 49 56 41 54 |UNCTIONS ACTIVAT|
00000150: 45 44 3A 11 11 0D 22 91 46 31 3A 20 20 44 49 53 |ED:...".F1: DIS|
00000160: 4B 20 44 49 52 45 43 54 4F 52 59 11 0D 22 91 46 |K DIRECTORY..".F|
00000170: 33 3A 20 20 4C 49 53 54 20 50 52 4F 47 52 41 4D |3: LIST PROGRAM|
00000180: 11 0D 22 91 46 35 3A 20 20 53 45 54 20 53 43 52 |..".F5: SET SCR|
00000190: 45 45 4E 20 54 4F 20 47 52 45 45 4E 20 4F 4E 20 |EEN TO GREEN ON |
000001A0: 42 4C 41 43 4B 11 0D 22 91 46 37 3A 20 20 53 45 |BLACK..".F7: SE|
000001B0: 54 20 44 49 53 4B 20 54 4F 20 38 11 11 0D 22 91 |T DISK TO 8...".|
000001C0: 46 32 3A 20 20 44 49 53 4B 20 44 49 52 45 43 54 |F2: DISK DIRECT|
000001D0: 4F 52 59 20 55 4E 49 54 20 31 11 0D 22 91 46 34 |ORY UNIT 1..".F4|
000001E0: 3A 20 20 44 55 50 4C 49 43 41 54 45 20 44 49 53 |: DUPLICATE DIS|
000001F0: 4B 20 31 3D 30 11 0D 22 91 46 36 3A 20 20 43 4C |K 1=0..".F6: CL|
00000200: 45 41 52 20 54 4F 20 45 4E 44 20 4F 46 20 4C 49 |EAR TO END OF LI|
00000210: 4E 45 11 0D 22 91 46 38 3A 20 20 53 45 54 20 44 |NE..".F8: SET D|
00000220: 49 53 4B 20 54 4F 20 39 11 0D 4B 45 59 53 0D 4E |ISK TO 9..KEYS.N|
00000230: 45 57 0D |EW. |
POKE40970,84:REM SET PRT.POKE40971,60:RE
M LINES/PAGE.POKE40972,6:REM LINES/TOF.S
ETP,196:REM #4, FORMAT/AUTO PG.".PO53281
,0:PO53280,11.."..KEY".","..@$0Z.KEY".",
".LIZ.KEY".",".PO53281,0:PO53280,11.Z..K
EY".","..@$1Z.KEY".","@D1=0.KEY".","SETD
,8Z.KEY".","SETD,9Z.A$="":FORI=1TO80:A$=
A$+" "+CHR$(20):NEXT.KEY".",A$."...KEY F
UNCTIONS ACTIVATED:...".F1: DISK DIRECT
ORY..".F3: LIST PROGRAM..".F5: SET SCR
EEN TO GREEN ON BLACK..".F7: SET DISK T
O 8...".F2: DISK DIRECTORY UNIT 1..".F4
: DUPLICATE DISK 1=0..".F6: CLEAR TO E
ND OF LINE..".F8: SET DISK TO 9..KEYS.N
EW.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL