40
FILE INFORMATION
FILENAME(S): 40
FILE TYPE(S): PRG
FILE SIZE: 12K
FIRST SEEN: 2025-11-30 21:05:34
APPEARS ON: 1 disk(s)
FILE HASH
25e9df6c59c1789e2fc908374eb1fd8a4f3ee8a1ce13105c005eb0a011d61e95
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WERTY | 40 | PRG | DuncanTwain | 4 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 0A 00 89 31 30 30 30 00 15 08 14 00 |.......1000.....|
00000010: 89 31 30 31 30 00 21 08 64 00 99 22 93 22 3B 3A |.1010.!.d..".";:|
00000020: 8E 00 51 08 6E 00 99 C8 28 22 13 11 11 11 11 11 |..Q.n...("......|
00000030: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000040: 11 11 11 22 2C B6 28 B5 28 56 45 AA 31 29 29 29 |...",.(.(VE.1)))|
00000050: 3B 00 61 08 70 00 99 A6 B6 28 48 4F 29 29 3B 3A |;.a.p....(HO));:|
00000060: 8E 00 86 08 78 00 48 4F B2 C2 28 32 30 39 29 AA |....x.HO..(209).|
00000070: 32 35 36 AC C2 28 32 31 30 29 AB 31 30 32 34 AA |256..(210).1024.|
00000080: C2 28 32 31 31 29 00 A4 08 79 00 56 45 B2 B5 28 |.(211)...y.VE..(|
00000090: 48 4F AD 34 30 29 3A 48 4F B2 48 4F AB 34 30 AC |HO.40):HO.HO.40.|
000000A0: 56 45 3A 8E 00 AF 08 C8 00 A1 49 4E 24 3A 8E 00 |VE:.......IN$:..|
000000B0: C4 08 D2 00 A1 49 4E 24 3A 8B 49 4E 24 B2 22 22 |.....IN$:.IN$.""|
000000C0: 89 32 31 30 00 CA 08 DC 00 8E 00 F7 08 FA 00 97 |.210............|
000000D0: 35 34 32 39 36 2C 31 35 3A 97 35 34 32 37 38 2C |54296,15:.54278,|
000000E0: 32 35 35 3A 97 35 34 32 37 33 2C 39 35 3A 97 35 |255:.54273,95:.5|
000000F0: 34 32 37 36 2C 31 37 00 09 09 FB 00 81 4F 4F B2 |4276,17......OO.|
00000100: 31 A4 32 30 30 3A 82 4F 4F 00 2A 09 FC 00 97 35 |1.200:.OO.*....5|
00000110: 34 32 37 36 2C 30 3A 97 35 34 32 37 37 2C 30 3A |4276,0:.54277,0:|
00000120: 97 35 34 32 37 38 2C 30 3A 8E 00 38 09 04 01 52 |.54278,0:..8...R|
00000130: 56 B2 BB 28 31 29 3A 8E 00 46 09 0E 01 46 52 B2 |V..(1):..F...FR.|
00000140: B8 28 30 29 3A 8E 00 6F 09 2C 01 53 52 24 B2 C4 |.(0):..o.,.SR$..|
00000150: 28 53 52 29 3A 8B C8 28 53 52 24 2C 31 29 B2 22 |(SR):..(SR$,1)."|
00000160: 20 22 A7 53 52 24 B2 CA 28 53 52 24 2C 32 29 00 | ".SR$..(SR$,2).|
00000170: 75 09 2D 01 8E 00 9A 09 36 01 53 52 24 B2 22 22 |u.-.....6.SR$.""|
00000180: 3A 8B 53 52 B1 B2 31 30 AE 28 43 54 AB 43 4E AB |:.SR..10.(CT.CN.|
00000190: B4 28 43 4E 29 29 A7 33 31 38 00 B5 09 37 01 8B |.(CN)).318...7..|
000001A0: 53 52 B3 AB 2E 35 AC 31 30 AE AB 43 4E A7 53 52 |SR...5.10..CN.SR|
000001B0: 24 B2 22 2D 22 00 DC 09 38 01 53 52 24 B2 53 52 |$."-"...8.SR$.SR|
000001C0: 24 AA CA 28 C4 28 B5 28 B6 28 53 52 29 AA 2E 35 |$..(.(.(.(SR)..5|
000001D0: AC 31 30 AE AB 43 4E 29 29 2C 32 29 00 07 0A 39 |.10..CN)),2)...9|
000001E0: 01 8B C3 28 53 52 24 29 B3 43 54 AB 43 4E AA 28 |...(SR$).CT.CN.(|
000001F0: 43 4E B3 B1 30 29 A7 53 52 24 B2 22 20 22 AA 53 |CN..0).SR$." ".S|
00000200: 52 24 3A 89 33 31 33 00 21 0A 3A 01 8B 43 4E B2 |R$:.313.!.:..CN.|
00000210: 30 B0 B6 28 53 52 29 B1 B2 31 45 31 30 89 33 31 |0..(SR)..1E10.31|
00000220: 36 00 55 0A 3B 01 53 52 24 B2 53 52 24 AA CA 28 |6.U.;.SR$.SR$..(|
00000230: C4 28 31 AA B6 28 53 52 29 AB B5 28 B6 28 53 52 |.(1..(SR)..(.(SR|
00000240: 29 29 AA 2E 35 AC 31 30 AE AB 43 4E 29 2C 33 2C |))..5.10..CN),3,|
00000250: 43 4E AA 31 29 00 75 0A 3C 01 8B C3 28 53 52 24 |CN.1).u.<...(SR$|
00000260: 29 B3 43 54 A7 53 52 24 B2 53 52 24 AA 22 20 22 |).CT.SR$.SR$." "|
00000270: 3A 89 33 31 36 00 8B 0A 3D 01 8B C3 28 53 52 24 |:.316...=...(SR$|
00000280: 29 B1 43 54 A7 53 52 24 B2 22 22 00 AB 0A 3E 01 |).CT.SR$.""...>.|
00000290: 8B C3 28 53 52 24 29 B3 43 54 A7 53 52 24 B2 53 |..(SR$).CT.SR$.S|
000002A0: 52 24 AA 22 2A 22 3A 89 33 31 38 00 B1 0A 3F 01 |R$."*":.318...?.|
000002B0: 8E 00 C7 0A 5E 01 9F 34 2C 34 3A 98 34 2C 53 52 |....^..4,4:.4,SR|
000002C0: 24 3B 3A A0 34 3A 8E 00 D8 0A 68 01 9F 34 2C 34 |$;:.4:....h..4,4|
000002D0: 3A 98 34 3A A0 34 3A 8E 00 FC 0A E8 03 41 B2 35 |:.4:.4:......A.5|
000002E0: 30 30 3A 89 32 30 3A 8F 20 54 4F 45 4C 49 43 48 |00:.20:. TOELICH|
000002F0: 54 49 4E 47 20 42 45 53 54 41 4E 44 00 1C 0B F2 |TING BESTAND....|
00000300: 03 4E 31 24 B2 22 44 45 4D 4F 20 42 41 53 49 43 |.N1$."DEMO BASIC|
00000310: 4F 44 45 2B 42 45 53 54 41 4E 44 22 00 38 0B FC |ODE+BESTAND".8..|
00000320: 03 4E 32 24 B2 22 54 4F 45 4C 49 43 48 54 49 4E |.N2$."TOELICHTIN|
00000330: 47 22 3A 89 34 30 30 30 00 4F 0B B8 0B 8F 20 4B |G":.4000.O.... K|
00000340: 4F 50 50 45 4E 20 43 45 4E 54 52 45 52 45 4E 00 |OPPEN CENTREREN.|
00000350: 6A 0B C2 0B 58 24 B2 22 2D 22 3A 48 4F B2 28 34 |j...X$."-":HO.(4|
00000360: 30 AB C3 28 4E 24 29 29 AD 32 00 8C 0B CC 0B 8B |0..(N$)).2......|
00000370: C3 28 58 24 29 B3 C3 28 4E 24 29 20 A7 58 24 B2 |.(X$)..(N$) .X$.|
00000380: 58 24 AA 22 2D 22 3A 89 33 30 32 30 00 A1 0B D6 |X$."-":.3020....|
00000390: 0B 48 4F B2 48 4F AB 31 3A 8D 31 31 30 3A 99 4E |.HO.HO.1:.110:.N|
000003A0: 24 00 B8 0B E0 0B 56 45 B2 56 45 AA 31 3A 8D 31 |$.....VE.VE.1:.1|
000003B0: 31 30 3A 99 58 24 3A 8E 00 D5 0B 1C 0C 58 24 B2 |10:.X$:......X$.|
000003C0: 22 2D 22 3A 8F 20 53 54 52 45 45 50 20 45 52 20 |"-":. STREEP ER |
000003D0: 4F 4E 44 45 52 00 F4 0B 26 0C 8B C3 28 58 24 29 |ONDER...&...(X$)|
000003E0: B3 33 39 20 A7 58 24 B2 58 24 AA 22 2D 22 3A 89 |.39 .X$.X$."-":.|
000003F0: 33 31 31 30 00 FE 0B 30 0C 99 58 24 3A 8E 00 17 |3110...0..X$:...|
00000400: 0C 80 0C 8D 32 35 30 3A 48 4F B2 30 3A 56 45 B2 |....250:HO.0:VE.|
00000410: 32 33 3A 8D 31 31 30 00 35 0C 8A 0C 99 22 44 52 |23:.110.5...."DR|
00000420: 55 4B 20 45 45 4E 20 54 4F 45 54 53 20 49 4E 20 |UK EEN TOETS IN |
00000430: 2E 2E 2E 22 3B 00 42 0C 94 0C 8D 32 31 30 3A 99 |...";.B....210:.|
00000440: 3A 8E 00 5D 0C E4 0C 8D 31 30 30 3A 4E 24 B2 4E |:..]....100:N$.N|
00000450: 31 24 3A 56 45 B2 30 3A 8D 33 30 30 30 00 75 0C |1$:VE.0:.3000.u.|
00000460: EE 0C 4E 24 B2 4E 33 24 3A 56 45 B2 32 3A 8D 33 |..N$.N3$:VE.2:.3|
00000470: 30 30 30 3A 8E 00 90 0C A0 0F 8D 31 30 30 3A 4E |000:.......100:N|
00000480: 24 B2 4E 31 24 3A 56 45 B2 30 3A 8D 33 30 30 30 |$.N1$:VE.0:.3000|
00000490: 00 A8 0C AA 0F 4E 24 B2 4E 32 24 3A 56 45 B2 32 |.....N$.N2$:VE.2|
000004A0: 3A 8D 33 30 30 30 3A 99 00 BC 0C B4 0F 99 22 20 |:.3000:......." |
000004B0: 31 3D 49 4E 4C 45 49 44 49 4E 47 22 00 DC 0C BE |1=INLEIDING"....|
000004C0: 0F 99 22 20 32 3D 41 4C 47 45 4D 45 4E 45 20 49 |.." 2=ALGEMENE I|
000004D0: 4E 46 4F 52 4D 41 54 49 45 22 3A 99 00 07 0D C8 |NFORMATIE":.....|
000004E0: 0F 99 22 20 20 20 52 4F 55 54 49 4E 45 53 20 56 |.." ROUTINES V|
000004F0: 4F 4F 52 20 43 41 53 53 45 54 54 45 2D 42 45 53 |OOR CASSETTE-BES|
00000500: 54 41 4E 44 45 4E 22 00 32 0D D2 0F 99 22 20 20 |TANDEN".2...." |
00000510: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000530: 2D 22 00 52 0D DC 0F 99 22 20 33 3D 49 4E 4C 45 |-".R...." 3=INLE|
00000540: 49 44 45 4E 44 45 20 49 4E 46 4F 52 4D 41 54 49 |IDENDE INFORMATI|
00000550: 45 22 00 69 0D E6 0F 99 22 20 34 3D 53 48 41 52 |E".i...." 4=SHAR|
00000560: 50 2F 4D 5A 2D 38 30 4B 22 00 7A 0D F0 0F 99 22 |P/MZ-80K".z...."|
00000570: 20 35 3D 54 52 53 2D 38 30 22 00 90 0D FA 0F 99 | 5=TRS-80"......|
00000580: 22 20 36 3D 50 45 54 2F 43 42 4D 2F 56 49 43 22 |" 6=PET/CBM/VIC"|
00000590: 00 B5 0D 04 10 99 22 20 37 3D 41 50 50 4C 45 2F |......" 7=APPLE/|
000005A0: 49 54 54 2D 45 58 2E 53 4F 52 43 2E 2D 50 32 30 |ITT-EX.SORC.-P20|
000005B0: 30 30 22 3A 99 00 DF 0D 0E 10 99 22 20 38 3D 42 |00":......." 8=B|
000005C0: 45 52 45 4B 45 4E 49 4E 47 20 56 41 4E 20 27 41 |EREKENING VAN 'A|
000005D0: 27 20 49 4E 20 27 43 4C 45 41 52 20 41 27 22 00 |' IN 'CLEAR A'".|
000005E0: F9 0D 18 10 99 22 20 39 3D 54 45 4E 53 4C 4F 54 |....." 9=TENSLOT|
000005F0: 54 45 20 2E 2E 2E 22 3A 99 00 0D 0E 22 10 99 22 |TE ...":....".."|
00000600: 31 30 3D 45 49 4E 44 45 22 3A 99 3A 99 00 2A 0E |10=EINDE":.:..*.|
00000610: 2C 10 8D 32 35 30 3A 99 22 55 57 20 4B 45 55 5A |,..250:."UW KEUZ|
00000620: 45 3A 20 22 3B 3A 85 49 4E 24 00 4C 0E 36 10 57 |E: ";:.IN$.L.6.W|
00000630: B2 C5 28 49 4E 24 29 3A 8B 28 57 B3 31 29 20 B0 |..(IN$):.(W.1) .|
00000640: 28 57 B1 31 30 29 20 A7 34 30 30 30 00 5C 0E 40 |(W.10) .4000.\.@|
00000650: 10 8B 57 B2 31 30 20 A7 37 36 39 30 00 91 0E 4A |..W.10 .7690...J|
00000660: 10 91 57 20 89 34 32 30 30 2C 34 36 30 30 2C 35 |..W .4200,4600,5|
00000670: 30 30 30 2C 35 33 30 30 2C 35 35 30 30 2C 35 37 |000,5300,5500,57|
00000680: 30 30 2C 35 39 30 30 2C 36 38 30 30 2C 37 35 30 |00,5900,6800,750|
00000690: 30 00 AD 0E 68 10 4E 33 24 B2 22 49 4E 4C 45 49 |0...h.N3$."INLEI|
000006A0: 44 49 4E 47 22 3A 8D 33 33 30 30 3A 99 00 DA 0E |DING":.3300:....|
000006B0: 72 10 99 22 44 49 54 20 50 52 4F 47 52 41 4D 4D |r.."DIT PROGRAMM|
000006C0: 41 20 42 45 53 54 41 41 54 20 55 49 54 20 44 45 |A BESTAAT UIT DE|
000006D0: 20 56 4F 4C 47 45 4E 44 45 22 00 F3 0E 7C 10 99 | VOLGENDE"...|..|
000006E0: 22 44 45 45 4C 2D 50 52 4F 47 52 41 4D 4D 41 27 |"DEEL-PROGRAMMA'|
000006F0: 53 3A 22 00 22 0F 86 10 99 22 20 31 2E 54 4F 45 |S:"."...." 1.TOE|
00000700: 4C 49 43 48 54 49 4E 47 20 2E 2E 2E 2E 2E 2E 2E |LICHTING .......|
00000710: 2E 2E 2E 2E 3A 20 31 31 35 34 32 20 42 59 54 45 |....: 11542 BYTE|
00000720: 53 22 00 51 0F 90 10 99 22 20 32 2E 42 45 53 54 |S".Q...." 2.BEST|
00000730: 41 4E 44 53 2D 4D 55 54 41 54 49 45 53 20 2E 2E |ANDS-MUTATIES ..|
00000740: 2E 2E 2E 3A 20 20 38 35 32 31 20 42 59 54 45 53 |...: 8521 BYTES|
00000750: 22 00 82 0F 9A 10 99 22 20 33 2E 56 49 44 45 4F |"......" 3.VIDEO|
00000760: 2D 50 52 49 4E 54 53 2F 50 52 49 4E 54 2D 4F 55 |-PRINTS/PRINT-OU|
00000770: 54 53 3A 20 20 38 36 33 37 20 42 59 54 45 53 22 |TS: 8637 BYTES"|
00000780: 3A 99 00 AF 0F A4 10 99 22 44 45 20 41 46 4D 45 |:......."DE AFME|
00000790: 54 49 4E 47 45 4E 20 5A 49 4A 4E 20 45 58 43 4C |TINGEN ZIJN EXCL|
000007A0: 2E 42 43 2D 32 20 52 4F 55 54 49 4E 45 53 22 00 |.BC-2 ROUTINES".|
000007B0: DD 0F AE 10 99 22 45 4E 20 45 58 43 4C 2E 20 4E |....."EN EXCL. N|
000007C0: 4F 47 20 54 4F 45 20 54 45 20 56 4F 45 47 45 4E |OG TOE TE VOEGEN|
000007D0: 20 52 4F 55 54 49 4E 45 53 2E 22 3A 99 00 0B 10 | ROUTINES.":....|
000007E0: B8 10 99 22 4D 45 54 20 50 52 4F 47 52 41 4D 4D |..."MET PROGRAMM|
000007F0: 41 20 27 32 27 20 4B 55 4E 54 20 55 20 45 45 4E |A '2' KUNT U EEN|
00000800: 20 41 44 52 45 53 53 45 4E 2D 22 00 36 10 C2 10 | ADRESSEN-".6...|
00000810: 99 22 42 45 53 54 41 4E 44 20 41 41 4E 4D 41 4B |."BESTAND AANMAK|
00000820: 45 4E 20 45 4E 20 48 49 45 52 49 4E 20 4D 55 54 |EN EN HIERIN MUT|
00000830: 41 54 49 45 53 22 00 4B 10 CC 10 99 22 41 41 4E |ATIES".K...."AAN|
00000840: 42 52 45 4E 47 45 4E 2E 22 3A 99 00 77 10 D6 10 |BRENGEN.":..w...|
00000850: 99 22 4D 45 54 20 50 52 4F 47 52 41 4D 4D 41 20 |."MET PROGRAMMA |
00000860: 27 33 27 20 4B 55 4E 54 20 55 20 53 4F 52 54 45 |'3' KUNT U SORTE|
00000870: 52 45 4E 20 4F 50 22 00 A3 10 E0 10 99 22 4D 41 |REN OP"......"MA|
00000880: 58 49 4D 41 41 4C 20 34 20 4B 45 4E 4D 45 52 4B |XIMAAL 4 KENMERK|
00000890: 45 4E 20 49 4E 20 45 45 4E 20 53 4F 52 54 45 45 |EN IN EEN SORTEE|
000008A0: 52 2D 22 00 CF 10 EA 10 99 22 47 41 4E 47 20 45 |R-"......"GANG E|
000008B0: 4E 20 5A 45 4C 46 20 55 57 20 4C 49 4A 53 54 45 |N ZELF UW LIJSTE|
000008C0: 4E 20 53 41 4D 45 4E 53 54 45 4C 4C 45 4E 22 00 |N SAMENSTELLEN".|
000008D0: F0 10 F4 10 99 22 4F 50 20 48 45 54 20 53 43 48 |....."OP HET SCH|
000008E0: 45 52 4D 20 45 4E 20 50 52 49 4E 54 45 52 2E 22 |ERM EN PRINTER."|
000008F0: 00 02 11 FE 10 8D 33 32 30 30 3A 8D 33 33 30 30 |......3200:.3300|
00000900: 3A 99 00 2E 11 12 11 99 22 55 20 4B 55 4E 54 20 |:......."U KUNT |
00000910: 55 57 20 42 45 53 54 41 4E 44 20 57 45 47 53 43 |UW BESTAND WEGSC|
00000920: 48 52 49 4A 56 45 4E 20 4E 41 41 52 2F 22 00 42 |HRIJVEN NAAR/".B|
00000930: 11 1C 11 99 22 49 4E 4C 45 5A 45 4E 20 56 41 4E |...."INLEZEN VAN|
00000940: 3A 22 00 5A 11 26 11 99 22 2D 20 41 55 44 49 4F |:".Z.&.."- AUDIO|
00000950: 2D 43 41 53 53 45 54 54 45 22 00 75 11 30 11 99 |-CASSETTE".u.0..|
00000960: 22 2D 20 44 49 47 49 54 41 4C 45 20 43 41 53 53 |"- DIGITALE CASS|
00000970: 45 54 54 45 22 00 8C 11 3A 11 99 22 2D 20 46 4C |ETTE"...:.."- FL|
00000980: 4F 50 50 59 20 44 49 53 4B 22 3A 99 00 BA 11 44 |OPPY DISK":....D|
00000990: 11 99 22 44 45 20 42 45 54 52 45 46 46 45 4E 44 |.."DE BETREFFEND|
000009A0: 45 20 53 55 42 52 4F 55 54 49 4E 45 53 20 4D 4F |E SUBROUTINES MO|
000009B0: 45 54 20 55 20 5A 45 4C 46 22 00 D4 11 4E 11 99 |ET U ZELF"...N..|
000009C0: 22 54 4F 45 56 4F 45 47 45 4E 2C 20 45 4E 20 57 |"TOEVOEGEN, EN W|
000009D0: 45 4C 3A 22 00 FD 11 58 11 99 22 52 45 47 45 4C |EL:"...X.."REGEL|
000009E0: 53 20 32 30 30 30 30 2D 32 31 30 30 30 20 49 4E |S 20000-21000 IN|
000009F0: 4C 45 45 53 2D 52 4F 55 54 49 4E 45 22 00 2C 12 |LEES-ROUTINE".,.|
00000A00: 62 11 99 22 52 45 47 45 4C 53 20 32 31 30 30 30 |b.."REGELS 21000|
00000A10: 2D 32 32 30 30 30 20 57 45 47 53 43 48 52 49 4A |-22000 WEGSCHRIJ|
00000A20: 46 2D 52 4F 55 54 49 4E 45 22 3A 99 00 5A 12 6C |F-ROUTINE":..Z.l|
00000A30: 11 99 22 50 52 4F 47 52 41 4D 4D 41 20 27 33 27 |.."PROGRAMMA '3'|
00000A40: 20 56 45 52 45 49 53 54 20 44 41 54 20 55 20 55 | VEREIST DAT U U|
00000A50: 57 20 42 45 53 54 41 4E 44 22 00 76 12 76 11 99 |W BESTAND".v.v..|
00000A60: 22 57 45 45 52 20 4B 55 4E 54 20 49 4E 4C 45 5A |"WEER KUNT INLEZ|
00000A70: 45 4E 2E 22 3A 99 00 A1 12 80 11 99 22 41 4C 53 |EN.":......."ALS|
00000A80: 20 55 20 45 45 4E 20 44 49 53 4B 2D 44 52 49 56 | U EEN DISK-DRIV|
00000A90: 45 20 48 45 42 54 2C 20 4E 45 4D 45 4E 20 57 45 |E HEBT, NEMEN WE|
00000AA0: 22 00 CF 12 8A 11 99 22 41 41 4E 20 44 41 54 20 |"......"AAN DAT |
00000AB0: 55 20 44 45 5A 45 20 52 4F 55 54 49 4E 45 53 20 |U DEZE ROUTINES |
00000AC0: 5A 45 4C 46 20 4B 55 4E 54 20 50 52 4F 2D 22 00 |ZELF KUNT PRO-".|
00000AD0: E1 12 94 11 99 22 47 52 41 4D 4D 45 52 45 4E 2E |....."GRAMMEREN.|
00000AE0: 22 00 F6 12 9E 11 8D 33 32 30 30 3A 8D 32 37 30 |"......3200:.270|
00000AF0: 3A 89 34 30 30 30 00 1C 13 F8 11 4E 33 24 B2 22 |:.4000.....N3$."|
00000B00: 41 4C 47 45 4D 45 4E 45 20 49 4E 46 4F 52 4D 41 |ALGEMENE INFORMA|
00000B10: 54 49 45 22 3A 8D 33 33 30 30 3A 99 00 42 13 0C |TIE":.3300:..B..|
00000B20: 12 99 22 20 52 45 47 45 4C 20 32 35 30 30 30 20 |.." REGEL 25000 |
00000B30: 44 41 54 41 20 33 30 2C 35 20 2D 20 44 57 5A 22 |DATA 30,5 - DWZ"|
00000B40: 3A 99 00 6B 13 16 12 99 22 20 4E 52 3D 33 30 20 |:..k...." NR=30 |
00000B50: 28 4D 41 58 49 4D 41 41 4C 20 41 41 4E 54 41 4C |(MAXIMAAL AANTAL|
00000B60: 20 41 44 52 45 53 53 45 4E 29 22 00 89 13 20 12 | ADRESSEN)"... .|
00000B70: 99 22 20 4E 4B 3D 20 35 20 28 36 20 4B 45 4E 4D |." NK= 5 (6 KENM|
00000B80: 45 52 4B 45 4E 29 22 3A 99 00 B5 13 2A 12 99 22 |ERKEN)":....*.."|
00000B90: 55 20 4B 55 4E 54 20 48 45 54 20 41 41 4E 54 41 |U KUNT HET AANTA|
00000BA0: 4C 20 41 44 52 45 53 53 45 4E 20 41 41 4E 50 41 |L ADRESSEN AANPA|
00000BB0: 53 53 45 4E 22 00 DE 13 34 12 99 22 41 41 4E 20 |SSEN"...4.."AAN |
00000BC0: 44 45 20 47 52 4F 4F 54 54 45 20 56 41 4E 20 55 |DE GROOTTE VAN U|
00000BD0: 57 20 43 4F 4D 50 55 54 45 52 21 22 3A 99 00 09 |W COMPUTER!":...|
00000BE0: 14 3E 12 99 22 44 41 41 52 54 4F 45 20 42 45 48 |.>.."DAARTOE BEH|
00000BF0: 4F 45 46 54 20 55 20 41 4C 4C 45 45 4E 20 44 45 |OEFT U ALLEEN DE|
00000C00: 5A 45 20 44 41 54 41 2D 22 00 25 14 48 12 99 22 |ZE DATA-".%.H.."|
00000C10: 52 45 47 45 4C 20 54 45 20 57 49 4A 5A 49 47 45 |REGEL TE WIJZIGE|
00000C20: 4E 2E 22 3A 99 00 51 14 52 12 99 22 44 45 20 44 |N.":..Q.R.."DE D|
00000C30: 49 4D 2D 53 54 41 54 45 4D 45 4E 54 53 20 57 4F |IM-STATEMENTS WO|
00000C40: 52 44 45 4E 20 41 55 54 4F 4D 41 54 49 53 43 48 |RDEN AUTOMATISCH|
00000C50: 22 00 7D 14 5C 12 99 22 41 41 4E 47 45 50 41 53 |".}.\.."AANGEPAS|
00000C60: 54 2C 20 45 56 45 4E 5A 4F 20 44 45 20 45 56 54 |T, EVENZO DE EVT|
00000C70: 2E 20 56 41 4E 55 49 54 20 48 45 54 22 00 A8 14 |. VANUIT HET"...|
00000C80: 66 12 99 22 50 52 4F 47 52 41 4D 4D 41 20 49 4E |f.."PROGRAMMA IN|
00000C90: 20 54 45 20 53 54 45 4C 4C 45 4E 20 56 41 52 49 | TE STELLEN VARI|
00000CA0: 41 42 45 4C 45 4E 2D 22 00 B7 14 70 12 99 22 52 |ABELEN-"...p.."R|
00000CB0: 55 49 4D 54 45 2E 22 00 C9 14 7A 12 8D 33 32 30 |UIMTE."...z..320|
00000CC0: 30 3A 8D 33 33 30 30 3A 99 00 F7 14 84 12 99 22 |0:.3300:......."|
00000CD0: 44 45 20 53 54 52 49 4E 47 2D 41 52 52 41 59 20 |DE STRING-ARRAY |
00000CE0: 48 45 45 46 54 20 44 45 20 56 4F 52 4D 3A 20 4E |HEEFT DE VORM: N|
00000CF0: 24 28 49 2C 4A 29 22 00 1A 15 8E 12 99 22 20 46 |$(I,J)"......" F|
00000D00: 4F 52 20 49 3D 31 20 54 4F 20 4E 3A 46 4F 52 20 |OR I=1 TO N:FOR |
00000D10: 4A 3D 30 20 54 4F 20 4E 4B 22 00 24 15 98 12 8D |J=0 TO NK".$....|
00000D20: 33 31 30 30 00 53 15 A2 12 99 22 41 44 52 45 53 |3100.S...."ADRES|
00000D30: 2D 49 4E 48 4F 55 44 20 20 20 20 20 20 20 20 20 |-INHOUD |
00000D40: 20 20 20 20 20 20 20 20 20 20 4D 41 58 49 4D 41 | MAXIMA|
00000D50: 41 4C 22 00 5D 15 AC 12 8D 33 31 30 30 00 8B 15 |AL".]....3100...|
00000D60: B6 12 99 22 4E 24 28 49 2C 30 29 20 4E 51 41 4D |..."N$(I,0) NQAM|
00000D70: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | ...............|
00000D80: 2E 2E 2E 31 35 20 4B 41 52 2E 22 00 B9 15 C0 12 |...15 KAR.".....|
00000D90: 99 22 4E 24 28 49 2C 31 29 20 56 4F 4F 52 4C 45 |."N$(I,1) VOORLE|
00000DA0: 54 54 45 52 28 53 29 20 2E 2E 2E 2E 2E 2E 2E 2E |TTER(S) ........|
00000DB0: 2E 20 36 20 4B 41 52 2E 22 00 E7 15 CA 12 99 22 |. 6 KAR."......"|
00000DC0: 4E 24 28 49 2C 32 29 20 41 44 52 45 53 20 2E 2E |N$(I,2) ADRES ..|
00000DD0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 32 |...............2|
00000DE0: 30 20 4B 41 52 2E 22 00 15 16 D4 12 99 22 4E 24 |0 KAR."......"N$|
00000DF0: 28 49 2C 33 29 20 50 4F 53 54 43 4F 44 45 20 2B |(I,3) POSTCODE +|
00000E00: 20 57 4F 4F 4E 50 4C 41 41 54 53 20 20 32 30 20 | WOONPLAATS 20 |
00000E10: 4B 41 52 2E 22 00 43 16 DE 12 99 22 4E 24 28 49 |KAR.".C...."N$(I|
00000E20: 2C 34 29 20 4B 45 4E 47 45 54 41 4C 2B 54 45 4C |,4) KENGETAL+TEL|
00000E30: 2E 4E 4F 2E 20 2E 2E 2E 2E 2E 2E 31 32 20 4B 41 |.NO. ......12 KA|
00000E40: 52 2E 22 00 71 16 E8 12 99 22 4E 24 28 49 2C 35 |R.".q...."N$(I,5|
00000E50: 29 20 47 45 42 2E 44 41 54 55 4D 20 28 44 44 2E |) GEB.DATUM (DD.|
00000E60: 4D 4D 2E 4A 4A 29 20 3D 20 20 38 20 4B 41 52 2E |MM.JJ) = 8 KAR.|
00000E70: 22 00 7B 16 F2 12 8D 33 31 30 30 00 A9 16 FC 12 |".{....3100.....|
00000E80: 99 22 54 4F 54 41 41 4C 20 20 20 20 20 20 20 20 |."TOTAAL |
00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EA0: 20 38 31 20 4B 41 52 2E 22 00 B5 16 06 13 8D 33 | 81 KAR."......3|
00000EB0: 31 30 30 3A 99 00 E1 16 10 13 99 22 49 4E 20 48 |100:......."IN H|
00000EC0: 45 54 20 42 45 53 54 41 4E 44 20 4D 4F 45 54 45 |ET BESTAND MOETE|
00000ED0: 4E 20 27 48 4F 4F 46 44 4C 45 54 54 45 52 53 27 |N 'HOOFDLETTERS'|
00000EE0: 22 00 F9 16 1A 13 99 22 57 4F 52 44 45 4E 20 47 |"......"WORDEN G|
00000EF0: 45 42 52 55 49 4B 54 21 22 00 0E 17 24 13 8D 33 |EBRUIKT!"...$..3|
00000F00: 32 30 30 3A 8D 32 37 30 3A 89 34 30 30 30 00 36 |200:.270:.4000.6|
00000F10: 17 88 13 4E 33 24 B2 22 42 45 53 54 41 4E 44 45 |...N3$."BESTANDE|
00000F20: 4E 20 4F 50 20 43 41 53 53 45 54 54 45 22 3A 8D |N OP CASSETTE":.|
00000F30: 33 33 30 30 3A 99 00 5B 17 92 13 99 22 43 4F 44 |3300:..[...."COD|
00000F40: 45 52 49 4E 47 20 49 4E 20 47 45 47 45 56 45 4E |ERING IN GEGEVEN|
00000F50: 20 52 4F 55 54 49 4E 45 53 3A 22 00 71 17 9C 13 | ROUTINES:".q...|
00000F60: 99 22 20 20 3F 20 20 20 20 3D 20 50 52 49 4E 54 |." ? = PRINT|
00000F70: 22 00 91 17 A6 13 99 22 20 20 20 27 20 20 20 3D |"......" ' =|
00000F80: 20 41 41 4E 48 41 4C 49 4E 47 53 54 45 4B 45 4E | AANHALINGSTEKEN|
00000F90: 22 00 B1 17 B0 13 8D 33 31 30 30 3A 99 22 57 45 |"......3100:."WE|
00000FA0: 47 53 43 48 52 49 4A 56 45 4E 22 3A 8D 33 31 30 |GSCHRIJVEN":.310|
00000FB0: 30 00 DF 17 BA 13 99 22 32 31 30 31 30 20 3F 27 |0......"21010 ?'|
00000FC0: 44 4F 45 20 42 45 53 54 2E 43 41 53 53 45 54 54 |DOE BEST.CASSETT|
00000FD0: 45 20 49 4E 20 52 45 43 4F 52 44 45 52 27 22 00 |E IN RECORDER'".|
00000FE0: 0D 18 C4 13 99 22 32 31 30 32 30 20 3F 27 52 45 |....."21020 ?'RE|
00000FF0: 57 49 4E 44 20 44 45 20 54 41 50 45 20 28 42 45 |WIND DE TAPE (BE|
00001000: 53 54 2E 56 4F 4F 52 41 41 4E 29 27 22 00 3A 18 |ST.VOORAAN)'".:.|
00001010: CE 13 99 22 32 31 30 33 30 20 3F 27 44 52 55 4B |..."21030 ?'DRUK|
00001020: 20 52 45 43 4F 52 44 2B 50 4C 41 59 20 54 45 47 | RECORD+PLAY TEG|
00001030: 45 4C 49 4A 4B 20 49 4E 27 22 00 65 18 D8 13 99 |ELIJK IN'".e....|
00001040: 22 32 31 30 34 30 20 3F 27 44 52 55 4B 20 45 45 |"21040 ?'DRUK EE|
00001050: 4E 20 54 4F 45 54 53 20 49 4E 20 2B 20 52 45 54 |N TOETS IN + RET|
00001060: 55 52 4E 27 22 00 7D 18 E2 13 99 22 32 31 30 35 |URN'".}...."2105|
00001070: 30 20 49 4E 50 55 54 49 4E 24 22 3A 99 00 AC 18 |0 INPUTIN$":....|
00001080: EC 13 99 22 4C 41 41 54 20 44 45 5A 45 20 52 45 |..."LAAT DEZE RE|
00001090: 47 45 4C 53 20 56 4F 4F 52 41 46 47 41 41 4E 20 |GELS VOORAFGAAN |
000010A0: 41 41 4E 20 55 57 20 57 45 47 2D 22 00 D8 18 F6 |AAN UW WEG-"....|
000010B0: 13 99 22 53 43 48 52 49 4A 46 2D 52 4F 55 54 49 |.."SCHRIJF-ROUTI|
000010C0: 4E 45 2C 20 5A 4F 44 41 54 20 55 20 44 45 20 43 |NE, ZODAT U DE C|
000010D0: 41 53 53 45 54 54 45 22 00 FB 18 00 14 99 22 4B |ASSETTE"......"K|
000010E0: 55 4E 54 20 57 49 53 53 45 4C 45 4E 20 45 4E 20 |UNT WISSELEN EN |
000010F0: 49 4E 53 54 45 4C 4C 45 4E 2E 22 00 28 19 0A 14 |INSTELLEN.".(...|
00001100: 99 22 4F 46 20 44 45 20 49 4E 53 54 52 55 43 54 |."OF DE INSTRUCT|
00001110: 49 45 53 20 44 49 45 20 56 4F 4F 52 20 55 57 20 |IES DIE VOOR UW |
00001120: 53 59 53 54 45 45 4D 22 00 44 19 14 14 99 22 56 |SYSTEEM".D...."V|
00001130: 41 4E 20 54 4F 45 50 41 53 53 49 4E 47 20 5A 49 |AN TOEPASSING ZI|
00001140: 4A 4E 2E 22 00 56 19 1E 14 8D 33 32 30 30 3A 8D |JN.".V....3200:.|
00001150: 33 33 30 30 3A 99 00 71 19 28 14 8D 33 31 30 30 |3300:..q.(..3100|
00001160: 3A 99 22 49 4E 4C 45 5A 45 4E 22 3A 8D 33 31 30 |:."INLEZEN":.310|
00001170: 30 00 9F 19 32 14 99 22 32 30 30 31 30 20 3F 27 |0...2.."20010 ?'|
00001180: 44 4F 45 20 42 45 53 54 2E 43 41 53 53 45 54 54 |DOE BEST.CASSETT|
00001190: 45 20 49 4E 20 52 45 43 4F 52 44 45 52 27 22 00 |E IN RECORDER'".|
000011A0: CD 19 3C 14 99 22 32 30 30 32 30 20 3F 27 52 45 |..<.."20020 ?'RE|
000011B0: 57 49 4E 44 20 44 45 20 54 41 50 45 20 28 42 45 |WIND DE TAPE (BE|
000011C0: 53 54 2E 56 4F 4F 52 41 41 4E 29 27 22 00 F0 19 |ST.VOORAAN)'"...|
000011D0: 46 14 99 22 32 30 30 33 30 20 3F 27 44 52 55 4B |F.."20030 ?'DRUK|
000011E0: 20 50 4C 41 59 2D 54 4F 45 54 53 20 49 4E 27 22 | PLAY-TOETS IN'"|
000011F0: 00 1B 1A 50 14 99 22 32 30 30 34 30 20 3F 27 44 |...P.."20040 ?'D|
00001200: 52 55 4B 20 45 45 4E 20 54 4F 45 54 53 20 49 4E |RUK EEN TOETS IN|
00001210: 20 2B 20 52 45 54 55 52 4E 27 22 00 33 1A 5A 14 | + RETURN'".3.Z.|
00001220: 99 22 32 30 30 35 30 20 49 4E 50 55 54 49 4E 24 |."20050 INPUTIN$|
00001230: 22 3A 99 00 60 1A 64 14 99 22 4F 4F 4B 20 48 49 |":..`.d.."OOK HI|
00001240: 45 52 3A 20 4C 41 41 54 20 44 45 5A 45 20 52 45 |ER: LAAT DEZE RE|
00001250: 47 45 4C 53 20 56 4F 4F 52 41 46 47 41 41 4E 22 |GELS VOORAFGAAN"|
00001260: 00 7E 1A 6E 14 99 22 41 41 4E 20 55 57 20 49 4E |.~.n.."AAN UW IN|
00001270: 4C 45 45 53 2D 52 4F 55 54 49 4E 45 2E 22 00 93 |LEES-ROUTINE."..|
00001280: 1A 78 14 8D 33 32 30 30 3A 8D 32 37 30 3A 89 34 |.x..3200:.270:.4|
00001290: 30 30 30 00 BB 1A B4 14 4E 33 24 B2 22 42 45 53 |000.....N3$."BES|
000012A0: 54 41 4E 44 45 4E 20 4F 50 20 43 41 53 53 45 54 |TANDEN OP CASSET|
000012B0: 54 45 22 3A 8D 33 33 30 30 3A 99 00 E4 1A BE 14 |TE":.3300:......|
000012C0: 99 22 49 4E 4C 45 5A 45 4E 20 20 20 20 20 20 20 |."INLEZEN |
000012D0: 20 20 20 20 20 49 20 57 45 47 53 43 48 52 49 4A | I WEGSCHRIJ|
000012E0: 56 45 4E 22 00 EE 1A C8 14 8D 33 31 30 30 00 12 |VEN"......3100..|
000012F0: 1B D2 14 99 22 53 48 41 52 50 2F 4D 5A 2D 38 30 |...."SHARP/MZ-80|
00001300: 4B 22 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |K":."-----------|
00001310: 2D 22 00 34 1B DC 14 99 22 32 30 31 30 30 54 24 |-".4...."20100T$|
00001320: 3D 27 41 44 52 45 53 53 45 4E 2D 42 45 53 54 41 |='ADRESSEN-BESTA|
00001330: 4E 44 27 22 00 63 1B E6 14 99 22 20 20 20 20 20 |ND'".c...." |
00001340: 20 20 20 20 20 20 20 20 32 31 31 30 30 54 24 3D | 21100T$=|
00001350: 27 41 44 52 45 53 53 45 4E 2D 42 45 53 54 41 4E |'ADRESSEN-BESTAN|
00001360: 44 27 22 00 8C 1B F0 14 99 22 32 30 31 31 30 52 |D'"......"20110R|
00001370: 4F 50 45 4E 54 24 20 20 20 20 20 20 20 49 20 32 |OPENT$ I 2|
00001380: 31 31 31 30 57 4F 50 45 4E 54 24 22 00 B6 1B FA |1110WOPENT$"....|
00001390: 14 99 22 32 30 31 32 30 49 4E 50 55 54 2F 54 4E |.."20120INPUT/TN|
000013A0: 20 20 20 20 20 20 49 20 32 31 31 32 30 50 52 49 | I 21120PRI|
000013B0: 4E 54 2F 54 4E 22 00 E1 1B 04 15 99 22 32 30 31 |NT/TN"......"201|
000013C0: 33 30 46 4F 52 49 3D 31 54 4F 4E 20 20 20 20 20 |30FORI=1TON |
000013D0: 49 20 32 31 31 33 30 46 4F 52 49 3D 31 54 4F 4E |I 21130FORI=1TON|
000013E0: 22 00 0E 1C 0E 15 99 22 32 30 31 34 30 46 4F 52 |"......"20140FOR|
000013F0: 4A 3D 30 54 4F 20 4E 4B 20 20 20 49 20 32 31 31 |J=0TO NK I 211|
00001400: 34 30 46 4F 52 4A 3D 30 54 4F 20 4E 4B 22 00 29 |40FORJ=0TO NK".)|
00001410: 1C 18 15 99 22 32 30 31 35 30 49 4E 50 55 54 2F |...."20150INPUT/|
00001420: 54 4E 24 28 49 2C 4A 29 22 00 51 1C 22 15 99 22 |TN$(I,J)".Q.".."|
00001430: 20 20 20 20 20 20 20 20 20 20 20 20 20 32 31 31 | 211|
00001440: 35 30 50 52 49 4E 54 2F 54 4E 24 28 49 2C 4A 29 |50PRINT/TN$(I,J)|
00001450: 22 00 7E 1C 2C 15 99 22 32 30 31 36 30 4E 45 58 |".~.,.."20160NEX|
00001460: 54 4A 3A 4E 45 58 54 49 20 20 20 49 20 32 31 31 |TJ:NEXTI I 211|
00001470: 36 30 4E 45 58 54 4A 3A 4E 45 58 54 49 22 00 AC |60NEXTJ:NEXTI"..|
00001480: 1C 36 15 99 22 32 30 31 37 30 43 4C 4F 53 45 3A |.6.."20170CLOSE:|
00001490: 52 45 54 55 52 4E 20 20 49 20 32 31 31 37 30 43 |RETURN I 21170C|
000014A0: 4C 4F 53 45 3A 52 45 54 55 52 4E 22 00 D6 1C 40 |LOSE:RETURN"...@|
000014B0: 15 99 3A 99 22 4E 55 4D 45 52 49 45 4B 20 4F 50 |..:."NUMERIEK OP|
000014C0: 53 4C 41 41 4E 3F 20 3A 20 4E 28 45 45 4E 29 22 |SLAAN? : N(EEN)"|
000014D0: 3A 8D 33 31 30 30 00 EB 1C 4A 15 8D 33 32 30 30 |:.3100...J..3200|
000014E0: 3A 8D 32 37 30 3A 89 34 30 30 30 00 13 1D 7C 15 |:.270:.4000...|.|
000014F0: 4E 33 24 B2 22 42 45 53 54 41 4E 44 45 4E 20 4F |N3$."BESTANDEN O|
00001500: 50 20 43 41 53 53 45 54 54 45 22 3A 8D 33 33 30 |P CASSETTE":.330|
00001510: 30 3A 99 00 3C 1D 86 15 99 22 49 4E 4C 45 5A 45 |0:..<...."INLEZE|
00001520: 4E 20 20 20 20 20 20 20 20 20 20 20 20 49 20 57 |N I W|
00001530: 45 47 53 43 48 52 49 4A 56 45 4E 22 00 48 1D 90 |EGSCHRIJVEN".H..|
00001540: 15 8D 33 31 30 30 3A 99 00 60 1D 9A 15 99 22 54 |..3100:..`...."T|
00001550: 52 53 2D 38 30 22 3A 99 22 2D 2D 2D 2D 2D 2D 22 |RS-80":."------"|
00001560: 00 8D 1D A4 15 99 22 32 30 31 30 30 20 49 4E 50 |......"20100 INP|
00001570: 55 54 23 2D 31 2C 4E 20 20 20 49 20 32 31 31 30 |UT#-1,N I 2110|
00001580: 30 20 50 52 49 4E 54 23 2D 31 2C 4E 22 00 B9 1D |0 PRINT#-1,N"...|
00001590: AE 15 99 22 32 30 31 31 30 20 46 4F 52 49 3D 31 |..."20110 FORI=1|
000015A0: 54 4F 4E 20 20 20 20 49 20 32 31 31 31 30 20 46 |TON I 21110 F|
000015B0: 4F 52 49 3D 31 54 4F 4E 22 00 E6 1D B8 15 99 22 |ORI=1TON"......"|
000015C0: 32 30 31 32 30 46 4F 52 4A 3D 30 54 4F 20 4E 4B |20120FORJ=0TO NK|
000015D0: 20 20 20 49 20 32 31 31 32 30 46 4F 52 4A 3D 30 | I 21120FORJ=0|
000015E0: 54 4F 20 4E 4B 22 00 04 1E C2 15 99 22 32 30 31 |TO NK"......"201|
000015F0: 33 30 20 49 4E 50 55 54 23 2D 31 2C 4E 24 28 49 |30 INPUT#-1,N$(I|
00001600: 2C 4A 29 22 00 33 1E CC 15 99 22 20 20 20 20 20 |,J)".3...." |
00001610: 20 20 20 20 20 20 20 20 20 20 20 20 32 31 31 33 | 2113|
00001620: 30 20 50 52 49 4E 54 23 2D 31 2C 4E 24 28 49 2C |0 PRINT#-1,N$(I,|
00001630: 4A 29 22 00 61 1E D6 15 99 22 32 30 31 34 30 20 |J)".a...."20140 |
00001640: 4E 45 58 54 4A 3A 4E 45 58 54 49 20 20 49 20 32 |NEXTJ:NEXTI I 2|
00001650: 31 31 34 30 20 4E 45 58 54 4A 3A 4E 45 58 54 49 |1140 NEXTJ:NEXTI|
00001660: 22 00 8A 1E E0 15 99 22 32 30 31 35 30 20 52 45 |"......"20150 RE|
00001670: 54 55 52 4E 20 20 20 20 20 20 20 49 20 32 31 31 |TURN I 211|
00001680: 35 30 20 52 45 54 55 52 4E 22 00 B4 1E EA 15 99 |50 RETURN"......|
00001690: 3A 99 22 4E 55 4D 45 52 49 45 4B 20 4F 50 53 4C |:."NUMERIEK OPSL|
000016A0: 41 41 4E 3F 20 3A 20 4E 28 45 45 4E 29 22 3A 8D |AAN? : N(EEN)":.|
000016B0: 33 31 30 30 00 C9 1E F4 15 8D 33 32 30 30 3A 8D |3100......3200:.|
000016C0: 32 37 30 3A 89 34 30 30 30 00 F1 1E 44 16 4E 33 |270:.4000...D.N3|
000016D0: 24 B2 22 42 45 53 54 41 4E 44 45 4E 20 4F 50 20 |$."BESTANDEN OP |
000016E0: 43 41 53 53 45 54 54 45 22 3A 8D 33 33 30 30 3A |CASSETTE":.3300:|
000016F0: 99 00 1A 1F 4E 16 99 22 49 4E 4C 45 5A 45 4E 20 |....N.."INLEZEN |
00001700: 20 20 20 20 20 20 20 20 20 20 20 49 20 57 45 47 | I WEG|
00001710: 53 43 48 52 49 4A 56 45 4E 22 00 24 1F 58 16 8D |SCHRIJVEN".$.X..|
00001720: 33 31 30 30 00 46 1F 62 16 99 22 50 45 54 2F 43 |3100.F.b.."PET/C|
00001730: 42 4D 2F 56 49 43 22 3A 99 22 2D 2D 2D 2D 2D 2D |BM/VIC":."------|
00001740: 2D 2D 2D 2D 2D 22 00 68 1F 6C 16 99 22 32 30 31 |-----".h.l.."201|
00001750: 30 30 54 24 3D 27 41 44 52 45 53 53 45 4E 2D 42 |00T$='ADRESSEN-B|
00001760: 45 53 54 41 4E 44 27 22 00 97 1F 76 16 99 22 20 |ESTAND'"...v.." |
00001770: 20 20 20 20 20 20 20 20 20 20 20 20 32 31 31 30 | 2110|
00001780: 30 54 24 3D 27 41 44 52 45 53 53 45 4E 2D 42 45 |0T$='ADRESSEN-BE|
00001790: 53 54 41 4E 44 27 22 00 C5 1F 80 16 99 22 32 30 |STAND'"......"20|
000017A0: 31 31 30 4F 50 45 4E 31 2C 31 2C 30 2C 54 24 20 |110OPEN1,1,0,T$ |
000017B0: 20 49 20 32 31 31 31 30 4F 50 45 4E 31 2C 31 2C | I 21110OPEN1,1,|
000017C0: 31 2C 54 24 22 00 F0 1F 8A 16 99 22 32 30 31 32 |1,T$"......"2012|
000017D0: 30 49 4E 50 55 54 23 31 2C 4E 20 20 20 20 20 49 |0INPUT#1,N I|
000017E0: 20 32 31 31 32 30 50 52 49 4E 54 23 31 2C 4E 22 | 21120PRINT#1,N"|
000017F0: 00 1B 20 94 16 99 22 32 30 31 33 30 46 4F 52 49 |.. ..."20130FORI|
00001800: 3D 31 54 4F 4E 20 20 20 20 20 49 20 32 31 31 33 |=1TON I 2113|
00001810: 30 46 4F 52 49 3D 31 54 4F 4E 22 00 48 20 9E 16 |0FORI=1TON".H ..|
00001820: 99 22 32 30 31 34 30 46 4F 52 4A 3D 30 54 4F 20 |."20140FORJ=0TO |
00001830: 4E 4B 20 20 20 49 20 32 31 31 34 30 46 4F 52 4A |NK I 21140FORJ|
00001840: 3D 30 54 4F 20 4E 4B 22 00 64 20 A8 16 99 22 32 |=0TO NK".d ..."2|
00001850: 30 31 35 30 49 4E 50 55 54 23 31 2C 4E 24 28 49 |0150INPUT#1,N$(I|
00001860: 2C 4A 29 22 00 93 20 B2 16 99 22 20 20 20 20 20 |,J)".. ..." |
00001870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 31 | 21|
00001880: 31 35 30 50 52 49 4E 54 23 31 2C 4E 24 28 49 2C |150PRINT#1,N$(I,|
00001890: 4A 29 22 00 C0 20 BC 16 99 22 32 30 31 36 30 4E |J)".. ..."20160N|
000018A0: 45 58 54 4A 3A 4E 45 58 54 49 20 20 20 49 20 32 |EXTJ:NEXTI I 2|
000018B0: 31 31 36 30 4E 45 58 54 4A 3A 4E 45 58 54 49 22 |1160NEXTJ:NEXTI"|
000018C0: 00 EE 20 C6 16 99 22 32 30 31 37 30 43 4C 4F 53 |.. ..."20170CLOS|
000018D0: 45 3A 52 45 54 55 52 4E 20 20 49 20 32 31 31 37 |E:RETURN I 2117|
000018E0: 30 43 4C 4F 53 45 3A 52 45 54 55 52 4E 22 00 18 |0CLOSE:RETURN"..|
000018F0: 21 D0 16 99 3A 99 22 4E 55 4D 45 52 49 45 4B 20 |!...:."NUMERIEK |
00001900: 4F 50 53 4C 41 41 4E 3F 20 3A 20 4E 28 45 45 4E |OPSLAAN? : N(EEN|
00001910: 29 22 3A 8D 33 31 30 30 00 2D 21 DA 16 8D 33 32 |)":.3100.-!...32|
00001920: 30 30 3A 8D 32 37 30 3A 89 34 30 30 30 00 55 21 |00:.270:.4000.U!|
00001930: 0C 17 4E 33 24 B2 22 42 45 53 54 41 4E 44 45 4E |..N3$."BESTANDEN|
00001940: 20 4F 50 20 43 41 53 53 45 54 54 45 22 3A 8D 33 | OP CASSETTE":.3|
00001950: 33 30 30 3A 99 00 85 21 16 17 99 22 56 4F 4F 52 |300:...!..."VOOR|
00001960: 3A 20 41 50 50 4C 45 2F 49 54 54 20 2D 20 45 58 |: APPLE/ITT - EX|
00001970: 2E 53 4F 52 43 45 52 45 52 20 2D 20 50 32 30 30 |.SORCERER - P200|
00001980: 30 54 22 3A 99 00 AF 21 20 17 99 22 4D 4F 45 54 |0T":...! .."MOET|
00001990: 45 4E 20 44 45 20 53 54 52 49 4E 47 2D 41 52 52 |EN DE STRING-ARR|
000019A0: 41 59 2D 56 41 52 27 53 20 45 45 52 53 54 22 00 |AY-VAR'S EERST".|
000019B0: DA 21 2A 17 99 22 57 4F 52 44 45 4E 20 47 45 43 |.!*.."WORDEN GEC|
000019C0: 4F 4E 56 45 52 54 45 45 52 44 20 4E 41 41 52 20 |ONVERTEERD NAAR |
000019D0: 4E 55 4D 45 52 49 45 4B 45 22 00 F0 21 34 17 99 |NUMERIEKE"..!4..|
000019E0: 22 41 52 52 41 59 2D 56 41 52 27 53 2E 22 3A 99 |"ARRAY-VAR'S.":.|
000019F0: 00 1D 22 3E 17 99 22 44 45 20 56 52 41 41 47 3A |..">.."DE VRAAG:|
00001A00: 20 4D 4F 45 54 20 55 20 45 45 4E 20 42 45 53 54 | MOET U EEN BEST|
00001A10: 41 4E 44 20 4E 55 4D 45 52 49 45 4B 22 00 4B 22 |AND NUMERIEK".K"|
00001A20: 48 17 99 22 4F 50 53 4C 41 41 4E 3F 20 4D 4F 45 |H.."OPSLAAN? MOE|
00001A30: 54 20 55 20 42 45 41 4E 54 57 4F 4F 52 44 45 4E |T U BEANTWOORDEN|
00001A40: 20 4D 45 54 20 27 4A 27 22 3A 99 00 79 22 52 17 | MET 'J'":..y"R.|
00001A50: 99 22 4E 4F 52 4D 41 41 4C 20 4B 4F 4D 54 20 54 |."NORMAAL KOMT T|
00001A60: 45 47 45 4E 4F 56 45 52 20 45 4C 4B 20 53 54 52 |EGENOVER ELK STR|
00001A70: 49 4E 47 2D 4B 41 52 2E 22 00 A2 22 5C 17 99 22 |ING-KAR.".."\.."|
00001A80: 45 45 4E 20 4E 55 4D 45 52 49 45 4B 20 4B 41 52 |EEN NUMERIEK KAR|
00001A90: 41 4B 54 45 52 20 54 45 20 53 54 41 41 4E 2E 22 |AKTER TE STAAN."|
00001AA0: 3A 99 00 D1 22 66 17 99 22 4D 45 54 20 44 45 20 |:..."f.."MET DE |
00001AB0: 56 4F 4C 47 45 4E 44 45 20 52 4F 55 54 49 4E 45 |VOLGENDE ROUTINE|
00001AC0: 53 20 57 4F 52 44 54 20 44 45 20 45 58 54 52 41 |S WORDT DE EXTRA|
00001AD0: 22 00 FE 22 70 17 99 22 47 45 48 45 55 47 45 4E |".."p.."GEHEUGEN|
00001AE0: 2D 52 55 49 4D 54 45 20 54 45 52 55 47 47 45 42 |-RUIMTE TERUGGEB|
00001AF0: 52 41 43 48 54 20 54 4F 54 20 43 41 2E 22 00 2A |RACHT TOT CA.".*|
00001B00: 23 7A 17 99 22 45 45 4E 44 45 52 44 45 20 50 45 |#z.."EENDERDE PE|
00001B10: 52 20 4B 45 4E 4D 45 52 4B 2C 20 54 45 52 57 49 |R KENMERK, TERWI|
00001B20: 4A 4C 20 42 4F 56 45 4E 2D 22 00 59 23 84 17 99 |JL BOVEN-".Y#...|
00001B30: 22 44 49 45 4E 20 53 4C 45 43 48 54 53 20 45 45 |"DIEN SLECHTS EE|
00001B40: 4E 20 4B 45 4E 4D 45 52 4B 20 41 4C 53 20 4E 55 |N KENMERK ALS NU|
00001B50: 4D 2E 41 52 52 41 59 2D 22 00 83 23 8E 17 99 22 |M.ARRAY-"..#..."|
00001B60: 56 41 52 27 53 20 49 4E 20 48 45 54 20 47 45 48 |VAR'S IN HET GEH|
00001B70: 45 55 47 45 4E 20 41 41 4E 57 45 5A 49 47 20 49 |EUGEN AANWEZIG I|
00001B80: 53 2E 22 00 93 23 98 17 8D 33 32 30 30 3A 8D 33 |S."..#...3200:.3|
00001B90: 33 30 30 00 BC 23 A2 17 99 22 20 41 50 50 4C 45 |300..#..." APPLE|
00001BA0: 2F 49 54 54 20 2D 20 45 58 2E 53 4F 52 43 45 52 |/ITT - EX.SORCER|
00001BB0: 45 52 20 2D 20 50 32 30 30 30 54 22 00 DC 23 AC |ER - P2000T"..#.|
00001BC0: 17 8D 33 31 30 30 3A 99 22 57 45 47 53 43 48 52 |..3100:."WEGSCHR|
00001BD0: 49 4A 56 45 4E 22 3A 8D 33 31 30 30 00 F7 23 B6 |IJVEN":.3100..#.|
00001BE0: 17 99 22 32 31 31 30 30 20 46 4F 52 20 4A 3D 30 |.."21100 FOR J=0|
00001BF0: 20 54 4F 20 4E 4B 22 00 1C 24 C0 17 99 22 32 31 | TO NK"..$..."21|
00001C00: 31 31 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 4E |110 FOR I=1 TO N|
00001C10: 3A 5A 24 3D 4E 24 28 49 2C 4A 29 22 00 33 24 CA |:Z$=N$(I,J)".3$.|
00001C20: 17 99 22 32 31 31 32 30 20 4C 3D 4C 45 4E 28 5A |.."21120 L=LEN(Z|
00001C30: 24 29 22 00 5F 24 D4 17 99 22 32 31 31 33 30 20 |$)"._$..."21130 |
00001C40: 49 46 28 4C 2D 33 2A 49 4E 54 28 4C 2F 33 29 29 |IF(L-3*INT(L/3))|
00001C50: 3C 3E 30 20 54 48 45 4E 20 32 31 33 30 30 22 00 |<>0 THEN 21300".|
00001C60: 7B 24 DE 17 99 22 32 31 31 34 30 20 41 28 49 2C |{$..."21140 A(I,|
00001C70: 30 29 3D 4C 2F 33 3A 4D 3D 30 22 00 9C 24 E8 17 |0)=L/3:M=0"..$..|
00001C80: 99 22 32 31 31 35 30 20 46 4F 52 20 4B 3D 31 20 |."21150 FOR K=1 |
00001C90: 54 4F 20 4C 20 53 54 45 50 20 33 22 00 BE 24 F2 |TO L STEP 3"..$.|
00001CA0: 17 99 22 32 31 31 36 30 20 41 31 3D 41 53 43 28 |.."21160 A1=ASC(|
00001CB0: 4D 49 44 24 28 5A 24 2C 4B 2C 31 29 29 22 00 E2 |MID$(Z$,K,1))"..|
00001CC0: 24 FC 17 99 22 32 31 31 37 30 20 53 52 3D 41 31 |$..."21170 SR=A1|
00001CD0: 3A 47 4F 53 55 42 33 30 30 3A 41 31 24 3D 53 52 |:GOSUB300:A1$=SR|
00001CE0: 24 22 00 06 25 06 18 99 22 32 31 31 38 30 20 41 |$"..%..."21180 A|
00001CF0: 32 3D 41 53 43 28 4D 49 44 24 28 5A 24 2C 4B 2B |2=ASC(MID$(Z$,K+|
00001D00: 31 2C 31 29 29 22 00 2A 25 10 18 99 22 32 31 31 |1,1))".*%..."211|
00001D10: 39 30 20 53 52 3D 41 32 3A 47 4F 53 55 42 33 30 |90 SR=A2:GOSUB30|
00001D20: 30 3A 41 32 24 3D 53 52 24 22 00 4E 25 1A 18 99 |0:A2$=SR$".N%...|
00001D30: 22 32 31 32 30 30 20 41 33 3D 41 53 43 28 4D 49 |"21200 A3=ASC(MI|
00001D40: 44 24 28 5A 24 2C 4B 2B 32 2C 31 29 29 22 00 72 |D$(Z$,K+2,1))".r|
00001D50: 25 24 18 99 22 32 31 32 31 30 20 53 52 3D 41 33 |%$.."21210 SR=A3|
00001D60: 3A 47 4F 53 55 42 33 30 30 3A 41 33 24 3D 53 52 |:GOSUB300:A3$=SR|
00001D70: 24 22 00 9D 25 2E 18 99 22 32 31 32 32 30 20 4D |$"..%..."21220 M|
00001D80: 3D 4D 2B 31 3A 41 28 49 2C 4D 29 3D 56 41 4C 28 |=M+1:A(I,M)=VAL(|
00001D90: 41 31 24 2B 41 32 24 2B 41 33 24 29 22 00 CA 25 |A1$+A2$+A3$)"..%|
00001DA0: 38 18 99 22 32 31 32 33 30 20 3F 49 3B 27 20 27 |8.."21230 ?I;' '|
00001DB0: 3B 5A 24 3B 27 20 27 3B 41 28 49 2C 30 29 3B 27 |;Z$;' ';A(I,0);'|
00001DC0: 20 27 3B 41 28 49 2C 4D 29 22 00 DC 25 42 18 8D | ';A(I,M)"..%B..|
00001DD0: 33 32 30 30 3A 8D 33 33 30 30 3A 99 00 FC 25 4C |3200:.3300:...%L|
00001DE0: 18 8D 33 31 30 30 3A 99 22 57 45 47 53 43 48 52 |..3100:."WEGSCHR|
00001DF0: 49 4A 56 45 4E 22 3A 8D 33 31 30 30 00 1E 26 56 |IJVEN":.3100..&V|
00001E00: 18 99 22 32 31 32 34 30 20 4E 45 58 54 4B 3A 4E |.."21240 NEXTK:N|
00001E10: 45 58 54 49 3A 41 28 30 2C 30 29 3D 4E 22 00 47 |EXTI:A(0,0)=N".G|
00001E20: 26 60 18 99 22 32 31 32 35 30 20 28 5A 49 45 20 |&`.."21250 (ZIE |
00001E30: 4D 41 43 48 49 4E 45 2D 41 46 48 2E 20 52 4F 55 |MACHINE-AFH. ROU|
00001E40: 54 49 4E 45 53 29 22 00 5A 26 6A 18 99 22 32 31 |TINES)".Z&j.."21|
00001E50: 32 36 30 20 4E 45 58 54 4A 22 00 84 26 74 18 99 |260 NEXTJ"..&t..|
00001E60: 22 32 31 32 37 30 20 3F 3A 3F 27 53 54 4F 50 20 |"21270 ?:?'STOP |
00001E70: 52 45 43 4F 52 44 45 52 21 27 3A 47 4F 53 55 42 |RECORDER!':GOSUB|
00001E80: 32 35 30 22 00 AB 26 7E 18 99 22 32 31 32 38 30 |250"..&~.."21280|
00001E90: 20 47 4F 53 55 42 33 32 30 30 3A 47 4F 53 55 42 | GOSUB3200:GOSUB|
00001EA0: 32 37 30 3A 52 45 54 55 52 4E 22 00 CF 26 88 18 |270:RETURN"..&..|
00001EB0: 99 22 32 31 33 30 30 20 5A 24 3D 5A 24 2B 27 20 |."21300 Z$=Z$+' |
00001EC0: 27 3A 47 4F 54 4F 20 32 31 31 32 30 22 3A 99 00 |':GOTO 21120":..|
00001ED0: EA 26 92 18 8D 33 31 30 30 3A 99 22 49 4E 4C 45 |.&...3100:."INLE|
00001EE0: 5A 45 4E 22 3A 8D 33 31 30 30 00 07 27 9C 18 99 |ZEN":.3100..'...|
00001EF0: 22 32 30 31 30 30 20 46 4F 52 20 4A 3D 30 20 54 |"20100 FOR J=0 T|
00001F00: 4F 20 4E 4B 3A 3F 22 00 30 27 A6 18 99 22 32 30 |O NK:?".0'..."20|
00001F10: 31 31 30 20 28 5A 49 45 20 4D 41 43 48 49 4E 45 |110 (ZIE MACHINE|
00001F20: 2D 41 46 48 2E 20 52 4F 55 54 49 4E 45 53 29 22 |-AFH. ROUTINES)"|
00001F30: 00 46 27 B0 18 99 22 32 30 31 32 30 20 4E 3D 41 |.F'..."20120 N=A|
00001F40: 28 30 2C 30 29 22 00 6D 27 BA 18 99 22 32 30 31 |(0,0)".m'..."201|
00001F50: 33 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 4E 3A |30 FOR I=1 TO N:|
00001F60: 5A 24 3D 27 27 20 28 4C 45 45 47 29 22 00 7F 27 |Z$='' (LEEG)"..'|
00001F70: C4 18 8D 33 32 30 30 3A 8D 33 33 30 30 3A 99 00 |...3200:.3300:..|
00001F80: 9A 27 CE 18 8D 33 31 30 30 3A 99 22 49 4E 4C 45 |.'...3100:."INLE|
00001F90: 5A 45 4E 22 3A 8D 33 31 30 30 00 B9 27 D8 18 99 |ZEN":.3100..'...|
00001FA0: 22 32 30 31 34 30 20 46 4F 52 20 4D 3D 31 20 54 |"20140 FOR M=1 T|
00001FB0: 4F 20 41 28 49 2C 30 29 22 00 D9 27 E2 18 99 22 |O A(I,0)"..'..."|
00001FC0: 32 30 31 35 30 20 53 52 3D 41 28 49 2C 4D 29 3A |20150 SR=A(I,M):|
00001FD0: 47 4F 53 55 42 33 30 30 22 00 FC 27 EC 18 99 22 |GOSUB300"..'..."|
00001FE0: 32 30 31 36 30 20 41 31 3D 56 41 4C 28 4D 49 44 |20160 A1=VAL(MID|
00001FF0: 24 28 53 52 24 2C 31 2C 32 29 29 22 00 1F 28 F6 |$(SR$,1,2))"..(.|
00002000: 18 99 22 32 30 31 37 30 20 41 32 3D 56 41 4C 28 |.."20170 A2=VAL(|
00002010: 4D 49 44 24 28 53 52 24 2C 33 2C 32 29 29 22 00 |MID$(SR$,3,2))".|
00002020: 42 28 00 19 99 22 32 30 31 38 30 20 41 33 3D 56 |B(..."20180 A3=V|
00002030: 41 4C 28 4D 49 44 24 28 53 52 24 2C 35 2C 32 29 |AL(MID$(SR$,5,2)|
00002040: 29 22 00 70 28 0A 19 99 22 32 30 31 39 30 20 5A |)".p(..."20190 Z|
00002050: 24 3D 5A 24 2B 43 48 52 24 28 41 31 29 2B 43 48 |$=Z$+CHR$(A1)+CH|
00002060: 52 24 28 41 32 29 2B 43 48 52 24 28 41 33 29 22 |R$(A2)+CHR$(A3)"|
00002070: 00 9D 28 14 19 99 22 32 30 32 30 30 20 3F 49 3B |..(..."20200 ?I;|
00002080: 27 20 27 3B 5A 24 3B 27 20 27 3B 41 28 49 2C 30 |' ';Z$;' ';A(I,0|
00002090: 29 3B 27 20 27 3B 41 28 49 2C 4D 29 22 00 B0 28 |);' ';A(I,M)"..(|
000020A0: 1E 19 99 22 32 30 32 31 30 20 4E 45 58 54 4D 22 |..."20210 NEXTM"|
000020B0: 00 DB 28 28 19 99 22 32 30 32 32 30 20 49 46 52 |..((.."20220 IFR|
000020C0: 49 47 48 54 24 28 5A 24 2C 31 29 3D 27 20 27 20 |IGHT$(Z$,1)=' ' |
000020D0: 54 48 45 4E 20 32 30 33 30 30 22 00 FF 28 32 19 |THEN 20300"..(2.|
000020E0: 99 22 32 30 32 33 30 20 4E 24 28 49 2C 4A 29 3D |."20230 N$(I,J)=|
000020F0: 5A 24 3A 4E 45 58 54 49 3A 4E 45 58 54 4A 22 00 |Z$:NEXTI:NEXTJ".|
00002100: 29 29 3C 19 99 22 32 30 32 34 30 20 3F 3A 3F 27 |))<.."20240 ?:?'|
00002110: 53 54 4F 50 20 52 45 43 4F 52 44 45 52 21 27 3A |STOP RECORDER!':|
00002120: 47 4F 53 55 42 32 35 30 22 00 50 29 46 19 99 22 |GOSUB250".P)F.."|
00002130: 32 30 32 35 30 20 47 4F 53 55 42 33 32 30 30 3A |20250 GOSUB3200:|
00002140: 47 4F 53 55 42 32 37 30 3A 52 45 54 55 52 4E 22 |GOSUB270:RETURN"|
00002150: 00 74 29 50 19 99 22 32 30 33 30 30 20 5A 24 3D |.t)P.."20300 Z$=|
00002160: 4C 45 46 54 24 28 5A 24 2C 4C 45 4E 28 5A 24 29 |LEFT$(Z$,LEN(Z$)|
00002170: 2D 31 29 22 00 8B 29 5A 19 99 22 32 30 33 31 30 |-1)"..)Z.."20310|
00002180: 20 47 4F 54 4F 32 30 32 32 30 22 00 9D 29 64 19 | GOTO20220"..)d.|
00002190: 8D 33 32 30 30 3A 8D 33 33 30 30 3A 99 00 C8 29 |.3200:.3300:...)|
000021A0: 6E 19 99 22 4D 41 43 48 49 4E 45 2D 41 46 48 41 |n.."MACHINE-AFHA|
000021B0: 4E 4B 45 4C 49 4A 4B 45 20 52 4F 55 54 49 4E 45 |NKELIJKE ROUTINE|
000021C0: 53 22 3A 8D 33 31 30 30 00 F6 29 78 19 99 22 49 |S":.3100..)x.."I|
000021D0: 4E 4C 45 5A 45 4E 20 28 32 30 31 31 30 29 20 20 |NLEZEN (20110) |
000021E0: 20 57 45 47 53 43 48 52 49 4A 56 45 4E 20 28 32 | WEGSCHRIJVEN (2|
000021F0: 31 32 35 30 29 22 00 00 2A 82 19 8D 33 31 30 30 |1250)"..*...3100|
00002200: 00 1E 2A 8C 19 99 22 41 50 50 4C 45 2F 49 54 54 |..*..."APPLE/ITT|
00002210: 22 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 3F |":."---------".?|
00002220: 2A 96 19 99 22 52 45 43 41 4C 4C 20 41 20 20 20 |*..."RECALL A |
00002230: 20 20 20 20 20 20 20 53 54 4F 52 45 20 41 22 00 | STORE A".|
00002240: 59 2A A0 19 99 3A 99 22 50 32 30 30 30 54 22 3A |Y*...:."P2000T":|
00002250: 99 22 2D 2D 2D 2D 2D 2D 22 00 75 2A AA 19 99 22 |."------".u*..."|
00002260: 43 4C 4F 41 44 2A 41 40 28 43 48 52 24 28 36 35 |CLOAD*A@(CHR$(65|
00002270: 2B 4A 29 29 22 00 A3 2A B4 19 99 22 20 20 20 20 |+J))"..*..." |
00002280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 53 | CS|
00002290: 41 56 45 2A 41 40 28 43 48 52 24 28 36 35 2B 4A |AVE*A@(CHR$(65+J|
000022A0: 29 29 22 00 CB 2A BE 19 99 22 45 58 49 44 59 20 |))"..*..."EXIDY |
000022B0: 53 4F 52 43 45 52 45 52 22 3A 99 22 2D 2D 2D 2D |SORCERER":."----|
000022C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 F5 2A C8 19 |----------"..*..|
000022D0: 99 22 32 30 31 30 35 20 47 4F 53 55 42 32 31 34 |."20105 GOSUB214|
000022E0: 30 30 20 20 32 31 32 34 35 20 47 4F 53 55 42 32 |00 21245 GOSUB2|
000022F0: 31 34 30 30 22 00 1D 2B D2 19 99 22 32 30 31 31 |1400"..+..."2011|
00002300: 30 20 43 4C 4F 41 44 2A 31 41 20 20 20 20 32 31 |0 CLOAD*1A 21|
00002310: 32 35 30 20 43 53 41 56 45 2A 31 41 22 00 47 2B |250 CSAVE*1A".G+|
00002320: DC 19 99 22 32 30 31 31 35 20 47 4F 53 55 42 32 |..."20115 GOSUB2|
00002330: 31 35 30 30 20 20 32 31 32 35 35 20 47 4F 53 55 |1500 21255 GOSU|
00002340: 42 32 31 35 30 30 22 00 59 2B E6 19 8D 33 32 30 |B21500".Y+...320|
00002350: 30 3A 8D 33 33 30 30 3A 99 00 89 2B F0 19 99 22 |0:.3300:...+..."|
00002360: 56 4F 4F 52 20 45 58 49 44 59 20 53 4F 52 43 45 |VOOR EXIDY SORCE|
00002370: 52 45 52 20 54 4F 45 20 54 45 20 56 4F 45 47 45 |RER TOE TE VOEGE|
00002380: 4E 3A 22 3A 8D 33 31 30 30 00 AF 2B FA 19 99 22 |N:":.3100..+..."|
00002390: 32 31 34 30 30 20 52 45 4D 20 42 41 55 44 52 41 |21400 REM BAUDRA|
000023A0: 54 45 20 31 32 30 30 20 2D 3E 20 33 30 30 22 00 |TE 1200 -> 300".|
000023B0: DB 2B 04 1A 99 22 32 31 34 31 30 20 42 52 3D 32 |.+..."21410 BR=2|
000023C0: 35 36 2A 50 45 45 4B 28 2D 34 30 39 35 29 2B 50 |56*PEEK(-4095)+P|
000023D0: 45 45 4B 28 2D 34 30 39 36 29 22 00 05 2C 0E 1A |EEK(-4096)"..,..|
000023E0: 99 22 32 31 34 32 30 20 49 46 20 42 52 3E 33 32 |."21420 IF BR>32|
000023F0: 37 36 37 20 54 48 45 4E 20 42 52 3D 42 52 2D 36 |767 THEN BR=BR-6|
00002400: 35 35 33 36 22 00 1F 2C 18 1A 99 22 32 31 34 33 |5536"..,..."2143|
00002410: 30 20 50 4F 4B 45 20 42 52 2D 34 39 2C 30 22 00 |0 POKE BR-49,0".|
00002420: 35 2C 22 1A 99 22 32 31 34 34 30 20 52 45 54 55 |5,".."21440 RETU|
00002430: 52 4E 22 3A 99 00 5B 2C 2C 1A 99 22 32 31 35 30 |RN":..[,,.."2150|
00002440: 30 20 52 45 4D 20 42 41 55 44 52 41 54 45 20 33 |0 REM BAUDRATE 3|
00002450: 30 30 20 2D 3E 20 31 32 30 30 22 00 87 2C 36 1A |00 -> 1200"..,6.|
00002460: 99 22 32 31 35 31 30 20 42 52 3D 32 35 36 2A 50 |."21510 BR=256*P|
00002470: 45 45 4B 28 2D 34 30 39 35 29 2B 50 45 45 4B 28 |EEK(-4095)+PEEK(|
00002480: 2D 34 30 39 36 29 22 00 B0 2C 40 1A 99 22 32 31 |-4096)"..,@.."21|
00002490: 35 32 30 20 49 46 42 52 3E 33 32 37 36 37 20 54 |520 IFBR>32767 T|
000024A0: 48 45 4E 20 42 52 3D 42 52 2D 36 35 35 33 36 22 |HEN BR=BR-65536"|
000024B0: 00 CB 2C 4A 1A 99 22 32 31 35 33 30 20 50 4F 4B |..,J.."21530 POK|
000024C0: 45 20 42 52 2D 34 39 2C 36 34 22 00 E5 2C 54 1A |E BR-49,64"..,T.|
000024D0: 99 22 32 31 35 34 30 20 52 45 54 55 52 4E 22 3A |."21540 RETURN":|
000024E0: 8D 33 31 30 30 00 FA 2C 5E 1A 8D 33 32 30 30 3A |.3100..,^..3200:|
000024F0: 8D 32 37 30 3A 89 34 30 30 30 00 2A 2D 90 1A 4E |.270:.4000.*-..N|
00002500: 33 24 B2 22 42 45 52 45 4B 45 4E 49 4E 47 20 56 |3$."BEREKENING V|
00002510: 41 4E 20 27 41 27 20 49 4E 20 27 43 4C 45 41 52 |AN 'A' IN 'CLEAR|
00002520: 20 41 27 22 3A 8D 33 33 30 30 00 58 2D 9A 1A 99 | A'":.3300.X-...|
00002530: 22 44 49 54 20 47 45 4C 44 54 20 56 4F 4F 52 20 |"DIT GELDT VOOR |
00002540: 43 4F 4D 50 55 54 45 52 53 20 57 41 41 52 20 4F |COMPUTERS WAAR O|
00002550: 50 20 52 45 47 45 4C 22 00 7D 2D A4 1A 99 22 32 |P REGEL".}-..."2|
00002560: 30 20 43 4C 45 41 52 20 41 3A 47 4F 54 4F 20 31 |0 CLEAR A:GOTO 1|
00002570: 30 31 30 20 53 54 41 41 54 2E 22 3A 99 00 AB 2D |010 STAAT.":...-|
00002580: AE 1A 99 22 54 4F 54 20 52 45 47 45 4C 20 34 30 |..."TOT REGEL 40|
00002590: 30 30 20 5A 49 4A 4E 20 44 45 20 50 52 4F 47 52 |00 ZIJN DE PROGR|
000025A0: 2E 27 53 20 32 20 45 4E 20 33 22 00 C9 2D B8 1A |.'S 2 EN 3"..-..|
000025B0: 99 22 49 44 45 4E 54 49 45 4B 20 56 41 4E 20 4F |."IDENTIEK VAN O|
000025C0: 50 42 4F 55 57 2E 22 3A 99 00 ED 2D C2 1A 99 22 |PBOUW.":...-..."|
000025D0: 52 45 47 45 4C 20 31 30 30 30 3A 20 47 4F 53 55 |REGEL 1000: GOSU|
000025E0: 42 33 35 30 30 3A 47 4F 54 4F 32 30 22 00 19 2E |B3500:GOTO20"...|
000025F0: CC 1A 99 22 52 45 47 45 4C 20 33 35 30 30 20 45 |..."REGEL 3500 E|
00002600: 56 3A 20 48 45 42 54 20 55 20 44 45 20 54 4F 45 |V: HEBT U DE TOE|
00002610: 4C 49 43 48 54 49 4E 47 22 00 2A 2E D6 1A 99 22 |LICHTING".*...."|
00002620: 20 47 45 4C 45 5A 45 4E 3F 22 00 54 2E E0 1A 99 | GELEZEN?".T....|
00002630: 22 52 45 47 45 4C 20 33 36 30 30 20 45 56 3A 20 |"REGEL 3600 EV: |
00002640: 4D 4F 45 54 20 55 20 45 45 4E 20 42 45 53 54 41 |MOET U EEN BESTA|
00002650: 4E 44 20 22 00 6E 2E EA 1A 99 22 20 4E 55 4D 45 |ND ".n...." NUME|
00002660: 52 49 45 4B 20 4F 50 53 4C 41 41 4E 3F 22 00 9D |RIEK OPSLAAN?"..|
00002670: 2E F4 1A 99 22 20 41 4C 53 20 47 45 56 4F 4C 47 |...." ALS GEVOLG|
00002680: 20 48 49 45 52 56 41 4E 20 57 4F 52 44 54 20 44 | HIERVAN WORDT D|
00002690: 45 20 56 41 52 2E 52 55 49 4D 54 45 22 00 CB 2E |E VAR.RUIMTE"...|
000026A0: FE 1A 99 22 20 45 56 54 2E 47 52 4F 54 45 52 20 |..." EVT.GROTER |
000026B0: 47 45 4D 41 41 4B 54 20 45 4E 20 57 4F 52 44 54 |GEMAAKT EN WORDT|
000026C0: 20 4C 41 54 45 52 20 45 45 4E 22 00 EB 2E 08 1B | LATER EEN".....|
000026D0: 99 22 20 44 49 4D 20 41 28 4E 52 2C 37 29 20 41 |." DIM A(NR,7) A|
000026E0: 41 4E 47 45 4D 41 41 4B 54 2E 22 00 18 2F 12 1B |ANGEMAAKT."../..|
000026F0: 99 22 52 45 47 45 4C 20 33 37 30 30 20 45 56 3A |."REGEL 3700 EV:|
00002700: 20 42 45 52 45 4B 45 4E 49 4E 47 20 56 41 52 2E | BEREKENING VAR.|
00002710: 52 55 49 4D 54 45 3A 22 00 45 2F 1C 1B 99 22 20 |RUIMTE:".E/..." |
00002720: 33 37 31 30 20 55 49 54 4C 45 5A 45 4E 20 56 41 |3710 UITLEZEN VA|
00002730: 4E 20 44 41 54 41 2D 52 45 47 45 4C 20 28 32 35 |N DATA-REGEL (25|
00002740: 30 30 30 29 22 00 65 2F 26 1B 99 22 20 33 37 32 |000)".e/&.." 372|
00002750: 30 20 41 3D 28 38 31 2B 28 4E 4B 2B 31 29 2A 33 |0 A=(81+(NK+1)*3|
00002760: 29 2A 4E 52 22 00 8D 2F 30 1B 99 22 20 44 41 54 |)*NR"../0.." DAT|
00002770: 20 49 53 20 56 4F 4F 52 20 53 54 52 49 4E 47 2D | IS VOOR STRING-|
00002780: 41 52 52 41 59 2D 56 41 52 27 53 2E 22 00 9F 2F |ARRAY-VAR'S."../|
00002790: 3A 1B 8D 33 32 30 30 3A 8D 33 33 30 30 3A 99 00 |:..3200:.3300:..|
000027A0: CA 2F 44 1B 99 22 20 33 37 33 30 20 49 46 20 43 |./D.." 3730 IF C|
000027B0: 52 3D 31 20 54 48 45 4E 20 41 3D 41 2B 28 37 2B |R=1 THEN A=A+(7+|
000027C0: 31 29 2A 28 34 29 2A 4E 52 22 00 F8 2F 4E 1B 99 |1)*(4)*NR"../N..|
000027D0: 22 44 41 54 20 49 53 20 56 4F 4F 52 20 44 45 20 |"DAT IS VOOR DE |
000027E0: 4E 55 4D 2E 41 52 52 41 59 2D 56 41 52 27 53 20 |NUM.ARRAY-VAR'S |
000027F0: 56 41 4E 20 45 45 4E 22 00 1A 30 58 1B 99 22 4B |VAN EEN"..0X.."K|
00002800: 45 4E 4D 45 52 4B 2C 20 41 4C 53 20 44 41 54 20 |ENMERK, ALS DAT |
00002810: 4E 4F 44 49 47 20 49 53 2E 22 00 2F 30 62 1B 99 |NODIG IS."./0b..|
00002820: 22 20 33 37 34 30 20 41 3D 41 2B 31 30 30 22 00 |" 3740 A=A+100".|
00002830: 4F 30 6C 1B 99 22 44 41 54 20 49 53 20 56 4F 4F |O0l.."DAT IS VOO|
00002840: 52 20 44 45 20 54 49 54 45 4C 53 2E 22 3A 99 00 |R DE TITELS.":..|
00002850: 7E 30 76 1B 99 22 48 45 54 20 47 45 54 41 4C 20 |~0v.."HET GETAL |
00002860: 28 34 29 20 4F 50 20 52 45 47 45 4C 20 33 37 33 |(4) OP REGEL 373|
00002870: 30 20 49 53 20 48 45 54 20 41 41 4E 2D 22 00 AA |0 IS HET AAN-"..|
00002880: 30 80 1B 99 22 54 41 4C 20 42 59 54 45 53 20 44 |0..."TAL BYTES D|
00002890: 41 54 20 45 45 4E 20 4E 55 4D 2E 41 52 52 41 59 |AT EEN NUM.ARRAY|
000028A0: 2D 56 41 52 2E 20 49 4E 2D 22 00 C6 30 8A 1B 99 |-VAR. IN-"..0...|
000028B0: 22 4E 45 45 4D 54 20 42 49 4A 20 44 45 20 50 32 |"NEEMT BIJ DE P2|
000028C0: 30 30 30 54 2E 22 00 F4 30 94 1B 99 22 5A 49 45 |000T."..0..."ZIE|
000028D0: 20 55 57 20 49 4E 53 54 52 55 43 54 49 45 42 4F | UW INSTRUCTIEBO|
000028E0: 45 4B 20 4F 46 20 44 41 54 20 42 49 4A 20 55 20 |EK OF DAT BIJ U |
000028F0: 4F 4F 4B 22 00 0D 31 9E 1B 99 22 48 45 54 20 47 |OOK"..1..."HET G|
00002900: 45 56 41 4C 20 49 53 21 22 3A 99 3A 99 00 3C 31 |EVAL IS!":.:..<1|
00002910: A8 1B 99 22 49 4E 20 50 52 4F 47 52 2E 33 20 57 |..."IN PROGR.3 W|
00002920: 4F 52 44 54 20 44 45 20 56 41 52 2E 52 55 49 4D |ORDT DE VAR.RUIM|
00002930: 54 45 20 4E 4F 47 20 56 45 52 2D 22 00 66 31 B2 |TE NOG VER-".f1.|
00002940: 1B 99 22 47 52 4F 4F 54 20 56 4F 4F 52 20 44 45 |.."GROOT VOOR DE|
00002950: 20 53 4F 52 54 45 45 52 2D 41 52 52 41 59 2D 56 | SORTEER-ARRAY-V|
00002960: 41 52 27 53 3A 22 00 85 31 BC 1B 99 22 20 33 37 |AR'S:"..1..." 37|
00002970: 34 30 20 41 3D 41 2B 28 33 31 2B 33 2B 28 34 29 |40 A=A+(31+3+(4)|
00002980: 29 2A 4E 52 22 00 AF 31 C6 1B 99 22 20 33 37 35 |)*NR"..1..." 375|
00002990: 30 20 41 3D 41 2B 35 30 20 2D 20 44 41 54 20 49 |0 A=A+50 - DAT I|
000029A0: 53 20 56 4F 4F 52 20 44 45 20 53 50 49 4C 22 00 |S VOOR DE SPIL".|
000029B0: C1 31 D0 1B 8D 33 32 30 30 3A 8D 33 33 30 30 3A |.1...3200:.3300:|
000029C0: 99 00 ED 31 DA 1B 99 22 41 4C 53 20 47 45 56 4F |...1..."ALS GEVO|
000029D0: 4C 47 20 56 41 4E 20 27 43 4C 45 41 52 20 41 27 |LG VAN 'CLEAR A'|
000029E0: 20 4F 50 20 52 45 47 45 4C 20 32 30 22 00 19 32 | OP REGEL 20"..2|
000029F0: E4 1B 99 22 57 4F 52 44 45 4E 20 44 45 20 56 41 |..."WORDEN DE VA|
00002A00: 52 49 41 42 45 4C 45 4E 20 4F 50 20 27 30 27 20 |RIABELEN OP '0' |
00002A10: 47 45 5A 45 54 20 4F 46 22 00 32 32 EE 1B 99 22 |GEZET OF".22..."|
00002A20: 27 4C 45 45 47 27 20 47 45 4D 41 41 4B 54 2E 22 |'LEEG' GEMAAKT."|
00002A30: 3A 99 00 5E 32 F8 1B 99 22 55 20 4D 4F 45 54 20 |:..^2..."U MOET |
00002A40: 44 41 41 52 4F 4D 20 44 45 20 56 52 41 41 47 20 |DAAROM DE VRAAG |
00002A50: 4F 50 20 52 45 47 45 4C 20 33 36 30 30 22 00 8C |OP REGEL 3600"..|
00002A60: 32 02 1C 99 22 4E 4F 47 20 45 45 4E 53 20 42 45 |2..."NOG EENS BE|
00002A70: 41 4E 54 57 4F 4F 52 44 45 4E 20 56 4F 4F 52 52 |ANTWOORDEN VOORR|
00002A80: 48 45 54 20 49 4E 53 54 45 4C 2D 22 00 B0 32 0C |HET INSTEL-"..2.|
00002A90: 1C 99 22 4C 45 4E 20 56 41 4E 20 44 45 20 44 49 |.."LEN VAN DE DI|
00002AA0: 4D 2D 53 54 41 54 45 4D 45 4E 54 53 2E 22 3A 99 |M-STATEMENTS.":.|
00002AB0: 00 DD 32 16 1C 99 22 44 41 54 20 47 45 4C 44 54 |..2..."DAT GELDT|
00002AC0: 20 4E 49 45 54 20 56 4F 4F 52 20 43 4F 4D 50 55 | NIET VOOR COMPU|
00002AD0: 54 45 52 53 20 57 41 41 52 20 4F 50 22 00 FE 32 |TERS WAAR OP"..2|
00002AE0: 20 1C 99 22 52 45 47 45 4C 20 32 30 20 47 4F 54 | .."REGEL 20 GOT|
00002AF0: 4F 20 31 30 31 30 20 53 54 41 41 54 2E 22 00 2D |O 1010 STAAT.".-|
00002B00: 33 2A 1C 99 22 44 45 20 56 41 52 49 41 42 45 4C |3*.."DE VARIABEL|
00002B10: 45 4E 20 41 2C 20 4E 52 20 45 4E 20 4E 4B 20 42 |EN A, NR EN NK B|
00002B20: 45 48 4F 55 44 45 4E 20 48 49 45 52 22 00 40 33 |EHOUDEN HIER".@3|
00002B30: 34 1C 99 22 48 55 4E 20 57 41 41 52 44 45 2E 22 |4.."HUN WAARDE."|
00002B40: 00 55 33 3E 1C 8D 33 32 30 30 3A 8D 32 37 30 3A |.U3>..3200:.270:|
00002B50: 89 34 30 30 30 00 75 33 4C 1D 4E 33 24 B2 22 54 |.4000.u3L.N3$."T|
00002B60: 45 4E 53 4C 4F 54 54 45 20 2E 2E 2E 22 3A 8D 33 |ENSLOTTE ...":.3|
00002B70: 33 30 30 3A 99 00 A4 33 56 1D 99 22 50 52 4F 47 |300:...3V.."PROG|
00002B80: 52 2E 33 20 56 4F 4F 52 5A 49 45 54 20 54 45 56 |R.3 VOORZIET TEV|
00002B90: 45 4E 53 20 49 4E 20 44 45 20 4D 4F 47 45 4C 49 |ENS IN DE MOGELI|
00002BA0: 4A 4B 2D 22 00 CE 33 60 1D 99 22 48 45 49 44 20 |JK-"..3`.."HEID |
00002BB0: 4F 4D 20 45 45 4E 20 50 52 49 4E 54 20 54 45 20 |OM EEN PRINT TE |
00002BC0: 4D 41 4B 45 4E 20 4D 45 54 20 45 45 4E 22 00 E0 |MAKEN MET EEN"..|
00002BD0: 33 6A 1D 99 22 50 52 49 4E 54 45 52 2E 22 3A 99 |3j.."PRINTER.":.|
00002BE0: 00 0D 34 74 1D 99 22 44 45 20 52 45 47 45 4C 53 |..4t.."DE REGELS|
00002BF0: 20 57 4F 52 44 45 4E 20 49 4E 20 48 55 4E 20 47 | WORDEN IN HUN G|
00002C00: 45 48 45 45 4C 20 41 41 4E 47 45 2D 22 00 2B 34 |EHEEL AANGE-".+4|
00002C10: 7E 1D 99 22 4D 41 41 4B 54 20 49 4E 20 44 45 20 |~.."MAAKT IN DE |
00002C20: 53 54 52 49 4E 47 2D 56 41 52 2E 00 58 34 88 1D |STRING-VAR..X4..|
00002C30: 99 22 43 4F 4E 54 52 4F 4C 45 45 52 20 4F 46 20 |."CONTROLEER OF |
00002C40: 52 45 47 45 4C 20 38 30 33 30 20 56 41 4E 20 50 |REGEL 8030 VAN P|
00002C50: 52 4F 47 52 2E 33 2C 22 00 83 34 92 1D 99 22 49 |ROGR.3,"..4..."I|
00002C60: 4E 20 43 4F 4D 42 49 4E 41 54 49 45 20 4D 45 54 |N COMBINATIE MET|
00002C70: 20 44 45 20 53 55 42 52 4F 55 54 49 4E 45 53 20 | DE SUBROUTINES |
00002C80: 4F 50 22 00 95 34 9C 1D 99 22 33 35 30 20 45 4E |OP"..4..."350 EN|
00002C90: 20 33 36 30 22 00 C1 34 A6 1D 99 22 56 4F 4C 44 | 360"..4..."VOLD|
00002CA0: 4F 45 54 20 41 41 4E 20 44 45 20 45 49 53 45 4E |OET AAN DE EISEN|
00002CB0: 20 56 41 4E 20 55 57 20 53 59 53 54 45 45 4D 21 | VAN UW SYSTEEM!|
00002CC0: 22 00 D3 34 B0 1D 8D 33 32 30 30 3A 8D 33 33 30 |"..4...3200:.330|
00002CD0: 30 3A 99 00 FF 34 BA 1D 99 22 4D 4F 43 48 54 20 |0:...4..."MOCHT |
00002CE0: 55 20 4F 4F 49 54 20 45 45 4E 20 52 55 4E 20 41 |U OOIT EEN RUN A|
00002CF0: 46 42 52 45 4B 45 4E 20 4D 45 54 20 44 45 22 00 |FBREKEN MET DE".|
00002D00: 2E 35 C4 1D 99 22 42 52 45 41 4B 2D 54 4F 45 54 |.5..."BREAK-TOET|
00002D10: 53 2C 20 44 41 4E 20 4B 55 4E 54 20 55 20 4D 45 |S, DAN KUNT U ME|
00002D20: 54 20 27 47 4F 54 4F 20 34 30 30 30 27 22 00 5A |T 'GOTO 4000'".Z|
00002D30: 35 CE 1D 99 22 57 45 45 52 20 54 45 52 55 47 4B |5..."WEER TERUGK|
00002D40: 4F 4D 45 4E 20 49 4E 20 48 45 54 20 50 52 4F 47 |OMEN IN HET PROG|
00002D50: 52 41 4D 4D 41 20 4D 45 54 22 00 86 35 D8 1D 99 |RAMMA MET"..5...|
00002D60: 22 48 45 54 20 42 45 53 54 41 4E 44 20 49 4E 20 |"HET BESTAND IN |
00002D70: 4F 4E 47 45 57 49 4A 5A 49 47 44 45 20 53 54 41 |ONGEWIJZIGDE STA|
00002D80: 41 54 2E 22 3A 99 00 B1 35 E2 1D 99 22 44 49 54 |AT.":...5..."DIT|
00002D90: 20 47 45 4C 44 54 20 56 4F 4F 52 20 42 45 49 44 | GELDT VOOR BEID|
00002DA0: 45 20 50 52 4F 47 52 41 4D 4D 41 27 53 2E 22 3A |E PROGRAMMA'S.":|
00002DB0: 99 00 DD 35 EC 1D 99 22 41 41 4E 20 48 45 54 20 |...5..."AAN HET |
00002DC0: 50 52 4F 47 52 41 4D 4D 41 20 5A 45 4C 46 20 4D |PROGRAMMA ZELF M|
00002DD0: 41 47 20 44 41 4E 20 4E 49 45 54 53 22 00 F4 35 |AG DAN NIETS"..5|
00002DE0: F6 1D 99 22 5A 49 4A 4E 20 47 45 57 49 4A 5A 49 |..."ZIJN GEWIJZI|
00002DF0: 47 44 21 22 00 09 36 00 1E 8D 33 32 30 30 3A 8D |GD!"..6...3200:.|
00002E00: 32 37 30 3A 89 34 30 30 30 00 24 36 0A 1E 8D 31 |270:.4000.$6...1|
00002E10: 30 30 3A 4E 24 B2 4E 31 24 3A 56 45 B2 30 3A 8D |00:N$.N1$:VE.0:.|
00002E20: 33 30 30 30 00 39 36 14 1E 48 4F B2 31 30 3A 56 |3000.96..HO.10:V|
00002E30: 45 B2 31 32 3A 8D 31 31 30 00 51 36 1E 1E 99 22 |E.12:.110.Q6..."|
00002E40: 54 4F 54 20 57 45 44 45 52 48 4F 52 45 4E 21 21 |TOT WEDERHOREN!!|
00002E50: 22 00 67 36 28 1E 81 49 B2 31 20 A4 35 3A 8D 32 |".g6(..I.1 .5:.2|
00002E60: 35 30 3A 82 49 3A 80 00 82 36 30 75 8F 20 48 4F |50:.I:...60u. HO|
00002E70: 42 42 59 53 43 4F 4F 50 2D 42 41 53 49 43 4F 44 |BBYSCOOP-BASICOD|
00002E80: 45 32 00 9D 36 3A 75 8F 20 2A 20 20 20 20 20 20 |E2..6:u. * |
00002E90: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 B8 36 | *..6|
00002EA0: 44 75 8F 20 2A 20 42 41 53 49 43 4F 44 45 2B 42 |Du. * BASICODE+B|
00002EB0: 45 53 54 41 4E 44 20 2A 00 D3 36 4E 75 8F 20 2A |ESTAND *..6Nu. *|
00002EC0: 20 20 20 54 4F 45 4C 49 43 48 54 49 4E 47 20 20 | TOELICHTING |
00002ED0: 20 20 2A 00 EE 36 58 75 8F 20 20 20 20 20 20 20 | *..6Xu. |
00002EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 07 | *..|
00002EF0: 37 62 75 8F 20 50 20 49 4E 47 45 5A 4F 4E 44 45 |7bu. P INGEZONDE|
00002F00: 4E 20 44 4F 4F 52 20 00 22 37 6C 75 8F 20 4F 20 |N DOOR ."7lu. O |
00002F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F20: 20 31 00 3D 37 76 75 8F 20 53 20 20 42 2E 50 2E | 1.=7vu. S B.P.|
00002F30: 4D 2E 52 49 4E 54 4A 45 4D 41 20 20 32 00 58 37 |M.RINTJEMA 2.X7|
00002F40: 80 75 8F 20 54 20 20 54 55 49 4E 53 54 52 41 41 |.u. T TUINSTRAA|
00002F50: 54 20 31 33 20 20 20 30 00 73 37 8A 75 8F 20 42 |T 13 0.s7.u. B|
00002F60: 20 20 35 38 30 32 20 41 44 20 56 45 4E 52 41 59 | 5802 AD VENRAY|
00002F70: 20 20 30 00 7B 37 94 75 8F 20 55 00 96 37 9E 75 | 0.{7.u. U..7.u|
00002F80: 8F 20 53 20 20 45 49 47 45 4E 20 4F 4E 54 57 45 |. S EIGEN ONTWE|
00002F90: 52 50 20 20 20 2A 00 B1 37 A8 75 8F 20 20 20 20 |RP *..7.u. |
00002FA0: 20 20 53 45 50 54 2E 20 31 39 38 33 20 20 20 20 | SEPT. 1983 |
00002FB0: 2A 00 CC 37 B2 75 8F 20 2A 20 20 20 20 20 49 54 |*..7.u. * IT|
00002FC0: 54 2D 32 30 32 30 20 20 20 20 20 2A 00 E7 37 BC |T-2020 *..7.|
00002FD0: 75 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |u. * |
00002FE0: 20 20 20 20 20 20 2A 00 02 38 C6 75 8F 20 2A 2A | *..8.u. **|
00002FF0: 2A 2A 20 48 49 4C 56 45 52 53 55 4D 20 2A 2A 2A |** HILVERSUM ***|
00003000: 2A 2A 00 08 38 D0 75 8F 00 27 38 DA 75 8F 20 43 |**..8.u..'8.u. C|
00003010: 4F 50 59 52 49 47 48 54 20 4E 4F 53 20 20 48 49 |OPYRIGHT NOS HI|
00003020: 4C 56 45 52 53 55 4D 00 00 00 00 |LVERSUM.... |
.......1000......1010.!.D..".";:..Q.N..H
(".........................",.(.(VE.1)))
;.A.P....(HO));:....X.HO.B(209).256.B(21
0).1024.B(211)...Y.VE..(HO.40):HO.HO.40.
VE:....H..IN$:..D.R..IN$:.IN$."".210.J..
........54296,15:.54278,255:.54273,95:.5
4276,17......OO.1.200:.OO.*....54276,0:.
54277,0:.54278,0:..8...RV..(1):..F...FR.
.(0):..O.,.SR$.D(SR):.H(SR$,1)." ".SR$.J
(SR$,2).U.-.....6.SR$."":.SR..10.(CT.CN.
.(CN)).318...7..SR...5.10..CN.SR$."-"...
8.SR$.SR$.J(D(.(.(SR)..5.10..CN)),2)...9
..C(SR$).CT.CN.(CN..0).SR$." ".SR$:.313.
!.:..CN.0..(SR)..1E10.316.U.;.SR$.SR$.J(
D(1..(SR)..(.(SR))..5.10..CN),3,CN.1).U.
<..C(SR$).CT.SR$.SR$." ":.316...=..C(SR$
).CT.SR$.""...>..C(SR$).CT.SR$.SR$."*":.
318...?...G.^..4,4:.4,SR$;: 4:..X.H..4,4
:.4: 4:......A.500:.20:. TOELICHTING BES
TAND.....N1$."DEMO BASICODE+BESTAND".8..
.N2$."TOELICHTING":.4000.O.... KOPPEN CE
NTREREN.J.B.X$."-":HO.(40.C(N$)).2...L..
C(X$).C(N$) .X$.X$."-":.3020...V.HO.HO.1
:.110:.N$.....VE.VE.1:.110:.X$:..U...X$.
"-":. STREEP ER ONDER...&..C(X$).39 .X$.
X$."-":.3110...0..X$:.......250:HO.0:VE.
23:.110.5...."DRUK EEN TOETS IN ...";.B.
...210:.:..]....100:N$.N1$:VE.0:.3000.U.
..N$.N3$:VE.2:.3000:.... ..100:N$.N1$:VE
.0:.3000.....N$.N2$:VE.2:.3000:......."
1=INLEIDING"......" 2=ALGEMENE INFORMATI
E":....H.." ROUTINES VOOR CASSETTE-BES
TANDEN".2.R.." -----------------------
---------".R...." 3=INLEIDENDE INFORMATI
E".I...." 4=SHARP/MZ-80K".Z...." 5=TRS-8
0"......" 6=PET/CBM/VIC"......" 7=APPLE/
ITT-EX.SORC.-P2000":......." 8=BEREKENIN
G VAN 'A' IN 'CLEAR A'"......" 9=TENSLOT
TE ...":....".."10=EINDE":.:..*.,..250:.
"UW KEUZE: ";:.IN$.L.6.W.E(IN$):.(W.1) .
(W.10) .4000.\.@..W.10 .7690...J..W .420
0,4600,5000,5300,5500,5700,5900,6800,750
0...H.N3$."INLEIDING":.3300:..Z.R.."DIT
PROGRAMMA BESTAAT UIT DE VOLGENDE"...|..
"DEEL-PROGRAMMA'S:"."...." 1.TOELICHTING
...........: 11542 BYTES".Q...." 2.BEST
ANDS-MUTATIES .....: 8521 BYTES"......"
3.VIDEO-PRINTS/PRINT-OUTS: 8637 BYTES"
:......."DE AFMETINGEN ZIJN EXCL.BC-2 RO
UTINES"......"EN EXCL. NOG TOE TE VOEGEN
ROUTINES.":......."MET PROGRAMMA '2' KU
NT U EEN ADRESSEN-".6.B.."BESTAND AANMAK
EN EN HIERIN MUTATIES".K.L.."AANBRENGEN.
":..W.V.."MET PROGRAMMA '3' KUNT U SORTE
REN OP"......"MAXIMAAL 4 KENMERKEN IN EE
N SORTEER-".O...."GANG EN ZELF UW LIJSTE
N SAMENSTELLEN"......"OP HET SCHERM EN P
RINTER."......3200:.3300:......."U KUNT
UW BESTAND WEGSCHRIJVEN NAAR/".B...."INL
EZEN VAN:".Z.&.."- AUDIO-CASSETTE".U.0..
"- DIGITALE CASSETTE"...:.."- FLOPPY DIS
K":....D.."DE BETREFFENDE SUBROUTINES MO
ET U ZELF".T.N.."TOEVOEGEN, EN WEL:"...X
.."REGELS 20000-21000 INLEES-ROUTINE".,.
B.."REGELS 21000-22000 WEGSCHRIJF-ROUTIN
E":..Z.L.."PROGRAMMA '3' VEREIST DAT U U
W BESTAND".V.V.."WEER KUNT INLEZEN.":...
...."ALS U EEN DISK-DRIVE HEBT, NEMEN WE
".O...."AAN DAT U DEZE ROUTINES ZELF KUN
T PRO-"......"GRAMMEREN."......3200:.270
:.4000.....N3$."ALGEMENE INFORMATIE":.33
00:..B...." REGEL 25000 DATA 30,5 - DWZ"
:..K...." NR=30 (MAXIMAAL AANTAL ADRESSE
N)"... .." NK= 5 (6 KENMERKEN)":....*.."
U KUNT HET AANTAL ADRESSEN AANPASSEN"...
4.."AAN DE GROOTTE VAN UW COMPUTER!":...
.>.."DAARTOE BEHOEFT U ALLEEN DEZE DATA-
".%.H.."REGEL TE WIJZIGEN.":..Q.R.."DE D
IM-STATEMENTS WORDEN AUTOMATISCH".}.\.."
AANGEPAST, EVENZO DE EVT. VANUIT HET"...
F.."PROGRAMMA IN TE STELLEN VARIABELEN-"
...P.."RUIMTE.".I.Z..3200:.3300:......."
DE STRING-ARRAY HEEFT DE VORM: N$(I,J)".
....." FOR I=1 TO N:FOR J=0 TO NK".$....
3100.S...."ADRES-INHOUD
MAXIMAAL".]....3100......"N$(I,0) NQAM
..................15 KAR."......"N$(I,1
) VOORLETTER(S) ......... 6 KAR."...J.."
N$(I,2) ADRES .................20 KAR.".
..T.."N$(I,3) POSTCODE + WOONPLAATS 20
KAR.".C...."N$(I,4) KENGETAL+TEL.NO. ...
...12 KAR.".Q...."N$(I,5) GEB.DATUM (DD.
MM.JJ) = 8 KAR.".{....3100......"TOTAAL
81 KAR."......3
100:......."IN HET BESTAND MOETEN 'HOOFD
LETTERS'"......"WORDEN GEBRUIKT!"...$..3
200:.270:.4000.6...N3$."BESTANDEN OP CAS
SETTE":.3300:..[...."CODERING IN GEGEVEN
ROUTINES:".Q...." ? = PRINT"......"
' = AANHALINGSTEKEN"......3100:."WE
GSCHRIJVEN":.3100......"21010 ?'DOE BEST
.CASSETTE IN RECORDER'"...D.."21020 ?'RE
WIND DE TAPE (BEST.VOORAAN)'".:.N.."2103
0 ?'DRUK RECORD+PLAY TEGELIJK IN'".E.X..
"21040 ?'DRUK EEN TOETS IN + RETURN'".}.
..."21050 INPUTIN$":......."LAAT DEZE RE
GELS VOORAFGAAN AAN UW WEG-".X...."SCHRI
JF-ROUTINE, ZODAT U DE CASSETTE"......"K
UNT WISSELEN EN INSTELLEN.".(...."OF DE
INSTRUCTIES DIE VOOR UW SYSTEEM".D...."V
AN TOEPASSING ZIJN.".V....3200:.3300:..Q
.(..3100:."INLEZEN":.3100...2.."20010 ?'
DOE BEST.CASSETTE IN RECORDER'".M.<.."20
020 ?'REWIND DE TAPE (BEST.VOORAAN)'"...
F.."20030 ?'DRUK PLAY-TOETS IN'"...P.."2
0040 ?'DRUK EEN TOETS IN + RETURN'".3.Z.
."20050 INPUTIN$":..`.D.."OOK HIER: LAAT
DEZE REGELS VOORAFGAAN".~.N.."AAN UW IN
LEES-ROUTINE."...X..3200:.270:.4000.....
N3$."BESTANDEN OP CASSETTE":.3300:......
."INLEZEN I WEGSCHRIJVEN"...H
..3100...R.."SHARP/MZ-80K":."-----------
-".4...."20100T$='ADRESSEN-BESTAND'".C..
.." 21100T$='ADRESSEN-BESTAN
D'"......"20110ROPENT$ I 21110WOPE
NT$"......"20120INPUT/TN I 21120PRI
NT/TN"......"20130FORI=1TON I 21130F
ORI=1TON"......"20140FORJ=0TO NK I 211
40FORJ=0TO NK".)...."20150INPUT/TN$(I,J)
".Q.".." 21150PRINT/TN$(I,J)
".~.,.."20160NEXTJ:NEXTI I 21160NEXTJ:
NEXTI"...6.."20170CLOSE:RETURN I 21170C
LOSE:RETURN".V.@..:."NUMERIEK OPSLAAN? :
N(EEN)":.3100...J..3200:.270:.4000...|.
N3$."BESTANDEN OP CASSETTE":.3300:..<...
."INLEZEN I WEGSCHRIJVEN".H..
..3100:..`...."TRS-80":."------"......"2
0100 INPUT#-1,N I 21100 PRINT#-1,N"...
..."20110 FORI=1TON I 21110 FORI=1TON
"......"20120FORJ=0TO NK I 21120FORJ=0
TO NK"...B.."20130 INPUT#-1,N$(I,J)".3.L
.." 21130 PRINT#-1,N$(I,
J)".A.V.."20140 NEXTJ:NEXTI I 21140 NEX
TJ:NEXTI"......"20150 RETURN I 211
50 RETURN"......:."NUMERIEK OPSLAAN? : N
(EEN)":.3100.I....3200:.270:.4000...D.N3
$."BESTANDEN OP CASSETTE":.3300:....N.."
INLEZEN I WEGSCHRIJVEN".$.X..
3100.F.B.."PET/CBM/VIC":."-----------".H
.L.."20100T$='ADRESSEN-BESTAND'"...V.."
21100T$='ADRESSEN-BESTAND'".
E...."20110OPEN1,1,0,T$ I 21110OPEN1,1,
1,T$"......"20120INPUT#1,N I 21120PR
INT#1,N".. ..."20130FORI=1TON I 2113
0FORI=1TON".H ..."20140FORJ=0TO NK I 2
1140FORJ=0TO NK".D ..."20150INPUT#1,N$(I
,J)".. ..." 21150PRINT
#1,N$(I,J)".. ..."20160NEXTJ:NEXTI I 2
1160NEXTJ:NEXTI".. F.."20170CLOSE:RETURN
I 21170CLOSE:RETURN"..!P..:."NUMERIEK
OPSLAAN? : N(EEN)":.3100.-!Z..3200:.270:
.4000.U!..N3$."BESTANDEN OP CASSETTE":.3
300:...!..."VOOR: APPLE/ITT - EX.SORCERE
R - P2000T":...! .."MOETEN DE STRING-ARR
AY-VAR'S EERST".Z!*.."WORDEN GECONVERTEE
RD NAAR NUMERIEKE"..!4.."ARRAY-VAR'S.":.
..">.."DE VRAAG: MOET U EEN BESTAND NUME
RIEK".K"H.."OPSLAAN? MOET U BEANTWOORDEN
MET 'J'":..Y"R.."NORMAAL KOMT TEGENOVER
ELK STRING-KAR.".."\.."EEN NUMERIEK KAR
AKTER TE STAAN.":..Q"F.."MET DE VOLGENDE
ROUTINES WORDT DE EXTRA".."P.."GEHEUGEN
-RUIMTE TERUGGEBRACHT TOT CA.".*#Z.."EEN
DERDE PER KENMERK, TERWIJL BOVEN-".Y#...
"DIEN SLECHTS EEN KENMERK ALS NUM.ARRAY-
"..#..."VAR'S IN HET GEHEUGEN AANWEZIG I
S."..#...3200:.3300..#..." APPLE/ITT - E
X.SORCERER - P2000T"..#...3100:."WEGSCHR
IJVEN":.3100..#..."21100 FOR J=0 TO NK".
.$..."21110 FOR I=1 TO N:Z$=N$(I,J)".3$J
.."21120 L=LEN(Z$)"._$T.."21130 IF(L-3*I
NT(L/3))<>0 THEN 21300".{$..."21140 A(I,
0)=L/3:M=0"..$..."21150 FOR K=1 TO L STE
P 3"..$..."21160 A1=ASC(MID$(Z$,K,1))"..
$..."21170 SR=A1:GOSUB300:A1$=SR$"..%...
"21180 A2=ASC(MID$(Z$,K+1,1))".*%..."211
90 SR=A2:GOSUB300:A2$=SR$".N%..."21200 A
3=ASC(MID$(Z$,K+2,1))".R%$.."21210 SR=A3
:GOSUB300:A3$=SR$"..%..."21220 M=M+1:A(I
,M)=VAL(A1$+A2$+A3$)".J%8.."21230 ?I;' '
;Z$;' ';A(I,0);' ';A(I,M)"..%B..3200:.33
00:...%L..3100:."WEGSCHRIJVEN":.3100..&V
.."21240 NEXTK:NEXTI:A(0,0)=N".G&`.."212
50 (ZIE MACHINE-AFH. ROUTINES)".Z&J.."21
260 NEXTJ"..&T.."21270 ?:?'STOP RECORDER
!':GOSUB250"..&~.."21280 GOSUB3200:GOSUB
270:RETURN".O&..."21300 Z$=Z$+' ':GOTO 2
1120":...&...3100:."INLEZEN":.3100..'...
"20100 FOR J=0 TO NK:?".0'..."20110 (ZIE
MACHINE-AFH. ROUTINES)".F'..."20120 N=A
(0,0)".M'..."20130 FOR I=1 TO N:Z$='' (L
EEG)".'D..3200:.3300:...'N..3100:."INLE
ZEN":.3100..'X.."20140 FOR M=1 TO A(I,0)
".Y'..."20150 SR=A(I,M):GOSUB300"..'..."
20160 A1=VAL(MID$(SR$,1,2))"..(..."20170
A2=VAL(MID$(SR$,3,2))".B(..."20180 A3=V
AL(MID$(SR$,5,2))".P(..."20190 Z$=Z$+CHR
$(A1)+CHR$(A2)+CHR$(A3)"..(..."20200 ?I;
' ';Z$;' ';A(I,0);' ';A(I,M)"..(..."2021
0 NEXTM"..((.."20220 IFRIGHT$(Z$,1)=' '
THEN 20300"..(2.."20230 N$(I,J)=Z$:NEXTI
:NEXTJ".))<.."20240 ?:?'STOP RECORDER!':
GOSUB250".P)F.."20250 GOSUB3200:GOSUB270
:RETURN".T)P.."20300 Z$=LEFT$(Z$,LEN(Z$)
-1)"..)Z.."20310 GOTO20220"..)D..3200:.3
300:..H)N.."MACHINE-AFHANKELIJKE ROUTINE
S":.3100..)X.."INLEZEN (20110) WEGSCHR
IJVEN (21250)"..*...3100..*..."APPLE/ITT
":."---------".?*..."RECALL A S
TORE A".Y* ..:."P2000T":."------".U*..."
CLOAD*A@(CHR$(65+J))"..*..."
CSAVE*A@(CHR$(65+J))".K*..."EXIDY
SORCERER":."--------------"..*H.."20105
GOSUB21400 21245 GOSUB21400"..+R.."2011
0 CLOAD*1A 21250 CSAVE*1A".G+..."2011
5 GOSUB21500 21255 GOSUB21500".Y+...320
0:.3300:...+..."VOOR EXIDY SORCERER TOE
TE VOEGEN:":.3100..+..."21400 REM BAUDRA
TE 1200 -> 300"..+..."21410 BR=256*PEEK(
-4095)+PEEK(-4096)"..,..."21420 IF BR>32
767 THEN BR=BR-65536"..,..."21430 POKE B
R-49,0".5,".."21440 RETURN":..[,,.."2150
0 REM BAUDRATE 300 -> 1200"..,6.."21510
BR=256*PEEK(-4095)+PEEK(-4096)"..,@.."21
520 IFBR>32767 THEN BR=BR-65536".K,J.."2
1530 POKE BR-49,64"..,T.."21540 RETURN":
.3100..,^..3200:.270:.4000.*-..N3$."BERE
KENING VAN 'A' IN 'CLEAR A'":.3300.X-...
"DIT GELDT VOOR COMPUTERS WAAR OP REGEL"
.}-..."20 CLEAR A:GOTO 1010 STAAT.":...-
..."TOT REGEL 4000 ZIJN DE PROGR.'S 2 EN
3".I-..."IDENTIEK VAN OPBOUW.":...-B.."
REGEL 1000: GOSUB3500:GOTO20"...L.."REGE
L 3500 EV: HEBT U DE TOELICHTING".*.V.."
GELEZEN?".T...."REGEL 3600 EV: MOET U E
EN BESTAND ".N...." NUMERIEK OPSLAAN?"..
...." ALS GEVOLG HIERVAN WORDT DE VAR.RU
IMTE".K...." EVT.GROTER GEMAAKT EN WORDT
LATER EEN"......" DIM A(NR,7) AANGEMAAK
T."../..."REGEL 3700 EV: BEREKENING VAR.
RUIMTE:".E/..." 3710 UITLEZEN VAN DATA-R
EGEL (25000)".E/&.." 3720 A=(81+(NK+1)*3
)*NR"../0.." DAT IS VOOR STRING-ARRAY-VA
R'S."../:..3200:.3300:..J/D.." 3730 IF C
R=1 THEN A=A+(7+1)*(4)*NR"../N.."DAT IS
VOOR DE NUM.ARRAY-VAR'S VAN EEN"..0X.."K
ENMERK, ALS DAT NODIG IS."./0B.." 3740 A
=A+100".O0L.."DAT IS VOOR DE TITELS.":..
~0V.."HET GETAL (4) OP REGEL 3730 IS HET
AAN-"..0..."TAL BYTES DAT EEN NUM.ARRAY
-VAR. IN-".F0..."NEEMT BIJ DE P2000T."..
0..."ZIE UW INSTRUCTIEBOEK OF DAT BIJ U
OOK"..1..."HET GEVAL IS!":.:..<1..."IN P
ROGR.3 WORDT DE VAR.RUIMTE NOG VER-".F1.
.."GROOT VOOR DE SORTEER-ARRAY-VAR'S:"..
1..." 3740 A=A+(31+3+(4))*NR"..1F.." 375
0 A=A+50 - DAT IS VOOR DE SPIL".A1P..320
0:.3300:...1Z.."ALS GEVOLG VAN 'CLEAR A'
OP REGEL 20"..2..."WORDEN DE VARIABELEN
OP '0' GEZET OF".22..."'LEEG' GEMAAKT."
:..^2..."U MOET DAAROM DE VRAAG OP REGEL
3600"..2..."NOG EENS BEANTWOORDEN VOORR
HET INSTEL-"..2..."LEN VAN DE DIM-STATEM
ENTS.":...2..."DAT GELDT NIET VOOR COMPU
TERS WAAR OP"..2 .."REGEL 20 GOTO 1010 S
TAAT.".-3*.."DE VARIABELEN A, NR EN NK B
EHOUDEN HIER".@34.."HUN WAARDE.".U3>..32
00:.270:.4000.U3L.N3$."TENSLOTTE ...":.3
300:...3V.."PROGR.3 VOORZIET TEVENS IN D
E MOGELIJK-".N3`.."HEID OM EEN PRINT TE
MAKEN MET EEN"..3J.."PRINTER.":...4T.."D
E REGELS WORDEN IN HUN GEHEEL AANGE-".+4
~.."MAAKT IN DE STRING-VAR..X4..."CONTRO
LEER OF REGEL 8030 VAN PROGR.3,"..4..."I
N COMBINATIE MET DE SUBROUTINES OP"..4..
."350 EN 360".A4..."VOLDOET AAN DE EISEN
VAN UW SYSTEEM!".S4...3200:.3300:...4..
."MOCHT U OOIT EEN RUN AFBREKEN MET DE".
.5D.."BREAK-TOETS, DAN KUNT U MET 'GOTO
4000'".Z5N.."WEER TERUGKOMEN IN HET PROG
RAMMA MET"..5X.."HET BESTAND IN ONGEWIJZ
IGDE STAAT.":...5..."DIT GELDT VOOR BEID
E PROGRAMMA'S.":...5..."AAN HET PROGRAMM
A ZELF MAG DAN NIETS"..5..."ZIJN GEWIJZI
GD!"..6...3200:.270:.4000.$6...100:N$.N1
$:VE.0:.3000.96..HO.10:VE.12:.110.Q6..."
TOT WEDERHOREN!!".G6(..I.1 .5:.250:.I:..
.60U. HOBBYSCOOP-BASICODE2..6:U. *
*..6DU. * BASICODE+BESTAND *
.S6NU. * TOELICHTING *..6XU.
*..7BU. P INGEZONDEN DOOR .
"7LU. O 1.=7VU. S B.P.
M.RINTJEMA 2.X7.U. T TUINSTRAAT 13 0
.S7.U. B 5802 AD VENRAY 0.{7.U. U..7.U
. S EIGEN ONTWERP *..7.U. SEPT.
1983 *.L7.U. * ITT-2020 *..7.
U. * *..8FU. **** HILVE
RSUM *****..8PU..'8ZU. COPYRIGHT NOS HI
LVERSUM....
> CLICK IMAGE PREVIEW FOR FULL MODAL