00000000: 01 12 1F 12 64 00 8F 2A 41 4C 46 41 42 45 54 49 |....d..*ALFABETI|
00000010: 53 43 48 52 41 4E 47 53 43 48 49 4B 4B 45 4E 00 |SCHRANGSCHIKKEN.|
00000020: 26 12 6E 00 8F 2A 00 57 12 78 00 8F 2A 44 49 54 |&.n..*.W.x..*DIT|
00000030: 50 52 4F 47 52 41 4D 4D 41 49 53 4F 4E 54 57 49 |PROGRAMMAISONTWI|
00000040: 4B 4B 45 4C 44 4F 50 45 45 4E 54 52 53 2D 38 30 |KKELDOPEENTRS-80|
00000050: 4C 2D 49 49 31 36 4B 00 5E 12 82 00 8F 2A 00 8B |L-II16K.^....*..|
00000060: 12 8C 00 8F 2A 43 4C 45 41 52 45 4E 44 49 4D 41 |....*CLEARENDIMA|
00000070: 46 48 41 4E 4B 45 4C 49 4A 4B 56 41 4E 47 45 48 |FHANKELIJKVANGEH|
00000080: 45 55 47 45 4E 52 55 49 4D 54 45 00 A1 12 96 00 |EUGENRUIMTE.....|
00000090: 8D 35 37 30 3A 86 41 24 28 35 30 30 29 3A 4A B2 |.570:.A$(500):J.|
000000A0: 31 00 C5 12 A0 00 99 22 48 4F 45 56 45 45 4C 20 |1......"HOEVEEL |
000000B0: 52 45 47 45 4C 53 20 4F 50 20 55 57 20 53 43 48 |REGELS OP UW SCH|
000000C0: 45 52 4D 20 22 00 CC 12 A1 00 85 52 00 F0 12 AA |ERM "......R....|
000000D0: 00 99 3A 99 22 54 4F 45 54 53 20 27 23 27 20 4E |..:."TOETS '#' N|
000000E0: 41 20 4C 41 41 54 53 54 45 20 57 4F 4F 52 44 22 |A LAATSTE WOORD"|
000000F0: 00 01 13 B4 00 81 58 B2 31 A4 31 30 30 30 3A 82 |......X.1.1000:.|
00000100: 58 00 25 13 BE 00 8D 35 37 30 3A 99 3A 99 3A 99 |X.%....570:.:.:.|
00000110: 3A 99 4A 3B 3A 85 22 20 49 4E 50 55 54 20 22 3B |:.J;:." INPUT ";|
00000120: 41 24 28 4A 29 00 3F 13 C8 00 8B 41 24 28 4A 29 |A$(J).?....A$(J)|
00000130: B2 22 23 22 A7 4A B2 4A AB 31 3A 89 32 33 30 00 |."#".J.J.1:.230.|
00000140: 4E 13 D2 00 4A B2 4A AA 31 3A 89 31 39 30 00 6D |N...J.J.1:.190.m|
00000150: 13 DC 00 8F 2A 42 45 47 49 4E 56 41 4E 44 45 53 |....*BEGINVANDES|
00000160: 4F 52 54 45 45 52 52 4F 55 54 49 4E 45 00 94 13 |ORTEERROUTINE...|
00000170: E6 00 8D 35 37 30 3A 99 22 52 41 4E 47 53 43 48 |...570:."RANGSCH|
00000180: 49 4B 4B 45 4E 20 2D 20 45 56 45 4E 20 47 45 44 |IKKEN - EVEN GED|
00000190: 55 4C 44 22 00 D3 13 F0 00 43 24 B2 22 5A 5A 5A |ULD".....C$."ZZZ|
000001A0: 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A |ZZZZZZZZZZZZZZZZ|
000001B0: 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A |ZZZZZZZZZZZZZZZZ|
000001C0: 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A |ZZZZZZZZZZZZZZZZ|
000001D0: 5A 5A 22 00 FB 13 FA 00 4B B2 4B AA 31 3A 81 41 |ZZ".....K.K.1:.A|
000001E0: B2 4B A4 4A 3A 8B 41 24 28 41 29 B3 43 24 A7 43 |.K.J:.A$(A).C$.C|
000001F0: 24 B2 41 24 28 41 29 3A 48 B2 41 00 1F 14 04 01 |$.A$(A):H.A.....|
00000200: 82 3A 44 24 B2 41 24 28 4B 29 3A 41 24 28 4B 29 |.:D$.A$(K):A$(K)|
00000210: B2 41 24 28 48 29 3A 41 24 28 48 29 B2 44 24 00 |.A$(H):A$(H).D$.|
00000220: 33 14 0E 01 8B 4B B2 4A AA 31 A7 48 B2 30 3A 89 |3....K.J.1.H.0:.|
00000230: 33 30 30 00 42 14 18 01 99 4A AB 4B 3B 3A 89 32 |300.B....J.K;:.2|
00000240: 34 30 00 61 14 22 01 8F 2A 45 49 4E 44 45 56 41 |40.a."..*EINDEVA|
00000250: 4E 44 45 53 4F 52 54 45 45 52 52 4F 55 54 49 4E |NDESORTEERROUTIN|
00000260: 45 00 6C 14 2C 01 8D 35 37 30 3A 99 00 87 14 36 |E.l.,..570:....6|
00000270: 01 99 22 4F 56 45 52 5A 49 43 48 54 20 4F 50 20 |.."OVERZICHT OP |
00000280: 53 43 48 45 52 4D 22 00 A1 14 40 01 99 22 4F 46 |SCHERM"...@.."OF|
00000290: 20 50 52 49 4E 54 45 52 20 28 53 2F 50 29 20 3F | PRINTER (S/P) ?|
000002A0: 22 00 D1 14 4A 01 8F 28 49 4E 50 55 54 49 24 45 |"...J..(INPUTI$E|
000002B0: 56 54 4C 56 45 52 56 41 4E 47 45 4E 44 4F 4F 52 |VTLVERVANGENDOOR|
000002C0: 49 24 3D 49 4E 4B 45 59 24 4F 46 47 45 54 49 24 |I$=INKEY$OFGETI$|
000002D0: 29 00 EE 14 54 01 85 49 24 3A 8B 49 24 B3 B1 22 |)...T..I$:.I$.."|
000002E0: 53 22 AF 49 24 B3 B1 22 50 22 89 33 31 30 00 FE |S".I$.."P".310..|
000002F0: 14 5E 01 8B 49 24 B2 22 53 22 89 33 37 30 00 0E |.^..I$."S".370..|
00000300: 15 68 01 8B 49 24 B2 22 50 22 89 34 34 30 00 37 |.h..I$."P".440.7|
00000310: 15 72 01 8D 35 37 30 3A 81 58 B2 31 A4 4A 3A 8B |.r..570:.X.1.J:.|
00000320: 58 AD 28 52 AB 31 29 B2 B5 28 58 AD 28 52 AB 31 |X.(R.1)..(X.(R.1|
00000330: 29 29 A7 8D 34 30 30 00 4D 15 7C 01 99 58 3B 3A |))..400.M.|..X;:|
00000340: 99 22 20 22 3B 41 24 28 58 29 3A 82 58 00 5B 15 |." ";A$(X):.X.[.|
00000350: 86 01 8D 34 30 30 3A 89 35 31 30 00 81 15 90 01 |...400:.510.....|
00000360: 99 22 28 44 52 55 4B 20 45 45 4E 20 57 49 4C 4C |."(DRUK EEN WILL|
00000370: 45 4B 45 55 52 49 47 45 20 54 4F 45 54 53 29 22 |EKEURIGE TOETS)"|
00000380: 3B 00 AE 15 9A 01 8F 28 49 4E 50 55 54 51 24 45 |;......(INPUTQ$E|
00000390: 56 54 4C 56 45 52 56 41 4E 47 45 4E 44 4F 4F 52 |VTLVERVANGENDOOR|
000003A0: 49 4E 4B 45 59 24 4F 46 47 45 54 51 24 29 00 B6 |INKEY$OFGETQ$)..|
000003B0: 15 A4 01 85 51 24 00 C1 15 AE 01 8D 35 37 30 3A |....Q$......570:|
000003C0: 8E 00 E4 15 B8 01 8D 35 37 30 3A 99 3A 85 22 57 |.......570:.:."W|
000003D0: 41 43 48 54 20 4F 50 20 50 52 49 4E 54 45 52 20 |ACHT OP PRINTER |
000003E0: 22 3B 51 24 00 10 16 C2 01 8F 2A 2A 50 52 4F 47 |";Q$......**PROG|
000003F0: 52 41 4D 4D 45 45 52 48 49 45 52 5A 4F 4E 4F 44 |RAMMEERHIERZONOD|
00000400: 49 47 27 50 52 49 4E 54 45 52 41 41 4E 27 2A 2A |IG'PRINTERAAN'**|
00000410: 00 2B 16 CC 01 81 58 B2 31 A4 4A 3A 99 58 3B 22 |.+....X.1.J:.X;"|
00000420: 20 22 3B 41 24 28 58 29 3A 82 58 00 5F 16 D6 01 | ";A$(X):.X._...|
00000430: 8F 28 56 4F 4F 52 50 41 52 41 4C 4C 45 4C 50 52 |.(VOORPARALLELPR|
00000440: 2E 45 56 54 4C 50 52 49 4E 54 4A 2D 58 3B 3A 4C |.EVTLPRINTJ-X;:L|
00000450: 50 52 49 4E 54 58 3B 22 20 22 45 4E 5A 2E 29 00 |PRINTX;" "ENZ.).|
00000460: 8B 16 E0 01 8F 2A 2A 50 52 4F 47 52 41 4D 4D 45 |.....**PROGRAMME|
00000470: 45 52 48 49 45 52 5A 4F 4E 4F 44 49 47 27 50 52 |ERHIERZONODIG'PR|
00000480: 49 4E 54 45 52 55 49 54 27 2A 2A 00 A7 16 EA 01 |INTERUIT'**.....|
00000490: 8D 35 37 30 3A 99 3A 99 22 50 52 49 4E 54 45 52 |.570:.:."PRINTER|
000004A0: 20 52 45 41 44 59 22 00 B8 16 F4 01 81 58 B2 31 | READY"......X.1|
000004B0: A4 31 30 30 30 3A 82 58 00 DB 16 FE 01 8D 35 37 |.1000:.X......57|
000004C0: 30 3A 99 3A 99 22 57 49 4C 54 20 55 20 4E 4F 47 |0:.:."WILT U NOG|
000004D0: 4D 41 41 4C 53 20 45 45 4E 20 22 00 FA 16 08 02 |MAALS EEN ".....|
000004E0: 99 22 54 4F 54 41 41 4C 4F 56 45 52 5A 49 43 48 |."TOTAALOVERZICH|
000004F0: 54 20 28 4A 2F 4E 29 20 3F 22 00 2A 17 12 02 8F |T (J/N) ?".*....|
00000500: 28 49 4E 50 55 54 49 24 45 56 54 4C 56 45 52 56 |(INPUTI$EVTLVERV|
00000510: 41 4E 47 45 4E 44 4F 4F 52 49 24 3D 49 4E 4B 45 |ANGENDOORI$=INKE|
00000520: 59 24 4F 46 47 45 54 49 24 29 00 47 17 1C 02 85 |Y$OFGETI$).G....|
00000530: 49 24 3A 8B 49 24 B3 B1 22 4A 22 AF 49 24 B3 B1 |I$:.I$.."J".I$..|
00000540: 22 4E 22 89 35 31 30 00 57 17 26 02 8B 49 24 B2 |"N".510.W.&..I$.|
00000550: 22 4A 22 89 33 30 30 00 6A 17 30 02 8B 49 24 B2 |"J".300.j.0..I$.|
00000560: 22 4E 22 A7 8D 35 37 30 3A 80 00 89 17 3A 02 99 |"N"..570:....:..|
00000570: 22 93 22 3A 8E 3A 8F 28 4D 41 41 4B 53 43 48 45 |".":.:.(MAAKSCHE|
00000580: 52 4D 53 43 48 4F 4F 4E 29 00 90 17 44 02 8F 2A |RMSCHOON)...D..*|
00000590: 00 C3 17 4E 02 8F 2A 50 52 4F 47 52 41 4D 4D 41 |...N..*PROGRAMMA|
000005A0: 45 4E 42 45 57 45 52 4B 49 4E 47 56 41 4E 42 45 |ENBEWERKINGVANBE|
000005B0: 4B 45 4E 44 45 53 4F 52 54 45 45 52 52 4F 55 54 |KENDESORTEERROUT|
000005C0: 49 4E 45 00 EF 17 58 02 8F 2A 44 4F 4F 52 48 41 |INE...X..*DOORHA|
000005D0: 4E 53 56 49 4E 4B 2C 52 49 4A 53 57 49 4A 4B 4C |NSVINK,RIJSWIJKL|
000005E0: 41 41 4E 35 2C 34 30 30 36 47 41 54 49 45 4C 00 |AAN5,4006GATIEL.|
000005F0: F6 17 62 02 8F 2A 00 1A 18 6C 02 8F 2A 55 49 54 |..b..*...l..*UIT|
00000600: 47 45 5A 4F 4E 44 45 4E 44 4F 4F 52 4E 4F 53 2D |GEZONDENDOORNOS-|
00000610: 48 4F 42 42 59 53 43 4F 4F 50 00 3C 18 76 02 8F |HOBBYSCOOP.<.v..|
00000620: 2A 50 4F 53 54 42 55 53 31 32 30 30 2C 31 32 30 |*POSTBUS1200,120|
00000630: 30 42 45 48 49 4C 56 45 52 53 55 4D 00 43 18 80 |0BEHILVERSUM.C..|
00000640: 02 8F 2A 00 72 18 8A 02 8F 2A 57 49 4A 5A 49 47 |..*.r....*WIJZIG|
00000650: 49 4E 47 45 4E 49 4E 42 41 53 49 43 56 4F 4F 52 |INGENINBASICVOOR|
00000660: 55 57 53 59 53 54 45 45 4D 2C 4D 41 4B 45 4E 44 |UWSYSTEEM,MAKEND|
00000670: 49 54 00 9E 18 94 02 8F 2A 50 52 4F 47 52 41 4D |IT......*PROGRAM|
00000680: 4D 41 53 4E 45 4C 4C 45 52 45 4E 2F 4F 46 41 41 |MASNELLEREN/OFAA|
00000690: 4E 54 52 45 4B 4B 45 4C 49 4A 4B 45 52 21 00 A5 |NTREKKELIJKER!..|
000006A0: 18 9E 02 8F 2A 00 00 00 |....*... |
....D..*ALFABETISCHRANGSCHIKKEN.&.N..*.W
.X..*DITPROGRAMMAISONTWIKKELDOPEENTRS-80
L-II16K.^....*......*CLEARENDIMAFHANKELI
JKVANGEHEUGENRUIMTE......570:.A$(500):J.
1.E. .."HOEVEEL REGELS OP UW SCHERM ".L.
...R......:."TOETS '#' NA LAATSTE WOORD"
......X.1.1000:.X.%....570:.:.:.:.J;:."
INPUT ";A$(J).?.H..A$(J)."#".J.J.1:.230.
N.R.J.J.1:.190.M....*BEGINVANDESORTEERRO
UTINE......570:."RANGSCHIKKEN - EVEN GED
ULD".S...C$."ZZZZZZZZZZZZZZZZZZZZZZZZZZZ
ZZZZZZZZZZZZZZZZZZZZZZZZZZ".....K.K.1:.A
.K.J:.A$(A).C$.C$.A$(A):H.A......:D$.A$(
K):A$(K).A$(H):A$(H).D$.3....K.J.1.H.0:.
300.B....J.K;:.240.A."..*EINDEVANDESORTE
ERROUTINE.L.,..570:....6.."OVERZICHT OP
SCHERM"...@.."OF PRINTER (S/P) ?".Q.J..(
INPUTI$EVTLVERVANGENDOORI$=INKEY$OFGETI$
)...T..I$:.I$.."S".I$.."P".310...^..I$."
S".370...H..I$."P".440.7.R..570:.X.1.J:.
X.(R.1)..(X.(R.1))..400.M.|..X;:." ";A$(
X):.X.[....400:.510......"(DRUK EEN WILL
EKEURIGE TOETS)";......(INPUTQ$EVTLVERVA
NGENDOORINKEY$OFGETQ$)......Q$.A....570:
.......570:.:."WACHT OP PRINTER ";Q$...B
..**PROGRAMMEERHIERZONODIG'PRINTERAAN'**
.+.L..X.1.J:.X;" ";A$(X):.X._.V..(VOORPA
RALLELPR.EVTLPRINTJ-X;:LPRINTX;" "ENZ.).
.....**PROGRAMMEERHIERZONODIG'PRINTERUIT
'**......570:.:."PRINTER READY"......X.1
.1000:.X......570:.:."WILT U NOGMAALS EE
N "......"TOTAALOVERZICHT (J/N) ?".*....
(INPUTI$EVTLVERVANGENDOORI$=INKEY$OFGETI
$).G....I$:.I$.."J".I$.."N".510.W.&..I$.
"J".300.J.0..I$."N"..570:....:..".":.:.(
MAAKSCHERMSCHOON)...D..*.C.N..*PROGRAMMA
ENBEWERKINGVANBEKENDESORTEERROUTINE...X.
.*DOORHANSVINK,RIJSWIJKLAAN5,4006GATIEL.
..B..*...L..*UITGEZONDENDOORNOS-HOBBYSCO
OP.<.V..*POSTBUS1200,1200BEHILVERSUM.C..
..*.R....*WIJZIGINGENINBASICVOORUWSYSTEE
M,MAKENDIT......*PROGRAMMASNELLEREN/OFAA
NTREKKELIJKER!......*...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL