MEESTERBREIN

00000000: 01 12 1A 12 0A 00 8F 2A  4D 45 45 53 54 45 52 2D  |.......*MEESTER-|
00000010: 42 52 45 49 4E 49 53 45  45 4E 00 34 12 0C 00 8F  |BREINISEEN.4....|
00000020: 2A 49 4E 54 45 4C 4C 49  47 45 4E 54 49 45 2D 53  |*INTELLIGENTIE-S|
00000030: 50 45 4C 2C 00 50 12 0E  00 8F 2A 57 41 41 52 42  |PEL,.P....*WAARB|
00000040: 49 4A 44 4F 4F 52 43 4F  4D 42 49 4E 45 52 45 4E  |IJDOORCOMBINEREN|
00000050: 00 64 12 10 00 8F 2A 45  4E 44 45 44 55 43 45 52  |.d....*ENDEDUCER|
00000060: 45 4E 44 45 00 7D 12 12  00 8F 2A 4F 50 4C 4F 53  |ENDE.}....*OPLOS|
00000070: 53 49 4E 47 4B 41 4E 57  4F 52 44 45 4E 00 8D 12  |SINGKANWORDEN...|
00000080: 14 00 8F 2A 47 45 56 4F  4E 44 45 4E 2E 00 9B 12  |...*GEVONDEN....|
00000090: 1E 00 8F 2A 41 55 54 45  55 52 3A 00 AF 12 23 00  |...*AUTEUR:...#.|
000000A0: 8F 2A 44 52 50 2E 56 49  4A 4C 42 52 49 45 46 00  |.*DRP.VIJLBRIEF.|
000000B0: C6 12 28 00 8F 2A 54 45  56 4F 4F 52 48 4F 55 54  |..(..*TEVOORHOUT|
000000C0: 28 31 39 37 38 29 00 E2  12 2D 00 8F 2A 4F 4D 47  |(1978)...-..*OMG|
000000D0: 45 5A 45 54 49 4E 4E 4F  53 2D 42 41 53 49 43 4F  |EZETINNOS-BASICO|
000000E0: 44 45 00 F6 12 32 00 8F  2A 49 4E 4A 41 4E 55 41  |DE...2..*INJANUA|
000000F0: 52 49 31 39 38 32 00 0F  13 3C 00 8F 3A 54 45 4C  |RI1982...<..:TEL|
00000100: 4C 45 52 53 4F 50 4E 55  4C 5A 45 54 54 45 4E 00  |LERSOPNULZETTEN.|
00000110: 1B 13 46 00 47 B2 30 3A  4E B2 30 00 35 13 50 00  |..F.G.0:N.0.5.P.|
00000120: 99 A3 31 35 29 3B 22 4D  45 45 53 54 45 52 2D 42  |..15);"MEESTER-B|
00000130: 52 45 49 4E 22 00 4F 13  55 00 99 A3 31 35 29 3B  |REIN".O.U...15);|
00000140: 22 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 22 00  |"*************".|
00000150: 55 13 5A 00 99 00 6F 13  5F 00 8F 3A 50 41 53 44  |U.Z...o._..:PASD|
00000160: 45 52 41 4E 44 4F 4D 2D  46 55 4E 43 54 49 45 00  |ERANDOM-FUNCTIE.|
00000170: 87 13 60 00 8F 3A 41 41  4E 55 57 43 4F 4D 50 55  |..`..:AANUWCOMPU|
00000180: 54 45 52 41 41 4E 21 00  9F 13 61 00 8F 3A 56 41  |TERAAN!...a..:VA|
00000190: 4E 41 46 4C 49 4A 4E 31  30 30 57 4F 52 44 54 00  |NAFLIJN100WORDT.|
000001A0: BB 13 62 00 8F 3A 45 45  4E 57 48 4C 4C 45 4B 45  |..b..:EENWHLLEKE|
000001B0: 55 52 49 47 45 43 49 4A  46 45 52 00 D3 13 63 00  |URIGECIJFER...c.|
000001C0: 8F 3A 43 4F 4D 42 49 4E  41 54 49 45 47 45 56 4F  |.:COMBINATIEGEVO|
000001D0: 52 4D 44 00 E4 13 64 00  41 B2 B5 28 BB 28 31 29  |RMD...d.A..(.(1)|
000001E0: AC 31 30 29 00 F1 13 69  00 8B 41 B2 30 A7 31 30  |.10)...i..A.0.10|
000001F0: 30 00 0E 14 6A 00 8F 3A  47 45 45 4E 4E 55 4C 41  |0...j..:GEENNULA|
00000200: 4C 53 45 45 52 53 54 45  43 49 4A 46 45 52 00 1F  |LSEERSTECIJFER..|
00000210: 14 6E 00 42 B2 B5 28 BB  28 31 29 AC 31 30 29 00  |.n.B..(.(1).10).|
00000220: 30 14 78 00 43 B2 B5 28  BB 28 31 29 AC 31 30 29  |0.x.C..(.(1).10)|
00000230: 00 41 14 82 00 44 B2 B5  28 BB 28 31 29 AC 31 30  |.A...D..(.(1).10|
00000240: 29 00 59 14 84 00 8F 3A  44 45 56 4F 4C 47 45 4E  |).Y....:DEVOLGEN|
00000250: 44 45 52 4F 55 54 49 4E  45 00 6F 14 85 00 8F 3A  |DEROUTINE.o....:|
00000260: 56 45 52 56 41 4E 47 54  47 45 4C 49 4A 4B 45 00  |VERVANGTGELIJKE.|
00000270: 7D 14 86 00 8F 3A 4E 55  4D 4D 45 52 53 00 8A 14  |}....:NUMMERS...|
00000280: 87 00 8B 41 B2 42 89 31  30 30 00 97 14 88 00 8B  |...A.B.100......|
00000290: 41 B2 43 89 31 30 30 00  A4 14 89 00 8B 41 B2 44  |A.C.100......A.D|
000002A0: 89 31 30 30 00 B1 14 8C  00 8B 42 B2 43 89 31 30  |.100......B.C.10|
000002B0: 30 00 BE 14 91 00 8B 42  B2 44 89 31 30 30 00 CB  |0......B.D.100..|
000002C0: 14 96 00 8B 43 B2 44 89  31 30 30 00 E4 14 98 00  |....C.D.100.....|
000002D0: 8F 3A 5A 45 54 42 45 55  52 54 45 4E 54 45 4C 4C  |.:ZETBEURTENTELL|
000002E0: 45 52 3D 30 00 EC 14 9B  00 4B B2 30 00 17 15 A0  |ER=0.....K.0....|
000002F0: 00 99 A3 35 29 3B 22 44  45 20 43 4F 4D 50 55 54  |...5);"DE COMPUT|
00000300: 45 52 20 48 45 45 46 54  20 45 45 4E 20 47 45 54  |ER HEEFT EEN GET|
00000310: 41 4C 20 56 41 4E 22 00  45 15 A5 00 99 A3 35 29  |AL VAN".E.....5)|
00000320: 3B 22 56 49 45 52 20 43  49 4A 46 45 52 53 20 49  |;"VIER CIJFERS I|
00000330: 4E 20 47 45 44 41 43 48  54 45 4E 20 47 45 4E 4F  |N GEDACHTEN GENO|
00000340: 4D 45 4E 2E 22 00 4B 15  AA 00 99 00 77 15 B4 00  |MEN.".K.....w...|
00000350: 99 A3 35 29 3B 22 50 52  4F 42 45 45 52 20 45 52  |..5);"PROBEER ER|
00000360: 20 41 43 48 54 45 52 20  54 45 20 4B 4F 4D 45 4E  | ACHTER TE KOMEN|
00000370: 2C 20 57 45 4C 4B 22 00  90 15 B9 00 99 A3 35 29  |, WELK".......5)|
00000380: 3B 22 47 45 54 41 4C 20  44 41 54 20 49 53 2E 22  |;"GETAL DAT IS."|
00000390: 00 96 15 BE 00 99 00 C5  15 C8 00 99 A3 35 29 3B  |.............5);|
000003A0: 22 47 45 45 46 20 45 45  4E 20 47 45 54 41 4C 20  |"GEEF EEN GETAL |
000003B0: 49 4E 20 56 41 4E 20 56  49 45 52 20 43 49 4A 46  |IN VAN VIER CIJF|
000003C0: 45 52 53 2C 22 00 F3 15  D2 00 99 A3 35 29 3B 22  |ERS,".......5);"|
000003D0: 47 45 53 43 48 45 49 44  45 4E 20 44 4F 4F 52 20  |GESCHEIDEN DOOR |
000003E0: 45 45 4E 20 4B 4F 4D 4D  41 3A 20 58 2C 58 2C 58  |EEN KOMMA: X,X,X|
000003F0: 2C 58 22 00 F9 15 DC 00  99 00 20 16 E6 00 99 A3  |,X"....... .....|
00000400: 35 29 3B 22 44 45 20 43  4F 4D 50 55 54 45 52 20  |5);"DE COMPUTER |
00000410: 47 45 45 46 54 20 55 20  44 41 4E 20 45 45 4E 22  |GEEFT U DAN EEN"|
00000420: 00 46 16 F0 00 99 A3 35  29 3B 22 41 41 4E 57 49  |.F.....5);"AANWI|
00000430: 4A 5A 49 4E 47 20 48 4F  45 56 45 45 4C 20 43 49  |JZING HOEVEEL CI|
00000440: 4A 46 45 52 53 22 00 6D  16 FA 00 99 A3 35 29 3B  |JFERS".m.....5);|
00000450: 22 43 4F 52 52 45 43 54  20 47 45 50 4C 41 41 54  |"CORRECT GEPLAAT|
00000460: 53 54 20 5A 49 4A 4E 20  28 58 29 2C 22 00 98 16  |ST ZIJN (X),"...|
00000470: 04 01 99 A3 35 29 3B 22  4F 46 20 4A 55 49 53 54  |....5);"OF JUIST|
00000480: 20 47 45 52 41 44 45 4E  20 4D 41 41 52 20 4E 49  | GERADEN MAAR NI|
00000490: 45 54 20 47 4F 45 44 22  00 BB 16 0E 01 99 A3 35  |ET GOED".......5|
000004A0: 29 3B 22 47 45 50 4C 41  41 54 53 54 20 5A 49 4A  |);"GEPLAATST ZIJ|
000004B0: 4E 20 28 59 29 3A 20 58  2F 59 22 00 C1 16 18 01  |N (Y): X/Y".....|
000004C0: 99 00 CE 16 2C 01 85 50  2C 51 2C 52 2C 53 00 E7  |....,..P,Q,R,S..|
000004D0: 16 31 01 8F 3A 49 3D 43  4F 52 52 45 43 54 47 45  |.1..:I=CORRECTGE|
000004E0: 50 4C 41 41 54 53 54 00  07 17 32 01 8F 3A 48 3D  |PLAATST...2..:H=|
000004F0: 47 4F 45 44 43 49 4A 46  45 52 46 4F 55 54 47 45  |GOEDCIJFERFOUTGE|
00000500: 50 4C 41 41 54 53 54 00  0F 17 36 01 49 B2 30 00  |PLAATST...6.I.0.|
00000510: 17 17 40 01 48 B2 30 00  31 17 45 01 8F 3A 42 45  |..@.H.0.1.E..:BE|
00000520: 4F 4F 52 44 45 4C 49 4E  47 53 52 4F 55 54 49 4E  |OORDELINGSROUTIN|
00000530: 45 00 3F 17 4A 01 8B 50  B3 B1 41 89 33 35 30 00  |E.?.J..P..A.350.|
00000540: 49 17 54 01 49 B2 49 AA  31 00 56 17 5E 01 8B 50  |I.T.I.I.1.V.^..P|
00000550: B2 42 89 33 36 30 00 63  17 60 01 8B 50 B2 43 89  |.B.360.c.`..P.C.|
00000560: 33 36 30 00 71 17 63 01  8B 50 B3 B1 44 89 33 37  |360.q.c..P..D.37|
00000570: 30 00 7B 17 68 01 48 B2  48 AA 31 00 88 17 72 01  |0.{.h.H.H.1...r.|
00000580: 8B 51 B2 41 89 33 38 30  00 95 17 74 01 8B 51 B2  |.Q.A.380...t..Q.|
00000590: 43 89 33 38 30 00 A3 17  77 01 8B 51 B3 B1 44 89  |C.380...w..Q..D.|
000005A0: 33 39 30 00 AD 17 7C 01  48 B2 48 AA 31 00 BA 17  |390...|.H.H.1...|
000005B0: 86 01 8B 52 B2 41 89 34  30 30 00 C7 17 88 01 8B  |...R.A.400......|
000005C0: 52 B2 42 89 34 30 30 00  D5 17 8B 01 8B 52 B3 B1  |R.B.400......R..|
000005D0: 44 89 34 31 30 00 DF 17  90 01 48 B2 48 AA 31 00  |D.410.....H.H.1.|
000005E0: EC 17 9A 01 8B 53 B2 41  89 34 32 30 00 F9 17 9C  |.....S.A.420....|
000005F0: 01 8B 53 B2 42 89 34 32  30 00 07 18 9F 01 8B 53  |..S.B.420......S|
00000600: B3 B1 43 89 34 33 30 00  11 18 A4 01 48 B2 48 AA  |..C.430.....H.H.|
00000610: 31 00 1F 18 AE 01 8B 51  B3 B1 42 89 34 35 30 00  |1......Q..B.450.|
00000620: 29 18 B8 01 49 B2 49 AA  31 00 37 18 C2 01 8B 52  |)...I.I.1.7....R|
00000630: B3 B1 43 89 34 37 30 00  41 18 CC 01 49 B2 49 AA  |..C.470.A...I.I.|
00000640: 31 00 4F 18 D6 01 8B 53  B3 B1 44 89 35 30 30 00  |1.O....S..D.500.|
00000650: 59 18 E0 01 49 B2 49 AA  31 00 86 18 F4 01 99 A3  |Y...I.I.1.......|
00000660: 31 35 29 3B 50 3B 22 20  22 3B 51 3B 22 20 22 3B  |15);P;" ";Q;" ";|
00000670: 52 3B 22 20 22 3B 53 3B  22 20 20 20 20 22 3B 49  |R;" ";S;"    ";I|
00000680: 3B 22 2F 22 3B 48 00 90  18 FE 01 4B B2 4B AA 31  |;"/";H.....K.K.1|
00000690: 00 A4 18 03 02 8F 3A 49  53 48 45 54 53 50 45 4C  |......:ISHETSPEL|
000006A0: 55 49 54 3F 00 B1 18 08  02 8B 49 B3 34 A7 33 30  |UIT?......I.4.30|
000006B0: 30 00 B7 18 12 02 99 00  EB 18 1C 02 99 22 55 20  |0............"U |
000006C0: 48 45 45 46 54 20 48 45  54 20 47 45 54 41 4C 20  |HEEFT HET GETAL |
000006D0: 49 4E 20 22 3B 4B 3B 22  20 42 45 55 52 54 45 4E  |IN ";K;" BEURTEN|
000006E0: 20 47 45 52 41 44 45 4E  20 21 22 00 04 19 1E 02  | GERADEN !".....|
000006F0: 8F 3A 4E 3D 41 41 4E 54  41 4C 53 50 45 4C 4C 45  |.:N=AANTALSPELLE|
00000700: 54 4A 45 53 00 20 19 1F  02 8F 3A 47 3D 54 4F 54  |TJES. ....:G=TOT|
00000710: 41 41 4C 41 41 4E 54 41  4C 42 45 55 52 54 45 4E  |AALAANTALBEURTEN|
00000720: 00 30 19 21 02 4E B2 4E  AA 31 3A 47 B2 47 AA 4B  |.0.!.N.N.1:G.G.K|
00000730: 00 3D 19 26 02 8B 4E B2  31 A7 35 37 30 00 72 19  |.=.&..N.1.570.r.|
00000740: 30 02 99 22 55 57 20 53  50 45 4C 47 45 4D 49 44  |0.."UW SPELGEMID|
00000750: 44 45 4C 44 45 20 49 53  20 22 3B 28 B5 28 31 30  |DELDE IS ";(.(10|
00000760: AC 47 AD 4E 29 29 AD 31  30 3B 22 50 55 4E 54 45  |.G.N)).10;"PUNTE|
00000770: 4E 22 00 78 19 3A 02 99  00 9D 19 44 02 99 22 57  |N".x.:.....D.."W|
00000780: 49 4C 54 20 55 20 4E 4F  47 20 45 45 4E 53 20 53  |ILT U NOG EENS S|
00000790: 50 45 4C 45 4E 20 28 4A  2F 4E 29 22 3B 00 A5 19  |PELEN (J/N)";...|
000007A0: 49 02 85 59 24 00 B8 19  4E 02 8B 59 24 B2 22 4A  |I..Y$...N..Y$."J|
000007B0: 22 A7 99 3A 89 31 30 30  00 BE 19 53 02 99 00 E2  |"..:.100...S....|
000007C0: 19 58 02 99 22 42 45 44  41 4E 4B 54 20 56 4F 4F  |.X.."BEDANKT VOO|
000007D0: 52 20 48 45 54 20 53 50  45 4C 45 4D 2E 22 3A 99  |R HET SPELEM.":.|
000007E0: 3A 80 00 00 00                                    |:....           |

