> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 41 08 0A 00 99 22 93 11 11 11 11 11 11 11 |..A...."........|
00000010: 0E 12 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D C6 C9 CC C5 |................|
00000020: A0 C3 C1 D4 C1 CC CF C7 A0 D0 D2 CF C7 D2 C1 CD |................|
00000030: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 11 11 11 |................|
00000040: 22 00 57 08 14 00 99 22 46 4F 52 20 53 55 50 45 |".W...."FOR SUPE|
00000050: 52 42 41 53 45 20 22 00 75 08 1E 00 99 22 11 20 |RBASE ".u....". |
00000060: 20 44 41 54 41 42 41 53 45 20 3A 20 50 52 4F 47 | DATABASE : PROG|
00000070: 52 41 4D 53 22 00 AA 08 28 00 4D 41 58 44 B2 30 |RAMS"...(.MAXD.0|
00000080: 38 20 3A 4D 41 58 46 B2 31 30 30 20 3A 20 86 20 |8 :MAXF.100 : . |
00000090: 46 49 4C 45 24 28 4D 41 58 44 2C 4D 41 58 41 29 |FILE$(MAXD,MAXA)|
000000A0: 2C 20 4E 24 28 4D 41 58 44 29 00 B5 08 32 00 44 |, N$(MAXD)...2.D|
000000B0: 49 53 4B B2 31 00 BF 08 3C 00 8D 20 31 30 30 00 |ISK.1...<.. 100.|
000000C0: DA 08 46 00 99 22 11 4F 54 48 45 52 20 44 49 53 |..F..".OTHER DIS|
000000D0: 4B 53 20 5B 59 2F 4E 5D 20 22 00 FE 08 4B 00 A1 |KS [Y/N] "...K..|
000000E0: 20 41 24 20 3A 20 8B 20 41 24 B3 B1 22 59 22 20 | A$ : . A$.."Y" |
000000F0: AF 20 41 24 B3 B1 22 4E 22 20 A7 20 37 35 00 2F |. A$.."N" . 75./|
00000100: 09 50 00 8B 20 41 24 20 B2 22 59 22 20 A7 20 8B |.P.. A$ ."Y" . .|
00000110: 20 44 49 53 4B B3 4D 41 58 44 20 A7 20 44 49 53 | DISK.MAXD . DIS|
00000120: 4B B2 44 49 53 4B AA 31 20 3A 20 89 20 36 30 00 |K.DISK.1 : . 60.|
00000130: 5A 09 55 00 85 22 11 49 4E 53 45 52 54 20 53 55 |Z.U..".INSERT SU|
00000140: 50 45 52 42 41 53 45 20 44 49 53 4B 20 5B 52 45 |PERBASE DISK [RE|
00000150: 54 55 52 4E 5D 20 22 3B 41 24 00 68 09 5A 00 8D |TURN] ";A$.h.Z..|
00000160: 20 36 30 30 20 3A 20 80 00 6E 09 62 00 3A 00 74 | 600 : ..n.b.:.t|
00000170: 09 63 00 3A 00 9A 09 64 00 85 22 11 49 4E 53 45 |.c.:...d..".INSE|
00000180: 52 54 20 44 41 54 41 2D 44 49 53 4B 20 5B 52 45 |RT DATA-DISK [RE|
00000190: 54 55 52 4E 5D 20 22 3B 41 24 00 AF 09 69 00 9F |TURN] ";A$...i..|
000001A0: 31 2C 38 2C 31 35 2C 22 49 22 20 3A 20 A0 31 00 |1,8,15,"I" : .1.|
000001B0: BD 09 6E 00 9F 31 2C 38 2C 32 2C 22 24 00 CE 09 |..n..1,8,2,"$...|
000001C0: 78 00 4A B2 31 34 31 3A 20 8D 20 38 30 30 00 FD |x.J.141: . 800..|
000001D0: 09 82 00 54 24 28 30 29 B2 22 12 44 45 4C 22 20 |...T$(0).".DEL" |
000001E0: 3A 20 54 24 28 31 29 B2 22 2E 53 45 51 22 20 3A |: T$(1).".SEQ" :|
000001F0: 20 54 24 28 32 29 B2 22 2E 50 52 47 22 00 1D 0A | T$(2).".PRG"...|
00000200: 8C 00 54 24 28 33 29 B2 22 2E 55 53 52 22 20 3A |..T$(3).".USR" :|
00000210: 20 54 24 28 34 29 B2 22 2E 52 45 4C 22 00 2E 0A | T$(4).".REL"...|
00000220: 96 00 4A B2 31 37 20 3A 20 8D 20 39 30 30 00 3E |..J.17 : . 900.>|
00000230: 0A A0 00 4E 24 28 44 49 53 4B 29 B2 42 24 00 6A |...N$(DISK).B$.j|
00000240: 0A AA 00 99 3A 99 22 11 11 11 12 22 3B 22 45 4E |....:."....";"EN|
00000250: 54 52 59 20 22 3B 44 49 53 4B 3B 22 20 20 20 20 |TRY ";DISK;" |
00000260: 22 3B 4E 24 28 44 49 53 4B 29 00 7B 0A B4 00 4A |";N$(DISK).{...J|
00000270: B2 20 39 33 3A 20 8D 20 38 30 30 00 93 0A C8 00 |. 93: . 800.....|
00000280: 54 45 4C 4C 45 52 B2 31 20 3A 20 41 41 4E 54 41 |TELLER.1 : AANTA|
00000290: 4C B2 31 00 99 0A C9 00 3A 00 9F 0A CA 00 3A 00 |L.1.....:.....:.|
000002A0: B1 0A D2 00 8B 20 53 54 B2 36 34 20 A7 20 33 30 |..... ST.64 . 30|
000002B0: 30 00 BB 0A DC 00 8D 20 37 30 30 00 DC 0A F0 00 |0...... 700.....|
000002C0: 8B 20 54 59 50 45 25 B3 B1 30 20 A7 20 41 41 4E |. TYPE%..0 . AAN|
000002D0: 54 41 4C B2 41 41 4E 54 41 4C AA 31 00 E5 0A FA |TAL.AANTAL.1....|
000002E0: 00 89 32 31 30 00 FF 0A 2C 01 46 49 4C 45 24 28 |..210...,.FILE$(|
000002F0: 44 49 53 4B 2C 41 41 4E 54 41 4C 29 B2 22 22 00 |DISK,AANTAL)."".|
00000300: 14 0B 36 01 81 20 4C B2 31 20 A4 20 41 41 4E 54 |..6.. L.1 . AANT|
00000310: 41 4C AB 31 00 27 0B 40 01 99 46 49 4C 45 24 28 |AL.1.'.@..FILE$(|
00000320: 44 49 53 4B 2C 4C 29 00 2D 0B 4A 01 82 00 34 0B |DISK,L).-.J...4.|
00000330: 54 01 A0 31 00 3A 0B 5E 01 8E 00 40 0B 56 02 3A |T..1.:.^...@.V.:|
00000340: 00 46 0B 57 02 3A 00 61 0B 58 02 9F 33 2C 38 2C |.F.W.:.a.X..3,8,|
00000350: 31 35 2C 22 53 3A 4E 45 57 50 52 4F 47 22 3A A0 |15,"S:NEWPROG":.|
00000360: 33 00 7A 0B 5D 02 9F 33 2C 38 2C 34 2C 22 4E 45 |3.z.]..3,8,4,"NE|
00000370: 57 50 52 4F 47 2C 53 2C 57 22 00 8B 0B 62 02 81 |WPROG,S,W"...b..|
00000380: 20 4A B2 31 20 A4 20 44 49 53 4B 00 98 0B 6C 02 | J.1 . DISK...l.|
00000390: 41 41 4E 54 41 4C B2 31 00 B7 0B 76 02 8B 20 46 |AANTAL.1...v.. F|
000003A0: 49 4C 45 24 28 4A 2C 41 41 4E 54 41 4C 29 B2 22 |ILE$(J,AANTAL)."|
000003B0: 22 20 A7 20 36 36 30 00 D8 0B 7B 02 98 33 2C 46 |" . 660...{..3,F|
000003C0: 49 4C 45 24 28 4A 2C 41 41 4E 54 41 4C 29 2C 4E |ILE$(J,AANTAL),N|
000003D0: 24 28 4A 29 2C 22 44 22 00 FD 0B 7C 02 99 20 46 |$(J),"D"...|.. F|
000003E0: 49 4C 45 24 28 4A 2C 41 41 4E 54 41 4C 29 3B A3 |ILE$(J,AANTAL);.|
000003F0: 32 30 29 3B 4E 24 28 4A 29 2C 22 44 22 00 11 0C |20);N$(J),"D"...|
00000400: 80 02 41 41 4E 54 41 4C B2 41 41 4E 54 41 4C AA |..AANTAL.AANTAL.|
00000410: 31 00 29 0C 8A 02 8B 20 41 41 4E 54 41 4C B3 4D |1.).... AANTAL.M|
00000420: 41 58 41 20 A7 20 36 33 30 00 2F 0C 94 02 82 00 |AXA . 630./.....|
00000430: 36 0C 9E 02 A0 33 00 3C 0C A8 02 8E 00 42 0C BA |6....3.<.....B..|
00000440: 02 3A 00 48 0C BB 02 3A 00 59 0C BC 02 4A B2 32 |.:.H...:.Y...J.2|
00000450: 20 20 3A 20 8D 20 39 30 30 00 6E 0C C6 02 54 59 | : . 900.n...TY|
00000460: 50 45 25 B2 C6 28 42 24 AA C7 28 30 29 29 00 82 |PE%..(B$..(0))..|
00000470: 0C D0 02 54 59 50 45 25 B2 54 59 50 45 25 20 AF |...TYPE%.TYPE% .|
00000480: 20 37 00 93 0C DA 02 4A B2 31 35 20 3A 20 8D 20 | 7.....J.15 : . |
00000490: 39 30 30 00 B7 0C E4 02 46 49 4C 45 24 28 44 49 |900.....FILE$(DI|
000004A0: 53 4B 2C 41 41 4E 54 41 4C 29 B2 42 24 AA 54 24 |SK,AANTAL).B$.T$|
000004B0: 28 54 59 50 45 25 29 00 DE 0C EE 02 4A B2 31 32 |(TYPE%).....J.12|
000004C0: 20 3A 20 8B 20 54 45 4C 4C 45 52 B2 38 20 A7 20 | : . TELLER.8 . |
000004D0: 54 45 4C 4C 45 52 B2 30 20 3A 4A B2 31 30 00 E8 |TELLER.0 :J.10..|
000004E0: 0C F8 02 8D 20 38 30 30 00 FC 0C 02 03 54 45 4C |.... 800.....TEL|
000004F0: 4C 45 52 B2 54 45 4C 4C 45 52 AA 31 00 02 0D 0C |LER.TELLER.1....|
00000500: 03 8E 00 08 0D 1E 03 3A 00 0E 0D 1F 03 3A 00 1C |.......:.....:..|
00000510: 0D 20 03 81 20 4C B2 30 20 A4 20 4A 00 27 0D 2A |. .. L.0 . J.'.*|
00000520: 03 A1 23 31 2C 41 24 00 2D 0D 34 03 82 00 33 0D |..#1,A$.-.4...3.|
00000530: 3E 03 8E 00 39 0D 82 03 3A 00 3F 0D 83 03 3A 00 |>...9...:.?...:.|
00000540: 49 0D 84 03 42 24 B2 22 22 00 57 0D 8E 03 81 20 |I...B$."".W.... |
00000550: 4C B2 30 20 A4 20 4A 00 62 0D 98 03 A1 23 31 2C |L.0 . J.b....#1,|
00000560: 41 24 00 79 0D A2 03 8B 41 24 B2 C7 28 33 34 29 |A$.y....A$..(34)|
00000570: 20 A7 20 41 24 B2 22 27 22 00 A2 0D AC 03 8B 20 | . A$."'"...... |
00000580: 41 24 B3 B1 C7 28 39 36 29 A7 20 8B 20 41 24 B3 |A$...(96). . A$.|
00000590: B1 C7 28 31 36 30 29 20 A7 20 42 24 B2 42 24 AA |..(160) . B$.B$.|
000005A0: 41 24 00 A8 0D B6 03 82 00 AE 0D C0 03 8E 00 B4 |A$..............|
000005B0: 0D E6 03 3A 00 BA 0D E7 03 3A 00 00 00 |...:.....:... |
..A...."....................FILE CATALOG
PROGRAM................".W...."FOR SUPE
RBASE ".U....". DATABASE : PROGRAMS"...
(.MAXD.08 :MAXF.100 : . FILE$(MAXD,MAXA)
, N$(MAXD)...2.DISK.1...<.. 100.Z.F..".O
THER DISKS [Y/N] "...K.. A$ : . A$.."Y"
. A$.."N" . 75./.P.. A$ ."Y" . . DISK.MA
XD . DISK.DISK.1 : . 60.Z.U..".INSERT SU
PERBASE DISK [RETURN] ";A$.H.Z.. 600 : .
.N.B.:.T.C.:...D..".INSERT DATA-DISK [RE
TURN] ";A$...I..1,8,15,"I" : 1...N..1,8
,2,"$.N.X.J.141: . 800.....T$(0).".DEL"
: T$(1).".SEQ" : T$(2).".PRG".....T$(3).
".USR" : T$(4).".REL".....J.17 : . 900.>
. .N$(DISK).B$.J....:."....";"ENTRY ";DI
SK;" ";N$(DISK).{...J. 93: . 800...H.
TELLER.1 : AANTAL.1...I.:...J.:...R.. ST
.64 . 300...... 700...... TYPE%..0 . AAN
TAL.AANTAL.1......210...,.FILE$(DISK,AAN
TAL).""...6.. L.1 . AANTAL.1.'.@..FILE$(
DISK,L).-.J...4.T. 1.:.^...@.V.:.F.W.:.A
.X..3,8,15,"S:NEWPROG": 3.Z.]..3,8,4,"NE
WPROG,S,W"...B.. J.1 . DISK...L.AANTAL.1
...V.. FILE$(J,AANTAL)."" . 660.X.{..3,F
ILE$(J,AANTAL),N$(J),"D"...|.. FILE$(J,A
ANTAL);.20);N$(J),"D".....AANTAL.AANTAL.
1.).... AANTAL.MAXA . 630./.....6... 3.<
.....B...:.H...:.Y...J.2 : . 900.N.F.TY
PE%.F(B$.G(0))...P.TYPE%.TYPE% . 7...Z.J
.15 : . 900.....FILE$(DISK,AANTAL).B$.T$
(TYPE%).....J.12 : . TELLER.8 . TELLER.0
:J.10...... 800.....TELLER.TELLER.1....
.......:.....:... .. L.0 . J.'.*..#1,A$.
-.4...3.>...9...:.?...:.I...B$."".W....
L.0 . J.B....#1,A$.Y....A$.G(34) . A$."'
"...... A$..G(96). . A$..G(160) . B$.B$.
A$.................:.....:...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL