DISK-PRINT
FILE INFORMATION
FILENAME(S): DISK-PRINT
FILE TYPE(S): PRG
FILE SIZE: 6.6K
FIRST SEEN: 2025-12-02 23:47:36
APPEARS ON: 1 disk(s)
FILE HASH
85a5ee808b4c422cf06570677f0d4346767b92c65ae7399a80f116a2fb813bb8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPIELE 47 | DISK-PRINT | PRG | swasti, flohmarkt | 34 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..%....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 00 49 08 0B 00 8F 2A 20 50 41 52 |*****.I....* PAR|
00000030: 54 45 4C 20 41 4C 45 58 41 4E 44 45 52 20 20 31 |TEL ALEXANDER 1|
00000040: 36 2E 31 32 2E 38 33 20 2A 00 6D 08 0C 00 8F 2A |6.12.83 *.m....*|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 91 08 |*************...|
00000070: 64 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |d..*************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 00 B5 08 65 00 8F 2A 20 53 45 54 20 50 52 4F |*...e..* SET PRO|
000000A0: 47 52 41 4D 20 43 4F 4E 53 54 41 4E 54 20 20 20 |GRAM CONSTANT |
000000B0: 20 20 20 20 2A 00 D9 08 66 00 8F 2A 2A 2A 2A 2A | *...f..*****|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 08 67 00 53 50 |*********...g.SP|
000000E0: 24 B2 22 20 22 3A 20 8F 20 53 50 41 43 45 00 09 |$." ": . SPACE..|
000000F0: 09 68 00 4E 4C 24 B2 C7 28 30 29 3A 8F 20 4E 55 |.h.NL$..(0):. NU|
00000100: 4C 4C 20 53 54 52 49 4E 47 00 30 09 69 00 48 58 |LL STRING.0.i.HX|
00000110: 24 B2 22 30 31 32 33 34 35 36 37 38 39 41 42 43 |$."0123456789ABC|
00000120: 44 45 46 22 20 3A 8F 20 48 45 58 20 5A 41 48 4C |DEF" :. HEX ZAHL|
00000130: 00 74 09 6A 00 53 53 24 B2 22 20 20 22 3A 81 20 |.t.j.SS$." ":. |
00000140: 49 B2 31 39 32 20 A4 20 32 32 33 3A 53 53 24 B2 |I.192 . 223:SS$.|
00000150: 53 53 24 AA 22 12 22 AA C7 28 49 29 AA 22 92 22 |SS$."."..(I)."."|
00000160: 3A 82 20 49 3A 8F 20 41 53 43 49 49 2D 5A 45 49 |:. I:. ASCII-ZEI|
00000170: 43 48 45 4E 00 8D 09 6B 00 4C 57 B2 30 3A 8F 20 |CHEN...k.LW.0:. |
00000180: 44 49 53 4B 20 4C 41 55 46 57 45 52 4B 00 9E 09 |DISK LAUFWERK...|
00000190: 6C 00 43 48 B2 32 3A 8F 20 4B 41 4E 41 4C 00 B5 |l.CH.2:. KANAL..|
000001A0: 09 76 00 86 20 44 24 28 32 35 35 29 2C 44 44 24 |.v.. D$(255),DD$|
000001B0: 28 32 35 35 29 00 D4 09 78 00 8F 20 54 20 20 3D |(255)...x.. T =|
000001C0: 20 54 52 41 43 4B 20 2C 20 53 20 20 3D 20 53 45 | TRACK , S = SE|
000001D0: 4B 54 4F 52 00 F3 09 79 00 8F 20 54 54 20 3D 20 |KTOR...y.. TT = |
000001E0: 4E 45 58 54 20 54 2C 20 54 54 20 3D 20 4E 45 58 |NEXT T, TT = NEX|
000001F0: 54 20 53 00 06 0A 7A 00 8F 20 49 20 20 3D 20 50 |T S...z.. I = P|
00000200: 4F 49 4E 54 45 52 00 23 0A 7B 00 8F 20 5A 5A 20 |OINTER.#.{.. ZZ |
00000210: 3D 20 44 49 43 4B 20 50 52 49 4E 54 20 43 4F 4D |= DICK PRINT COM|
00000220: 41 4E 44 00 43 0A 7C 00 8F 20 4E 20 20 3D 20 56 |AND.C.|.. N = V|
00000230: 41 52 49 41 42 4C 45 20 46 20 53 55 42 52 55 54 |ARIABLE F SUBRUT|
00000240: 49 4E 45 00 5B 0A 7D 00 8F 20 43 24 20 3D 20 22 |INE.[.}.. C$ = "|
00000250: 20 20 20 20 20 20 20 20 22 20 22 00 79 0A 7E 00 | " ".y.~.|
00000260: 8F 20 41 24 20 3D 20 22 20 20 20 20 20 20 20 20 |. A$ = " |
00000270: 22 20 45 49 4E 47 41 42 45 00 98 0A 7F 00 8F 20 |" EINGABE...... |
00000280: 49 49 20 3D 20 22 20 20 20 20 20 20 20 20 22 20 |II = " " |
00000290: 44 49 52 43 54 4F 52 59 00 BE 0A 80 00 8F 20 46 |DIRCTORY...... F|
000002A0: 31 20 3D 20 22 20 20 20 20 20 20 20 20 22 20 53 |1 = " " S|
000002B0: 50 52 55 4E 47 20 4D 4F 45 47 4C 49 43 48 00 DD |PRUNG MOEGLICH..|
000002C0: 0A 81 00 8F 20 50 24 20 3D 20 22 20 20 20 20 20 |.... P$ = " |
000002D0: 20 20 20 22 20 50 52 47 20 43 4F 44 45 00 00 0B | " PRG CODE...|
000002E0: 82 00 8F 20 4B 4F 20 3D 20 22 20 20 20 20 20 20 |... KO = " |
000002F0: 20 20 22 20 41 4E 46 55 45 48 55 4E 47 53 5A 2E | " ANFUEHUNGSZ.|
00000300: 00 20 0B 83 00 8F 20 41 20 20 3D 20 22 20 20 20 |. .... A = " |
00000310: 20 20 20 20 20 22 20 53 4F 4E 53 54 49 47 45 53 | " SONSTIGES|
00000320: 00 44 0B 96 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.D....**********|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000340: 2A 2A 2A 2A 00 68 0B 97 00 8F 2A 20 20 20 20 20 |****.h....* |
00000350: 20 20 20 20 4F 50 45 4E 20 44 49 53 4B 20 20 20 | OPEN DISK |
00000360: 20 20 20 20 20 20 20 2A 00 8C 0B 98 00 8F 2A 2A | *......**|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A8 0B A0 |************....|
00000390: 00 9F 31 35 2C 38 2C 31 35 2C 22 49 22 AA 44 24 |..15,8,15,"I".D$|
000003A0: 3A 8D 20 31 30 30 30 30 00 C1 0B A1 00 9F 43 48 |:. 10000......CH|
000003B0: 2C 38 2C 43 48 2C 22 23 22 3A 8D 20 31 30 30 30 |,8,CH,"#":. 1000|
000003C0: 30 00 D1 0B A2 00 8D 32 35 30 3A 89 33 30 30 30 |0......250:.3000|
000003D0: 30 00 F5 0B C8 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |0......*********|
000003E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003F0: 2A 2A 2A 2A 2A 00 19 0C C9 00 8F 2A 20 20 20 20 |*****......* |
00000400: 20 20 20 20 20 20 20 4D 41 53 4B 45 20 20 20 20 | MASKE |
00000410: 20 20 20 20 20 20 20 20 2A 00 3D 0C CA 00 8F 2A | *.=....*|
00000420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 65 0C |*************.e.|
00000440: CC 00 99 22 93 11 20 20 20 20 20 20 20 20 20 D5 |...".. .|
00000450: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000460: C0 C0 C0 C9 22 00 8B 0C CD 00 99 22 20 20 20 20 |...."......" |
00000470: 20 20 20 20 20 DD 44 49 53 4B 20 52 45 41 44 20 | .DISK READ |
00000480: 41 4E 44 20 57 52 49 54 45 DD 22 00 B1 0C CE 00 |AND WRITE.".....|
00000490: 99 22 20 20 20 20 20 20 20 20 20 CA C0 C0 C0 C0 |." .....|
000004A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB |................|
000004B0: 22 00 BB 0C D2 00 99 22 11 11 22 00 E1 0C D3 00 |"......"..".....|
000004C0: 99 22 20 20 20 20 20 20 20 20 20 20 46 31 20 20 |." F1 |
000004D0: 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 45 11 | MENUE.|
000004E0: 22 00 07 0D D4 00 99 22 20 20 20 20 20 20 20 20 |"......" |
000004F0: 20 20 46 33 20 20 20 20 20 20 20 20 4C 41 53 54 | F3 LAST|
00000500: 20 42 59 54 45 11 22 00 2D 0D D5 00 99 22 20 20 | BYTE.".-...." |
00000510: 20 20 20 20 20 20 20 20 46 35 20 20 20 20 20 20 | F5 |
00000520: 20 20 4E 45 58 54 20 42 59 54 45 11 22 00 53 0D | NEXT BYTE.".S.|
00000530: D6 00 99 22 20 20 20 20 20 20 20 20 20 20 46 37 |..." F7|
00000540: 20 20 20 46 41 53 54 20 4E 45 58 54 20 42 59 54 | FAST NEXT BYT|
00000550: 45 11 22 00 79 0D D7 00 99 22 20 20 20 20 20 20 |E.".y...." |
00000560: 20 20 20 20 46 32 20 4E 45 57 20 54 52 41 43 4B | F2 NEW TRACK|
00000570: 20 53 45 43 54 4F 52 11 22 00 9F 0D D8 00 99 22 | SECTOR."......"|
00000580: 20 20 20 20 20 20 20 20 20 20 46 36 20 20 20 20 | F6 |
00000590: 20 44 45 5A 2E 20 45 49 4E 47 41 42 45 11 22 00 | DEZ. EINGABE.".|
000005A0: C5 0D DA 00 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
000005B0: 46 38 20 20 20 20 20 20 20 53 41 56 45 20 42 4C |F8 SAVE BL|
000005C0: 4F 43 4B 11 22 00 EB 0D DB 00 99 22 20 20 20 20 |OCK."......" |
000005D0: 20 20 20 20 20 20 46 34 20 20 20 20 20 20 20 20 | F4 |
000005E0: 20 20 20 20 20 20 45 4E 44 11 22 00 F5 0D DC 00 | END.".....|
000005F0: 89 20 33 35 30 00 19 0E FA 00 8F 2A 2A 2A 2A 2A |. 350......*****|
00000600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3D 0E FB 00 8F 2A |*********.=....*|
00000620: 20 20 20 46 49 58 45 20 20 42 49 4C 44 53 43 48 | FIXE BILDSCH|
00000630: 52 49 4D 5A 45 49 4C 45 20 20 20 20 2A 00 61 0E |RIMZEILE *.a.|
00000640: FC 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000660: 2A 00 91 0E 09 01 99 22 93 44 45 5A 20 48 58 20 |*......".DEZ HX |
00000670: 20 20 20 20 44 45 5A 20 48 58 20 20 20 20 49 4E | DEZ HX IN|
00000680: 48 41 4C 54 20 20 20 20 20 20 20 20 20 4E 45 57 |HALT NEW|
00000690: 22 00 C0 0E 0A 01 99 22 2D 2D 2D 2D 2D 2D 2D 2D |"......"--------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
000006C0: 00 E3 0E 0F 01 97 36 35 30 2C 31 32 38 3A 8F 20 |......650,128:. |
000006D0: 54 41 53 54 45 4E 20 57 49 45 44 45 52 48 4F 4C |TASTEN WIEDERHOL|
000006E0: 55 4E 47 00 E9 0E 18 01 8E 00 0D 0F 2C 01 8F 2A |UNG.........,..*|
000006F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 31 0F |*************.1.|
00000710: 2D 01 8F 2A 20 4C 4F 41 44 20 54 52 41 43 4B 20 |-..* LOAD TRACK |
00000720: 41 4E 44 20 53 45 43 54 4F 52 20 20 20 20 20 20 |AND SECTOR |
00000730: 2A 00 55 0F 2E 01 8F 2A 20 49 4E 54 4F 20 44 49 |*.U....* INTO DI|
00000740: 53 4B 20 42 55 46 46 45 52 20 20 20 20 20 20 20 |SK BUFFER |
00000750: 20 20 20 20 2A 00 79 0F 2F 01 8F 2A 2A 2A 2A 2A | *.y./..*****|
00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 93 0F 36 01 50 24 |*********...6.P$|
00000780: B2 22 22 3A 85 22 11 20 20 20 20 54 52 41 43 4B |."":.". TRACK|
00000790: 22 3B 54 00 AD 0F 37 01 8B 54 B3 31 B0 54 B1 33 |";T...7..T.1.T.3|
000007A0: 35 A7 99 22 91 91 22 3B 3A 89 33 31 30 00 C1 0F |5.."..";:.310...|
000007B0: 38 01 85 22 11 20 20 20 53 45 43 54 4F 52 22 3B |8..". SECTOR";|
000007C0: 53 00 D6 0F 39 01 8B 53 B3 30 A7 99 22 91 91 22 |S...9..S.0..".."|
000007D0: 3B 3A 89 33 31 32 00 EC 0F 3A 01 8B 53 B1 32 30 |;:.312...:..S.20|
000007E0: A7 99 22 91 91 22 3B 3A 89 33 31 32 00 0B 10 3B |.."..";:.312...;|
000007F0: 01 8B 54 B1 31 38 AF 54 B3 32 35 AF 53 B1 31 38 |..T.18.T.25.S.18|
00000800: A7 99 22 91 22 3B 3A 89 33 31 32 00 2A 10 3C 01 |..".";:.312.*.<.|
00000810: 8B 54 B1 32 34 AF 54 B3 33 31 AF 53 B1 31 37 A7 |.T.24.T.31.S.17.|
00000820: 99 22 91 22 3B 3A 89 33 31 32 00 49 10 3D 01 8B |.".";:.312.I.=..|
00000830: 54 B1 33 30 AF 54 B3 33 36 AF 53 B1 31 36 A7 99 |T.30.T.36.S.16..|
00000840: 22 91 22 3B 3A 89 33 31 32 00 67 10 40 01 98 31 |".";:.312.g.@..1|
00000850: 35 2C 22 55 31 3A 32 2C 22 4C 57 3B 54 3B 53 3A |5,"U1:2,"LW;T;S:|
00000860: 8D 20 31 30 30 30 30 00 8F 10 45 01 99 22 93 11 |. 10000...E.."..|
00000870: 11 11 11 11 54 52 41 43 4B 20 20 22 3B 54 2C 22 |....TRACK ";T,"|
00000880: 20 53 45 4B 54 4F 52 20 22 3B 53 3B 22 11 22 00 | SEKTOR ";S;".".|
00000890: 9D 10 46 01 99 22 11 11 57 41 49 54 22 00 C7 10 |..F.."..WAIT"...|
000008A0: 47 01 8B 50 24 B2 22 22 AF 54 B3 B1 31 38 A7 99 |G..P$."".T..18..|
000008B0: 22 11 11 11 11 44 41 54 45 4E 20 2F 20 50 52 47 |"....DATEN / PRG|
000008C0: 22 2C 22 44 2F 50 22 00 EB 10 4A 01 8F 2A 2A 2A |","D/P"...J..***|
000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0F 11 4B 01 |***********...K.|
000008F0: 8F 2A 20 20 20 20 20 20 20 20 20 52 45 41 44 20 |.* READ |
00000900: 44 49 53 4B 20 20 20 20 20 20 20 20 20 20 2A 00 |DISK *.|
00000910: 33 11 4D 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |3.M..***********|
00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000930: 2A 2A 2A 00 43 11 4E 01 81 20 49 B2 30 20 A4 20 |***.C.N.. I.0 . |
00000940: 32 35 35 00 76 11 4F 01 A1 23 43 48 2C 44 24 28 |255.v.O..#CH,D$(|
00000950: 49 29 3A 44 44 24 28 49 29 B2 44 24 28 49 29 3A |I):DD$(I).D$(I):|
00000960: 8B 20 44 24 28 49 29 B2 22 22 20 A7 20 44 24 28 |. D$(I)."" . D$(|
00000970: 49 29 B2 4E 4C 24 00 7E 11 50 01 82 20 49 00 A8 |I).NL$.~.P.. I..|
00000980: 11 51 01 8B 54 B3 B1 31 38 AF 50 24 B2 22 22 A7 |.Q..T..18.P$."".|
00000990: A1 50 24 3A 8B 50 24 B3 B1 22 44 22 AF 50 24 B3 |.P$:.P$.."D".P$.|
000009A0: B1 22 50 22 A7 33 33 37 00 B1 11 52 01 99 22 93 |."P".337...R..".|
000009B0: 22 00 D3 11 53 01 54 54 B2 C6 28 44 24 28 30 29 |"...S.TT..(D$(0)|
000009C0: 29 3A 53 53 B2 C6 28 44 24 28 31 29 29 3A 49 49 |):SS..(D$(1)):II|
000009D0: B2 AB 33 00 E8 11 54 01 46 31 B2 31 3A 81 20 49 |..3...T.F1.1:. I|
000009E0: B2 30 20 A4 20 32 35 35 00 F9 11 55 01 8B 49 49 |.0 . 255...U..II|
000009F0: B2 AB 31 A7 99 22 11 11 22 00 0E 12 56 01 4E B2 |..1..".."...V.N.|
00000A00: 49 3A 8D 31 30 30 31 30 3A 99 22 9D 22 3B 00 1F |I:.10010:.".";..|
00000A10: 12 57 01 8B 49 B3 31 30 30 A7 99 22 20 22 3B 00 |.W..I.100.." ";.|
00000A20: 2F 12 58 01 8B 49 B3 31 30 A7 99 22 20 22 3B 00 |/.X..I.10.." ";.|
00000A30: 40 12 59 01 99 49 3B 41 24 AA 22 20 3A 20 22 3B |@.Y..I;A$." : ";|
00000A40: 00 66 12 5A 01 4E B2 C6 28 44 24 28 49 29 29 3A |.f.Z.N..(D$(I)):|
00000A50: 43 24 B2 44 24 28 49 29 3A 8D 31 30 30 31 30 3A |C$.D$(I):.10010:|
00000A60: 8D 31 30 30 32 30 00 77 12 5B 01 8B 4E B3 31 30 |.10020.w.[..N.10|
00000A70: 30 A7 99 22 20 22 3B 00 87 12 5C 01 8B 4E B3 31 |0.." ";...\..N.1|
00000A80: 30 A7 99 22 20 22 3B 00 A4 12 5D 01 99 4E 3B 41 |0.." ";...]..N;A|
00000A90: 24 AA 22 20 2D 20 22 3B 43 24 3A 99 A3 33 34 29 |$." - ";C$:..34)|
00000AA0: 22 91 3A 22 00 B7 12 5E 01 A1 41 24 3A 8B 41 24 |".:"...^..A$:.A$|
00000AB0: B2 22 22 A7 33 35 30 00 D0 12 5F 01 8B 41 24 B2 |."".350..._..A$.|
00000AC0: 22 87 22 AF 46 31 B2 31 A7 33 38 35 3A 8F 46 35 |".".F1.1.385:.F5|
00000AD0: 00 E4 12 60 01 8B 41 24 B2 22 89 22 A7 33 31 30 |...`..A$.".".310|
00000AE0: 3A 8F 46 32 00 FD 12 61 01 8B 41 24 B2 22 86 22 |:.F2...a..A$."."|
00000AF0: AF 46 31 B2 31 A7 33 37 30 3A 8F 46 33 00 16 13 |.F1.1.370:.F3...|
00000B00: 62 01 8B 41 24 B2 22 8C 22 AF 5A 5A B2 32 A7 34 |b..A$.".".ZZ.2.4|
00000B10: 35 30 3A 8F 46 38 00 2F 13 63 01 8B 41 24 B2 22 |50:.F8./.c..A$."|
00000B20: 88 22 AF 46 31 B2 31 A7 33 39 30 3A 8F 46 35 00 |.".F1.1.390:.F5.|
00000B30: 43 13 64 01 8B 41 24 B2 22 85 22 A7 32 30 30 3A |C.d..A$.".".200:|
00000B40: 8F 46 31 00 57 13 65 01 8B 41 24 B2 22 8A 22 A7 |.F1.W.e..A$.".".|
00000B50: 36 30 30 3A 8F 46 34 00 70 13 66 01 8B 41 24 B2 |600:.F4.p.f..A$.|
00000B60: 22 8B 22 AF 46 31 B2 31 A7 33 38 30 3A 8F 46 36 |".".F1.1.380:.F6|
00000B70: 00 7F 13 68 01 8B 46 31 B3 B1 31 A7 33 35 30 00 |...h..F1..1.350.|
00000B80: 9E 13 6D 01 5A 5A B2 32 3A 44 44 24 28 49 29 B2 |..m.ZZ.2:DD$(I).|
00000B90: 41 24 3A 99 A3 33 36 29 22 91 22 3B 41 24 00 A7 |A$:..36)".";A$..|
00000BA0: 13 6E 01 89 33 38 35 00 BA 13 72 01 49 B2 49 AB |.n..385...r.I.I.|
00000BB0: 31 3A 8B 49 B3 30 A7 49 B2 30 00 C4 13 74 01 89 |1:.I.0.I.0...t..|
00000BC0: 20 33 34 32 00 D5 13 7C 01 99 A3 33 34 29 22 91 | 342...|...34)".|
00000BD0: 22 3B 3A 85 41 00 EE 13 7D 01 8B 41 B3 30 B0 41 |";:.A...}..A.0.A|
00000BE0: B1 32 35 35 A7 99 22 91 22 3A 89 33 38 30 00 03 |.255..".":.380..|
00000BF0: 14 7E 01 5A 5A B2 32 3A 44 44 24 28 49 29 B2 C7 |.~.ZZ.2:DD$(I)..|
00000C00: 28 41 29 00 1A 14 81 01 82 20 49 3A 46 31 B2 30 |(A)...... I:F1.0|
00000C10: 3A 8B 5A 5A B2 32 A7 34 35 30 00 2E 14 82 01 54 |:.ZZ.2.450.....T|
00000C20: B2 54 54 3A 53 B2 53 53 3A 89 20 33 31 33 00 48 |.TT:S.SS:. 313.H|
00000C30: 14 86 01 8F 20 20 2A 20 46 41 53 54 20 4E 45 58 |.... * FAST NEX|
00000C40: 54 20 42 59 54 45 20 2A 00 5F 14 87 01 49 B2 49 |T BYTE *._...I.I|
00000C50: AA 31 3A 8B 49 B1 32 35 34 A7 49 B2 32 35 34 00 |.1:.I.254.I.254.|
00000C60: 7B 14 88 01 8B C6 28 44 24 28 49 29 29 B2 33 34 |{.....(D$(I)).34|
00000C70: A7 4B 4F B2 B6 28 4B 4F AB 31 29 00 86 14 89 01 |.KO..(KO.1).....|
00000C80: 99 22 9D 22 3B 49 00 90 14 8A 01 99 22 91 91 22 |.".";I......".."|
00000C90: 00 A3 14 8B 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
00000CA0: 33 39 34 00 B3 14 8C 01 8B 41 24 B2 22 88 22 A7 |394......A$.".".|
00000CB0: 33 39 31 00 BD 14 8D 01 89 20 33 35 31 00 E1 14 |391...... 351...|
00000CC0: 90 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CE0: 2A 00 05 15 91 01 8F 2A 20 4C 4F 41 44 20 54 52 |*......* LOAD TR|
00000CF0: 41 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 20 20 |ACK AND SECTOR |
00000D00: 20 20 20 20 2A 00 29 15 92 01 8F 2A 2A 2A 2A 2A | *.)....*****|
00000D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 63 15 C2 01 46 31 |*********.c...F1|
00000D30: B2 30 3A 5A 5A B2 30 3A 99 3A 99 22 11 11 20 20 |.0:ZZ.0:.:.".. |
00000D40: 20 41 52 45 20 59 4F 55 20 53 48 55 52 20 54 4F | ARE YOU SHUR TO|
00000D50: 20 57 52 49 54 45 20 44 49 53 4B 20 20 20 59 2F | WRITE DISK Y/|
00000D60: 4E 22 3B 00 76 15 C3 01 A1 41 24 3A 8B 41 24 B2 |N";.v....A$:.A$.|
00000D70: 22 22 A7 34 35 31 00 86 15 C4 01 8B 41 24 B2 22 |"".451......A$."|
00000D80: 59 22 A7 34 35 35 00 90 15 C5 01 89 20 33 35 30 |Y".455...... 350|
00000D90: 00 A5 15 C7 01 98 31 35 2C 22 42 2D 50 3A 22 3B |......15,"B-P:";|
00000DA0: 43 48 3B 4C 57 00 C9 15 C8 01 81 41 B2 30 A4 32 |CH;LW......A.0.2|
00000DB0: 35 35 3A 8B 44 44 24 28 41 29 B2 22 22 A7 44 44 |55:.DD$(A)."".DD|
00000DC0: 24 28 41 29 B2 C7 28 30 29 00 D9 15 C9 01 98 43 |$(A)..(0)......C|
00000DD0: 48 2C 44 44 24 28 41 29 3B 00 DF 15 CA 01 82 00 |H,DD$(A);.......|
00000DE0: F7 15 CB 01 98 31 35 2C 22 55 32 3A 22 3B 43 48 |.....15,"U2:";CH|
00000DF0: 3B 4C 57 3B 54 3B 53 00 07 16 CC 01 8D 31 30 30 |;LW;T;S......100|
00000E00: 30 30 3A 89 32 30 30 00 2B 16 58 02 8F 2A 2A 2A |00:.200.+.X..***|
00000E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 16 59 02 |***********.O.Y.|
00000E30: 8F 2A 20 20 20 20 20 20 20 43 4C 4F 53 45 20 44 |.* CLOSE D|
00000E40: 49 53 4B 20 20 20 20 20 20 20 20 20 20 20 2A 00 |ISK *.|
00000E50: 73 16 5A 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |s.Z..***********|
00000E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E70: 2A 2A 2A 00 80 16 62 02 A0 43 48 2C 38 2C 43 48 |***...b..CH,8,CH|
00000E80: 00 8D 16 63 02 A0 31 35 2C 38 2C 31 35 00 93 16 |...c..15,8,15...|
00000E90: 67 02 80 00 B7 16 10 27 8F 2A 2A 2A 2A 2A 2A 2A |g......'.*******|
00000EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EB0: 2A 2A 2A 2A 2A 2A 2A 00 DB 16 11 27 8F 2A 20 20 |*******....'.* |
00000EC0: 20 20 20 20 20 45 52 52 4F 52 20 52 4F 55 54 49 | ERROR ROUTI|
00000ED0: 4E 45 20 20 20 20 20 20 20 20 2A 00 FF 16 12 27 |NE *....'|
00000EE0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000EF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000F00: 1F 17 13 27 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 |...'.15,EN,EM$,E|
00000F10: 54 2C 45 53 3A 8B 20 45 4E B2 30 20 A7 20 8E 00 |T,ES:. EN.0 . ..|
00000F20: 34 17 14 27 99 22 11 12 44 49 53 4B 20 45 52 52 |4..'."..DISK ERR|
00000F30: 4F 52 92 22 00 46 17 15 27 99 45 4E 2C 45 4D 24 |OR.".F..'.EN,EM$|
00000F40: 2C 45 54 2C 45 53 00 5B 17 16 27 81 41 B2 30 A4 |,ET,ES.[..'.A.0.|
00000F50: 31 30 30 30 3A 82 3A 89 36 30 30 00 7F 17 1A 27 |1000:.:.600....'|
00000F60: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000F80: A3 17 1B 27 8F 2A 20 44 49 53 4B 20 42 59 54 45 |...'.* DISK BYTE|
00000F90: 20 54 4F 20 48 45 58 20 50 52 49 4E 54 20 20 20 | TO HEX PRINT |
00000FA0: 20 20 2A 00 C7 17 1C 27 8F 2A 2A 2A 2A 2A 2A 2A | *....'.*******|
00000FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000FC0: 2A 2A 2A 2A 2A 2A 2A 00 E7 17 1D 27 41 31 B2 B5 |*******....'A1..|
00000FD0: 28 4E AD 31 36 29 3A 41 24 B2 CA 28 48 58 24 2C |(N.16):A$..(HX$,|
00000FE0: 41 31 AA 31 2C 31 29 00 0D 18 1E 27 41 32 B2 B5 |A1.1,1)....'A2..|
00000FF0: 28 4E AB 31 36 AC 41 31 29 3A 41 24 B2 41 24 AA |(N.16.A1):A$.A$.|
00001000: CA 28 48 58 24 2C 41 32 AA 31 2C 31 29 00 1D 18 |.(HX$,A2.1,1)...|
00001010: 1F 27 41 24 B2 41 24 AA 53 50 24 3A 8E 00 41 18 |.'A$.A$.SP$:..A.|
00001020: 24 27 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |$'.*************|
00001030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001040: 2A 00 65 18 25 27 8F 2A 20 44 49 53 4B 20 42 59 |*.e.%'.* DISK BY|
00001050: 54 45 20 54 4F 20 41 53 43 20 44 49 53 50 4C 41 |TE TO ASC DISPLA|
00001060: 59 20 20 20 2A 00 89 18 26 27 8F 2A 20 43 48 41 |Y *...&'.* CHA|
00001070: 52 41 43 54 45 52 20 20 20 20 20 20 20 20 20 20 |RACTER |
00001080: 20 20 20 20 20 20 20 20 2A 00 AD 18 27 27 8F 2A | *...''.*|
00001090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C4 18 |*************...|
000010B0: 28 27 8B 20 54 B2 31 38 AF 53 B3 B1 30 20 A7 31 |('. T.18.S..0 .1|
000010C0: 30 30 35 30 00 DA 18 29 27 8B 20 54 B2 31 38 AF |0050...)'. T.18.|
000010D0: 53 B2 30 20 A7 31 30 31 30 30 00 ED 18 2A 27 8B |S.0 .10100...*'.|
000010E0: 20 50 24 B2 22 50 22 A7 31 30 32 30 30 00 0C 19 | P$."P".10200...|
000010F0: 38 27 8B 20 C6 28 43 24 29 B2 31 33 20 A7 20 43 |8'. .(C$).13 . C|
00001100: 24 B2 22 52 45 54 55 52 4E 22 3A 8E 00 26 19 39 |$."RETURN":..&.9|
00001110: 27 8B 20 C6 28 43 24 29 B3 33 32 20 A7 20 43 24 |'. .(C$).32 . C$|
00001120: B2 22 20 22 3A 8E 00 54 19 3A 27 8B 20 C6 28 43 |." ":..T.:'. .(C|
00001130: 24 29 B3 31 32 38 B0 C6 28 43 24 29 B1 31 35 39 |$).128..(C$).159|
00001140: A7 43 24 B2 43 24 AA 22 20 20 20 20 20 20 20 20 |.C$.C$." |
00001150: 20 22 3A 8E 00 74 19 3B 27 43 24 B2 CA 28 53 53 | ":..t.;'C$..(SS|
00001160: 24 2C 33 AC 28 C6 28 43 24 29 AB 31 32 37 29 2C |$,3.(.(C$).127),|
00001170: 33 29 3A 8E 00 7A 19 41 27 8E 00 9D 19 42 27 8F |3):..z.A'....B'.|
00001180: 20 2A 2A 2A 2A 2A 2A 2A 2A 20 44 49 52 45 43 54 | ******** DIRECT|
00001190: 4F 52 59 20 31 2D 31 38 20 2A 2A 2A 2A 00 A9 19 |ORY 1-18 ****...|
000011A0: 44 27 49 49 B2 49 49 AA 31 00 C3 19 45 27 8B 49 |D'II.II.1...E'.I|
000011B0: B2 30 A7 43 24 B2 22 4E 45 58 54 20 54 52 41 43 |.0.C$."NEXT TRAC|
000011C0: 4B 20 22 00 DD 19 46 27 8B 49 B2 31 A7 43 24 B2 |K "...F'.I.1.C$.|
000011D0: 22 4E 45 58 54 20 53 45 43 54 4F 52 22 00 ED 19 |"NEXT SECTOR"...|
000011E0: 47 27 8B 49 49 B2 30 A7 31 30 30 37 30 00 0A 1A |G'.II.0.10070...|
000011F0: 48 27 8B 49 49 B2 31 A7 43 24 B2 22 41 4E 46 2E |H'.II.1.C$."ANF.|
00001200: 20 54 52 41 43 4B 20 22 3A 8E 00 27 1A 49 27 8B | TRACK ":..'.I'.|
00001210: 49 49 B2 32 A7 43 24 B2 22 41 4E 46 2E 20 53 41 |II.2.C$."ANF. SA|
00001220: 43 54 4F 52 22 3A 8E 00 44 1A 4A 27 8B 49 49 B2 |CTOR":..D.J'.II.|
00001230: 32 36 A7 43 24 B2 22 4E 45 57 20 54 52 41 43 4B |26.C$."NEW TRACK|
00001240: 20 22 3A 8E 00 61 1A 4B 27 8B 49 49 B2 32 37 A7 | ":..a.K'.II.27.|
00001250: 43 24 B2 22 4E 45 57 20 53 45 43 54 4F 52 22 3A |C$."NEW SECTOR":|
00001260: 8E 00 7E 1A 4C 27 8B 49 49 B2 32 38 A7 43 24 B2 |..~.L'.II.28.C$.|
00001270: 22 4C 42 20 20 42 4C 4F 43 4B 20 22 3A 8E 00 9B |"LB BLOCK ":...|
00001280: 1A 4D 27 8B 49 49 B2 32 39 A7 43 24 B2 22 48 42 |.M'.II.29.C$."HB|
00001290: 20 20 42 4C 4F 43 4B 20 22 3A 8E 00 AE 1A 4E 27 | BLOCK ":....N'|
000012A0: 8B 49 49 B2 33 31 A7 49 49 B2 AB 31 3A 8E 00 C9 |.II.31.II..1:...|
000012B0: 1A 56 27 8B 20 C6 28 43 24 29 B2 31 32 38 20 A7 |.V'. .(C$).128 .|
000012C0: 20 43 24 B2 22 44 45 4C 22 00 E4 1A 57 27 8B 20 | C$."DEL"...W'. |
000012D0: C6 28 43 24 29 B2 31 32 39 20 A7 20 43 24 B2 22 |.(C$).129 . C$."|
000012E0: 53 45 51 22 00 FF 1A 58 27 8B 20 C6 28 43 24 29 |SEQ"...X'. .(C$)|
000012F0: B2 31 33 30 20 A7 20 43 24 B2 22 50 52 47 22 00 |.130 . C$."PRG".|
00001300: 1A 1B 59 27 8B 20 C6 28 43 24 29 B2 31 33 31 20 |..Y'. .(C$).131 |
00001310: A7 20 43 24 B2 22 55 53 52 22 00 35 1B 5A 27 8B |. C$."USR".5.Z'.|
00001320: 20 C6 28 43 24 29 B2 31 33 32 20 A7 20 43 24 B2 | .(C$).132 . C$.|
00001330: 22 52 45 4C 22 00 3B 1B 60 27 8E 00 5E 1B 74 27 |"REL".;.`'..^.t'|
00001340: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 44 49 52 45 43 |. ******** DIREC|
00001350: 54 4F 52 59 20 30 20 2A 2A 2A 2A 2A 2A 2A 00 7A |TORY 0 *******.z|
00001360: 1B 76 27 8B 49 B2 30 A7 43 24 B2 22 4E 45 58 54 |.v'.I.0.C$."NEXT|
00001370: 20 54 52 41 43 4B 20 22 3A 8E 00 96 1B 77 27 8B | TRACK ":....w'.|
00001380: 49 B2 31 A7 43 24 B2 22 4E 45 58 54 20 53 45 43 |I.1.C$."NEXT SEC|
00001390: 54 4F 52 22 3A 8E 00 B8 1B 78 27 8B 49 B2 32 A7 |TOR":....x'.I.2.|
000013A0: 8D 31 30 31 35 30 3A 43 24 B2 43 24 AA 22 20 46 |.10150:C$.C$." F|
000013B0: 4F 52 4D 41 54 22 3A 8E 00 CD 1B 79 27 8B 49 B2 |ORMAT":....y'.I.|
000013C0: 33 A7 43 24 B2 22 46 4C 41 47 22 3A 8E 00 EF 1B |3.C$."FLAG":....|
000013D0: 7A 27 8B 49 B2 B1 33 AF 49 B3 31 34 34 A7 43 24 |z'.I..3.I.144.C$|
000013E0: B2 22 42 4C 4F 43 4B 20 20 30 2F 31 22 3A 8E 00 |."BLOCK 0/1":..|
000013F0: 11 1C 7C 27 8B 49 B2 31 34 34 A7 8D 31 30 31 35 |..|'.I.144..1015|
00001400: 30 3A 43 24 B2 43 24 AA 22 20 4E 41 4D 45 22 3A |0:C$.C$." NAME":|
00001410: 8E 00 2B 1C 7D 27 8B 49 B3 31 34 34 AF 49 B1 31 |..+.}'.I.144.I.1|
00001420: 36 31 A7 8D 31 30 31 35 30 3A 8E 00 51 1C 7E 27 |61..10150:..Q.~'|
00001430: 8B 49 B2 31 36 32 B0 49 B2 31 36 33 A7 8D 31 30 |.I.162.I.163..10|
00001440: 31 35 30 3A 43 24 B2 43 24 AA 22 20 49 44 22 3A |150:C$.C$." ID":|
00001450: 8E 00 7D 1C 7F 27 8B 49 B2 31 36 35 B0 49 B2 31 |..}..'.I.165.I.1|
00001460: 36 36 A7 8D 31 30 31 35 30 3A 43 24 B2 43 24 AA |66..10150:C$.C$.|
00001470: 22 20 44 4F 53 20 56 45 52 53 22 3A 8E 00 A3 1C |" DOS VERS":....|
00001480: 80 27 8B 49 B1 31 37 36 A7 8D 31 30 31 35 30 3A |.'.I.176..10150:|
00001490: 43 24 B2 43 24 AA 22 20 4E 4F 54 20 55 53 45 44 |C$.C$." NOT USED|
000014A0: 22 3A 8E 00 A9 1C 88 27 8E 00 C5 1C A6 27 8B 20 |":.....'.....'. |
000014B0: C6 28 43 24 29 B3 31 32 38 B0 C6 28 43 24 29 B1 |.(C$).128..(C$).|
000014C0: 31 35 39 A7 8E 00 E5 1C A7 27 43 24 B2 CA 28 53 |159......'C$..(S|
000014D0: 53 24 2C 33 AC 28 C6 28 43 24 29 AB 31 32 37 29 |S$,3.(.(C$).127)|
000014E0: 2C 33 29 3A 8E 00 09 1D D8 27 8F 2A 2A 2A 2A 2A |,3):.....'.*****|
000014F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2D 1D D9 27 8F 2A |*********.-..'.*|
00001510: 20 20 20 20 20 20 20 20 20 50 52 47 20 43 4F 44 | PRG COD|
00001520: 45 20 20 20 20 20 20 20 20 20 20 20 2A 00 51 1D |E *.Q.|
00001530: DA 27 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.'.*************|
00001540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001550: 2A 00 60 1D DD 27 41 B2 C6 28 44 24 28 49 29 29 |*.`..'A..(D$(I))|
00001560: 00 7B 1D E2 27 8B 41 B2 33 34 AF 4B 4F B2 30 A7 |.{..'.A.34.KO.0.|
00001570: 4B 4F B2 31 3A 89 31 30 30 34 30 00 91 1D E3 27 |KO.1:.10040....'|
00001580: 8B 4B 4F B2 31 AF 41 B3 B1 33 34 A7 31 30 30 34 |.KO.1.A..34.1004|
00001590: 30 00 AC 1D E4 27 8B 41 B2 33 34 AF 4B 4F B2 31 |0....'.A.34.KO.1|
000015A0: A7 4B 4F B2 30 3A 89 31 30 30 34 30 00 C1 1D E5 |.KO.0:.10040....|
000015B0: 27 8B 41 B2 30 A7 43 24 B2 22 2D 2D 2D 2D 22 3A |'.A.0.C$."----":|
000015C0: 8E 00 D8 1D EC 27 8B 41 B3 31 32 38 B0 41 B1 32 |.....'.A.128.A.2|
000015D0: 30 33 A7 31 30 30 34 30 00 ED 1D ED 27 8C 3A 81 |03.10040....'.:.|
000015E0: 51 B2 31 32 38 A4 41 3A 87 43 24 3A 82 00 F3 1D |Q.128.A:.C$:....|
000015F0: EE 27 8E 00 3D 1E 20 4E 83 20 22 45 4E 44 22 2C |.'..=. N. "END",|
00001600: 22 46 4F 52 22 2C 22 4E 45 58 54 22 2C 22 44 41 |"FOR","NEXT","DA|
00001610: 54 41 22 2C 22 49 4E 50 55 54 23 22 2C 22 49 4E |TA","INPUT#","IN|
00001620: 50 55 54 22 2C 22 44 49 4D 22 2C 52 45 41 44 22 |PUT","DIM",READ"|
00001630: 2C 22 4C 45 54 22 2C 22 47 4F 54 4F 22 00 82 1E |,"LET","GOTO"...|
00001640: 21 4E 83 20 22 52 55 4E 22 2C 22 49 46 22 2C 22 |!N. "RUN","IF","|
00001650: 52 45 53 54 4F 52 45 22 2C 22 47 4F 53 55 42 22 |RESTORE","GOSUB"|
00001660: 2C 22 52 45 54 55 52 4E 22 2C 22 52 45 4D 22 2C |,"RETURN","REM",|
00001670: 22 53 54 4F 50 22 2C 22 4F 4E 22 2C 22 57 41 49 |"STOP","ON","WAI|
00001680: 54 22 00 CB 1E 22 4E 83 20 22 4C 4F 41 44 22 2C |T"..."N. "LOAD",|
00001690: 22 53 41 56 45 22 2C 22 56 45 52 49 46 59 22 2C |"SAVE","VERIFY",|
000016A0: 22 44 45 46 22 2C 22 50 4F 4B 45 22 2C 22 50 52 |"DEF","POKE","PR|
000016B0: 49 4E 54 23 22 2C 22 50 52 49 4E 54 22 2C 22 43 |INT#","PRINT","C|
000016C0: 4F 4E 54 22 2C 22 4C 49 53 54 22 00 0F 1F 23 4E |ONT","LIST"...#N|
000016D0: 83 20 22 43 4C 52 22 2C 22 43 4D 44 22 2C 22 53 |. "CLR","CMD","S|
000016E0: 59 53 22 2C 22 4F 50 45 4E 22 2C 22 43 4C 4F 53 |YS","OPEN","CLOS|
000016F0: 45 22 2C 22 47 45 54 22 2C 22 4E 45 57 22 2C 22 |E","GET","NEW","|
00001700: 54 41 42 28 22 2C 22 54 4F 22 2C 22 46 4E 22 00 |TAB(","TO","FN".|
00001710: 53 1F 24 4E 83 20 22 53 50 43 28 22 2C 22 54 48 |S.$N. "SPC(","TH|
00001720: 45 4E 22 2C 22 4E 4F 54 22 2C 22 53 54 45 50 22 |EN","NOT","STEP"|
00001730: 2C 22 2B 22 2C 22 2D 22 2C 22 2A 22 2C 22 2F 22 |,"+","-","*","/"|
00001740: 2C 22 5E 22 2C 22 41 4E 44 22 2C 22 4F 52 22 2C |,"^","AND","OR",|
00001750: 22 3E 22 00 97 1F 25 4E 83 20 22 3D 22 2C 22 3C |">"...%N. "=","<|
00001760: 22 2C 22 53 47 4E 22 2C 22 49 4E 54 22 2C 22 41 |","SGN","INT","A|
00001770: 42 53 22 2C 22 55 53 52 22 2C 22 46 52 45 22 2C |BS","USR","FRE",|
00001780: 22 50 4F 53 22 2C 22 53 51 52 22 2C 22 52 4E 44 |"POS","SQR","RND|
00001790: 22 2C 22 4C 4F 47 22 00 DB 1F 26 4E 83 20 22 45 |","LOG"...&N. "E|
000017A0: 58 50 22 2C 22 43 4F 53 22 2C 22 53 49 4E 22 2C |XP","COS","SIN",|
000017B0: 22 54 41 4E 22 2C 22 41 54 4E 22 2C 22 50 45 45 |"TAN","ATN","PEE|
000017C0: 4B 22 2C 22 4C 45 4E 22 2C 22 53 54 52 24 22 2C |K","LEN","STR$",|
000017D0: 22 56 41 4C 22 2C 22 41 53 43 22 00 05 20 27 4E |"VAL","ASC".. 'N|
000017E0: 83 20 22 43 48 52 24 22 2C 22 4C 45 46 54 24 22 |. "CHR$","LEFT$"|
000017F0: 2C 22 52 49 47 54 48 24 22 2C 22 4D 49 44 24 22 |,"RIGTH$","MID$"|
00001800: 2C 22 47 4F 22 00 29 20 30 75 8F 2A 2A 2A 2A 2A |,"GO".) 0u.*****|
00001810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4D 20 31 75 8F 2A |*********.M 1u.*|
00001830: 20 20 20 20 20 20 20 45 49 4E 4C 45 49 54 55 4E | EINLEITUN|
00001840: 47 20 20 20 20 20 20 20 20 20 20 20 2A 00 71 20 |G *.q |
00001850: 32 75 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |2u.*************|
00001860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001870: 2A 00 8A 20 33 75 99 22 93 44 49 53 4B 20 50 52 |*.. 3u.".DISK PR|
00001880: 49 4E 54 20 50 52 47 2E 11 22 00 D3 20 34 75 99 |INT PRG..".. 4u.|
00001890: 22 53 49 45 20 4B 4F 45 4E 4E 45 4E 20 41 4C 4C |"SIE KOENNEN ALL|
000018A0: 45 20 42 4C 4F 45 43 4B 45 20 44 45 52 20 44 49 |E BLOECKE DER DI|
000018B0: 43 4B 20 4C 45 53 45 4E 20 4F 44 45 52 20 41 55 |CK LESEN ODER AU|
000018C0: 43 48 20 45 49 4E 5A 45 4C 4E 45 20 42 59 54 53 |CH EINZELNE BYTS|
000018D0: 20 22 3B 00 12 21 35 75 99 22 55 45 42 45 52 53 | ";..!5u."UEBERS|
000018E0: 43 48 52 45 49 42 45 4E 11 20 20 41 55 53 47 45 |CHREIBEN. AUSGE|
000018F0: 4E 4F 4D 4D 45 4E 20 42 45 49 20 44 45 5A 2E 2D |NOMMEN BEI DEZ.-|
00001900: 45 49 4E 47 41 42 45 20 55 4E 44 20 4D 4F 44 55 |EINGABE UND MODU|
00001910: 53 22 00 45 21 36 75 99 22 53 49 4E 44 20 4E 55 |S".E!6u."SIND NU|
00001920: 52 20 44 49 45 20 46 55 4E 4B 54 49 4F 4E 53 54 |R DIE FUNKTIONST|
00001930: 41 53 54 45 4E 20 5A 55 20 56 45 52 57 45 4E 2D |ASTEN ZU VERWEN-|
00001940: 20 44 45 4E 22 00 94 21 37 75 99 22 41 4C 4C 45 | DEN"..!7u."ALLE|
00001950: 20 41 4E 44 45 52 45 4E 20 54 41 53 54 45 4E 20 | ANDEREN TASTEN |
00001960: 57 45 52 44 45 4E 20 41 4C 53 20 45 49 4E 47 41 |WERDEN ALS EINGA|
00001970: 42 45 20 20 47 45 57 45 52 54 45 54 2C 20 49 4E |BE GEWERTET, IN|
00001980: 20 4E 45 57 20 41 42 47 45 53 50 45 49 43 48 45 | NEW ABGESPEICHE|
00001990: 52 54 22 3B 00 C5 21 38 75 99 22 20 55 4E 44 20 |RT";..!8u." UND |
000019A0: 41 4E 53 43 48 4C 49 45 53 53 45 4E 44 20 41 55 |ANSCHLIESSEND AU|
000019B0: 46 20 44 49 45 20 44 49 53 4B 20 47 45 53 50 49 |F DIE DISK GESPI|
000019C0: 45 4C 44 11 22 00 15 22 39 75 99 22 54 52 41 43 |ELD.".."9u."TRAC|
000019D0: 4B 20 31 38 20 49 53 54 20 46 55 45 52 20 44 49 |K 18 IST FUER DI|
000019E0: 45 20 44 49 52 45 43 54 4F 52 59 20 52 45 53 45 |E DIRECTORY RESE|
000019F0: 52 2D 20 20 56 49 45 52 54 20 55 4E 44 20 47 45 |R- VIERT UND GE|
00001A00: 53 4F 4E 44 45 52 54 20 45 4E 54 53 43 48 4C 55 |SONDERT ENTSCHLU|
00001A10: 45 53 53 45 4C 00 5A 22 3A 75 99 22 11 11 44 55 |ESSEL.Z":u."..DU|
00001A20: 52 43 48 20 44 52 55 45 43 4B 45 4E 20 56 4F 4E |RCH DRUECKEN VON|
00001A30: 20 20 3E 46 31 3C 20 20 4B 4F 4D 4D 45 4E 20 53 | >F1< KOMMEN S|
00001A40: 49 45 20 20 20 20 4A 45 44 45 52 5A 45 49 54 20 |IE JEDERZEIT |
00001A50: 49 4E 53 20 4D 45 4E 55 45 22 00 63 22 3B 75 89 |INS MENUE".c";u.|
00001A60: 33 35 30 00 00 00 3A 29 00 31 2C |350...:).1, |
..%....******************************.I.
...* PARTEL ALEXANDER 16.12.83 *.M....*
*****************************...D..*****
*************************...E..* SET PRO
GRAM CONSTANT *.Y.F..*************
*****************...G.SP$." ": . SPACE..
.H.NL$.G(0):. NULL STRING.0.I.HX$."01234
56789ABCDEF" :. HEX ZAHL.T.J.SS$." ":.
I.192 . 223:SS$.SS$.".".G(I).".":. I:. A
SCII-ZEICHEN...K.LW.0:. DISK LAUFWERK...
L.CH.2:. KANAL...V.. D$(255),DD$(255).T.
X.. T = TRACK , S = SEKTOR...Y.. TT =
NEXT T, TT = NEXT S...Z.. I = POINTER.#
.{.. ZZ = DICK PRINT COMAND.C.|.. N = V
ARIABLE F SUBRUTINE.[.}.. C$ = "
" ".Y.~.. A$ = " " EINGABE.....
II = " " DIRCTORY...... F1 = "
" SPRUNG MOEGLICH...... P$ = "
" PRG CODE...... KO = " " ANFU
EHUNGSZ.. .... A = " " SONSTIGES
.D....******************************.H..
..* OPEN DISK *......**
****************************... ..15,8,1
5,"I".D$:. 10000.A....CH,8,CH,"#":. 1000
0.Q....250:.30000...H..*****************
*************...I..* MASKE
*.=.J..*************************
*****.E.L..".. U................
...I"...M.." .DISK READ AND WRIT
E."...N.." J...................K
"...R..".."...S.." F1
MENUE."...T.." F3 LAST
BYTE.".-.U.." F5 NEXT B
YTE.".S.V.." F7 FAST NEXT BYT
E.".Y.W.." F2 NEW TRACK SECTOR.
"...X.." F6 DEZ. EINGABE.".
E.Z.." F8 SAVE BLOCK."...
..." F4 END.".....
. 350......*****************************
*.=....* FIXE BILDSCHRIMZEILE *.A.
...******************************......"
.DEZ HX DEZ HX INHALT NEW
"......"--------------------------------
-------"......650,128:. TASTEN WIEDERHOL
UNG.........,..*************************
*****.1.-..* LOAD TRACK AND SECTOR
*.U....* INTO DISK BUFFER *.Y.
/..******************************...6.P$
."":.". TRACK";T...7..T.1.T.35.."..";
:.310.A.8..". SECTOR";S.V.9..S.0..".."
;:.312...:..S.20.."..";:.312...;..T.18.T
.25.S.18..".";:.312.*.<..T.24.T.31.S.17.
.".";:.312.I.=..T.30.T.36.S.16..".";:.31
2.G.@..15,"U1:2,"LW;T;S:. 10000...E.."..
....TRACK ";T," SEKTOR ";S;"."...F.."..
WAIT".G.G..P$."".T..18.."....DATEN / PRG
","D/P"...J..***************************
***...K..* READ DISK *.
3.M..******************************.C.N.
. I.0 . 255.V.O..#CH,D$(I):DD$(I).D$(I):
. D$(I)."" . D$(I).NL$.~.P.. I...Q..T..1
8.P$.""..P$:.P$.."D".P$.."P".337...R..".
".S.S.TT.F(D$(0)):SS.F(D$(1)):II..3...T.
F1.1:. I.0 . 255...U..II..1..".."...V.N.
I:.10010:.".";...W..I.100.." ";./.X..I.1
0.." ";.@.Y..I;A$." : ";.F.Z.N.F(D$(I)):
C$.D$(I):.10010:.10020.W.[..N.100.." ";.
..\..N.10.." ";...]..N;A$." - ";C$:..34)
".:"...^..A$:.A$."".350.P._..A$.".".F1.1
.385:.F5...`..A$.".".310:.F2...A..A$."."
.F1.1.370:.F3...B..A$.".".ZZ.2.450:.F8./
.C..A$.".".F1.1.390:.F5.C.D..A$.".".200:
.F1.W.E..A$.".".600:.F4.P.F..A$.".".F1.1
.380:.F6..H..F1..1.350...M.ZZ.2:DD$(I).
A$:..36)".";A$...N..385...R.I.I.1:.I.0.I
.0.D.T.. 342.U.|...34)".";:.A...}..A.0.A
.255..".":.380...~.ZZ.2:DD$(I).G(A).....
. I:F1.0:.ZZ.2.450.....T.TT:S.SS:. 313.H
.... * FAST NEXT BYTE *._...I.I.1:.I.25
4.I.254.{....F(D$(I)).34.KO..(KO.1).....
.".";I......".."......A$:.A$."".394.....
.A$.".".391...... 351......*************
*****************......* LOAD TRACK AND
SECTOR *.)....*********************
*********.C.B.F1.0:ZZ.0:.:.".. ARE YOU
SHUR TO WRITE DISK Y/N";.V.C..A$:.A$.
"".451...D..A$."Y".455...E.. 350...G..15
,"B-P:";CH;LW.I.H..A.0.255:.DD$(A)."".DD
$(A).G(0).Y.I..CH,DD$(A);...J.....K..15,
"U2:";CH;LW;T;S...L..10000:.200.+.X..***
***************************.O.Y..*
CLOSE DISK *.S.Z..***********
*******************...B. CH,8,CH...C. 15
,8,15...G......'.***********************
*******....'.* ERROR ROUTINE
*....'.******************************.
...'.15,EN,EM$,ET,ES:. EN.0 . ..4..'."..
DISK ERROR.".F..'.EN,EM$,ET,ES.[..'.A.0.
1000:.:.600...'.***********************
*******....'.* DISK BYTE TO HEX PRINT
*.G..'.******************************.
...'A1..(N.16):A$.J(HX$,A1.1,1)....'A2..
(N.16.A1):A$.A$.J(HX$,A2.1,1)....'A$.A$.
SP$:..A.$'.*****************************
*.E.%'.* DISK BYTE TO ASC DISPLAY *...
&'.* CHARACTER *...''.*
*****************************.D.('. T.18
.S..0 .10050.Z.)'. T.18.S.0 .10100...*'.
P$."P".10200...8'. F(C$).13 . C$."RETUR
N":..&.9'. F(C$).32 . C$." ":..T.:'. F(C
$).128.F(C$).159.C$.C$." ":..T.;
'C$.J(SS$,3.(F(C$).127),3):..Z.A'....B'.
******** DIRECTORY 1-18 ****...D'II.II.
1.C.E'.I.0.C$."NEXT TRACK "...F'.I.1.C$.
"NEXT SECTOR"...G'.II.0.10070...H'.II.1.
C$."ANF. TRACK ":..'.I'.II.2.C$."ANF. SA
CTOR":..D.J'.II.26.C$."NEW TRACK ":..A.K
'.II.27.C$."NEW SECTOR":..~.L'.II.28.C$.
"LB BLOCK ":....M'.II.29.C$."HB BLOCK
":....N'.II.31.II..1:..I.V'. F(C$).128 .
C$."DEL"...W'. F(C$).129 . C$."SEQ"...X
'. F(C$).130 . C$."PRG"...Y'. F(C$).131
. C$."USR".5.Z'. F(C$).132 . C$."REL".;.
`'..^.T'. ******** DIRECTORY 0 *******.Z
.V'.I.0.C$."NEXT TRACK ":....W'.I.1.C$."
NEXT SECTOR":....X'.I.2..10150:C$.C$." F
ORMAT":..M.Y'.I.3.C$."FLAG":....Z'.I..3.
I.144.C$."BLOCK 0/1":....|'.I.144..1015
0:C$.C$." NAME":..+.}'.I.144.I.161..1015
0:..Q.~'.I.162.I.163..10150:C$.C$." ID":
..}.'.I.165.I.166..10150:C$.C$." DOS VE
RS":.....'.I.176..10150:C$.C$." NOT USED
":.....'..E..'. F(C$).128.F(C$).159.....
.'C$.J(SS$,3.(F(C$).127),3):....X'.*****
*************************.-.Y'.*
PRG CODE *.Q.Z'.*************
*****************.`..'A.F(D$(I)).{..'.A.
34.KO.0.KO.1:.10040....'.KO.1.A..34.1004
0....'.A.34.KO.1.KO.0:.10040.A..'.A.0.C$
."----":..X..'.A.128.A.203.10040....'.:.
Q.128.A:.C$:.....'..=. N. "END","FOR","N
EXT","DATA","INPUT#","INPUT","DIM",READ"
,"LET","GOTO"...!N. "RUN","IF","RESTORE"
,"GOSUB","RETURN","REM","STOP","ON","WAI
T".K."N. "LOAD","SAVE","VERIFY","DEF","P
OKE","PRINT#","PRINT","CONT","LIST"...#N
. "CLR","CMD","SYS","OPEN","CLOSE","GET"
,"NEW","TAB(","TO","FN".S.$N. "SPC(","TH
EN","NOT","STEP","+","-","*","/","^","AN
D","OR",">"...%N. "=","<","SGN","INT","A
BS","USR","FRE","POS","SQR","RND","LOG".
..&N. "EXP","COS","SIN","TAN","ATN","PEE
K","LEN","STR$","VAL","ASC".. 'N. "CHR$"
,"LEFT$","RIGTH$","MID$","GO".) 0U.*****
*************************.M 1U.* E
INLEITUNG *.Q 2U.*************
*****************.. 3U.".DISK PRINT PRG.
.".S 4U."SIE KOENNEN ALLE BLOECKE DER DI
CK LESEN ODER AUCH EINZELNE BYTS ";..!5U
."UEBERSCHREIBEN. AUSGENOMMEN BEI DEZ.-
EINGABE UND MODUS".E!6U."SIND NUR DIE FU
NKTIONSTASTEN ZU VERWEN- DEN"..!7U."ALLE
ANDEREN TASTEN WERDEN ALS EINGABE GEWE
RTET, IN NEW ABGESPEICHERT";.E!8U." UND
ANSCHLIESSEND AUF DIE DISK GESPIELD.".."
9U."TRACK 18 IST FUER DIE DIRECTORY RESE
R- VIERT UND GESONDERT ENTSCHLUESSEL.Z"
:U."..DURCH DRUECKEN VON >F1< KOMMEN S
IE JEDERZEIT INS MENUE".C";U.350...:)
.1,
> CLICK IMAGE PREVIEW FOR FULL MODAL