.......*MEESTER-BREINISEEN.4....*INTELLI
GENTIE-SPEL,.P....*WAARBIJDOORCOMBINEREN
.D....*ENDEDUCERENDE.}....*OPLOSSINGKANW
ORDEN......*GEVONDEN.......*AUTEUR:...#.
.*DRP.VIJLBRIEF.F.(..*TEVOORHOUT(1978)..
.-..*OMGEZETINNOS-BASICODE...2..*INJANUA
RI1982...<..:TELLERSOPNULZETTEN...F.G.0:
N.0.5.P...15);"MEESTER-BREIN".O.U...15);
"*************".U.Z...O._..:PASDERANDOM-
FUNCTIE...`..:AANUWCOMPUTERAAN!...A..:VA
NAFLIJN100WORDT...B..:EENWHLLEKEURIGECIJ
FER.S.C..:COMBINATIEGEVORMD...D.A..(.(1)
.10)...I..A.0.100...J..:GEENNULALSEERSTE
CIJFER...N.B..(.(1).10).0.X.C..(.(1).10)
.A...D..(.(1).10).Y....:DEVOLGENDEROUTIN
E.O....:VERVANGTGELIJKE.}....:NUMMERS...
...A.B.100......A.C.100......A.D.100....
..B.C.100......B.D.100.K....C.D.100.....
.:ZETBEURTENTELLER=0.....K.0... ...5);"D
E COMPUTER HEEFT EEN GETAL VAN".E.....5)
;"VIER CIJFERS IN GEDACHTEN GENOMEN.".K.
....W.....5);"PROBEER ER ACHTER TE KOMEN
, WELK".......5);"GETAL DAT IS.".......E
.H...5);"GEEF EEN GETAL IN VAN VIER CIJF
ERS,"...R...5);"GESCHEIDEN DOOR EEN KOMM
A: X,X,X,X"....... .....5);"DE COMPUTER 
GEEFT U DAN EEN".F.....5);"AANWIJZING HO
EVEEL CIJFERS".M.....5);"CORRECT GEPLAAT
ST ZIJN (X),".......5);"OF JUIST GERADEN
 MAAR NIET GOED".......5);"GEPLAATST ZIJ
N (Y): X/Y".A.....N.,..P,Q,R,S...1..:I=C
ORRECTGEPLAATST...2..:H=GOEDCIJFERFOUTGE
PLAATST...6.I.0...@.H.0.1.E..:BEOORDELIN
GSROUTINE.?.J..P..A.350.I.T.I.I.1.V.^..P
.B.360.C.`..P.C.360.Q.C..P..D.370.{.H.H.
H.1...R..Q.A.380...T..Q.C.380...W..Q..D.
390...|.H.H.1......R.A.400.G....R.B.400.
U....R..D.410.....H.H.1......S.A.420....
..S.B.420......S..C.430.....H.H.1......Q
..B.450.)...I.I.1.7.B..R..C.470.A.L.I.I.
1.O.V..S..D.500.Y...I.I.1.......15);P;" 
";Q;" ";R;" ";S;"    ";I;"/";H.....K.K.1
......:ISHETSPELUIT?......I.4.300.......
....."U HEEFT HET GETAL IN ";K;" BEURTEN
 GERADEN !"......:N=AANTALSPELLETJES. ..
..:G=TOTAALAANTALBEURTEN.0.!.N.N.1:G.G.K
.=.&..N.1.570.R.0.."UW SPELGEMIDDELDE IS
 ";(.(10.G.N)).10;"PUNTEN".X.:.....D.."W
ILT U NOG EENS SPELEN (J/N)";...I..Y$...
N..Y$."J"..:.100...S.....X.."BEDANKT VOO
R HET SPELEM.":.:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL