BASICLES 5
FILE INFORMATION
FILENAME(S): BASICLES 5
FILE TYPE(S): PRG
FILE SIZE: 6.7K
FIRST SEEN: 2025-11-30 21:05:33
APPEARS ON: 1 disk(s)
FILE HASH
923fd1c8cc9d50fae24b5e9a08c40162410c6416c1abc8ede7765002156bb2a0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RTYUI | BASICLES 5 | PRG | DuncanTwain | 15 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 5A 00 97 35 33 32 38 30 2C 36 3A 97 |....Z..53280,6:.| 00000010: 35 33 32 38 31 2C 36 3A 99 C7 28 31 34 29 00 29 |53281,6:..(14).)| 00000020: 08 63 00 8D 20 35 30 30 30 00 4C 08 64 00 99 22 |.c.. 5000.L.d.."| 00000030: 93 20 20 20 20 20 3D 3D 3D 27 46 4F 52 A4 4E 45 |. ==='FOR.NE| 00000040: 58 54 27 20 4C 4F 4F 50 53 3D 3D 3D 00 6E 08 6E |XT' LOOPS===.n.n| 00000050: 00 99 22 20 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D |.." ========| 00000060: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 9B |==============..| 00000070: 08 78 00 99 22 11 43 4F 4D 50 55 54 45 52 53 20 |.x..".COMPUTERS | 00000080: 57 4F 52 44 45 4E 20 56 41 41 4B 20 47 45 42 52 |WORDEN VAAK GEBR| 00000090: 55 49 4B 54 20 4F 4D 20 44 49 45 00 C8 08 82 00 |UIKT OM DIE.....| 000000A0: 99 22 11 44 49 4E 47 45 4E 20 54 45 20 44 4F 45 |.".DINGEN TE DOE| 000000B0: 4E 20 44 49 45 20 56 4F 4F 52 20 4F 4E 53 20 56 |N DIE VOOR ONS V| 000000C0: 45 52 56 45 4C 45 4E 44 00 F2 08 8C 00 99 22 11 |ERVELEND......".| 000000D0: 45 4E 20 45 45 4E 54 4F 4E 49 47 20 5A 49 4A 4E |EN EENTONIG ZIJN| 000000E0: 20 4F 4D 20 54 45 20 4D 4F 45 54 45 4E 20 44 4F | OM TE MOETEN DO| 000000F0: 45 4E 00 1B 09 96 00 99 22 11 11 44 49 54 20 4B |EN......"..DIT K| 00000100: 41 4E 20 4D 45 54 20 45 45 4E 20 43 4F 4D 50 55 |AN MET EEN COMPU| 00000110: 54 45 52 20 4D 45 54 20 45 45 4E 00 4D 09 A0 00 |TER MET EEN.M...| 00000120: 99 22 11 52 45 50 45 54 45 45 52 20 43 4F 4D 4D |.".REPETEER COMM| 00000130: 41 4E 44 4F 3B 20 44 45 20 46 4F 52 A4 4E 45 58 |ANDO; DE FOR.NEX| 00000140: 54 20 4C 4F 4F 50 22 3A 8D 31 37 31 30 00 65 09 |T LOOP":.1710.e.| 00000150: AA 00 99 22 93 32 30 20 46 4F 52 20 58 3D 31 20 |...".20 FOR X=1 | 00000160: 54 4F 20 31 30 00 79 09 B4 00 99 22 33 30 20 20 |TO 10.y...."30 | 00000170: 41 28 58 29 3D 31 30 2A 58 00 89 09 BE 00 99 22 |A(X)=10*X......"| 00000180: 34 30 20 4E 45 58 54 20 58 00 B5 09 C8 00 99 22 |40 NEXT X......"| 00000190: 11 11 49 4E 20 52 45 47 45 4C 20 32 30 20 5A 49 |..IN REGEL 20 ZI| 000001A0: 45 20 49 4B 2C 20 44 41 54 20 49 4B 20 49 45 54 |E IK, DAT IK IET| 000001B0: 53 20 56 41 4E 00 E3 09 D2 00 99 22 11 45 45 4E |S VAN......".EEN| 000001C0: 20 54 4F 54 20 54 49 45 4E 20 4D 4F 45 54 20 48 | TOT TIEN MOET H| 000001D0: 45 52 48 41 4C 45 4E 20 45 4E 20 49 4E 20 52 45 |ERHALEN EN IN RE| 000001E0: 47 45 4C 00 13 0A DC 00 99 22 11 34 30 20 5A 49 |GEL......".40 ZI| 000001F0: 45 20 49 4B 20 50 41 53 2C 20 44 41 54 20 27 54 |E IK PAS, DAT 'T| 00000200: 20 49 45 54 53 20 49 53 20 55 49 54 47 45 56 4F | IETS IS UITGEVO| 00000210: 45 52 44 00 42 0A E6 00 99 22 11 49 4E 20 52 45 |ERD.B....".IN RE| 00000220: 47 45 4C 20 33 30 20 5A 49 45 20 49 4B 20 57 41 |GEL 30 ZIE IK WA| 00000230: 54 20 45 52 20 48 45 52 48 41 41 4C 44 45 4C 49 |T ER HERHAALDELI| 00000240: 4A 4B 00 70 0A F0 00 99 22 11 4D 4F 45 54 20 47 |JK.p....".MOET G| 00000250: 45 42 45 55 52 45 4E 3A 20 4D 41 41 4B 20 41 28 |EBEUREN: MAAK A(| 00000260: 49 4E 20 52 41 4E 47 56 4F 4C 47 4F 52 44 45 29 |IN RANGVOLGORDE)| 00000270: 00 95 0A FA 00 99 22 11 47 45 4C 49 4A 4B 20 41 |......".GELIJK A| 00000280: 41 4E 20 31 30 2A 44 45 20 52 41 4E 47 56 4F 4C |AN 10*DE RANGVOL| 00000290: 47 4F 52 44 45 00 C1 0A 04 01 99 22 11 41 4C 53 |GORDE......".ALS| 000002A0: 20 49 4B 20 44 41 54 20 56 41 4E 20 45 45 4E 20 | IK DAT VAN EEN | 000002B0: 54 4F 54 20 54 49 45 4E 20 4B 45 45 52 20 48 45 |TOT TIEN KEER HE| 000002C0: 42 00 EA 0A 0E 01 99 22 11 47 45 44 41 41 4E 2C |B......".GEDAAN,| 000002D0: 20 44 41 4E 20 53 54 4F 50 20 49 4B 20 45 52 20 | DAN STOP IK ER | 000002E0: 4D 45 45 22 3A 8D 31 37 31 30 00 18 0B 18 01 99 |MEE":.1710......| 000002F0: 22 93 44 49 45 20 41 28 58 29 20 49 53 20 45 45 |".DIE A(X) IS EE| 00000300: 4E 20 5A 2E 47 2E 20 27 41 52 52 41 59 27 20 56 |N Z.G. 'ARRAY' V| 00000310: 41 52 49 41 42 45 4C 45 00 49 0B 22 01 99 22 11 |ARIABELE.I."..".| 00000320: 11 48 45 54 20 47 45 54 41 4C 20 27 58 27 20 4D |.HET GETAL 'X' M| 00000330: 41 47 20 4E 49 45 54 20 48 4F 47 45 52 20 5A 49 |AG NIET HOGER ZI| 00000340: 4A 4E 20 44 41 4E 20 31 30 00 7A 0B 2C 01 99 22 |JN DAN 10.z.,.."| 00000350: 41 4E 44 45 52 53 20 5A 49 45 20 4A 45 3A 22 3A |ANDERS ZIE JE:":| 00000360: 99 22 11 20 20 20 3F 42 41 44 20 53 55 42 53 43 |.". ?BAD SUBSC| 00000370: 52 49 50 54 20 45 52 52 4F 52 00 A5 0B 36 01 99 |RIPT ERROR...6..| 00000380: 22 11 4A 45 20 4B 55 4E 54 20 57 45 4C 20 48 4F |".JE KUNT WEL HO| 00000390: 47 45 52 2C 20 4D 41 41 52 20 44 41 4E 20 4D 4F |GER, MAAR DAN MO| 000003A0: 45 54 20 4A 45 00 E6 0B 40 01 99 22 11 27 44 49 |ET JE...@..".'DI| 000003B0: 4D 45 4E 53 49 4F 4E 45 52 45 4E 27 20 4D 45 54 |MENSIONEREN' MET| 000003C0: 20 48 45 54 20 27 44 49 4D 27 20 43 4F 4D 4D 41 | HET 'DIM' COMMA| 000003D0: 4E 44 4F 3A 22 3A 99 22 11 20 20 20 44 49 4D 20 |NDO:":.". DIM | 000003E0: 41 28 32 35 35 29 00 13 0C 4A 01 99 22 11 48 4F |A(255)...J..".HO| 000003F0: 47 45 52 20 44 41 4E 20 32 35 35 20 4B 41 4E 20 |GER DAN 255 KAN | 00000400: 4E 49 45 54 3B 20 45 52 20 50 41 53 45 4E 20 4D |NIET; ER PASEN M| 00000410: 41 41 52 00 3B 0C 54 01 99 22 11 32 35 36 20 49 |AAR.;.T..".256 I| 00000420: 4E 20 45 45 4E 20 41 52 52 41 59 20 28 56 41 4E |N EEN ARRAY (VAN| 00000430: 20 30 20 54 4F 54 20 32 35 35 29 00 68 0C 5E 01 | 0 TOT 255).h.^.| 00000440: 99 22 11 5A 4F 20 57 4F 52 44 54 20 52 55 49 4D |.".ZO WORDT RUIM| 00000450: 54 45 20 47 45 52 45 53 45 52 56 45 45 52 44 20 |TE GERESERVEERD | 00000460: 56 4F 4F 52 20 32 35 36 00 85 0C 68 01 99 22 11 |VOOR 256...h..".| 00000470: 47 45 54 41 4C 4C 45 4E 20 49 4E 20 45 45 4E 20 |GETALLEN IN EEN | 00000480: 41 52 52 41 59 00 8F 0C 72 01 8D 31 37 31 30 00 |ARRAY...r..1710.| 00000490: BC 0C 7C 01 99 22 93 53 54 52 49 4E 47 53 20 4B |..|..".STRINGS K| 000004A0: 55 4E 4E 45 4E 20 4F 4F 4B 20 49 4E 20 45 45 4E |UNNEN OOK IN EEN| 000004B0: 20 41 52 52 41 59 20 53 54 41 41 4E 00 F9 0C 86 | ARRAY STAAN....| 000004C0: 01 99 22 11 4F 4D 20 4D 45 54 20 27 53 55 42 53 |..".OM MET 'SUBS| 000004D0: 43 52 49 50 54 27 20 54 45 20 56 45 52 57 45 52 |CRIPT' TE VERWER| 000004E0: 4B 45 4E 22 3A 99 22 11 49 4E 20 46 4F 52 A4 4E |KEN":.".IN FOR.N| 000004F0: 45 58 54 20 4C 4F 4F 50 53 00 43 0D 90 01 99 22 |EXT LOOPS.C...."| 00000500: 11 11 48 49 45 52 56 4F 4F 52 20 4B 55 4E 45 4E |..HIERVOOR KUNEN| 00000510: 20 57 45 20 44 45 20 12 52 45 41 44 92 20 41 4E | WE DE .READ. AN| 00000520: 44 20 12 44 41 54 41 92 20 20 20 20 20 20 11 43 |D .DATA. .C| 00000530: 4F 4D 4D 41 4E 44 4F 27 53 20 47 45 42 52 55 49 |OMMANDO'S GEBRUI| 00000540: 4B 45 4E 00 73 0D 9A 01 99 22 11 11 27 44 41 54 |KEN.s...."..'DAT| 00000550: 41 27 20 4B 41 4E 20 57 49 4C 4C 45 4B 45 55 52 |A' KAN WILLEKEUR| 00000560: 49 47 20 49 4E 20 48 45 54 20 50 52 4F 47 52 41 |IG IN HET PROGRA| 00000570: 4D 4D 41 00 AA 0D A4 01 99 22 11 53 54 41 41 4E |MMA......".STAAN| 00000580: 2C 20 49 4B 20 4B 49 4A 4B 20 45 52 20 50 41 53 |, IK KIJK ER PAS| 00000590: 20 4E 41 41 52 20 41 4C 53 20 49 4B 22 3A 99 22 | NAAR ALS IK":."| 000005A0: 11 20 20 20 27 52 45 41 44 27 00 D0 0D AE 01 99 |. 'READ'......| 000005B0: 22 11 41 4C 53 20 43 4F 4D 4D 41 4E 44 4F 20 54 |".ALS COMMANDO T| 000005C0: 45 47 45 4E 20 4B 4F 4D 2E 22 3A 8D 31 37 31 30 |EGEN KOM.":.1710| 000005D0: 00 F9 0D B8 01 99 22 93 5A 4F 27 4E 20 50 52 4F |......".ZO'N PRO| 000005E0: 47 52 41 4D 4D 41 20 4B 41 4E 20 45 52 20 5A 4F |GRAMMA KAN ER ZO| 000005F0: 20 55 49 54 5A 49 45 4E 3A 00 0E 0E C2 01 99 22 | UITZIEN:......"| 00000600: 11 31 30 20 44 49 4D 20 41 24 28 31 35 29 00 25 |.10 DIM A$(15).%| 00000610: 0E CC 01 99 22 32 30 20 46 4F 52 20 58 3D 30 20 |...."20 FOR X=0 | 00000620: 54 4F 20 31 35 00 39 0E D6 01 99 22 33 30 20 52 |TO 15.9...."30 R| 00000630: 45 41 44 20 41 24 28 58 29 00 49 0E E0 01 99 22 |EAD A$(X).I...."| 00000640: 35 30 20 4E 45 58 54 20 58 00 60 0E EA 01 99 22 |50 NEXT X.`...."| 00000650: 36 30 20 46 4F 52 20 58 3D 30 20 54 4F 20 31 35 |60 FOR X=0 TO 15| 00000660: 00 71 0E F4 01 99 22 37 30 20 3F 41 24 28 58 29 |.q...."70 ?A$(X)| 00000670: 3B 00 81 0E FE 01 99 22 38 30 20 4E 45 58 54 20 |;......"80 NEXT | 00000680: 58 00 AB 0E 08 02 99 22 39 30 20 44 41 54 41 20 |X......"90 DATA | 00000690: 4B 41 54 2C 4D 41 54 2C 53 4C 4F 54 2C 4B 49 50 |KAT,MAT,SLOT,KIP| 000006A0: 2C 46 52 41 4E 53 2C 50 41 41 4C 00 D5 0E 12 02 |,FRANS,PAAL.....| 000006B0: 99 22 31 30 30 20 44 41 54 41 20 57 41 53 2C 56 |."100 DATA WAS,V| 000006C0: 49 53 2C 52 49 4A 4B 2C 4D 49 53 2C 48 45 45 52 |IS,RIJK,MIS,HEER| 000006D0: 2C 44 41 4D 45 00 F8 0E 1C 02 99 22 31 31 30 20 |,DAME......"110 | 000006E0: 44 41 54 41 20 41 50 50 45 4C 2C 52 4F 56 45 52 |DATA APPEL,ROVER| 000006F0: 2C 44 4F 4C 2C 48 41 4D 00 23 0F 26 02 99 22 11 |,DOL,HAM.#.&..".| 00000700: 44 45 20 53 54 52 49 4E 47 53 20 49 4E 20 44 41 |DE STRINGS IN DA| 00000710: 54 41 20 53 54 41 54 4D 45 4E 54 53 20 48 4F 45 |TA STATMENTS HOE| 00000720: 56 45 4E 00 4F 0F 30 02 99 22 11 4E 49 45 54 20 |VEN.O.0..".NIET | 00000730: 54 55 53 53 45 4E 20 41 41 4E 48 41 4C 49 4E 53 |TUSSEN AANHALINS| 00000740: 54 45 4B 45 4E 53 2C 20 42 45 48 41 4C 56 45 00 |TEKENS, BEHALVE.| 00000750: 79 0F 3A 02 99 22 11 41 4C 53 20 45 52 20 4F 4F |y.:..".ALS ER OO| 00000760: 4B 20 4C 45 45 53 54 45 4B 45 4E 53 20 54 55 53 |K LEESTEKENS TUS| 00000770: 53 45 4E 20 53 54 41 41 4E 00 A1 0F 44 02 99 22 |SEN STAAN...D.."| 00000780: 11 44 45 20 57 4F 4F 52 44 45 4E 20 4D 4F 45 54 |.DE WOORDEN MOET| 00000790: 45 4E 20 57 45 4C 20 47 45 53 43 48 45 49 44 45 |EN WEL GESCHEIDE| 000007A0: 4E 00 C4 0F 4E 02 99 22 11 57 4F 52 44 45 4E 20 |N...N..".WORDEN | 000007B0: 44 4F 4F 52 20 4B 4F 4D 4D 41 27 53 21 22 3A 8D |DOOR KOMMA'S!":.| 000007C0: 31 37 31 30 00 F1 0F 58 02 99 22 93 44 41 54 20 |1710...X..".DAT | 000007D0: 50 52 4F 47 52 41 4D 4D 41 20 4C 45 45 53 54 20 |PROGRAMMA LEEST | 000007E0: 44 41 54 41 20 56 41 4E 20 44 45 20 44 41 54 41 |DATA VAN DE DATA| 000007F0: 2D 00 14 10 62 02 99 22 11 53 54 41 54 4D 45 4E |-...b..".STATMEN| 00000800: 54 53 2C 20 45 4C 4B 20 4F 50 20 5A 27 4E 20 42 |TS, ELK OP Z'N B| 00000810: 45 55 52 54 00 40 10 6C 02 99 22 11 4D 45 54 20 |EURT.@.l..".MET | 00000820: 44 45 20 45 45 53 54 45 20 4B 45 45 52 20 4C 45 |DE EESTE KEER LE| 00000830: 5A 45 4E 20 49 53 20 58 3D 30 2C 20 44 55 53 3A |ZEN IS X=0, DUS:| 00000840: 00 6D 10 76 02 99 22 11 41 24 28 30 29 3D 4B 41 |.m.v..".A$(0)=KA| 00000850: 54 20 45 4E 20 44 45 20 54 57 45 45 44 45 20 4C |T EN DE TWEEDE L| 00000860: 4F 4F 50 20 20 58 3D 31 20 44 55 53 3A 00 9B 10 |OOP X=1 DUS:...| 00000870: 80 02 99 22 11 41 24 28 31 29 3D 4D 41 54 20 45 |...".A$(1)=MAT E| 00000880: 4E 5A 2E 20 54 4F 54 3A 20 58 3D 31 35 20 45 4E |NZ. TOT: X=15 EN| 00000890: 20 41 24 28 31 35 29 3D 48 41 4D 00 C8 10 8A 02 | A$(15)=HAM.....| 000008A0: 99 22 11 11 44 45 20 50 55 4E 54 2D 4B 4F 4D 4D |."..DE PUNT-KOMM| 000008B0: 41 20 56 4F 4F 52 4B 4F 4D 54 20 44 41 54 20 49 |A VOORKOMT DAT I| 000008C0: 4B 20 53 54 45 45 44 53 00 F4 10 94 02 99 22 11 |K STEEDS......".| 000008D0: 4E 41 41 52 20 45 45 4E 20 4E 49 45 55 57 45 20 |NAAR EEN NIEUWE | 000008E0: 52 45 47 45 4C 20 47 41 2C 20 5A 4F 44 41 54 20 |REGEL GA, ZODAT | 000008F0: 41 4C 4C 45 00 33 11 9E 02 99 22 11 57 4F 4F 52 |ALLE.3....".WOOR| 00000900: 44 45 4E 20 4F 50 20 45 45 4E 20 52 49 4A 54 4A |DEN OP EEN RIJTJ| 00000910: 45 20 41 43 48 54 45 52 20 45 4C 4B 41 41 52 20 |E ACHTER ELKAAR | 00000920: 20 20 20 20 11 4B 4F 4D 45 4E 20 54 45 20 53 54 | .KOMEN TE ST| 00000930: 41 41 4E 00 5C 11 A8 02 99 22 11 11 12 57 49 4C |AAN.\...."...WIL| 00000940: 20 4A 45 20 44 49 54 20 4E 4F 47 20 45 45 4E 53 | JE DIT NOG EENS| 00000950: 20 44 4F 4F 52 4E 45 4D 45 4E 20 3F 00 6F 11 B2 | DOORNEMEN ?.o..| 00000960: 02 A1 51 24 3A 8B 51 24 B2 22 22 A7 36 39 30 00 |..Q$:.Q$."".690.| 00000970: 7F 11 BC 02 8B 51 24 B2 22 4A 22 A7 34 34 30 00 |.....Q$."J".440.| 00000980: BE 11 C6 02 99 22 93 4F 4D 20 54 45 20 56 4F 4F |.....".OM TE VOO| 00000990: 52 4B 4F 4D 45 4E 2C 20 44 41 54 20 49 4B 20 5A |RKOMEN, DAT IK Z| 000009A0: 45 47 3A 22 3A 99 22 11 20 20 20 27 4F 55 54 20 |EG:":.". 'OUT | 000009B0: 4F 46 20 44 41 54 41 20 45 52 52 4F 52 27 00 ED |OF DATA ERROR'..| 000009C0: 11 D0 02 99 22 11 4D 4F 45 54 20 4A 45 20 5A 4F |....".MOET JE ZO| 000009D0: 52 47 45 4E 2C 20 44 41 54 20 45 52 20 56 4F 4C |RGEN, DAT ER VOL| 000009E0: 44 4F 45 4E 44 45 20 27 44 41 54 41 27 00 1C 12 |DOENDE 'DATA'...| 000009F0: DA 02 99 22 11 53 54 41 54 45 4D 45 4E 54 53 20 |...".STATEMENTS | 00000A00: 5A 49 4A 4E 2C 20 4F 46 20 45 45 4E 20 53 49 47 |ZIJN, OF EEN SIG| 00000A10: 4E 41 41 4C 20 4F 50 4E 45 4D 45 4E 00 4B 12 E4 |NAAL OPNEMEN.K..| 00000A20: 02 99 22 11 44 41 54 20 49 4E 20 48 45 54 20 50 |..".DAT IN HET P| 00000A30: 52 4F 47 52 41 4D 4D 41 20 4D 49 4A 20 57 41 41 |ROGRAMMA MIJ WAA| 00000A40: 52 53 43 48 55 57 44 20 44 41 54 00 6A 12 EE 02 |RSCHUWD DAT.j...| 00000A50: 99 22 11 45 52 20 47 45 45 4E 20 44 41 54 41 20 |.".ER GEEN DATA | 00000A60: 4D 45 45 52 20 4B 4F 4D 45 4E 00 84 12 F8 02 99 |MEER KOMEN......| 00000A70: 22 11 20 20 20 31 30 20 46 4F 52 20 4E 3D 30 20 |". 10 FOR N=0 | 00000A80: 54 4F 20 33 00 BD 12 02 03 99 22 20 20 20 31 35 |TO 3......" 15| 00000A90: 20 52 45 41 44 20 42 24 3A 49 46 20 42 24 3D 22 | READ B$:IF B$="| 00000AA0: C7 28 33 34 29 22 2D 39 39 39 22 C7 28 33 34 29 |.(34)"-999".(34)| 00000AB0: 22 54 48 45 4E 20 52 45 53 54 4F 52 45 00 CD 12 |"THEN RESTORE...| 00000AC0: 0C 03 99 22 20 20 20 32 30 20 3F 42 24 00 ED 12 |..." 20 ?B$...| 00000AD0: 16 03 99 22 20 20 20 33 30 20 44 41 54 41 20 41 |..." 30 DATA A| 00000AE0: 50 50 4C 45 2C 43 41 54 2C 2D 39 39 39 00 1D 13 |PPLE,CAT,-999...| 00000AF0: 20 03 99 22 11 41 4C 53 20 49 4B 20 44 45 20 27 | ..".ALS IK DE '| 00000B00: 56 4C 41 47 27 20 27 2D 39 39 39 27 20 4C 45 45 |VLAG' '-999' LEE| 00000B10: 53 20 28 42 24 20 3D 20 2D 39 39 39 29 00 49 13 |S (B$ = -999).I.| 00000B20: 2A 03 99 22 57 4F 52 44 45 4E 20 44 41 54 41 20 |*.."WORDEN DATA | 00000B30: 27 52 45 53 54 4F 52 45 44 27 20 45 4E 20 4B 55 |'RESTORED' EN KU| 00000B40: 4E 4E 45 4E 20 57 45 45 52 00 6F 13 34 03 99 22 |NNEN WEER.o.4.."| 00000B50: 11 4F 50 4E 49 45 55 57 20 47 45 4C 45 5A 45 4E |.OPNIEUW GELEZEN| 00000B60: 20 57 4F 52 44 45 4E 2E 22 3A 8D 31 37 31 30 00 | WORDEN.":.1710.| 00000B70: 9A 13 3E 03 99 22 93 27 46 4F 52 A4 4E 45 58 54 |..>..".'FOR.NEXT| 00000B80: 27 20 4C 4F 4F 50 53 20 54 45 4C 4C 45 4E 20 4E |' LOOPS TELLEN N| 00000B90: 4F 52 4D 41 41 4C 20 45 45 4E 00 C9 13 48 03 99 |ORMAAL EEN...H..| 00000BA0: 22 11 54 45 47 45 4C 49 4A 4B 20 4F 50 20 50 45 |".TEGELIJK OP PE| 00000BB0: 52 20 4F 50 44 52 41 43 48 54 20 53 45 52 49 45 |R OPDRACHT SERIE| 00000BC0: 2C 20 4D 41 41 52 20 27 54 00 F6 13 52 03 99 22 |, MAAR 'T...R.."| 00000BD0: 11 49 53 20 4D 4F 47 45 4C 49 4A 4B 20 44 41 41 |.IS MOGELIJK DAA| 00000BE0: 52 20 56 45 52 41 4E 44 45 52 49 4E 20 49 4E 20 |R VERANDERIN IN | 00000BF0: 41 41 4E 20 54 45 00 1D 14 5C 03 99 22 11 42 52 |AAN TE...\..".BR| 00000C00: 45 4E 47 45 4E 20 4D 45 54 20 48 45 54 20 12 53 |ENGEN MET HET .S| 00000C10: 54 45 50 92 20 43 4F 4D 4D 41 4E 44 4F 00 42 14 |TEP. COMMANDO.B.| 00000C20: 66 03 99 22 11 11 20 20 20 20 32 30 20 20 46 4F |f..".. 20 FO| 00000C30: 52 20 42 3D 30 20 54 4F 20 35 30 20 53 54 45 50 |R B=0 TO 50 STEP| 00000C40: 20 32 00 57 14 70 03 99 22 20 20 20 20 33 30 20 | 2.W.p.." 30 | 00000C50: 20 4E 45 58 54 20 42 00 97 14 7A 03 99 22 11 11 | NEXT B...z.."..| 00000C60: 5A 4F 20 57 4F 52 44 54 20 45 52 20 54 45 4C 4B |ZO WORDT ER TELK| 00000C70: 45 4E 53 2C 20 50 45 52 20 27 4C 4F 4F 50 27 20 |ENS, PER 'LOOP' | 00000C80: 32 20 20 20 20 20 20 20 11 42 49 4A 20 42 20 4F |2 .BIJ B O| 00000C90: 50 47 45 54 45 4C 44 00 BF 14 84 03 99 22 11 44 |PGETELD......".D| 00000CA0: 45 20 45 45 52 53 54 45 20 4B 45 45 52 20 49 53 |E EERSTE KEER IS| 00000CB0: 20 42 20 47 45 4C 49 4A 4B 20 41 41 4E 20 30 00 | B GELIJK AAN 0.| 00000CC0: 02 15 8E 03 99 22 11 4D 41 41 52 20 49 4E 20 44 |.....".MAAR IN D| 00000CD0: 45 20 54 57 45 45 44 45 20 52 4F 4E 44 45 4E 20 |E TWEEDE RONDEN | 00000CE0: 57 4F 52 44 54 20 42 3A 20 20 20 20 20 20 20 11 |WORDT B: .| 00000CF0: 32 2D 34 2D 36 2D 38 20 45 4E 5A 22 3A 8D 31 37 |2-4-6-8 ENZ":.17| 00000D00: 31 30 00 2D 15 98 03 99 22 93 54 45 52 55 47 20 |10.-....".TERUG | 00000D10: 54 45 4C 4C 45 4E 20 4B 41 4E 20 4F 4F 4B 20 44 |TELLEN KAN OOK D| 00000D20: 4F 4F 52 20 45 45 4E 56 4F 55 44 49 47 00 5A 15 |OOR EENVOUDIG.Z.| 00000D30: A2 03 99 22 11 45 45 4E 20 4D 49 4E 54 45 4B 45 |...".EEN MINTEKE| 00000D40: 4E 20 54 45 20 50 4C 41 41 54 53 45 4E 20 41 43 |N TE PLAATSEN AC| 00000D50: 48 54 45 52 20 53 54 45 50 3A 00 7D 15 AC 03 99 |HTER STEP:.}....| 00000D60: 22 11 11 20 20 20 20 20 46 4F 52 20 42 3D 31 30 |".. FOR B=10| 00000D70: 20 54 4F 20 30 20 53 54 45 50 20 2D 32 00 AC 15 | TO 0 STEP -2...| 00000D80: B6 03 99 22 11 11 42 20 53 54 41 52 54 20 42 49 |..."..B START BI| 00000D90: 4A 20 31 30 20 45 4E 20 49 4E 20 44 45 20 56 4F |J 10 EN IN DE VO| 00000DA0: 4C 47 45 4E 44 45 20 52 4F 4E 44 45 00 D9 15 C0 |LGENDE RONDE....| 00000DB0: 03 99 22 11 57 4F 52 44 54 20 42 20 38 3B 20 45 |..".WORDT B 8; E| 00000DC0: 4E 5A 2E 20 54 4F 54 20 42 20 47 45 4C 49 4A 4B |NZ. TOT B GELIJK| 00000DD0: 20 49 53 20 41 41 4E 20 30 00 09 16 CA 03 99 22 | IS AAN 0......"| 00000DE0: 11 4D 45 4E 20 4E 4F 45 4D 54 20 44 49 54 20 27 |.MEN NOEMT DIT '| 00000DF0: 52 45 56 45 52 53 45 20 53 54 45 50 50 49 4E 47 |REVERSE STEPPING| 00000E00: 27 2E 22 3A 8D 31 37 31 30 00 2C 16 D4 03 99 22 |'.":.1710.,...."| 00000E10: 93 45 45 4E 20 41 4E 44 45 52 20 53 4F 4F 52 20 |.EEN ANDER SOOR | 00000E20: 41 52 52 41 59 20 49 53 20 48 45 54 00 56 16 DE |ARRAY IS HET.V..| 00000E30: 03 99 22 11 32 2D 44 49 4D 45 4E 53 49 4F 4E 41 |..".2-DIMENSIONA| 00000E40: 4C 45 20 41 52 52 41 59 20 4F 46 57 45 4C 20 12 |LE ARRAY OFWEL .| 00000E50: 4D 41 54 52 49 58 00 84 16 E8 03 99 22 11 48 45 |MATRIX......".HE| 00000E60: 54 20 44 49 4D 2D 43 4F 4D 4D 41 4E 44 4F 20 49 |T DIM-COMMANDO I| 00000E70: 53 20 41 4C 54 49 4A 44 20 4E 4F 44 49 47 20 45 |S ALTIJD NODIG E| 00000E80: 4E 20 45 52 00 A4 16 F2 03 99 22 11 4B 4F 4D 4D |N ER......".KOMM| 00000E90: 41 20 54 55 53 53 45 4E 3A 20 44 49 4D 20 50 28 |A TUSSEN: DIM P(| 00000EA0: 32 2C 32 29 00 C9 16 FC 03 99 22 11 4F 50 20 44 |2,2)......".OP D| 00000EB0: 45 5A 45 20 57 49 4A 5A 45 20 5A 49 45 20 49 4B |EZE WIJZE ZIE IK| 00000EC0: 20 50 28 32 2C 32 29 3A 11 00 D8 16 06 04 99 22 | P(2,2):......."| 00000ED0: 20 B0 C0 B2 C0 B2 C0 AE 00 03 17 10 04 99 22 30 | ............."0| 00000EE0: DD 35 DD 39 DD 30 DD 20 50 28 30 2C 30 29 3D 20 |.5.9.0. P(0,0)= | 00000EF0: 20 3A 50 28 30 2C 31 29 3D 20 20 3A 50 28 30 2C | :P(0,1)= :P(0,| 00000F00: 32 29 3D 00 12 17 1A 04 99 22 20 AB C0 DB C0 DB |2)=......" .....| 00000F10: C0 B3 00 3D 17 24 04 99 22 31 DD 31 DD 39 DD 34 |...=.$.."1.1.9.4| 00000F20: DD 20 50 28 31 2C 30 29 3D 20 20 3A 50 28 31 2C |. P(1,0)= :P(1,| 00000F30: 31 29 3D 20 20 3A 50 28 31 2C 32 29 3D 00 4C 17 |1)= :P(1,2)=.L.| 00000F40: 2E 04 99 22 20 AB C0 DB C0 DB C0 B3 00 77 17 38 |..." ........w.8| 00000F50: 04 99 22 32 DD 37 DD 33 DD 31 DD 20 50 28 32 2C |.."2.7.3.1. P(2,| 00000F60: 30 29 3D 20 20 3A 50 28 32 2C 31 29 3D 20 20 3A |0)= :P(2,1)= :| 00000F70: 50 28 32 2C 32 29 3D 00 86 17 42 04 99 22 20 AD |P(2,2)=...B.." .| 00000F80: C0 B1 C0 B1 C0 BD 00 94 17 4C 04 99 22 20 20 30 |.........L.." 0| 00000F90: 20 31 20 32 00 BE 17 56 04 99 22 11 48 45 54 20 | 1 2...V..".HET | 00000FA0: 45 45 52 53 54 45 20 43 49 4A 46 45 52 20 47 45 |EERSTE CIJFER GE| 00000FB0: 45 46 54 20 44 45 20 52 49 4A 20 41 41 4E 00 EA |EFT DE RIJ AAN..| 00000FC0: 17 60 04 99 22 11 45 4E 20 48 45 54 20 54 57 45 |.`..".EN HET TWE| 00000FD0: 45 44 45 20 43 49 4A 46 45 52 20 44 45 20 4B 4F |EDE CIJFER DE KO| 00000FE0: 4C 4F 4D 22 3A 8D 31 37 31 30 00 12 18 6A 04 99 |LOM":.1710...j..| 00000FF0: 22 93 4F 4D 20 45 45 4E 20 4D 41 54 52 49 58 20 |".OM EEN MATRIX | 00001000: 54 45 20 56 4F 52 4D 45 4E 20 49 53 20 45 52 20 |TE VORMEN IS ER | 00001010: 27 4E 00 39 18 74 04 99 22 11 54 45 43 48 4E 49 |'N.9.t..".TECHNI| 00001020: 45 4B 20 47 45 4E 41 41 4D 44 20 27 4E 45 53 54 |EK GENAAMD 'NEST| 00001030: 45 44 20 4C 4F 4F 50 53 27 00 6A 18 7E 04 99 22 |ED LOOPS'.j.~.."| 00001040: 11 44 57 5A 2E 20 45 45 4E 20 4C 4F 4F 50 20 55 |.DWZ. EEN LOOP U| 00001050: 49 54 47 45 56 4F 45 52 44 20 49 4E 20 45 45 4E |ITGEVOERD IN EEN| 00001060: 20 41 4E 44 45 52 45 3A 11 11 00 83 18 88 04 99 | ANDERE:........| 00001070: 22 B0 C0 20 31 30 20 46 4F 52 20 50 3D 30 20 54 |".. 10 FOR P=0 T| 00001080: 4F 20 37 00 8B 18 92 04 99 22 DD 00 A4 18 9C 04 |O 7......"......| 00001090: 99 22 DD B0 20 32 30 20 46 4F 52 20 51 3D 30 20 |.".. 20 FOR Q=0 | 000010A0: 54 4F 20 33 00 AD 18 A6 04 99 22 DD DD 00 C0 18 |TO 3......".....| 000010B0: B0 04 99 22 DD AD 20 33 30 20 4E 45 58 54 20 51 |...".. 30 NEXT Q| 000010C0: 00 C8 18 BA 04 99 22 DD 00 DB 18 C4 04 99 22 AD |......".......".| 000010D0: C0 20 34 30 20 4E 45 58 54 20 50 00 07 19 CE 04 |. 40 NEXT P.....| 000010E0: 99 22 11 11 49 4E 20 45 4C 4B 45 20 27 50 27 20 |."..IN ELKE 'P' | 000010F0: 4C 4F 4F 50 20 57 4F 52 44 54 20 45 45 4E 20 27 |LOOP WORDT EEN '| 00001100: 51 27 20 4C 4F 4F 50 00 28 19 D8 04 99 22 11 56 |Q' LOOP.(....".V| 00001110: 4F 4C 4C 45 44 49 47 20 41 46 47 45 4D 41 41 4B |OLLEDIG AFGEMAAK| 00001120: 54 22 3A 8D 31 37 31 30 00 69 19 E2 04 99 22 11 |T":.1710.i....".| 00001130: 11 11 11 11 11 11 11 11 11 13 11 11 11 11 11 11 |................| 00001140: 11 11 11 48 45 54 20 49 53 20 56 41 4E 20 47 52 |...HET IS VAN GR| 00001150: 4F 4F 54 53 54 20 42 45 4C 41 4E 47 2C 20 44 41 |OOTST BELANG, DA| 00001160: 54 20 44 45 20 4C 4F 4F 50 00 95 19 EC 04 99 22 |T DE LOOP......"| 00001170: 11 49 4E 20 44 45 20 41 4E 44 45 52 45 20 45 45 |.IN DE ANDERE EE| 00001180: 4E 20 27 4E 45 58 54 20 56 49 4E 44 20 4D 45 54 |N 'NEXT VIND MET| 00001190: 20 5A 49 4A 4E 00 C0 19 F6 04 99 22 11 45 49 47 | ZIJN......".EIG| 000011A0: 45 4E 20 27 54 45 4C 56 41 52 49 41 42 45 4C 45 |EN 'TELVARIABELE| 000011B0: 27 20 44 41 41 52 20 45 52 20 41 4E 44 45 52 53 |' DAAR ER ANDERS| 000011C0: 00 E9 19 00 05 99 22 11 47 45 47 45 56 45 4E 53 |......".GEGEVENS| 000011D0: 20 56 45 52 4C 4F 52 45 4E 20 47 41 41 4E 2C 20 | VERLOREN GAAN, | 000011E0: 4F 4D 20 44 41 54 20 44 45 00 22 1A 0A 05 99 22 |OM DAT DE."...."| 000011F0: 11 4C 4F 4F 50 27 53 20 4E 49 45 54 20 56 4F 4C |.LOOP'S NIET VOL| 00001200: 4C 45 44 49 47 20 55 49 54 47 45 56 4F 45 52 44 |LEDIG UITGEVOERD| 00001210: 20 57 4F 52 44 45 4E 11 11 11 11 22 3A 8D 31 37 | WORDEN....":.17| 00001220: 31 30 00 2C 1A 14 05 8D 31 36 34 30 00 59 1A 1E |10.,....1640.Y..| 00001230: 05 99 22 93 57 49 4C 20 4A 45 20 44 49 54 20 4C |..".WIL JE DIT L| 00001240: 41 41 54 53 54 45 20 4E 4F 47 20 45 45 4E 53 20 |AATSTE NOG EENS | 00001250: 5A 49 45 4E 20 20 4A 2F 4E 00 6D 1A 28 05 A1 51 |ZIEN J/N.m.(..Q| 00001260: 24 3A 8B 51 24 B2 22 22 A7 31 33 32 30 00 80 1A |$:.Q$."".1320...| 00001270: 32 05 8B 51 24 B2 C7 28 31 33 29 89 31 33 32 30 |2..Q$..(13).1320| 00001280: 00 90 1A 3C 05 8B 51 24 B2 22 4A 22 A7 39 38 30 |...<..Q$."J".980| 00001290: 00 A8 1A 46 05 99 A3 31 35 29 22 93 12 53 55 42 |...F...15)"..SUB| 000012A0: 52 4F 55 54 49 4E 45 53 00 D9 1A 50 05 99 22 11 |ROUTINES...P..".| 000012B0: 11 48 45 54 20 4B 4F 4D 54 20 56 4F 4F 52 20 44 |.HET KOMT VOOR D| 000012C0: 41 54 20 49 4E 20 45 45 4E 20 50 52 4F 47 52 41 |AT IN EEN PROGRA| 000012D0: 4D 4D 41 20 56 41 4B 45 52 00 07 1B 5A 05 99 22 |MMA VAKER...Z.."| 000012E0: 45 45 4E 20 5A 45 4C 46 44 45 20 52 4F 55 54 49 |EEN ZELFDE ROUTI| 000012F0: 4E 45 20 48 45 52 48 41 41 4C 44 20 4D 4F 45 54 |NE HERHAALD MOET| 00001300: 20 57 4F 52 44 45 4E 00 36 1B 64 05 99 22 11 5A | WORDEN.6.d..".Z| 00001310: 4F 27 4E 20 53 54 55 4B 4A 45 20 50 4C 41 41 54 |O'N STUKJE PLAAT| 00001320: 53 45 4E 20 57 45 20 42 56 2E 20 41 41 4E 20 27 |SEN WE BV. AAN '| 00001330: 54 20 45 49 4E 44 00 5B 1B 6E 05 99 22 11 56 41 |T EIND.[.n..".VA| 00001340: 4E 20 27 54 20 50 52 4F 47 52 41 4D 4D 41 20 45 |N 'T PROGRAMMA E| 00001350: 4E 20 4E 4F 45 4D 45 4E 20 57 45 00 89 1B 78 05 |N NOEMEN WE...x.| 00001360: 99 22 11 27 53 55 42 52 4F 55 54 49 4E 45 27 3B |.".'SUBROUTINE';| 00001370: 20 5A 45 20 4B 41 4E 20 5A 4F 20 56 41 41 4B 20 | ZE KAN ZO VAAK | 00001380: 41 4C 53 20 4E 4F 44 49 47 00 B0 1B 82 05 99 22 |ALS NODIG......"| 00001390: 11 57 4F 52 44 45 4E 20 41 41 4E 47 45 53 50 52 |.WORDEN AANGESPR| 000013A0: 4F 4B 45 4E 20 4D 45 54 20 27 47 4F 53 55 42 27 |OKEN MET 'GOSUB'| 000013B0: 00 E1 1B 8C 05 99 22 11 50 4C 55 53 20 27 54 20 |......".PLUS 'T | 000013C0: 52 45 47 45 4C 4E 55 4D 4D 45 52 20 57 41 41 52 |REGELNUMMER WAAR| 000013D0: 20 5A 45 20 42 45 47 49 4E 54 22 3A 8D 31 37 31 | ZE BEGINT":.171| 000013E0: 30 00 10 1C 96 05 99 22 93 48 45 54 20 4C 41 41 |0......".HET LAA| 000013F0: 54 53 54 45 20 43 4F 4D 4D 41 4E 44 4F 20 56 41 |TSTE COMMANDO VA| 00001400: 4E 20 45 45 4E 20 53 55 42 52 4F 55 54 49 4E 45 |N EEN SUBROUTINE| 00001410: 00 3C 1C A0 05 99 22 11 49 53 20 41 4C 54 49 4A |.<....".IS ALTIJ| 00001420: 44 20 27 52 45 54 55 52 4E 27 2C 20 57 41 41 52 |D 'RETURN', WAAR| 00001430: 44 4F 4F 52 20 49 4B 20 57 45 45 54 00 75 1C AA |DOOR IK WEET.u..| 00001440: 05 99 22 11 44 41 54 20 49 4B 20 54 45 52 55 47 |..".DAT IK TERUG| 00001450: 20 4D 4F 45 54 20 4E 41 41 52 20 57 41 41 52 20 | MOET NAAR WAAR | 00001460: 49 4B 20 57 41 53 20 20 20 20 20 20 11 47 45 42 |IK WAS .GEB| 00001470: 4C 45 56 45 4E 00 A1 1C B4 05 99 22 11 47 45 45 |LEVEN......".GEE| 00001480: 46 20 4E 4F 4F 49 54 20 48 45 54 20 27 43 4C 52 |F NOOIT HET 'CLR| 00001490: 27 20 43 4F 4D 4D 41 4E 44 4F 20 49 4E 20 45 45 |' COMMANDO IN EE| 000014A0: 4E 00 CF 1C BE 05 99 22 11 53 55 42 52 4F 55 54 |N......".SUBROUT| 000014B0: 49 4E 45 2C 20 57 41 4E 54 20 44 41 4E 20 57 45 |INE, WANT DAN WE| 000014C0: 45 54 20 49 4B 20 4E 49 45 54 20 4D 45 45 52 00 |ET IK NIET MEER.| 000014D0: F6 1C C8 05 99 22 11 57 41 41 52 20 49 4B 20 56 |.....".WAAR IK V| 000014E0: 41 4E 44 41 41 4E 20 4B 57 41 4D 20 45 4E 20 5A |ANDAAN KWAM EN Z| 000014F0: 45 47 20 49 4B 3A 00 21 1D D2 05 99 22 11 27 52 |EG IK:.!....".'R| 00001500: 45 54 55 52 4E 20 57 49 54 48 4F 55 54 20 47 4F |ETURN WITHOUT GO| 00001510: 53 55 42 27 20 45 52 52 4F 52 22 3A 8D 31 37 31 |SUB' ERROR":.171| 00001520: 30 00 4F 1D DC 05 99 22 93 56 4F 4F 52 57 41 41 |0.O....".VOORWAA| 00001530: 52 44 45 4E 20 49 4E 20 45 45 4E 20 27 49 46 A4 |RDEN IN EEN 'IF.| 00001540: 54 48 45 4E 27 20 53 54 41 54 45 4D 45 4E 54 00 |THEN' STATEMENT.| 00001550: 80 1D E6 05 99 22 11 11 20 20 49 46 20 41 3C 35 |.....".. IF A<5| 00001560: 20 42 45 54 45 4B 45 4E 54 20 41 4C 53 20 41 20 | BETEKENT ALS A | 00001570: 4B 4C 45 49 4E 45 52 20 44 41 4E 20 35 20 49 53 |KLEINER DAN 5 IS| 00001580: 00 AF 1D F0 05 99 22 11 20 20 49 46 20 51 3E 31 |......". IF Q>1| 00001590: 20 42 45 54 45 4B 45 4E 54 20 41 4C 53 20 51 20 | BETEKENT ALS Q | 000015A0: 47 52 4F 54 45 52 20 44 41 4E 20 31 20 49 53 00 |GROTER DAN 1 IS.| 000015B0: DD 1D FA 05 99 22 11 11 20 20 3C 3D 20 57 49 4C |.....".. <= WIL| 000015C0: 20 5A 45 47 47 45 4E 20 47 45 4C 49 4A 4B 20 4F | ZEGGEN GELIJK O| 000015D0: 46 20 4B 4C 45 49 4E 45 52 20 44 41 4E 00 0A 1E |F KLEINER DAN...| 000015E0: 04 06 99 22 11 11 20 20 3D 3E 20 57 49 4C 20 5A |...".. => WIL Z| 000015F0: 45 47 47 45 4E 20 47 45 4C 49 4A 4B 20 4F 46 20 |EGGEN GELIJK OF | 00001600: 47 52 4F 54 45 52 20 44 41 4E 00 39 1E 0E 06 99 |GROTER DAN.9....| 00001610: 22 11 11 20 20 3C 3E 20 57 49 4C 20 5A 45 47 47 |".. <> WIL ZEGG| 00001620: 45 4E 20 4E 49 45 54 20 47 45 4C 49 4A 4B 20 41 |EN NIET GELIJK A| 00001630: 41 4E 22 3A 8D 31 37 31 30 00 77 1E 18 06 99 22 |AN":.1710.w...."| 00001640: 93 12 4E 4F 54 92 20 20 4D 45 54 20 45 45 4E 20 |..NOT. MET EEN | 00001650: 56 41 52 49 41 42 45 4C 45 20 57 49 4C 20 5A 45 |VARIABELE WIL ZE| 00001660: 47 45 4E 20 49 4E 3A 20 20 20 20 20 20 20 20 20 |GEN IN: | 00001670: 20 20 20 20 B7 B7 B7 00 96 1E 22 06 99 22 11 20 | ......"..". | 00001680: 20 20 20 31 30 20 49 46 20 4E 4F 54 20 58 20 54 | 10 IF NOT X T| 00001690: 48 45 4E 20 32 30 00 C2 1E 2C 06 99 22 11 11 41 |HEN 20...,.."..A| 000016A0: 4C 53 20 58 20 49 53 20 4E 49 45 54 20 47 52 4F |LS X IS NIET GRO| 000016B0: 54 45 52 20 44 41 20 4E 55 4C 20 49 53 20 44 41 |TER DA NUL IS DA| 000016C0: 4E 3A 00 E1 1E 36 06 99 22 11 47 41 20 4E 41 41 |N:...6..".GA NAA| 000016D0: 52 20 52 45 47 45 4C 20 32 30 22 3A 8D 31 37 31 |R REGEL 20":.171| 000016E0: 30 00 0E 1F 40 06 99 22 93 57 49 4C 20 4A 45 20 |0...@..".WIL JE | 000016F0: 44 45 5A 45 20 4C 45 53 20 4E 4F 47 20 45 45 4E |DEZE LES NOG EEN| 00001700: 20 4B 45 45 52 54 4A 45 20 4A 2F 4E 20 3F 00 22 | KEERTJE J/N ?."| 00001710: 1F 4A 06 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 36 |.J..Q$:.Q$."".16| 00001720: 31 30 00 35 1F 54 06 8B 51 24 B2 C7 28 31 33 29 |10.5.T..Q$..(13)| 00001730: 89 31 36 31 30 00 3E 1F 5E 06 8F 4E 45 57 00 77 |.1610.>.^..NEW.w| 00001740: 1F 68 06 99 22 13 11 11 11 11 11 11 11 11 11 49 |.h.."..........I| 00001750: 4E 20 44 49 54 20 56 4F 4F 52 42 45 45 4C 44 20 |N DIT VOORBEELD | 00001760: 44 4F 45 54 20 44 45 20 27 50 27 20 4C 4F 4F 50 |DOET DE 'P' LOOP| 00001770: 20 20 20 20 20 20 22 00 A5 1F 72 06 99 22 11 38 | "...r..".8| 00001780: 20 53 54 41 50 50 45 4E 20 28 30 20 54 4F 54 20 | STAPPEN (0 TOT | 00001790: 37 20 5A 49 4A 4E 20 38 20 43 49 4A 46 45 52 53 |7 ZIJN 8 CIJFERS| 000017A0: 21 29 20 20 22 00 D5 1F 7C 06 99 22 11 44 45 20 |!) "...|..".DE | 000017B0: 51 20 4C 4F 4F 50 20 44 4F 45 54 20 34 20 53 54 |Q LOOP DOET 4 ST| 000017C0: 41 50 50 45 4E 20 5A 4F 44 41 54 20 44 45 20 4D |APPEN ZODAT DE M| 000017D0: 41 54 52 49 58 00 03 20 86 06 99 22 45 45 4E 20 |ATRIX.. ..."EEN | 000017E0: 49 4E 48 4F 55 44 20 48 45 45 46 54 20 56 41 4E |INHOUD HEEFT VAN| 000017F0: 20 34 2A 38 3D 33 32 20 4C 4F 4B 41 54 49 45 53 | 4*8=32 LOKATIES| 00001800: 20 20 22 00 33 20 90 06 99 22 11 44 45 5A 45 20 | ".3 ...".DEZE | 00001810: 55 49 54 4B 4F 4D 53 54 20 4D 41 47 20 4E 4F 4F |UITKOMST MAG NOO| 00001820: 49 54 20 47 52 4F 54 45 52 20 44 41 4E 20 32 35 |IT GROTER DAN 25| 00001830: 36 20 22 00 63 20 9A 06 99 22 11 57 4F 52 44 45 |6 ".c ...".WORDE| 00001840: 4E 20 4F 4D 44 41 54 20 4A 45 20 41 4E 44 45 52 |N OMDAT JE ANDER| 00001850: 53 20 42 55 49 54 45 4E 20 44 45 20 47 52 45 4E |S BUITEN DE GREN| 00001860: 5A 45 4E 00 8D 20 A4 06 99 22 56 41 4E 20 4D 49 |ZEN.. ..."VAN MI| 00001870: 4A 4E 20 42 45 52 45 49 4B 20 4B 4F 4D 54 21 21 |JN BEREIK KOMT!!| 00001880: 22 3A 8D 31 37 31 30 3A 89 31 37 34 35 00 B2 20 |":.1710:.1745.. | 00001890: AE 06 99 22 11 12 56 4F 4F 52 20 56 45 52 44 45 |..."..VOOR VERDE| 000018A0: 52 3A 20 44 52 55 4B 20 4F 50 20 27 53 50 41 43 |R: DRUK OP 'SPAC| 000018B0: 45 27 00 C6 20 B8 06 A1 41 24 3A 8B 41 24 B2 22 |E'.. ...A$:.A$."| 000018C0: 22 A7 31 37 32 30 00 CC 20 C2 06 8E 00 E0 20 CC |".1720.. ..... .| 000018D0: 06 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 36 31 30 |..Q$:.Q$."".1610| 000018E0: 00 FF 20 D1 06 99 22 93 11 11 11 11 12 C4 49 54 |.. ...".......IT| 000018F0: 20 57 41 53 20 48 45 54 20 44 41 4E 2E 92 22 00 | WAS HET DAN..".| 00001900: 2C 21 D6 06 99 22 11 CC 45 45 52 20 44 45 20 52 |,!..."..EER DE R| 00001910: 45 53 54 20 44 4F 4F 52 20 42 4F 45 4B 45 4E 20 |EST DOOR BOEKEN | 00001920: 45 4E 20 4C 49 53 54 49 4E 47 53 22 00 42 21 E0 |EN LISTINGS".B!.| 00001930: 06 99 22 54 45 20 42 45 53 54 55 44 45 52 45 4E |.."TE BESTUDEREN| 00001940: 2E 22 00 60 21 EA 06 99 22 11 11 11 20 20 20 20 |.".`!..."... | 00001950: 20 20 20 20 20 D3 D5 C3 C3 C5 D3 20 21 21 21 22 | ...... !!!"| 00001960: 00 66 21 F4 06 80 00 81 21 B8 0B 8F 20 53 41 56 |.f!.....!... SAV| 00001970: 45 22 40 3A 42 41 53 49 43 4C 45 53 20 35 22 2C |E"@:BASICLES 5",| 00001980: 38 00 A4 21 88 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |8..!... ********| 00001990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000019A0: 2A 2A 2A 2A 00 C3 21 92 13 8F 20 54 45 53 54 20 |****..!... TEST | 000019B0: 4F 50 20 44 49 53 4B 20 4F 46 20 43 41 53 53 45 |OP DISK OF CASSE| 000019C0: 54 54 45 00 DD 21 9C 13 58 B2 C2 28 32 29 3A 8B |TTE..!..X..(2):.| 000019D0: 58 B2 31 B0 58 B2 38 B0 58 B2 38 A7 8E 00 03 22 |X.1.X.8.X.8...."| 000019E0: A6 13 99 22 93 11 11 11 11 11 C8 45 45 46 54 20 |...".......EEFT | 000019F0: 55 20 45 45 4E 20 43 41 53 53 45 54 54 45 20 28 |U EEN CASSETTE (| 00001A00: 31 29 22 00 2C 22 B0 13 99 22 11 4F 46 20 45 45 |1)".,"...".OF EE| 00001A10: 4E 20 44 52 49 56 45 20 28 38 29 20 4D 45 54 20 |N DRIVE (8) MET | 00001A20: 44 45 5A 45 20 4C 45 53 53 45 4E 22 00 46 22 BA |DEZE LESSEN".F".| 00001A30: 13 85 22 11 11 47 45 45 46 20 31 20 4F 46 20 38 |.."..GEEF 1 OF 8| 00001A40: 22 3B 41 3A 99 41 00 62 22 C4 13 8B 41 B3 B1 31 |";A:.A.b"...A..1| 00001A50: AF 41 B3 B1 38 A7 99 22 91 91 22 3B 3A 89 35 30 |.A..8.."..";:.50| 00001A60: 35 30 00 6B 22 CE 13 97 32 2C 41 00 71 22 D8 13 |50.k"...2,A.q"..| 00001A70: 8E 00 94 22 E2 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..."... ********| 00001A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001A90: 2A 2A 2A 2A 00 00 00 EA 00 48 43 FF |****.....HC. |
....Z..53280,6:.53281,6:.G(14).).C.. 500
0.L.D..". ==='FOR.NEXT' LOOPS===.N.N
.." ======================...X..".CO
MPUTERS WORDEN VAAK GEBRUIKT OM DIE.H...
.".DINGEN TE DOEN DIE VOOR ONS VERVELEND
......".EN EENTONIG ZIJN OM TE MOETEN DO
EN......"..DIT KAN MET EEN COMPUTER MET
EEN.M. ..".REPETEER COMMANDO; DE FOR.NEX
T LOOP":.1710.E....".20 FOR X=1 TO 10.Y.
..."30 A(X)=10*X......"40 NEXT X...H.."
..IN REGEL 20 ZIE IK, DAT IK IETS VAN...
R..".EEN TOT TIEN MOET HERHALEN EN IN RE
GEL......".40 ZIE IK PAS, DAT 'T IETS IS
UITGEVOERD.B....".IN REGEL 30 ZIE IK WA
T ER HERHAALDELIJK.P....".MOET GEBEUREN:
MAAK A(IN RANGVOLGORDE)......".GELIJK A
AN 10*DE RANGVOLGORDE.A....".ALS IK DAT
VAN EEN TOT TIEN KEER HEB......".GEDAAN,
DAN STOP IK ER MEE":.1710......".DIE A(
X) IS EEN Z.G. 'ARRAY' VARIABELE.I."..".
.HET GETAL 'X' MAG NIET HOGER ZIJN DAN 1
0.Z.,.."ANDERS ZIE JE:":.". ?BAD SUBSC
RIPT ERROR...6..".JE KUNT WEL HOGER, MAA
R DAN MOET JE...@..".'DIMENSIONEREN' MET
HET 'DIM' COMMANDO:":.". DIM A(255)..
.J..".HOGER DAN 255 KAN NIET; ER PASEN M
AAR.;.T..".256 IN EEN ARRAY (VAN 0 TOT 2
55).H.^..".ZO WORDT RUIMTE GERESERVEERD
VOOR 256...H..".GETALLEN IN EEN ARRAY...
R..1710...|..".STRINGS KUNNEN OOK IN EEN
ARRAY STAAN......".OM MET 'SUBSCRIPT' T
E VERWERKEN":.".IN FOR.NEXT LOOPS.C...."
..HIERVOOR KUNEN WE DE .READ. AND .DATA.
.COMMANDO'S GEBRUIKEN.S...."..'DAT
A' KAN WILLEKEURIG IN HET PROGRAMMA.....
.".STAAN, IK KIJK ER PAS NAAR ALS IK":."
. 'READ'.P....".ALS COMMANDO TEGEN KOM
.":.1710......".ZO'N PROGRAMMA KAN ER ZO
UITZIEN:...B..".10 DIM A$(15).%.L.."20
FOR X=0 TO 15.9.V.."30 READ A$(X).I...."
50 NEXT X.`...."60 FOR X=0 TO 15.Q...."7
0 ?A$(X);......"80 NEXT X......"90 DATA
KAT,MAT,SLOT,KIP,FRANS,PAAL.U...."100 DA
TA WAS,VIS,RIJK,MIS,HEER,DAME......"110
DATA APPEL,ROVER,DOL,HAM.#.&..".DE STRIN
GS IN DATA STATMENTS HOEVEN.O.0..".NIET
TUSSEN AANHALINSTEKENS, BEHALVE.Y.:..".A
LS ER OOK LEESTEKENS TUSSEN STAAN...D.."
.DE WOORDEN MOETEN WEL GESCHEIDEN.D.N.."
.WORDEN DOOR KOMMA'S!":.1710...X..".DAT
PROGRAMMA LEEST DATA VAN DE DATA-...B.."
.STATMENTS, ELK OP Z'N BEURT.@.L..".MET
DE EESTE KEER LEZEN IS X=0, DUS:.M.V..".
A$(0)=KAT EN DE TWEEDE LOOP X=1 DUS:...
...".A$(1)=MAT ENZ. TOT: X=15 EN A$(15)=
HAM.H...."..DE PUNT-KOMMA VOORKOMT DAT I
K STEEDS......".NAAR EEN NIEUWE REGEL GA
, ZODAT ALLE.3....".WOORDEN OP EEN RIJTJ
E ACHTER ELKAAR .KOMEN TE STAAN.\...
."...WIL JE DIT NOG EENS DOORNEMEN ?.O..
..Q$:.Q$."".690.....Q$."J".440...F..".O
M TE VOORKOMEN, DAT IK ZEG:":.". 'OUT
OF DATA ERROR'...P..".MOET JE ZORGEN, DA
T ER VOLDOENDE 'DATA'...Z..".STATEMENTS
ZIJN, OF EEN SIGNAAL OPNEMEN.K....".DAT
IN HET PROGRAMMA MIJ WAARSCHUWD DAT.J...
.".ER GEEN DATA MEER KOMEN......". 10
FOR N=0 TO 3......" 15 READ B$:IF B$="
G(34)"-999"G(34)"THEN RESTORE.M...." 2
0 ?B$......" 30 DATA APPLE,CAT,-999...
..".ALS IK DE 'VLAG' '-999' LEES (B$ =
-999).I.*.."WORDEN DATA 'RESTORED' EN KU
NNEN WEER.O.4..".OPNIEUW GELEZEN WORDEN.
":.1710...>..".'FOR.NEXT' LOOPS TELLEN N
ORMAAL EEN.I.H..".TEGELIJK OP PER OPDRAC
HT SERIE, MAAR 'T...R..".IS MOGELIJK DAA
R VERANDERIN IN AAN TE...\..".BRENGEN ME
T HET .STEP. COMMANDO.B.F..".. 20 FO
R B=0 TO 50 STEP 2.W.P.." 30 NEXT B.
..Z.."..ZO WORDT ER TELKENS, PER 'LOOP'
2 .BIJ B OPGETELD......".DE EERSTE
KEER IS B GELIJK AAN 0......".MAAR IN D
E TWEEDE RONDEN WORDT B: .2-4-6-8
ENZ":.1710.-....".TERUG TELLEN KAN OOK D
OOR EENVOUDIG.Z....".EEN MINTEKEN TE PLA
ATSEN ACHTER STEP:.}....".. FOR B=10
TO 0 STEP -2......"..B START BIJ 10 EN
IN DE VOLGENDE RONDE.Y....".WORDT B 8; E
NZ. TOT B GELIJK IS AAN 0...J..".MEN NOE
MT DIT 'REVERSE STEPPING'.":.1710.,.T.."
.EEN ANDER SOOR ARRAY IS HET.V....".2-DI
MENSIONALE ARRAY OFWEL .MATRIX......".HE
T DIM-COMMANDO IS ALTIJD NODIG EN ER....
..".KOMMA TUSSEN: DIM P(2,2).I....".OP D
EZE WIJZE ZIE IK P(2,2):..X...." .......
......"0.5.9.0. P(0,0)= :P(0,1)= :P(0,
2)=......" ........=.$.."1.1.9.4. P(1,0)
= :P(1,1)= :P(1,2)=.L...." ........W.8
.."2.7.3.1. P(2,0)= :P(2,1)= :P(2,2)=.
..B.." ..........L.." 0 1 2...V..".HET
EERSTE CIJFER GEEFT DE RIJ AAN...`..".EN
HET TWEEDE CIJFER DE KOLOM":.1710...J..
".OM EEN MATRIX TE VORMEN IS ER 'N.9.T..
".TECHNIEK GENAAMD 'NESTED LOOPS'.J.~.."
.DWZ. EEN LOOP UITGEVOERD IN EEN ANDERE:
........".. 10 FOR P=0 TO 7......"......
.".. 20 FOR Q=0 TO 3......"........".. 3
0 NEXT Q.H...."....D..".. 40 NEXT P...N.
."..IN ELKE 'P' LOOP WORDT EEN 'Q' LOOP.
(.X..".VOLLEDIG AFGEMAAKT":.1710.I....".
...................HET IS VAN GROOTST BE
LANG, DAT DE LOOP......".IN DE ANDERE EE
N 'NEXT VIND MET ZIJN......".EIGEN 'TELV
ARIABELE' DAAR ER ANDERS......".GEGEVENS
VERLOREN GAAN, OM DAT DE."....".LOOP'S
NIET VOLLEDIG UITGEVOERD WORDEN....":.17
10.,....1640.Y....".WIL JE DIT LAATSTE N
OG EENS ZIEN J/N.M.(..Q$:.Q$."".1320...
2..Q$.G(13).1320...<..Q$."J".980...F...1
5)"..SUBROUTINES.Y.P.."..HET KOMT VOOR D
AT IN EEN PROGRAMMA VAKER...Z.."EEN ZELF
DE ROUTINE HERHAALD MOET WORDEN.6.D..".Z
O'N STUKJE PLAATSEN WE BV. AAN 'T EIND.[
.N..".VAN 'T PROGRAMMA EN NOEMEN WE...X.
.".'SUBROUTINE'; ZE KAN ZO VAAK ALS NODI
G......".WORDEN AANGESPROKEN MET 'GOSUB'
......".PLUS 'T REGELNUMMER WAAR ZE BEGI
NT":.1710......".HET LAATSTE COMMANDO VA
N EEN SUBROUTINE.<. ..".IS ALTIJD 'RETUR
N', WAARDOOR IK WEET.U....".DAT IK TERUG
MOET NAAR WAAR IK WAS .GEBLEVEN...
...".GEEF NOOIT HET 'CLR' COMMANDO IN EE
N.O....".SUBROUTINE, WANT DAN WEET IK NI
ET MEER...H..".WAAR IK VANDAAN KWAM EN Z
EG IK:.!.R..".'RETURN WITHOUT GOSUB' ERR
OR":.1710.O....".VOORWAARDEN IN EEN 'IF.
THEN' STATEMENT......".. IF A<5 BETEKEN
T ALS A KLEINER DAN 5 IS......". IF Q>1
BETEKENT ALS Q GROTER DAN 1 IS......"..
<= WIL ZEGGEN GELIJK OF KLEINER DAN...
...".. => WIL ZEGGEN GELIJK OF GROTER D
AN.9....".. <> WIL ZEGGEN NIET GELIJK A
AN":.1710.W...."..NOT. MET EEN VARIABEL
E WIL ZEGEN IN: ......"..".
10 IF NOT X THEN 20.B.,.."..ALS X IS
NIET GROTER DA NUL IS DAN:...6..".GA NAA
R REGEL 20":.1710...@..".WIL JE DEZE LES
NOG EEN KEERTJE J/N ?.".J..Q$:.Q$."".16
10.5.T..Q$.G(13).1610.>.^..NEW.W.H.."...
.......IN DIT VOORBEELD DOET DE 'P' LOOP
"...R..".8 STAPPEN (0 TOT 7 ZIJN 8
CIJFERS!) ".U.|..".DE Q LOOP DOET 4 ST
APPEN ZODAT DE MATRIX.. ..."EEN INHOUD H
EEFT VAN 4*8=32 LOKATIES ".3 ...".DEZE
UITKOMST MAG NOOIT GROTER DAN 256 ".C ..
.".WORDEN OMDAT JE ANDERS BUITEN DE GREN
ZEN.. ..."VAN MIJN BEREIK KOMT!!":.1710:
.1745.. ..."..VOOR VERDER: DRUK OP 'SPAC
E'.F ...A$:.A$."".1720.L B.... L..Q$:.Q$
."".1610.. Q.."......DIT WAS HET DAN..".
,!V..".LEER DE REST DOOR BOEKEN EN LISTI
NGS".B!..."TE BESTUDEREN.".`!..."...
SUCCES !!!".F!.....!... SAVE"@:BASI
CLES 5",8..!... ************************
****.C!... TEST OP DISK OF CASSETTE..!..
X.B(2):.X.1.X.8.X.8...."..."......HEEFT
U EEN CASSETTE (1)".,"...".OF EEN DRIVE
(8) MET DEZE LESSEN".F"..."..GEEF 1 OF 8
";A:.A.B"D..A..1.A..8.."..";:.5050.K"N..
2,A.Q"X...."... ************************
****.....HC.
> CLICK IMAGE PREVIEW FOR FULL MODAL