_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

KEY CODE EDITOR

FILE INFORMATION

FILENAME(S): KEY CODE EDITOR

FILE TYPE(S): PRG

FILE SIZE: 4.9K

FIRST SEEN: 2025-10-19 22:48:27

APPEARS ON: 2 disk(s)

FILE HASH

7f4b9f1aeff6fc08a0d28dcff7a3a8d86e4bc0a4f52ae7063871f608e8d37557

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SNAPSHOT64 KEY CODE EDITOR PRG Radd Maxx 14 2 DOWNLOAD FILE
ULRIK DISK 10B KEY CODE EDITOR PRG hedning, emil 10 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0E 08 64 00 91 4C  4F 20 89 32 30 34 00 5B  |....d..LO .204.[|
00000010: 08 65 00 97 34 35 2C 30  3A 97 34 36 2C 35 30 3A  |.e..45,0:.46,50:|
00000020: 9C 3A 86 41 25 28 32 35  35 29 3A 97 35 33 32 38  |.:.A%(255):.5328|
00000030: 30 2C 30 3A 97 35 33 32  38 31 2C 30 3A 48 24 B2  |0,0:.53281,0:H$.|
00000040: 22 30 31 32 33 34 35 36  37 38 39 41 42 43 44 45  |"0123456789ABCDE|
00000050: 46 22 3A 9F 31 35 2C 38  2C 31 35 00 81 08 66 00  |F":.15,8,15...f.|
00000060: 50 41 24 B2 C7 28 31 33  29 AA C7 28 31 37 29 AA  |PA$..(13)..(17).|
00000070: C7 28 31 39 29 AA C7 28  32 30 29 AA C7 28 32 39  |.(19)..(20)..(29|
00000080: 29 00 BD 08 67 00 81 50  41 B2 33 32 A4 31 32 38  |)...g..PA.32.128|
00000090: 3A 50 41 24 B2 50 41 24  AA C7 28 50 41 29 3A 82  |:PA$.PA$..(PA):.|
000000A0: 3A 50 41 24 B2 50 41 24  AA C7 28 31 33 30 29 AA  |:PA$.PA$..(130).|
000000B0: C7 28 31 33 31 29 AA C7  28 31 33 32 29 00 FA 08  |.(131)..(132)...|
000000C0: 68 00 50 41 24 B2 50 41  24 AA C7 28 31 34 31 29  |h.PA$.PA$..(141)|
000000D0: AA C7 28 31 34 33 29 AA  C7 28 31 34 35 29 AA C7  |..(143)..(145)..|
000000E0: 28 31 34 37 29 AA C7 28  31 34 38 29 AA C7 28 31  |(147)..(148)..(1|
000000F0: 35 37 29 AA C7 28 31 36  30 29 00 1A 09 69 00 81  |57)..(160)...i..|
00000100: 50 41 B2 31 39 32 A4 32  35 35 3A 50 41 24 B2 50  |PA.192.255:PA$.P|
00000110: 41 24 AA C7 28 50 41 29  3A 82 00 58 09 6A 00 97  |A$..(PA):..X.j..|
00000120: 37 38 38 2C 35 32 3A 99  22 08 05 0E 93 22 A3 31  |788,52:."....".1|
00000130: 33 29 22 D3 55 50 45 52  D4 45 52 4D 20 36 34 22  |3)".UPER.ERM 64"|
00000140: 3A 99 A3 31 32 29 22 11  CB 45 59 20 C3 4F 44 45  |:..12)"..EY .ODE|
00000150: 20 C5 44 49 54 4F 52 11  00 99 09 6B 00 99 A3 39  | .DITOR....k...9|
00000160: 29 22 42 59 20 D7 49 4C  4C 49 41 4D 20 D7 45 53  |)"BY .ILLIAM .ES|
00000170: 54 45 52 4D 41 4E 22 3A  99 22 11 C3 4F 50 59 52  |TERMAN":."..OPYR|
00000180: 49 47 48 54 20 28 C3 29  20 31 39 38 33 20 2D 20  |IGHT (.) 1983 - |
00000190: CD 49 44 57 45 53 54 22  3B 00 CD 09 6C 00 99 22  |.IDWEST";...l.."|
000001A0: 20 CD 49 43 52 4F 20 C9  4E 43 2E 11 11 11 22 3A  | .ICRO .NC....":|
000001B0: 8B 53 5A B2 30 A7 53 5A  B2 31 3A 81 5A B2 31 A4  |.SZ.0.SZ.1:.Z.1.|
000001C0: 32 35 35 3A 41 25 28 5A  29 B2 5A 3A 82 00 06 0A  |255:A%(Z).Z:....|
000001D0: 6D 00 99 A3 31 31 29 22  D0 4C 45 41 53 45 20 43  |m...11)".LEASE C|
000001E0: 48 4F 4F 53 45 20 4F 4E  45 3A 11 22 3A 99 A3 31  |HOOSE ONE:.":..1|
000001F0: 30 29 22 C1 29 20 C4 45  46 49 4E 45 20 CB 45 59  |0)".) .EFINE .EY|
00000200: 20 C3 4F 44 45 53 00 24  0A 6E 00 99 A3 31 30 29  | .ODES.$.n...10)|
00000210: 22 C2 29 20 CC 4F 41 44  20 C4 45 46 49 4E 49 54  |".) .OAD .EFINIT|
00000220: 49 4F 4E 53 00 51 0A 6F  00 99 A3 31 30 29 22 C3  |IONS.Q.o...10)".|
00000230: 29 20 D3 41 56 45 20 C4  45 46 49 4E 49 54 49 4F  |) .AVE .EFINITIO|
00000240: 4E 53 22 3A 99 A3 31 30  29 22 C4 29 A0 C5 58 49  |NS":..10)".)..XI|
00000250: 54 00 6C 0A 70 00 A1 41  24 3A 8B 41 24 B3 22 41  |T.l.p..A$:.A$."A|
00000260: 22 B0 41 24 B1 22 44 22  A7 31 31 32 00 8A 0A 71  |".A$."D".112...q|
00000270: 00 91 C6 28 41 24 29 AB  36 34 89 31 31 34 2C 31  |...(A$).64.114,1|
00000280: 38 31 2C 32 31 36 2C 32  35 36 00 D2 0A 72 00 99  |81,216,256...r..|
00000290: 22 93 CB 45 59 20 C3 4F  44 45 20 C5 44 49 54 4F  |"..EY .ODE .DITO|
000002A0: 52 22 3A 99 22 11 11 11  11 11 D0 52 45 53 53 20  |R":."......RESS |
000002B0: C3 D2 D3 D2 20 4B 45 59  53 20 54 4F 20 52 45 56  |.... KEYS TO REV|
000002C0: 49 45 57 20 45 4E 54 52  49 45 53 2E 22 3A 50 41  |IEW ENTRIES.":PA|
000002D0: B2 31 00 FC 0A 73 00 99  22 11 D0 52 45 53 53 20  |.1...s.."..RESS |
000002E0: C6 37 20 54 4F 20 45 58  49 54 20 54 4F 20 54 48  |.7 TO EXIT TO TH|
000002F0: 45 20 4D 41 49 4E 20 4D  45 4E 55 2E 00 25 0B 74  |E MAIN MENU..%.t|
00000300: 00 99 22 11 D4 59 50 45  20 C4 20 54 4F 20 45 4E  |.."..YPE . TO EN|
00000310: 54 45 52 20 41 20 44 45  43 49 4D 41 4C 20 4E 55  |TER A DECIMAL NU|
00000320: 4D 42 45 52 2E 00 52 0B  75 00 99 22 11 D4 59 50  |MBER..R.u.."..YP|
00000330: 45 20 C8 20 54 4F 20 45  4E 54 45 52 20 41 20 48  |E . TO ENTER A H|
00000340: 45 58 41 44 45 43 49 4D  41 4C 20 4E 55 4D 42 45  |EXADECIMAL NUMBE|
00000350: 52 2E 00 81 0B 76 00 99  22 13 11 11 22 A3 32 30  |R....v.."...".20|
00000360: 29 22 CE 55 4D 42 45 52  3A 22 3A 99 22 CB 45 59  |)".UMBER:":.".EY|
00000370: 3A 22 3A 99 A3 32 30 29  22 D6 41 4C 55 45 20 3A  |:":..20)".ALUE :|
00000380: 22 00 96 0B 77 00 4B B2  C6 28 CA 28 50 41 24 2C  |"...w.K..(.(PA$,|
00000390: 50 41 2C 31 29 29 00 D2  0B 78 00 99 22 13 11 22  |PA,1))...x..".."|
000003A0: 3A 81 5A B2 31 A4 33 3A  99 22 1D 1D 1D 1D 1D 20  |:.Z.1.3:."..... |
000003B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 22 3A 82  |             ":.|
000003C0: 3A 99 22 13 11 11 1D 1D  1D 1D 1D 22 3B 3A 8D 31  |:."........";:.1|
000003D0: 35 33 00 FA 0B 79 00 99  A3 32 37 29 4B 22 9D 20  |53...y...27)K". |
000003E0: 20 22 3A 99 22 11 22 A3  32 37 29 41 25 28 4B 29  | ":.".".27)A%(K)|
000003F0: 22 9D 20 20 22 3A 99 22  91 91 00 0D 0C 7A 00 A1  |".  ":.".....z..|
00000400: 41 24 3A 8B 41 24 B2 22  22 A7 31 32 32 00 2B 0C  |A$:.A$."".122.+.|
00000410: 7B 00 8B 41 24 B2 22 91  22 A7 50 41 B2 50 41 AB  |{..A$.".".PA.PA.|
00000420: 31 3A 8D 31 35 30 3A 89  31 31 39 00 52 0C 7C 00  |1:.150:.119.R.|.|
00000430: 8B 41 24 B2 22 11 22 B0  41 24 B2 C7 28 31 33 29  |.A$.".".A$..(13)|
00000440: A7 50 41 B2 50 41 AA 31  3A 8D 31 35 30 3A 89 31  |.PA.PA.1:.150:.1|
00000450: 31 39 00 62 0C 7D 00 8B  41 24 B2 22 88 22 A7 31  |19.b.}..A$.".".1|
00000460: 30 36 00 72 0C 7E 00 8B  41 24 B2 22 44 22 A7 31  |06.r.~..A$."D".1|
00000470: 32 39 00 82 0C 7F 00 8B  41 24 B2 22 48 22 A7 31  |29......A$."H".1|
00000480: 33 32 00 8B 0C 80 00 89  31 32 32 00 B8 0C 81 00  |32......122.....|
00000490: 4C 4E B2 33 3A 48 58 B2  30 3A 8D 31 33 39 3A 44  |LN.3:HX.0:.139:D|
000004A0: B2 C5 28 42 24 29 3A 8B  44 B1 32 35 35 A7 99 22  |..(B$):.D.255.."|
000004B0: 91 91 22 3A 89 31 32 39  00 C7 0C 82 00 8B 42 24  |..":.129......B$|
000004C0: B2 22 22 89 31 31 39 00  D8 0C 83 00 41 25 28 4B  |."".119.....A%(K|
000004D0: 29 B2 44 3A 89 31 31 39  00 F6 0C 84 00 4C 4E B2  |).D:.119.....LN.|
000004E0: 32 3A 48 58 B2 31 3A 8D  31 33 39 3A 8B 42 24 B2  |2:HX.1:.139:.B$.|
000004F0: 22 22 89 31 31 39 00 0B  0D 85 00 48 B2 30 3A 8B  |"".119.....H.0:.|
00000500: C3 28 42 24 29 B2 31 A7  31 33 36 00 40 0D 86 00  |.(B$).1.136.@...|
00000510: 41 24 B2 C8 28 42 24 2C  31 29 3A 81 5A B2 31 A4  |A$..(B$,1):.Z.1.|
00000520: 31 36 3A 8B 41 24 B2 CA  28 48 24 2C 5A 2C 31 29  |16:.A$..(H$,Z,1)|
00000530: A7 48 B2 31 36 AC 28 5A  AB 31 29 3A 89 31 33 36  |.H.16.(Z.1):.136|
00000540: 00 46 0D 87 00 82 00 78  0D 88 00 41 24 B2 C9 28  |.F.....x...A$..(|
00000550: 42 24 2C 31 29 3A 81 5A  B2 31 A4 31 36 3A 8B 41  |B$,1):.Z.1.16:.A|
00000560: 24 B2 CA 28 48 24 2C 5A  2C 31 29 A7 48 B2 48 AA  |$..(H$,Z,1).H.H.|
00000570: 5A AB 31 3A 89 31 33 38  00 7E 0D 89 00 82 00 8F  |Z.1:.138.~......|
00000580: 0D 8A 00 41 25 28 4B 29  B2 48 3A 89 31 31 39 00  |...A%(K).H:.119.|
00000590: B4 0D 8B 00 99 A3 32 38  29 22 20 20 20 20 9D 9D  |......28)"    ..|
000005A0: 9D 9D 12 20 92 9D 22 3B  3A 41 24 B2 22 22 3A 42  |... ..";:A$."":B|
000005B0: 24 B2 22 22 00 C7 0D 8C  00 A1 41 24 3A 8B 41 24  |$.""......A$:.A$|
000005C0: B2 22 22 A7 31 34 30 00  E4 0D 8D 00 8B 41 24 B2  |."".140......A$.|
000005D0: C7 28 31 33 29 A7 99 22  20 22 3A 50 41 B2 50 41  |.(13).." ":PA.PA|
000005E0: AA 31 3A 8E 00 FE 0D 8E  00 8B 41 24 B2 C7 28 32  |.1:.......A$..(2|
000005F0: 30 29 AF C3 28 42 24 29  B1 30 A7 31 34 39 00 10  |0)..(B$).0.149..|
00000600: 0E 8F 00 8B 41 24 B2 C7  28 32 30 29 A7 31 34 30  |....A$..(20).140|
00000610: 00 27 0E 90 00 8B 41 24  B1 22 39 22 AF 41 24 B3  |.'....A$."9".A$.|
00000620: 22 41 22 A7 31 34 30 00  3E 0E 91 00 8B 41 24 B1  |"A".140.>....A$.|
00000630: 22 46 22 B0 41 24 B3 22  30 22 A7 31 34 30 00 53  |"F".A$."0".140.S|
00000640: 0E 92 00 8B 48 58 B2 30  AF 41 24 B1 22 39 22 A7  |....HX.0.A$."9".|
00000650: 31 34 30 00 65 0E 93 00  8B C3 28 42 24 29 B2 4C  |140.e.....(B$).L|
00000660: 4E A7 31 34 30 00 82 0E  94 00 42 24 B2 42 24 AA  |N.140.....B$.B$.|
00000670: 41 24 3A 99 41 24 22 12  20 92 9D 22 3B 3A 89 31  |A$:.A$". ..";:.1|
00000680: 34 30 00 A7 0E 95 00 99  41 24 22 12 20 92 9D 22  |40......A$". .."|
00000690: 3B 3A 42 24 B2 C8 28 42  24 2C C3 28 42 24 29 AB  |;:B$..(B$,.(B$).|
000006A0: 31 29 3A 89 31 34 30 00  BB 0E 96 00 8B 50 41 B3  |1):.140......PA.|
000006B0: 31 A7 50 41 B2 C3 28 50  41 24 29 00 CF 0E 97 00  |1.PA..(PA$).....|
000006C0: 8B 50 41 B1 C3 28 50 41  24 29 A7 50 41 B2 31 00  |.PA..(PA$).PA.1.|
000006D0: D5 0E 98 00 8E 00 E4 0E  99 00 8B 4B B2 31 33 A7  |...........K.13.|
000006E0: 31 37 35 3A 00 F4 0E 9A  00 8B 4B B2 31 34 31 A7  |175:......K.141.|
000006F0: 31 37 31 3A 00 0C 0F 9B  00 8B 4B B2 31 37 A7 41  |171:......K.17.A|
00000700: 24 B2 22 C4 CE 22 3A 89  31 37 34 3A 00 25 0F 9C  |$."..":.174:.%..|
00000710: 00 8B 4B B2 31 34 35 A7  41 24 B2 22 D5 D0 22 3A  |..K.145.A$."..":|
00000720: 89 31 37 34 3A 00 34 0F  9D 00 8B 4B B2 31 39 A7  |.174:.4....K.19.|
00000730: 31 37 36 3A 00 44 0F 9E  00 8B 4B B2 31 34 37 A7  |176:.D....K.147.|
00000740: 31 37 37 3A 00 53 0F 9F  00 8B 4B B2 32 30 A7 31  |177:.S....K.20.1|
00000750: 37 38 3A 00 63 0F A0 00  8B 4B B2 31 34 38 A7 31  |78:.c....K.148.1|
00000760: 37 39 3A 00 7B 0F A1 00  8B 4B B2 32 39 A7 41 24  |79:.{....K.29.A$|
00000770: B2 22 D2 D4 22 3A 89 31  37 34 3A 00 94 0F A2 00  |."..":.174:.....|
00000780: 8B 4B B2 31 35 37 A7 41  24 B2 22 CC C6 22 3A 89  |.K.157.A$."..":.|
00000790: 31 37 34 3A 00 A3 0F A3  00 8B 4B B2 33 32 A7 31  |174:......K.32.1|
000007A0: 38 30 3A 00 B2 0F A4 00  8B 4B B2 39 36 A7 31 37  |80:......K.96.17|
000007B0: 30 3A 00 C2 0F A5 00 8B  4B B2 31 36 30 A7 31 37  |0:......K.160.17|
000007C0: 30 3A 00 E6 0F A6 00 8B  4B B2 33 34 A7 41 24 B2  |0:......K.34.A$.|
000007D0: C7 28 33 34 29 AA C7 28  32 30 29 AA C7 28 33 34  |.(34)..(20)..(34|
000007E0: 29 3A 89 31 36 39 00 10  10 A7 00 8B 4B B1 31 32  |):.169......K.12|
000007F0: 37 AF 4B B3 31 34 34 B0  4B B1 39 36 AF 4B B3 31  |7.K.144.K.96.K.1|
00000800: 32 33 A7 41 24 B2 C7 28  33 32 29 3A 89 31 36 39  |23.A$..(32):.169|
00000810: 00 21 10 A8 00 41 24 B2  C7 28 4B 29 3A 89 31 36  |.!...A$..(K):.16|
00000820: 39 00 43 10 A9 00 99 22  B0 C0 AE 11 9D 9D 9D DD  |9.C...."........|
00000830: 22 41 24 22 DD 11 9D 9D  9D AD C0 BD 91 91 1D 22  |"A$"..........."|
00000840: 3B 3A 8E 00 94 10 AA 00  99 22 B0 C0 C0 C0 C0 C0  |;:......."......|
00000850: C0 C0 C0 C0 C0 C0 AE 11  9D 9D 9D 9D 9D 9D 9D 9D  |................|
00000860: 9D 9D 9D 9D 9D DD D3 C8  C9 C6 D4 20 D3 D0 C1 C3  |........... ....|
00000870: C5 DD 11 9D 9D 9D 9D 9D  9D 9D 9D 9D 9D 9D 9D 9D  |................|
00000880: AD C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 BD 91 91 91  |................|
00000890: 1D 22 3A 8E 00 E5 10 AB  00 99 22 B0 C0 C0 C0 C0  |.":.......".....|
000008A0: C0 C0 C0 C0 C0 C0 C0 C0  AE 11 9D 9D 9D 9D 9D 9D  |................|
000008B0: 9D 9D 9D 9D 9D 9D 9D 9D  DD D3 C8 C9 C6 D4 20 D2  |.............. .|
000008C0: C5 D4 D5 D2 CE DD 11 9D  9D 9D 9D 9D 9D 9D 9D 9D  |................|
000008D0: 9D 9D 9D 9D 9D AD C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000008E0: C0 C0 BD 22 3B 00 F3 10  AC 00 99 22 91 91 1D 22  |...";......"..."|
000008F0: 3B 3A 8E 00 3A 11 AD 00  99 22 B0 C0 C0 C0 C0 C0  |;:..:...."......|
00000900: C0 C0 C0 C0 AE 11 9D 9D  9D 9D 9D 9D 9D 9D 9D 9D  |................|
00000910: 9D DD 20 20 D3 D0 C1 C3  C5 20 20 DD 11 9D 9D 9D  |..  .....  .....|
00000920: 9D 9D 9D 9D 9D 9D 9D 9D  AD C0 C0 C0 C0 C0 C0 C0  |................|
00000930: C0 C0 BD 91 91 1D 22 3B  3A 8E 00 83 11 AE 00 99  |......";:.......|
00000940: 22 B0 C0 C0 C0 C0 C0 C0  C0 C0 C0 AE 11 9D 9D 9D  |"...............|
00000950: 9D 9D 9D 9D 9D 9D 9D 9D  DD C3 D5 D2 D3 CF D2 20  |............... |
00000960: 22 41 24 22 DD 11 9D 9D  9D 9D 9D 9D 9D 9D 9D 9D  |"A$"............|
00000970: 9D AD C0 C0 C0 C0 C0 C0  C0 C0 C0 BD 91 91 1D 22  |..............."|
00000980: 3B 3A 8E 00 BB 11 AF 00  99 22 B0 C0 C0 C0 C0 C0  |;:......."......|
00000990: C0 AE 11 9D 9D 9D 9D 9D  9D 9D 9D DD D2 C5 D4 D5  |................|
000009A0: D2 CE DD 11 9D 9D 9D 9D  9D 9D 9D 9D AD C0 C0 C0  |................|
000009B0: C0 C0 C0 BD 91 91 1D 22  3B 3A 8E 00 E9 11 B0 00  |.......";:......|
000009C0: 99 22 B0 C0 C0 C0 C0 AE  11 9D 9D 9D 9D 9D 9D DD  |."..............|
000009D0: C8 CF CD C5 DD 11 9D 9D  9D 9D 9D 9D AD C0 C0 C0  |................|
000009E0: C0 BD 91 91 1D 22 3B 3A  8E 00 1C 12 B1 00 99 22  |.....";:......."|
000009F0: B0 C0 C0 C0 C0 C0 AE 11  9D 9D 9D 9D 9D 9D 9D DD  |................|
00000A00: C3 CC C5 C1 D2 DD 11 9D  9D 9D 9D 9D 9D 9D AD C0  |................|
00000A10: C0 C0 C0 C0 BD 91 91 1D  22 3B 3A 8E 00 54 12 B2  |........";:..T..|
00000A20: 00 99 22 B0 C0 C0 C0 C0  C0 C0 AE 11 9D 9D 9D 9D  |..".............|
00000A30: 9D 9D 9D 9D DD C4 C5 CC  C5 D4 C5 DD 11 9D 9D 9D  |................|
00000A40: 9D 9D 9D 9D 9D AD C0 C0  C0 C0 C0 C0 BD 91 91 1D  |................|
00000A50: 22 3B 3A 8E 00 8C 12 B3  00 99 22 B0 C0 C0 C0 C0  |";:.......".....|
00000A60: C0 C0 AE 11 9D 9D 9D 9D  9D 9D 9D 9D DD C9 CE D3  |................|
00000A70: C5 D2 D4 DD 11 9D 9D 9D  9D 9D 9D 9D 9D AD C0 C0  |................|
00000A80: C0 C0 C0 C0 BD 91 91 1D  22 3B 3A 8E 00 D3 12 B4  |........";:.....|
00000A90: 00 99 22 B0 C0 C0 C0 C0  C0 C0 C0 C0 C0 AE 11 9D  |..".............|
00000AA0: 9D 9D 9D 9D 9D 9D 9D 9D  9D 9D DD 20 20 D3 D0 C1  |...........  ...|
00000AB0: C3 C5 20 20 DD 11 9D 9D  9D 9D 9D 9D 9D 9D 9D 9D  |..  ............|
00000AC0: 9D AD C0 C0 C0 C0 C0 C0  C0 C0 C0 BD 91 91 1D 22  |..............."|
00000AD0: 3B 3A 8E 00 F8 12 B5 00  99 22 93 CC 4F 41 44 20  |;:......."..OAD |
00000AE0: 44 45 46 49 4E 49 54 49  4F 4E 53 22 3A 41 24 B2  |DEFINITIONS":A$.|
00000AF0: 22 22 3A 42 24 B2 22 22  00 10 13 B6 00 99 22 11  |"":B$.""......".|
00000B00: C4 49 53 4B 20 4F 52 20  D4 41 50 45 3F 20 22 3B  |.ISK OR .APE? ";|
00000B10: 00 23 13 B7 00 A1 41 24  3A 8B 41 24 B2 22 22 A7  |.#....A$:.A$."".|
00000B20: 31 38 33 00 41 13 B8 00  8B 41 24 B2 22 44 22 A7  |183.A....A$."D".|
00000B30: 99 22 C4 49 53 4B 22 3A  44 56 B2 38 3A 89 31 38  |.".ISK":DV.8:.18|
00000B40: 37 00 5F 13 B9 00 8B 41  24 B2 22 54 22 A7 99 22  |7._....A$."T".."|
00000B50: D4 41 50 45 22 3A 44 56  B2 31 3A 89 31 38 37 00  |.APE":DV.1:.187.|
00000B60: 68 13 BA 00 89 31 38 33  00 91 13 BB 00 99 22 11  |h....183......".|
00000B70: D4 59 50 45 20 54 48 45  20 4E 41 4D 45 20 4F 46  |.YPE THE NAME OF|
00000B80: 20 54 48 45 20 46 49 4C  45 20 54 4F 20 4C 4F 41  | THE FILE TO LOA|
00000B90: 44 00 B5 13 BC 00 8B 44  56 B2 38 A7 99 22 4F 52  |D......DV.8.."OR|
00000BA0: 20 24 20 46 4F 52 20 41  20 44 49 52 45 43 54 4F  | $ FOR A DIRECTO|
00000BB0: 52 59 3A 22 3B 00 C2 13  BD 00 99 22 12 20 92 9D  |RY:";......". ..|
00000BC0: 22 3B 00 E8 13 BE 00 42  24 B2 22 22 3A 8D 31 39  |";.....B$."":.19|
00000BD0: 33 3A 8B 42 24 B2 22 24  22 AF 44 56 B2 38 A7 8D  |3:.B$."$".DV.8..|
00000BE0: 32 33 39 3A 89 31 38 37  00 24 14 BF 00 8B 42 24  |239:.187.$....B$|
00000BF0: B2 22 22 AF 44 56 B2 38  A7 99 22 93 CC 4F 41 44  |."".DV.8.."..OAD|
00000C00: 20 50 52 4F 43 45 44 55  52 45 20 41 42 4F 52 54  | PROCEDURE ABORT|
00000C10: 45 44 22 3A 81 54 B2 31  A4 31 35 30 30 3A 82 3A  |ED":.T.1.1500:.:|
00000C20: 89 31 30 36 00 2D 14 C0  00 89 32 30 32 00 40 14  |.106.-....202.@.|
00000C30: C1 00 A1 41 24 3A 8B 41  24 B2 22 22 A7 31 39 33  |...A$:.A$."".193|
00000C40: 00 55 14 C2 00 8B 41 24  B2 C7 28 31 33 29 A7 99  |.U....A$..(13)..|
00000C50: 22 20 22 3A 8E 00 8D 14  C3 00 8B 41 24 B2 C7 28  |" ":.......A$..(|
00000C60: 32 30 29 AF C3 28 42 24  29 B1 30 A7 99 22 20 9D  |20)..(B$).0.." .|
00000C70: 9D 12 20 92 9D 22 3B 3A  42 24 B2 C8 28 42 24 2C  |.. ..";:B$..(B$,|
00000C80: C3 28 42 24 29 AB 31 29  3A 89 31 39 33 00 9F 14  |.(B$).1):.193...|
00000C90: C4 00 8B 41 24 B2 C7 28  32 30 29 A7 31 39 33 00  |...A$..(20).193.|
00000CA0: B6 14 C5 00 8B 41 24 B3  22 20 22 B0 41 24 B1 22  |.....A$." ".A$."|
00000CB0: DA 22 A7 31 39 33 00 D2  14 C6 00 8B 41 24 B1 C7  |.".193......A$..|
00000CC0: 28 39 35 29 AF 41 24 B3  C7 28 31 39 33 29 A7 31  |(95).A$..(193).1|
00000CD0: 39 33 00 F4 14 C7 00 8B  41 24 B2 C7 28 33 34 29  |93......A$..(34)|
00000CE0: A7 99 22 27 22 3B 3A 42  24 B2 42 24 AA 41 24 3A  |.."'";:B$.B$.A$:|
00000CF0: 89 31 39 33 00 06 15 C8  00 8B C3 28 42 24 29 B2  |.193.......(B$).|
00000D00: 31 36 A7 31 39 33 00 23  15 C9 00 42 24 B2 42 24  |16.193.#...B$.B$|
00000D10: AA 41 24 3A 99 41 24 22  12 20 92 9D 22 3B 3A 89  |.A$:.A$". ..";:.|
00000D20: 31 39 33 00 6B 15 CA 00  99 22 11 4C 4F 41 44 49  |193.k....".LOADI|
00000D30: 4E 47 20 46 49 4C 45 3A  20 22 42 24 3A 8B 44 56  |NG FILE: "B$:.DV|
00000D40: B2 38 A7 9F 32 2C 38 2C  32 2C 42 24 AA 22 2C 50  |.8..2,8,2,B$.",P|
00000D50: 2C 52 22 3A A0 32 3A 8D  32 30 39 3A 8B 45 53 B2  |,R":.2:.209:.ES.|
00000D60: 31 A7 45 53 B2 30 3A 89  32 31 32 00 7D 15 CB 00  |1.ES.0:.212.}...|
00000D70: 4C 4F B2 31 3A 93 42 24  2C 44 56 2C 31 00 A1 15  |LO.1:.B$,DV,1...|
00000D80: CC 00 4C 4F B2 30 3A 8B  44 56 B2 38 A7 8D 32 30  |..LO.0:.DV.8..20|
00000D90: 39 3A 8B 45 53 B2 31 A7  45 53 B2 30 3A 89 32 31  |9:.ES.1.ES.0:.21|
00000DA0: 32 00 BF 15 CD 00 81 5A  B2 30 A4 32 35 35 3A 41  |2......Z.0.255:A|
00000DB0: 25 28 5A 29 B2 C2 28 31  32 35 34 34 AA 5A 29 00  |%(Z)..(12544.Z).|
00000DC0: D7 15 CE 00 99 22 D2 45  41 44 49 4E 47 20 4B 45  |.....".EADING KE|
00000DD0: 59 3A 22 5A 22 91 22 00  E8 15 CF 00 82 3A 8B 44  |Y:"Z"."......:.D|
00000DE0: 56 B2 38 A7 8D 32 30 39  00 F1 15 D0 00 89 31 30  |V.8..209......10|
00000DF0: 36 00 1B 16 D1 00 84 31  35 2C 45 41 24 2C 45 42  |6......15,EA$,EB|
00000E00: 24 2C 45 43 24 2C 45 44  24 3A 45 41 B2 C5 28 45  |$,EC$,ED$:EA..(E|
00000E10: 41 24 29 3A 8B 45 41 B2  30 A7 8E 00 2D 16 D2 00  |A$):.EA.0...-...|
00000E20: 8B 45 41 B2 36 33 A7 52  45 B2 31 3A 8E 00 38 16  |.EA.63.RE.1:..8.|
00000E30: D3 00 45 53 B2 31 3A 8E  00 64 16 D4 00 99 22 11  |..ES.1:..d....".|
00000E40: 11 12 C4 49 53 4B 20 C5  52 52 4F 52 92 3A 22 45  |...ISK .RROR.:"E|
00000E50: 41 24 22 2C 22 45 42 24  22 2C 22 45 43 24 22 2C  |A$","EB$","EC$",|
00000E60: 22 45 44 24 00 90 16 D5  00 99 22 D0 52 45 53 53  |"ED$......".RESS|
00000E70: 20 41 4E 59 20 4B 45 59  20 54 4F 20 52 45 54 55  | ANY KEY TO RETU|
00000E80: 52 4E 20 54 4F 20 4D 41  49 4E 20 4D 45 4E 55 22  |RN TO MAIN MENU"|
00000E90: 00 A3 16 D6 00 A1 41 24  3A 8B 41 24 B2 22 22 A7  |......A$:.A$."".|
00000EA0: 32 31 34 00 AF 16 D7 00  A0 38 3A 89 31 30 36 00  |214......8:.106.|
00000EB0: D4 16 D8 00 99 22 93 D3  41 56 45 20 44 45 46 49  |....."..AVE DEFI|
00000EC0: 4E 49 54 49 4F 4E 53 22  3A 41 24 B2 22 22 3A 42  |NITIONS":A$."":B|
00000ED0: 24 B2 22 22 00 EC 16 D9  00 99 22 11 C4 49 53 4B  |$.""......"..ISK|
00000EE0: 20 4F 52 20 D4 41 50 45  3F 20 22 3B 00 FF 16 DA  | OR .APE? ";....|
00000EF0: 00 A1 41 24 3A 8B 41 24  B2 22 22 A7 32 31 38 00  |..A$:.A$."".218.|
00000F00: 1D 17 DB 00 8B 41 24 B2  22 44 22 A7 99 22 C4 49  |.....A$."D"..".I|
00000F10: 53 4B 22 3A 44 56 B2 38  3A 89 32 32 32 00 3B 17  |SK":DV.8:.222.;.|
00000F20: DC 00 8B 41 24 B2 22 54  22 A7 99 22 D4 41 50 45  |...A$."T"..".APE|
00000F30: 22 3A 44 56 B2 31 3A 89  32 32 32 00 44 17 DD 00  |":DV.1:.222.D...|
00000F40: 89 32 31 38 00 64 17 DE  00 99 22 11 D4 59 50 45  |.218.d...."..YPE|
00000F50: 20 41 20 4E 41 4D 45 20  46 4F 52 20 54 48 45 20  | A NAME FOR THE |
00000F60: 46 49 4C 45 00 88 17 DF  00 8B 44 56 B2 38 A7 99  |FILE......DV.8..|
00000F70: 22 4F 52 20 24 20 46 4F  52 20 41 20 44 49 52 45  |"OR $ FOR A DIRE|
00000F80: 43 54 4F 52 59 3A 22 3B  00 95 17 E0 00 99 22 12  |CTORY:";......".|
00000F90: 20 92 9D 22 3B 00 BB 17  E1 00 42 24 B2 22 22 3A  | ..";.....B$."":|
00000FA0: 8D 31 39 33 3A 8B 42 24  B2 22 24 22 AF 44 56 B2  |.193:.B$."$".DV.|
00000FB0: 38 A7 8D 32 33 39 3A 89  32 31 37 00 F8 17 E2 00  |8..239:.217.....|
00000FC0: 8B 42 24 B2 22 22 AF 44  56 B2 38 A7 99 22 93 D3  |.B$."".DV.8.."..|
00000FD0: 41 56 45 20 50 52 4F 43  45 44 55 52 45 20 41 42  |AVE PROCEDURE AB|
00000FE0: 4F 52 54 45 44 2E 22 3A  81 54 B2 31 A4 31 35 30  |ORTED.":.T.1.150|
00000FF0: 30 3A 82 3A 89 31 30 36  00 2C 18 E3 00 81 5A B2  |0:.:.106.,....Z.|
00001000: 30 A4 32 35 35 3A 97 31  32 35 34 34 AA 5A 2C 28  |0.255:.12544.Z,(|
00001010: 41 25 28 5A 29 29 3A 99  22 D2 45 41 44 49 4E 47  |A%(Z)):.".EADING|
00001020: 20 4B 45 59 3A 22 5A 22  91 22 3A 82 00 44 18 E4  | KEY:"Z".":..D..|
00001030: 00 99 22 11 D3 41 56 49  4E 47 20 46 49 4C 45 3A  |.."..AVING FILE:|
00001040: 20 22 42 24 00 7B 18 E5  00 8B 44 56 B2 38 A7 A0  | "B$.{....DV.8..|
00001050: 32 3A 9F 32 2C 38 2C 32  2C 42 24 AA 22 2C 50 2C  |2:.2,8,2,B$.",P,|
00001060: 52 22 3A A0 32 3A 8D 32  30 39 3A 45 53 B2 30 3A  |R":.2:.209:ES.0:|
00001070: 8B 45 41 B3 B1 36 32 A7  32 33 35 00 95 18 E6 00  |.EA..62.235.....|
00001080: 97 32 35 31 2C C2 28 34  33 29 3A 97 32 35 32 2C  |.251,.(43):.252,|
00001090: C2 28 34 34 29 00 B1 18  E7 00 97 34 33 2C 30 3A  |.(44)......43,0:|
000010A0: 97 34 34 2C 34 39 3A 94  42 24 2C 28 44 56 29 2C  |.44,49:.B$,(DV),|
000010B0: 31 00 CB 18 E8 00 97 34  33 2C C2 28 32 35 31 29  |1......43,.(251)|
000010C0: 3A 97 34 34 2C C2 28 32  35 32 29 00 EA 18 E9 00  |:.44,.(252).....|
000010D0: 8B 44 56 B2 38 A7 8D 32  30 39 3A 8B 45 53 B2 31  |.DV.8..209:.ES.1|
000010E0: A7 45 53 B2 30 3A 89 32  31 32 00 F3 18 EA 00 89  |.ES.0:.212......|
000010F0: 31 30 36 00 41 19 EB 00  52 45 B2 30 3A 99 22 11  |106.A...RE.0:.".|
00001100: D4 48 41 54 20 4E 41 4D  45 20 48 41 53 20 41 4C  |.HAT NAME HAS AL|
00001110: 52 45 41 44 59 20 42 45  45 4E 20 55 53 45 44 2E  |READY BEEN USED.|
00001120: 22 3A 99 22 C4 4F 20 59  4F 55 20 57 41 4E 54 20  |":.".O YOU WANT |
00001130: 54 4F 20 52 45 50 4C 41  43 45 3F 20 28 D9 2F CE  |TO REPLACE? (./.|
00001140: 29 00 55 19 EC 00 A1 41  24 3A 8B 41 24 B2 22 4E  |).U....A$:.A$."N|
00001150: 22 A7 32 32 32 00 66 19  ED 00 8B 41 24 B3 B1 22  |".222.f....A$.."|
00001160: 59 22 A7 32 33 36 00 96  19 EE 00 99 22 D2 45 50  |Y".236......".EP|
00001170: 4C 41 43 49 4E 47 20 22  42 24 3A 98 31 35 2C 22  |LACING "B$:.15,"|
00001180: 53 30 3A 22 AA 42 24 AA  22 2C 53 2C 57 22 3A A0  |S0:".B$.",S,W":.|
00001190: 38 3A 89 32 32 37 00 CD  19 EF 00 98 31 35 2C 22  |8:.227......15,"|
000011A0: 49 30 22 3A 99 22 93 D0  52 45 53 53 20 D2 C5 D4  |I0":."..RESS ...|
000011B0: D5 D2 CE 20 54 4F 20 53  54 4F 50 2C 20 D3 D0 C1  |... TO STOP, ...|
000011C0: C3 C5 20 54 4F 20 50 41  55 53 45 11 22 00 F6 19  |.. TO PAUSE."...|
000011D0: F0 00 A0 32 3A 9F 32 2C  38 2C 30 2C 22 24 30 22  |...2:.2,8,0,"$0"|
000011E0: 3A 81 58 B2 31 A4 36 3A  A1 23 32 2C 41 24 3A 82  |:.X.1.6:.#2,A$:.|
000011F0: 58 3A 8D 32 30 39 00 04  1A F1 00 99 22 12 20 20  |X:.209......".  |
00001200: 20 20 22 3B 00 21 1A F2  00 A1 23 32 2C 41 24 3A  |  ";.!....#2,A$:|
00001210: 8B 41 24 B3 B1 22 22 A7  99 41 24 3B 3A 89 32 34  |.A$..""..A$;:.24|
00001220: 32 00 2A 1A F3 00 99 22  11 22 00 68 1A F4 00 A1  |2.*....".".h....|
00001230: 23 32 2C 41 24 2C 41 24  2C 41 24 3A 53 5A B2 C6  |#2,A$,A$,A$:SZ..|
00001240: 28 41 24 AA C7 28 30 29  29 3A A1 23 32 2C 41 24  |(A$..(0)):.#2,A$|
00001250: 3A 8B 41 24 B3 B1 22 22  A7 53 5A B2 53 5A AA 32  |:.A$.."".SZ.SZ.2|
00001260: 35 36 AC C6 28 41 24 29  00 79 1A F5 00 8B 28 53  |56..(A$).y....(S|
00001270: 54 29 AF 36 34 A7 32 35  35 00 82 1A F6 00 99 53  |T).64.255......S|
00001280: 5A 3B 00 9F 1A F7 00 A1  23 32 2C 41 24 3A 8B 41  |Z;......#2,A$:.A|
00001290: 24 B3 B1 22 22 A7 99 41  24 3B 3A 89 32 34 37 00  |$..""..A$;:.247.|
000012A0: A5 1A F8 00 99 00 BB 1A  F9 00 A1 41 24 3A 8B 41  |...........A$:.A|
000012B0: 24 B2 C7 28 31 33 29 89  32 35 35 00 CC 1A FA 00  |$..(13).255.....|
000012C0: 8B 41 24 B3 B1 22 20 22  A7 32 34 34 00 DF 1A FB  |.A$.." ".244....|
000012D0: 00 A1 41 24 3A 8B 41 24  B2 22 22 A7 32 35 31 00  |..A$:.A$."".251.|
000012E0: F1 1A FC 00 8B 41 24 B2  C7 28 31 33 29 A7 32 35  |.....A$..(13).25|
000012F0: 35 00 02 1B FD 00 8B 41  24 B3 B1 22 20 22 89 32  |5......A$.." ".2|
00001300: 35 31 00 0B 1B FE 00 89  32 34 34 00 14 1B FF 00  |51......244.....|
00001310: A0 32 3A 8E 00 36 1B 00  01 99 22 93 C4 4F 20 59  |.2:..6...."..O Y|
00001320: 4F 55 20 57 41 4E 54 20  54 4F 20 51 55 49 54 3F  |OU WANT TO QUIT?|
00001330: 20 28 D9 2F CE 29 00 4A  1B 01 01 A1 41 24 3A 8B  | (./.).J....A$:.|
00001340: 41 24 B2 22 4E 22 A7 31  30 36 00 5B 1B 02 01 8B  |A$."N".106.[....|
00001350: 41 24 B3 B1 22 59 22 A7  32 35 37 00 89 1B 03 01  |A$.."Y".257.....|
00001360: 97 35 33 32 38 31 2C 36  3A 97 35 33 32 38 30 2C  |.53281,6:.53280,|
00001370: 31 34 3A 97 36 34 36 2C  31 34 3A 99 22 93 13 22  |14:.646,14:.".."|
00001380: 3B 3A 97 37 38 38 2C 34  39 00 00 00              |;:.788,49...    |
....D..LO .204.[.E..45,0:.46,50:.:.A%(25
5):.53280,0:.53281,0:H$."0123456789ABCDE
F":.15,8,15...F.PA$.G(13).G(17).G(19).G(
20).G(29)...G..PA.32.128:PA$.PA$.G(PA):.
:PA$.PA$.G(130).G(131).G(132)...H.PA$.PA
$.G(141).G(143).G(145).G(147).G(148).G(1
57).G(160)...I..PA.192.255:PA$.PA$.G(PA)
:..X.J..788,52:."....".13)"SUPERTERM 64"
:..12)".KEY CODE EDITOR....K...9)"BY WIL
LIAM WESTERMAN":.".COPYRIGHT (C) 1983 - 
MIDWEST";.M.L.." MICRO INC....":.SZ.0.SZ
.1:.Z.1.255:A%(Z).Z:....M...11)"PLEASE C
HOOSE ONE:.":..10)"A) DEFINE KEY CODES.$
.N...10)"B) LOAD DEFINITIONS.Q.O...10)"C
) SAVE DEFINITIONS":..10)"D) EXIT.L.P..A
$:.A$."A".A$."D".112...Q..F(A$).64.114,1
81,216,256.R.R..".KEY CODE EDITOR":."...
..PRESS CRSR KEYS TO REVIEW ENTRIES.":PA
.1...S..".PRESS F7 TO EXIT TO THE MAIN M
ENU..%.T..".TYPE D TO ENTER A DECIMAL NU
MBER..R.U..".TYPE H TO ENTER A HEXADECIM
AL NUMBER....V.."...".20)"NUMBER:":."KEY
:":..20)"VALUE :"...W.K.F(J(PA$,PA,1)).R
.X.."..":.Z.1.3:.".....              ":.
:."........";:.153...Y...27)K".  ":.".".
27)A%(K)".  ":.".....Z..A$:.A$."".122.+.
{..A$.".".PA.PA.1:.150:.119.R.|..A$.".".
A$.G(13).PA.PA.1:.150:.119.B.}..A$.".".1
06.R.~..A$."D".129.....A$."H".132......
122.....LN.3:HX.0:.139:D.E(B$):.D.255.."
..":.129.G....B$."".119.X...A%(K).D:.119
.....LN.2:HX.1:.139:.B$."".119.....H.0:.
C(B$).1.136.@...A$.H(B$,1):.Z.1.16:.A$.J
(H$,Z,1).H.16.(Z.1):.136.F.....X...A$.I(
B$,1):.Z.1.16:.A$.J(H$,Z,1).H.H.Z.1:.138
.~.........A%(K).H:.119.......28)"    ..
... ..";:A$."":B$."".G....A$:.A$."".140.
.....A$.G(13).." ":PA.PA.1:.......A$.G(2
0).C(B$).0.149......A$.G(20).140.'....A$
."9".A$."A".140.>....A$."F".A$."0".140.S
....HX.0.A$."9".140.E....C(B$).LN.140...
..B$.B$.A$:.A$". ..";:.140......A$". .."
;:B$.H(B$,C(B$).1):.140......PA.1.PA.C(P
A$).O....PA.C(PA$).PA.1.U..........K.13.
175:......K.141.171:......K.17.A$."DN":.
174:.%....K.145.A$."UP":.174:.4....K.19.
176:.D....K.147.177:.S....K.20.178:.C. .
.K.148.179:.{....K.29.A$."RT":.174:.....
.K.157.A$."LF":.174:......K.32.180:.....
.K.96.170:.B....K.160.170:......K.34.A$.
G(34).G(20).G(34):.169......K.127.K.144.
K.96.K.123.A$.G(32):.169.!...A$.G(K):.16
9.C...."........"A$"...........";:......
."............................SHIFT SPAC
E................................":.....
.."..............................SHIFT R
ETURN..............................";...
..."...";:..:...."......................
..  SPACE  ...........................";
:......."........................CURSOR 
"A$"...........................";:......
."..................RETURN..............
.......";:......."..............HOME....
.............";:......."................
CLEAR...................";:..T....".....
.............DELETE.....................
";:......."..................INSERT.....
................";:..S....".............
...........  SPACE  ....................
.......";:.......".LOAD DEFINITIONS":A$.
"":B$.""......".DISK OR TAPE? ";.#....A$
:.A$."".183.A....A$."D".."DISK":DV.8:.18
7._....A$."T".."TAPE":DV.1:.187.H....183
......".TYPE THE NAME OF THE FILE TO LOA
D......DV.8.."OR $ FOR A DIRECTORY:";.B.
...". ..";.....B$."":.193:.B$."$".DV.8..
239:.187.$....B$."".DV.8..".LOAD PROCEDU
RE ABORTED":.T.1.1500:.:.106.-....202.@.
A..A$:.A$."".193.U.B..A$.G(13).." ":....
C..A$.G(20).C(B$).0.." ... ..";:B$.H(B$,
C(B$).1):.193...D..A$.G(20).193...E..A$.
" ".A$."Z".193.R.F..A$.G(95).A$.G(193).1
93...G..A$.G(34).."'";:B$.B$.A$:.193...H
..C(B$).16.193.#.I.B$.B$.A$:.A$". ..";:.
193.K.J..".LOADING FILE: "B$:.DV.8..2,8,
2,B$.",P,R": 2:.209:.ES.1.ES.0:.212.}.K.
LO.1:.B$,DV,1...L.LO.0:.DV.8..209:.ES.1.
ES.0:.212...M..Z.0.255:A%(Z).B(12544.Z).
W.N.."READING KEY:"Z"."...O..:.DV.8..209
...P..106...Q..15,EA$,EB$,EC$,ED$:EA.E(E
A$):.EA.0...-.R..EA.63.RE.1:..8.S.ES.1:.
.D.T.."...DISK ERROR.:"EA$","EB$","EC$",
"ED$...U.."PRESS ANY KEY TO RETURN TO MA
IN MENU"...V..A$:.A$."".214...W. 8:.106.
T.X..".SAVE DEFINITIONS":A$."":B$.""...Y
..".DISK OR TAPE? ";...Z..A$:.A$."".218.
.....A$."D".."DISK":DV.8:.222.;....A$."T
".."TAPE":DV.1:.222.D....218.D....".TYPE
 A NAME FOR THE FILE......DV.8.."OR $ FO
R A DIRECTORY:";......". ..";.....B$."":
.193:.B$."$".DV.8..239:.217......B$."".D
V.8..".SAVE PROCEDURE ABORTED.":.T.1.150
0:.:.106.,....Z.0.255:.12544.Z,(A%(Z)):.
"READING KEY:"Z".":..D....".SAVING FILE:
 "B$.{....DV.8. 2:.2,8,2,B$.",P,R": 2:.2
09:ES.0:.EA..62.235......251,B(43):.252,
B(44)......43,0:.44,49:.B$,(DV),1.K....4
3,B(251):.44,B(252)......DV.8..209:.ES.1
.ES.0:.212......106.A...RE.0:.".THAT NAM
E HAS ALREADY BEEN USED.":."DO YOU WANT 
TO REPLACE? (Y/N).U....A$:.A$."N".222.F.
...A$.."Y".236......"REPLACING "B$:.15,"
S0:".B$.",S,W": 8:.227.M....15,"I0":.".P
RESS RETURN TO STOP, SPACE TO PAUSE."...
.. 2:.2,8,0,"$0":.X.1.6:.#2,A$:.X:.209..
....".    ";.!....#2,A$:.A$..""..A$;:.24
2.*....".".H....#2,A$,A$,A$:SZ.F(A$.G(0)
):.#2,A$:.A$.."".SZ.SZ.256.F(A$).Y....(S
T).64.255......SZ;......#2,A$:.A$..""..A
$;:.247............A$:.A$.G(13).255.L...
.A$.." ".244......A$:.A$."".251......A$.
G(13).255......A$.." ".251......244.....
 2:..6....".DO YOU WANT TO QUIT? (Y/N).J
....A$:.A$."N".106.[....A$.."Y".257.....
.53281,6:.53280,14:.646,14:."..";:.788,4
9...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL