00000000: 4F 50 45 4E 34 2C 34 2C 33 31 0D 50 52 49 4E 54 |OPEN4,4,31.PRINT|
00000010: 23 34 2C 22 42 41 55 44 3D 33 30 30 22 0D 50 52 |#4,"BAUD=300".PR|
00000020: 49 4E 54 23 34 2C 22 50 41 52 49 54 59 3D 4E 4F |INT#4,"PARITY=NO|
00000030: 4E 45 22 0D 50 52 49 4E 54 23 34 2C 22 53 54 4F |NE".PRINT#4,"STO|
00000040: 50 42 49 54 53 3D 32 22 0D 50 52 49 4E 54 23 34 |PBITS=2".PRINT#4|
00000050: 2C 22 55 4E 43 4F 4E 56 45 52 54 22 0D 43 4C 4F |,"UNCONVERT".CLO|
00000060: 53 45 34 0D 50 4F 4B 45 34 30 39 37 30 2C 31 39 |SE4.POKE40970,19|
00000070: 36 0D 50 4F 4B 45 34 30 39 37 31 2C 34 38 0D 50 |6.POKE40971,48.P|
00000080: 4F 4B 45 34 30 39 37 32 2C 33 0D 53 45 54 50 2C |OKE40972,3.SETP,|
00000090: 31 39 36 0D 22 93 50 CF 35 33 32 38 31 2C 30 3A |196.".P.53281,0:|
000000A0: 50 CF 35 33 32 38 30 2C 31 31 99 0D 22 93 0D 4B |P.53280,11.."..K|
000000B0: 45 59 22 85 22 2C 22 99 93 40 24 30 DA 0D 4B 45 |EY".","..@$0..KE|
000000C0: 59 22 86 22 2C 22 93 4C C9 DA 0D 4B 45 59 22 87 |Y".",".L...KEY".|
000000D0: 22 2C 22 93 50 CF 35 33 32 38 31 2C 30 3A 50 CF |",".P.53281,0:P.|
000000E0: 35 33 32 38 30 2C 31 31 99 DA 93 0D 4B 45 59 22 |53280,11....KEY"|
000000F0: 89 22 2C 22 99 93 40 24 31 DA 0D 4B 45 59 22 8A |.","..@$1..KEY".|
00000100: 22 2C 22 40 44 31 3D 30 0D 4B 45 59 22 88 22 2C |","@D1=0.KEY".",|
00000110: 22 53 45 54 44 2C 38 DA 0D 4B 45 59 22 8C 22 2C |"SETD,8..KEY".",|
00000120: 22 53 45 54 44 2C 39 DA 0D 41 24 3D 22 22 3A 46 |"SETD,9..A$="":F|
00000130: 4F 52 49 3D 31 54 4F 38 30 3A 41 24 3D 41 24 2B |ORI=1TO80:A$=A$+|
00000140: 22 20 22 2B 43 48 52 24 28 32 30 29 3A 4E 45 58 |" "+CHR$(20):NEX|
00000150: 54 0D 4B 45 59 22 8B 22 2C 41 24 0D 22 93 11 11 |T.KEY".",A$."...|
00000160: 4B 45 59 20 46 55 4E 43 54 49 4F 4E 53 20 41 43 |KEY FUNCTIONS AC|
00000170: 54 49 56 41 54 45 44 3A 11 11 0D 22 91 46 31 3A |TIVATED:...".F1:|
00000180: 20 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 | DISK DIRECTORY|
00000190: 11 0D 22 91 46 33 3A 20 20 4C 49 53 54 20 50 52 |..".F3: LIST PR|
000001A0: 4F 47 52 41 4D 11 0D 22 91 46 35 3A 20 20 53 45 |OGRAM..".F5: SE|
000001B0: 54 20 53 43 52 45 45 4E 20 54 4F 20 47 52 45 45 |T SCREEN TO GREE|
000001C0: 4E 20 4F 4E 20 42 4C 41 43 4B 11 0D 22 91 46 37 |N ON BLACK..".F7|
000001D0: 3A 20 20 53 45 54 20 44 49 53 4B 20 54 4F 20 38 |: SET DISK TO 8|
000001E0: 11 11 0D 22 91 46 32 3A 20 20 44 49 53 4B 20 44 |...".F2: DISK D|
000001F0: 49 52 45 43 54 4F 52 59 20 55 4E 49 54 20 31 11 |IRECTORY UNIT 1.|
00000200: 0D 22 91 46 34 3A 20 20 44 55 50 4C 49 43 41 54 |.".F4: DUPLICAT|
00000210: 45 20 44 49 53 4B 20 31 3D 30 11 0D 22 91 46 36 |E DISK 1=0..".F6|
00000220: 3A 20 20 43 4C 45 41 52 20 54 4F 20 45 4E 44 20 |: CLEAR TO END |
00000230: 4F 46 20 4C 49 4E 45 11 0D 22 91 46 38 3A 20 20 |OF LINE..".F8: |
00000240: 53 45 54 20 44 49 53 4B 20 54 4F 20 39 11 0D 4B |SET DISK TO 9..K|
00000250: 45 59 53 0D 4E 45 57 0D |EYS.NEW. |
OPEN4,4,31.PRINT#4,"BAUD=300".PRINT#4,"P
ARITY=NONE".PRINT#4,"STOPBITS=2".PRINT#4
,"UNCONVERT".CLOSE4.POKE40970,196.POKE40
971,48.POKE40972,3.SETP,196.".PO53281,0:
PO53280,11.."..KEY".","..@$0Z.KEY".",".L
IZ.KEY".",".PO53281,0:PO53280,11.Z..KEY"
.","..@$1Z.KEY".","@D1=0.KEY".","SETD,8Z
.KEY".","SETD,9Z.A$="":FORI=1TO80:A$=A$+
" "+CHR$(20):NEXT.KEY".",A$."...KEY FUNC
TIONS ACTIVATED:...".F1: DISK DIRECTORY
..".F3: LIST PROGRAM..".F5: SET SCREEN
TO GREEN ON BLACK..".F7: SET DISK TO 8
...".F2: DISK DIRECTORY UNIT 1..".F4:
DUPLICATE DISK 1=0..".F6: CLEAR TO END
OF LINE..".F8: SET DISK TO 9..KEYS.NEW.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL