> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 01 00 99 C7 28 31 34 29 00 36 08 02 |........(14).6..|
00000010: 00 8F 20 50 47 4D 20 3D 27 43 4F 4D 42 49 54 4F |.. PGM ='COMBITO|
00000020: 45 54 53 2D 44 49 41 47 4E 4F 53 45 27 20 4D 45 |ETS-DIAGNOSE' ME|
00000030: 53 2D 38 35 31 38 00 60 08 03 00 8F 20 28 43 29 |S-8518.`.... (C)|
00000040: 20 4D 41 4C 4D 42 45 52 47 20 31 39 38 32 20 42 | MALMBERG 1982 B|
00000050: 59 20 4D 2E 4A 2E 20 56 41 4E 20 44 41 4C 45 4E |Y M.J. VAN DALEN|
00000060: 00 80 08 04 00 97 35 33 32 38 30 2C 31 31 3A 97 |......53280,11:.|
00000070: 35 33 32 38 31 2C 31 31 3A 97 36 34 36 2C 31 35 |53281,11:.646,15|
00000080: 00 96 08 05 00 86 20 41 24 28 31 32 30 29 2C 42 |...... A$(120),B|
00000090: 24 28 31 32 30 29 00 A1 08 0A 00 99 22 93 11 11 |$(120)......"...|
000000A0: 22 00 CF 08 0C 00 99 20 22 9E 12 D4 CF C5 D4 D3 |"...... ".......|
000000B0: A0 C4 C9 C1 C7 CE CF D3 C5 A0 D4 2E C2 2E D6 20 |............... |
000000C0: C3 CF CD C2 C9 D4 CF C5 D4 D3 2D CC 92 9B 22 00 |..........-...".|
000000D0: D7 08 0E 00 99 3A 99 00 01 09 64 00 99 3A 99 22 |.....:....d..:."|
000000E0: 12 9A 4C 45 5A 45 4E 20 56 41 4E 20 45 45 4E 20 |..LEZEN VAN EEN |
000000F0: 54 41 50 45 20 42 45 53 54 41 4E 44 9B 92 22 3A |TAPE BESTAND..":|
00000100: 99 00 29 09 6E 00 99 22 47 45 45 46 20 4E 41 41 |..).n.."GEEF NAA|
00000110: 4D 20 42 45 53 54 41 4E 44 20 20 20 58 9D 9D 20 |M BESTAND X.. |
00000120: 22 3B 3A 8D 20 31 30 30 30 00 4A 09 78 00 46 4C |";:. 1000.J.x.FL|
00000130: 24 B2 22 58 22 AA 53 24 3A 8B 20 53 24 B3 B1 22 |$."X".S$:. S$.."|
00000140: 58 22 20 A7 20 89 20 31 35 30 00 61 09 82 00 9F |X" . . 150.a....|
00000150: 31 2C 31 2C 30 2C 46 24 3A 84 31 2C 4A 24 3A A0 |1,1,0,F$:.1,J$:.|
00000160: 31 00 6B 09 8C 00 89 20 31 36 30 00 83 09 96 00 |1.k.... 160.....|
00000170: 9F 31 2C 31 2C 30 2C 46 4C 24 3A 84 31 2C 4A 24 |.1,1,0,FL$:.1,J$|
00000180: 3A A0 31 00 8B 09 A0 00 49 B2 31 00 A0 09 AA 00 |:.1.....I.1.....|
00000190: 9F 31 2C 31 2C 30 2C 22 58 22 3A 84 31 2C 48 24 |.1,1,0,"X":.1,H$|
000001A0: 00 CC 09 B4 00 8B 20 48 24 B3 B1 22 58 58 58 58 |...... H$.."XXXX|
000001B0: 58 22 20 A7 20 41 24 28 49 29 B2 48 24 3A 49 B2 |X" . A$(I).H$:I.|
000001C0: 49 AA 31 3A A0 31 3A 89 20 31 37 30 00 E0 09 BE |I.1:.1:. 170....|
000001D0: 00 A0 31 3A 41 54 B2 49 AB 31 3A 89 20 33 30 30 |..1:AT.I.1:. 300|
000001E0: 00 F9 09 2C 01 8F 20 50 52 49 4E 54 45 4E 20 52 |...,.. PRINTEN R|
000001F0: 45 53 55 4C 54 41 54 45 4E 00 02 0A 31 01 99 22 |ESULTATEN...1.."|
00000200: 93 22 00 28 0A 36 01 99 3A 99 22 9E CD 4F 45 54 |.".(.6..:."..OET|
00000210: 45 4E 20 44 45 20 52 45 53 55 4C 54 41 54 45 4E |EN DE RESULTATEN|
00000220: 20 4E 41 41 52 3A 9B 22 00 3F 0A 40 01 99 22 11 | NAAR:.".?.@..".|
00000230: 11 12 31 92 20 3A 20 20 50 52 49 4E 54 45 52 00 |..1. : PRINTER.|
00000240: 45 0A 45 01 99 00 59 0A 4A 01 99 22 12 32 92 20 |E.E...Y.J..".2. |
00000250: 3A 20 20 53 43 48 45 52 4D 00 73 0A 4F 01 99 22 |: SCHERM.s.O.."|
00000260: 11 11 9A D4 4F 45 54 53 20 55 57 20 4B 45 55 5A |....OETS UW KEUZ|
00000270: 45 9B 22 00 92 0A 54 01 97 31 39 38 2C 30 3A 92 |E."...T..198,0:.|
00000280: 31 39 38 2C 31 3A A1 20 48 24 3A 48 B2 C5 28 48 |198,1:. H$:H..(H|
00000290: 24 29 00 AB 0A 5E 01 8B 20 28 48 B3 31 20 B0 20 |$)...^.. (H.1 . |
000002A0: 48 B1 32 29 20 A7 20 89 33 34 30 00 BD 0A 63 01 |H.2) . .340...c.|
000002B0: 91 20 48 20 8D 20 35 30 30 2C 36 30 30 00 CC 0A |. H . 500,600...|
000002C0: 68 01 81 20 49 B2 31 20 A4 20 41 54 00 E9 0A 72 |h.. I.1 . AT...r|
000002D0: 01 48 31 24 B2 C8 28 41 24 28 49 29 2C 33 29 20 |.H1$..(A$(I),3) |
000002E0: 20 3A 8F 20 4C 4C 4E 55 4D 00 06 0B 7C 01 48 32 | :. LLNUM...|.H2|
000002F0: 24 B2 CA 28 41 24 28 49 29 2C 34 2C 33 29 20 3A |$..(A$(I),4,3) :|
00000300: 8F 20 4B 4C 41 53 00 23 0B 86 01 48 33 24 B2 CA |. KLAS.#...H3$..|
00000310: 28 41 24 28 49 29 2C 37 2C 32 30 29 3A 8F 20 4E |(A$(I),7,20):. N|
00000320: 41 41 4D 00 40 0B 90 01 48 34 24 B2 CA 28 41 24 |AAM.@...H4$..(A$|
00000330: 28 49 29 2C 32 37 2C 33 29 3A 8F 20 23 50 4F 47 |(I),27,3):. #POG|
00000340: 00 66 0B 95 01 8B 20 C8 28 48 34 24 2C 31 29 B2 |.f.... .(H4$,1).|
00000350: 22 30 22 20 A7 20 48 34 24 B2 22 20 22 AA C9 28 |"0" . H4$." "..(|
00000360: 48 34 24 2C 32 29 00 84 0B 9A 01 48 35 24 B2 CA |H4$,2).....H5$..|
00000370: 28 41 24 28 49 29 2C 33 30 2C 33 29 3A 8F 20 53 |(A$(I),30,3):. S|
00000380: 43 4F 52 45 00 AA 0B 9F 01 8B 20 C8 28 48 35 24 |CORE...... .(H5$|
00000390: 2C 31 29 B2 22 30 22 20 A7 20 48 35 24 B2 22 20 |,1)."0" . H5$." |
000003A0: 22 AA C9 28 48 35 24 2C 32 29 00 CF 0B A4 01 48 |"..(H5$,2).....H|
000003B0: 36 24 B2 CA 28 41 24 28 49 29 2C 33 34 2C C3 28 |6$..(A$(I),34,.(|
000003C0: 41 24 28 49 29 29 29 3A 8F 20 54 4F 45 54 53 00 |A$(I))):. TOETS.|
000003D0: E1 0B AE 01 91 20 48 20 8D 20 35 35 30 2C 36 35 |..... H . 550,65|
000003E0: 30 00 E9 0B B8 01 82 20 49 00 F3 0B C2 01 A0 31 |0...... I......1|
000003F0: 3A A0 32 00 FF 0B CC 01 92 20 31 39 38 2C 31 00 |:.2...... 198,1.|
00000400: 09 0C F3 01 89 20 33 30 30 00 17 0C F4 01 8F 20 |..... 300...... |
00000410: 50 52 49 4E 54 45 52 00 22 0C FE 01 9F 31 2C 34 |PRINTER."....1,4|
00000420: 2C 37 00 40 0C 08 02 98 31 2C 22 42 45 53 54 41 |,7.@....1,"BESTA|
00000430: 4E 44 20 3D 20 20 20 20 20 22 3B 53 24 3A 98 31 |ND = ";S$:.1|
00000440: 00 84 0C 0D 02 98 31 2C 22 4E 41 41 4D 20 20 20 |......1,"NAAM |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 4E 52 | LNR|
00000460: 20 20 20 4B 4C 53 20 20 20 20 50 4F 47 20 20 53 | KLS POG S|
00000470: 43 4F 52 45 20 47 45 4D 41 41 4B 54 45 20 54 4F |CORE GEMAAKTE TO|
00000480: 45 54 53 22 00 8B 0C 0E 02 98 31 00 91 0C 12 02 |ETS"......1.....|
00000490: 8E 00 9F 0C 26 02 8F 20 50 52 49 4E 54 45 52 00 |....&.. PRINTER.|
000004A0: AB 0C 27 02 98 31 2C 48 33 24 3B 00 BD 0C 29 02 |..'..1,H3$;...).|
000004B0: 98 31 2C 48 31 24 3B 22 20 20 20 22 3B 00 CF 0C |.1,H1$;" ";...|
000004C0: 2B 02 98 31 2C 48 32 24 3B 22 20 20 20 22 3B 00 |+..1,H2$;" ";.|
000004D0: E1 0C 2F 02 98 31 2C 48 34 24 3B 22 20 20 20 22 |../..1,H4$;" "|
000004E0: 3B 00 F5 0C 3A 02 98 31 2C 48 35 24 3B 22 20 20 |;...:..1,H5$;" |
000004F0: 20 20 20 22 3B 00 00 0D 3F 02 98 31 2C 48 36 24 | ";...?..1,H6$|
00000500: 00 06 0D 44 02 8E 00 13 0D 58 02 8F 20 53 43 48 |...D.....X.. SCH|
00000510: 45 52 4D 00 2F 0D 62 02 99 22 93 9E 42 45 53 54 |ERM./.b.."..BEST|
00000520: 41 4E 44 20 3D 20 22 3B 53 24 3A 99 22 9B 22 00 |AND = ";S$:.".".|
00000530: 60 0D 6C 02 99 22 11 9A 4E 41 41 4D 20 20 20 20 |`.l.."..NAAM |
00000540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4B 4C | KL|
00000550: 41 53 20 20 20 53 43 52 20 20 50 4F 47 9B 11 22 |AS SCR POG.."|
00000560: 00 6B 0D 76 02 52 45 B2 31 3A 8E 00 7C 0D 8A 02 |.k.v.RE.1:..|...|
00000570: 99 20 48 33 24 3B 22 20 20 20 22 3B 00 8D 0D 9E |. H3$;" ";....|
00000580: 02 99 20 48 32 24 3B 22 20 20 20 22 3B 00 A0 0D |.. H2$;" ";...|
00000590: A0 02 99 20 C5 28 48 35 24 29 3B 22 20 20 22 3B |... .(H5$);" ";|
000005A0: 00 AD 0D A3 02 99 20 C5 28 48 34 24 29 00 D2 0D |...... .(H4$)...|
000005B0: A8 02 52 45 B2 52 45 AA 32 3A 8B 20 52 45 B1 32 |..RE.RE.2:. RE.2|
000005C0: 30 20 A7 20 92 31 39 38 2C 31 3A 8D 20 36 30 30 |0 . .198,1:. 600|
000005D0: 3A 8E 00 D8 0D B2 02 8E 00 F8 0D E8 03 9F 33 2C |:.............3,|
000005E0: 30 3A 84 33 2C 53 24 3A 8B 20 53 24 B2 22 22 20 |0:.3,S$:. S$."" |
000005F0: A7 20 53 24 B2 22 58 22 00 FE 0D F2 03 8E 00 00 |. S$."X"........|
00000600: 00 20 99 20 20 54 |. . T |
.......G(14).6.... PGM ='COMBITOETS-DIAG
NOSE' MES-8518.`.... (C) MALMBERG 1982 B
Y M.J. VAN DALEN......53280,11:.53281,11
:.646,15...... A$(120),B$(120)......"...
".O.... "..TOETS DIAGNOSE T.B.V COMBITOE
TS-L..".W....:....D..:."..LEZEN VAN EEN
TAPE BESTAND..":..).N.."GEEF NAAM BESTAN
D X.. ";:. 1000.J.X.FL$."X".S$:. S$.."
X" . . 150.A....1,1,0,F$:.1,J$: 1.K....
160......1,1,0,FL$:.1,J$: 1... .I.1. ...
.1,1,0,"X":.1,H$.L.... H$.."XXXXX" . A$(
I).H$:I.I.1: 1:. 170..... 1:AT.I.1:. 300
...,.. PRINTEN RESULTATEN...1..".".(.6..
:.".MOETEN DE RESULTATEN NAAR:.".?.@..".
..1. : PRINTER.E.E...Y.J..".2. : SCHER
M.S.O.."...TOETS UW KEUZE."...T..198,0:.
198,1:. H$:H.E(H$)...^.. (H.1 . H.2) . .
340...C.. H . 500,600.L.H.. I.1 . AT...R
.H1$.H(A$(I),3) :. LLNUM...|.H2$.J(A$(I
),4,3) :. KLAS.#...H3$.J(A$(I),7,20):. N
AAM.@...H4$.J(A$(I),27,3):. #POG.F.... H
(H4$,1)."0" . H4$." ".I(H4$,2).....H5$.J
(A$(I),30,3):. SCORE...... H(H5$,1)."0"
. H5$." ".I(H5$,2).O...H6$.J(A$(I),34,C(
A$(I))):. TOETS...... H . 550,650......
I...B. 1: 2...L.. 198,1...... 300......
PRINTER."....1,4,7.@....1,"BESTAND =
";S$:.1......1,"NAAM LNR
KLS POG SCORE GEMAAKTE TOETS"....
..1.........&.. PRINTER...'..1,H3$;...).
.1,H1$;" ";.O.+..1,H2$;" ";.../..1,H
4$;" ";...:..1,H5$;" ";...?..1,H6$
...D.....X.. SCHERM./.B.."..BESTAND = ";
S$:.".".`.L.."..NAAM KL
AS SCR POG..".K.V.RE.1:..|.... H3$;"
";...... H2$;" ";. . .. E(H5$);" ";
...... E(H4$).R...RE.RE.2:. RE.20 . .198
,1:. 600:..X..........3,0:.3,S$:. S$.""
. S$."X"......... . T
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL