CBM BASIC LES 6
FILE INFORMATION
FILENAME(S): CBM BASIC LES 6
FILE TYPE(S): PRG
FILE SIZE: 6.5K
FIRST SEEN: 2025-11-30 21:05:25
APPEARS ON: 1 disk(s)
FILE HASH
24279207522907155b6246cfc2ce545b8b50f1560f15693a95d952fee7e1c9de
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE BRUIN 59 | CBM BASIC LES 6 | PRG | DuncanTwain | 14 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 99 C7 28 31 34 32 29 00 2A 08 |....d...(142).*.| 00000010: 6E 00 51 31 B2 31 39 38 3A 97 35 33 32 38 30 2C |n.Q1.198:.53280,| 00000020: 35 3A 97 35 33 32 38 31 2C 35 00 4E 08 78 00 99 |5:.53281,5.N.x..| 00000030: 22 93 1F 20 20 20 20 20 3D 3D 3D 27 46 4F 52 2D |".. ==='FOR-| 00000040: 4E 45 58 54 27 20 4C 4F 4F 50 53 3D 3D 3D 00 70 |NEXT' LOOPS===.p| 00000050: 08 82 00 99 22 20 20 20 20 20 3D 3D 3D 3D 3D 3D |...." ======| 00000060: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000070: 00 9F 08 8C 00 99 22 11 1C 20 43 4F 4D 50 55 54 |......".. COMPUT| 00000080: 45 52 53 20 57 4F 52 44 45 4E 20 56 41 41 4B 20 |ERS WORDEN VAAK | 00000090: 47 45 42 52 55 49 4B 54 20 4F 4D 20 44 49 45 00 |GEBRUIKT OM DIE.| 000000A0: CD 08 96 00 99 22 11 20 44 49 4E 47 45 4E 20 54 |.....". DINGEN T| 000000B0: 45 20 44 4F 45 4E 20 44 49 45 20 56 4F 4F 52 20 |E DOEN DIE VOOR | 000000C0: 4F 4E 53 20 56 45 52 56 45 4C 45 4E 44 00 F9 08 |ONS VERVELEND...| 000000D0: A0 00 99 22 11 20 45 4E 20 45 45 4E 54 4F 4E 49 |...". EN EENTONI| 000000E0: 47 20 5A 49 4A 4E 20 4F 4D 20 54 45 20 4D 4F 45 |G ZIJN OM TE MOE| 000000F0: 54 45 4E 20 44 4F 45 4E 2E 00 24 09 AA 00 99 22 |TEN DOEN..$...."| 00000100: 11 11 90 20 44 49 54 20 4B 41 4E 20 4D 45 54 20 |... DIT KAN MET | 00000110: 45 45 4E 20 43 4F 4D 50 55 54 45 52 20 4D 45 54 |EEN COMPUTER MET| 00000120: 20 45 45 4E 00 58 09 B4 00 99 22 11 20 52 45 50 | EEN.X....". REP| 00000130: 45 54 45 45 52 20 43 4F 4D 4D 41 4E 44 4F 3B 20 |ETEER COMMANDO; | 00000140: 44 45 20 46 4F 52 2D 4E 45 58 54 20 4C 4F 4F 50 |DE FOR-NEXT LOOP| 00000150: 2E 22 3A 8D 31 37 36 30 00 72 09 BE 00 99 22 93 |.":.1760.r....".| 00000160: 1C 20 32 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 |. 20 FOR X=1 TO | 00000170: 31 30 00 87 09 C8 00 99 22 20 33 30 20 20 41 28 |10......" 30 A(| 00000180: 58 29 3D 31 30 2A 58 00 98 09 D2 00 99 22 20 34 |X)=10*X......" 4| 00000190: 30 20 4E 45 58 54 20 58 00 C6 09 DC 00 99 22 11 |0 NEXT X......".| 000001A0: 11 95 20 49 4E 20 52 45 47 45 4C 20 32 30 20 5A |.. IN REGEL 20 Z| 000001B0: 49 45 20 49 4B 2C 20 44 41 54 20 49 4B 20 49 45 |IE IK, DAT IK IE| 000001C0: 54 53 20 56 41 4E 00 F5 09 E6 00 99 22 11 20 45 |TS VAN......". E| 000001D0: 45 4E 20 54 4F 54 20 54 49 45 4E 20 4D 4F 45 54 |EN TOT TIEN MOET| 000001E0: 20 48 45 52 48 41 4C 45 4E 20 45 4E 20 49 4E 20 | HERHALEN EN IN | 000001F0: 52 45 47 45 4C 00 32 0A F0 00 99 22 11 20 34 30 |REGEL.2....". 40| 00000200: 20 5A 49 45 20 49 4B 20 50 41 53 2C 20 44 41 54 | ZIE IK PAS, DAT| 00000210: 20 27 54 20 49 45 54 53 20 49 53 20 20 20 20 20 | 'T IETS IS | 00000220: 20 20 20 20 20 11 20 55 49 54 47 45 56 4F 45 52 | . UITGEVOER| 00000230: 44 2E 00 62 0A FA 00 99 22 11 20 49 4E 20 52 45 |D..b....". IN RE| 00000240: 47 45 4C 20 33 30 20 5A 49 45 20 49 4B 20 57 41 |GEL 30 ZIE IK WA| 00000250: 54 20 45 52 20 48 45 52 48 41 41 4C 44 45 4C 49 |T ER HERHAALDELI| 00000260: 4A 4B 00 90 0A 04 01 99 22 20 4D 4F 45 54 20 47 |JK......" MOET G| 00000270: 45 42 45 55 52 45 4E 3A 20 4D 41 41 4B 20 41 28 |EBEUREN: MAAK A(| 00000280: 49 4E 20 52 41 4E 47 56 4F 4C 47 4F 52 44 45 29 |IN RANGVOLGORDE)| 00000290: 00 B7 0A 0E 01 99 22 11 20 47 45 4C 49 4A 4B 20 |......". GELIJK | 000002A0: 41 41 4E 20 31 30 2A 44 45 20 52 41 4E 47 56 4F |AAN 10*DE RANGVO| 000002B0: 4C 47 4F 52 44 45 2E 00 E5 0A 18 01 99 22 11 1F |LGORDE......."..| 000002C0: 20 41 4C 53 20 49 4B 20 44 41 54 20 56 41 4E 20 | ALS IK DAT VAN | 000002D0: 45 45 4E 20 54 4F 54 20 54 49 45 4E 20 4B 45 45 |EEN TOT TIEN KEE| 000002E0: 52 20 48 45 42 00 10 0B 22 01 99 22 11 20 47 45 |R HEB..."..". GE| 000002F0: 44 41 41 4E 2C 20 44 41 4E 20 53 54 4F 50 20 49 |DAAN, DAN STOP I| 00000300: 4B 20 45 52 20 4D 45 45 2E 22 3A 8D 31 37 36 30 |K ER MEE.":.1760| 00000310: 00 40 0B 2C 01 99 22 93 1F 20 44 49 45 20 41 28 |.@.,..".. DIE A(| 00000320: 58 29 20 49 53 20 45 45 4E 20 5A 2E 47 2E 20 27 |X) IS EEN Z.G. '| 00000330: 41 52 52 41 59 27 20 56 41 52 49 41 42 45 4C 45 |ARRAY' VARIABELE| 00000340: 00 6F 0B 36 01 99 22 11 90 20 48 45 54 20 47 45 |.o.6..".. HET GE| 00000350: 54 41 4C 20 27 58 27 20 4D 41 47 20 4E 49 45 54 |TAL 'X' MAG NIET| 00000360: 20 48 4F 47 45 52 20 5A 49 4A 4E 20 44 41 4E 00 | HOGER ZIJN DAN.| 00000370: A5 0B 40 01 99 22 11 20 31 30 20 41 4E 44 45 52 |..@..". 10 ANDER| 00000380: 53 20 5A 49 45 20 4A 45 3A 22 3A 99 22 11 20 20 |S ZIE JE:":.". | 00000390: 20 3F 42 41 44 20 53 55 42 53 43 52 49 50 54 20 | ?BAD SUBSCRIPT | 000003A0: 45 52 52 4F 52 00 D2 0B 4A 01 99 22 11 1C 20 4A |ERROR...J..".. J| 000003B0: 45 20 4B 55 4E 54 20 57 45 4C 20 48 4F 47 45 52 |E KUNT WEL HOGER| 000003C0: 2C 20 4D 41 41 52 20 44 41 4E 20 4D 4F 45 54 20 |, MAAR DAN MOET | 000003D0: 4A 45 00 14 0C 54 01 99 22 11 20 27 44 49 4D 45 |JE...T..". 'DIME| 000003E0: 4E 53 49 4F 4E 45 52 45 4E 27 20 4D 45 54 20 48 |NSIONEREN' MET H| 000003F0: 45 54 20 27 44 49 4D 27 20 43 4F 4D 4D 41 4E 44 |ET 'DIM' COMMAND| 00000400: 4F 3A 22 3A 99 22 90 20 20 20 44 49 4D 20 41 28 |O:":.". DIM A(| 00000410: 32 35 35 29 00 3F 0C 5E 01 99 22 11 1C 20 48 4F |255).?.^..".. HO| 00000420: 47 45 52 20 44 41 4E 20 32 35 35 20 4B 41 4E 20 |GER DAN 255 KAN | 00000430: 4E 49 45 54 3B 20 45 52 20 50 41 53 53 45 4E 00 |NIET; ER PASSEN.| 00000440: 6E 0C 68 01 99 22 11 20 4D 41 41 52 20 32 35 36 |n.h..". MAAR 256| 00000450: 20 49 4E 20 45 45 4E 20 41 52 52 41 59 20 28 56 | IN EEN ARRAY (V| 00000460: 41 4E 20 30 20 54 4F 54 20 32 35 35 29 2E 00 9D |AN 0 TOT 255)...| 00000470: 0C 72 01 99 22 11 1F 20 5A 4F 20 57 4F 52 44 54 |.r..".. ZO WORDT| 00000480: 20 52 55 49 4D 54 45 20 47 45 52 45 53 45 52 56 | RUIMTE GERESERV| 00000490: 45 45 52 44 20 56 4F 4F 52 20 32 35 36 00 BC 0C |EERD VOOR 256...| 000004A0: 7C 01 99 22 11 20 47 45 54 41 4C 4C 45 4E 20 49 ||..". GETALLEN I| 000004B0: 4E 20 45 45 4E 20 41 52 52 41 59 2E 00 C6 0C 86 |N EEN ARRAY.....| 000004C0: 01 8D 31 37 36 30 00 F5 0C 90 01 99 22 93 05 20 |..1760......".. | 000004D0: 53 54 52 49 4E 47 53 20 4B 55 4E 4E 45 4E 20 4F |STRINGS KUNNEN O| 000004E0: 4F 4B 20 49 4E 20 45 45 4E 20 41 52 52 41 59 20 |OK IN EEN ARRAY | 000004F0: 53 54 41 41 4E 00 34 0D 9A 01 99 22 11 20 4F 4D |STAAN.4....". OM| 00000500: 20 4D 45 54 20 27 53 55 42 53 43 52 49 50 54 27 | MET 'SUBSCRIPT'| 00000510: 20 54 45 20 56 45 52 57 45 52 4B 45 4E 22 3A 99 | TE VERWERKEN":.| 00000520: 22 11 20 49 4E 20 46 4F 52 2D 4E 45 58 54 20 4C |". IN FOR-NEXT L| 00000530: 4F 4F 50 53 00 81 0D A4 01 99 22 11 11 1F 20 48 |OOPS......"... H| 00000540: 49 45 52 56 4F 4F 52 20 4B 55 4E 45 4E 20 57 45 |IERVOOR KUNEN WE| 00000550: 20 44 45 20 12 52 45 41 44 92 20 41 4E 44 20 12 | DE .READ. AND .| 00000560: 44 41 54 41 92 20 20 20 20 20 11 20 43 4F 4D 4D |DATA. . COMM| 00000570: 41 4E 44 4F 27 53 20 47 45 42 52 55 49 4B 45 4E |ANDO'S GEBRUIKEN| 00000580: 2E 00 B1 0D AE 01 99 22 11 11 27 44 41 54 41 27 |......."..'DATA'| 00000590: 20 4B 41 4E 20 57 49 4C 4C 45 4B 45 55 52 49 47 | KAN WILLEKEURIG| 000005A0: 20 49 4E 20 48 45 54 20 50 52 4F 47 52 41 4D 4D | IN HET PROGRAMM| 000005B0: 41 00 EA 0D B8 01 99 22 11 20 53 54 41 41 4E 2C |A......". STAAN,| 000005C0: 20 49 4B 20 4B 49 4A 4B 20 45 52 20 50 41 53 20 | IK KIJK ER PAS | 000005D0: 4E 41 41 52 20 41 4C 53 20 49 4B 22 3A 99 22 11 |NAAR ALS IK":.".| 000005E0: 20 90 20 20 27 52 45 41 44 27 00 12 0E C2 01 99 | . 'READ'......| 000005F0: 22 11 1F 20 41 4C 53 20 43 4F 4D 4D 41 4E 44 4F |".. ALS COMMANDO| 00000600: 20 54 45 47 45 4E 20 4B 4F 4D 2E 22 3A 8D 31 37 | TEGEN KOM.":.17| 00000610: 36 30 00 3D 0E CC 01 99 22 93 1C 20 5A 4F 27 4E |60.=....".. ZO'N| 00000620: 20 50 52 4F 47 52 41 4D 4D 41 20 4B 41 4E 20 45 | PROGRAMMA KAN E| 00000630: 52 20 5A 4F 20 55 49 54 5A 49 45 4E 3A 00 53 0E |R ZO UITZIEN:.S.| 00000640: D6 01 99 22 11 90 31 30 20 44 49 4D 20 41 24 28 |..."..10 DIM A$(| 00000650: 31 35 29 00 6A 0E E0 01 99 22 32 30 20 46 4F 52 |15).j...."20 FOR| 00000660: 20 58 3D 30 20 54 4F 20 31 35 00 7E 0E EA 01 99 | X=0 TO 15.~....| 00000670: 22 33 30 20 52 45 41 44 20 41 24 28 58 29 00 8E |"30 READ A$(X)..| 00000680: 0E F4 01 99 22 35 30 20 4E 45 58 54 20 58 00 A5 |...."50 NEXT X..| 00000690: 0E FE 01 99 22 36 30 20 46 4F 52 20 58 3D 30 20 |...."60 FOR X=0 | 000006A0: 54 4F 20 31 35 00 B6 0E 08 02 99 22 37 30 20 3F |TO 15......"70 ?| 000006B0: 41 24 28 58 29 3B 00 C6 0E 12 02 99 22 38 30 20 |A$(X);......"80 | 000006C0: 4E 45 58 54 20 58 00 F0 0E 1C 02 99 22 39 30 20 |NEXT X......"90 | 000006D0: 44 41 54 41 20 4B 41 54 2C 4D 41 54 2C 53 4C 4F |DATA KAT,MAT,SLO| 000006E0: 54 2C 4B 49 50 2C 46 52 41 4E 53 2C 50 41 41 4C |T,KIP,FRANS,PAAL| 000006F0: 00 1A 0F 26 02 99 22 31 30 30 20 44 41 54 41 20 |...&.."100 DATA | 00000700: 57 41 53 2C 56 49 53 2C 52 49 4A 4B 2C 4D 49 53 |WAS,VIS,RIJK,MIS| 00000710: 2C 48 45 45 52 2C 44 41 4D 45 00 3D 0F 30 02 99 |,HEER,DAME.=.0..| 00000720: 22 31 31 30 20 44 41 54 41 20 41 50 50 45 4C 2C |"110 DATA APPEL,| 00000730: 52 4F 56 45 52 2C 44 4F 4C 2C 48 41 4D 00 6A 0F |ROVER,DOL,HAM.j.| 00000740: 3A 02 99 22 11 1F 20 44 45 20 53 54 52 49 4E 47 |:..".. DE STRING| 00000750: 53 20 49 4E 20 44 41 54 41 20 53 54 41 54 4D 45 |S IN DATA STATME| 00000760: 4E 54 53 20 48 4F 45 56 45 4E 00 97 0F 44 02 99 |NTS HOEVEN...D..| 00000770: 22 11 20 4E 49 45 54 20 54 55 53 53 45 4E 20 41 |". NIET TUSSEN A| 00000780: 41 4E 48 41 4C 49 4E 53 54 45 4B 45 4E 53 2C 20 |ANHALINSTEKENS, | 00000790: 42 45 48 41 4C 56 45 00 C3 0F 4E 02 99 22 11 20 |BEHALVE...N..". | 000007A0: 41 4C 53 20 45 52 20 4F 4F 4B 20 4C 45 45 53 54 |ALS ER OOK LEEST| 000007B0: 45 4B 45 4E 53 20 54 55 53 53 45 4E 20 53 54 41 |EKENS TUSSEN STA| 000007C0: 41 4E 2E 00 ED 0F 58 02 99 22 11 9F 20 44 45 20 |AN....X..".. DE | 000007D0: 57 4F 4F 52 44 45 4E 20 4D 4F 45 54 45 4E 20 57 |WOORDEN MOETEN W| 000007E0: 45 4C 20 47 45 53 43 48 45 49 44 45 4E 00 11 10 |EL GESCHEIDEN...| 000007F0: 62 02 99 22 11 20 57 4F 52 44 45 4E 20 44 4F 4F |b..". WORDEN DOO| 00000800: 52 20 4B 4F 4D 4D 41 27 53 21 22 3A 8D 31 37 36 |R KOMMA'S!":.176| 00000810: 30 00 40 10 6C 02 99 22 93 95 20 44 41 54 20 50 |0.@.l..".. DAT P| 00000820: 52 4F 47 52 41 4D 4D 41 20 4C 45 45 53 54 20 44 |ROGRAMMA LEEST D| 00000830: 41 54 41 20 56 41 4E 20 44 45 20 44 41 54 41 2D |ATA VAN DE DATA-| 00000840: 00 65 10 76 02 99 22 11 20 53 54 41 54 4D 45 4E |.e.v..". STATMEN| 00000850: 54 53 2C 20 45 4C 4B 20 4F 50 20 5A 27 4E 20 42 |TS, ELK OP Z'N B| 00000860: 45 55 52 54 2E 00 93 10 80 02 99 22 11 1F 20 4D |EURT.......".. M| 00000870: 45 54 20 44 45 20 45 45 53 54 45 20 4B 45 45 52 |ET DE EESTE KEER| 00000880: 20 4C 45 5A 45 4E 20 49 53 20 58 3D 30 2C 20 44 | LEZEN IS X=0, D| 00000890: 55 53 3A 00 C1 10 8A 02 99 22 11 20 41 24 28 30 |US:......". A$(0| 000008A0: 29 3D 4B 41 54 20 45 4E 20 44 45 20 54 57 45 45 |)=KAT EN DE TWEE| 000008B0: 44 45 20 4C 4F 4F 50 20 20 58 3D 31 20 44 55 53 |DE LOOP X=1 DUS| 000008C0: 3A 00 F1 10 94 02 99 22 11 20 41 24 28 31 29 3D |:......". A$(1)=| 000008D0: 4D 41 54 20 45 4E 5A 2E 20 54 4F 54 3A 20 58 3D |MAT ENZ. TOT: X=| 000008E0: 31 35 20 45 4E 20 41 24 28 31 35 29 3D 48 41 4D |15 EN A$(15)=HAM| 000008F0: 2E 00 1F 11 9E 02 99 22 11 95 20 44 45 20 50 55 |.......".. DE PU| 00000900: 4E 54 2D 4B 4F 4D 4D 41 20 56 4F 4F 52 4B 4F 4D |NT-KOMMA VOORKOM| 00000910: 54 20 44 41 54 20 49 4B 20 53 54 45 45 44 53 00 |T DAT IK STEEDS.| 00000920: 4C 11 A8 02 99 22 11 20 4E 41 41 52 20 45 45 4E |L....". NAAR EEN| 00000930: 20 4E 49 45 55 57 45 20 52 45 47 45 4C 20 47 41 | NIEUWE REGEL GA| 00000940: 2C 20 5A 4F 44 41 54 20 41 4C 4C 45 00 8D 11 B2 |, ZODAT ALLE....| 00000950: 02 99 22 11 20 57 4F 4F 52 44 45 4E 20 4F 50 20 |..". WOORDEN OP | 00000960: 45 45 4E 20 52 49 4A 54 4A 45 20 41 43 48 54 45 |EEN RIJTJE ACHTE| 00000970: 52 20 45 4C 4B 41 41 52 20 20 20 20 11 20 4B 4F |R ELKAAR . KO| 00000980: 4D 45 4E 20 54 45 20 53 54 41 41 4E 2E 00 BE 11 |MEN TE STAAN....| 00000990: BC 02 97 51 31 2C 30 3A 99 22 11 11 90 20 12 57 |...Q1,0:."... .W| 000009A0: 49 4C 20 4A 45 20 44 49 54 20 4E 4F 47 20 45 45 |IL JE DIT NOG EE| 000009B0: 4E 53 20 44 4F 4F 52 4E 45 4D 45 4E 20 3F 00 D1 |NS DOORNEMEN ?..| 000009C0: 11 C6 02 A1 51 24 3A 8B 51 24 B2 22 22 A7 37 31 |....Q$:.Q$."".71| 000009D0: 30 00 E1 11 D0 02 8B 51 24 B2 22 4A 22 A7 34 36 |0......Q$."J".46| 000009E0: 30 00 23 12 DA 02 99 22 93 1F 20 4F 4D 20 54 45 |0.#....".. OM TE| 000009F0: 20 56 4F 4F 52 4B 4F 4D 45 4E 2C 20 44 41 54 20 | VOORKOMEN, DAT | 00000A00: 49 4B 20 5A 45 47 3A 22 3A 99 22 11 20 20 20 90 |IK ZEG:":.". .| 00000A10: 27 4F 55 54 20 4F 46 20 44 41 54 41 20 45 52 52 |'OUT OF DATA ERR| 00000A20: 4F 52 27 00 54 12 E4 02 99 22 11 1F 20 4D 4F 45 |OR'.T....".. MOE| 00000A30: 54 20 4A 45 20 5A 4F 52 47 45 4E 2C 20 44 41 54 |T JE ZORGEN, DAT| 00000A40: 20 45 52 20 56 4F 4C 44 4F 45 4E 44 45 20 27 44 | ER VOLDOENDE 'D| 00000A50: 41 54 41 27 00 83 12 EE 02 99 22 20 53 54 41 54 |ATA'......" STAT| 00000A60: 45 4D 45 4E 54 53 20 5A 49 4A 4E 2C 20 4F 46 20 |EMENTS ZIJN, OF | 00000A70: 45 45 4E 20 53 49 47 4E 41 41 4C 20 4F 50 4E 45 |EEN SIGNAAL OPNE| 00000A80: 4D 45 4E 00 B2 12 F8 02 99 22 20 44 41 54 20 49 |MEN......" DAT I| 00000A90: 4E 20 48 45 54 20 50 52 4F 47 52 41 4D 4D 41 20 |N HET PROGRAMMA | 00000AA0: 4D 49 4A 20 57 41 41 52 53 43 48 55 57 54 20 44 |MIJ WAARSCHUWT D| 00000AB0: 41 54 00 D3 12 02 03 99 22 20 45 52 20 47 45 45 |AT......" ER GEE| 00000AC0: 4E 20 44 41 54 41 20 4D 45 45 52 20 4B 4F 4D 45 |N DATA MEER KOME| 00000AD0: 4E 20 3A 00 EE 12 0C 03 99 22 11 1C 20 20 20 31 |N :......".. 1| 00000AE0: 30 20 46 4F 52 20 4E 3D 30 20 54 4F 20 33 00 27 |0 FOR N=0 TO 3.'| 00000AF0: 13 16 03 99 22 20 20 20 31 35 20 52 45 41 44 20 |...." 15 READ | 00000B00: 42 24 3A 49 46 20 42 24 3D 22 C7 28 33 34 29 22 |B$:IF B$=".(34)"| 00000B10: 2D 39 39 39 22 C7 28 33 34 29 22 54 48 45 4E 20 |-999".(34)"THEN | 00000B20: 52 45 53 54 4F 52 45 00 3B 13 20 03 99 22 20 20 |RESTORE.;. .." | 00000B30: 20 32 30 20 50 52 49 4E 54 42 24 00 5B 13 2A 03 | 20 PRINTB$.[.*.| 00000B40: 99 22 20 20 20 33 30 20 44 41 54 41 20 41 50 50 |." 30 DATA APP| 00000B50: 4C 45 2C 43 41 54 2C 2D 39 39 39 00 8B 13 34 03 |LE,CAT,-999...4.| 00000B60: 99 22 11 1F 20 41 4C 53 20 49 4B 20 44 45 20 27 |.".. ALS IK DE '| 00000B70: 56 4C 41 47 27 20 27 2D 39 39 39 27 20 4C 45 45 |VLAG' '-999' LEE| 00000B80: 53 20 28 42 24 3D 2D 39 39 39 29 00 B9 13 3E 03 |S (B$=-999)...>.| 00000B90: 99 22 11 20 57 4F 52 44 45 4E 20 44 41 54 41 20 |.". WORDEN DATA | 00000BA0: 27 52 45 53 54 4F 52 45 44 27 20 45 4E 20 4B 55 |'RESTORED' EN KU| 00000BB0: 4E 4E 45 4E 20 57 45 45 52 00 E0 13 48 03 99 22 |NNEN WEER...H.."| 00000BC0: 11 20 4F 50 4E 49 45 55 57 20 47 45 4C 45 5A 45 |. OPNIEUW GELEZE| 00000BD0: 4E 20 57 4F 52 44 45 4E 2E 22 3A 8D 31 37 36 30 |N WORDEN.":.1760| 00000BE0: 00 0D 14 52 03 99 22 93 95 20 27 46 4F 52 2D 4E |...R..".. 'FOR-N| 00000BF0: 45 58 54 27 20 4C 4F 4F 50 53 20 54 45 4C 4C 45 |EXT' LOOPS TELLE| 00000C00: 4E 20 4E 4F 52 4D 41 41 4C 20 45 45 4E 00 3D 14 |N NORMAAL EEN.=.| 00000C10: 5C 03 99 22 11 20 54 45 47 45 4C 49 4A 4B 20 4F |\..". TEGELIJK O| 00000C20: 50 20 50 45 52 20 4F 50 44 52 41 43 48 54 20 53 |P PER OPDRACHT S| 00000C30: 45 52 49 45 2C 20 4D 41 41 52 20 27 54 00 6A 14 |ERIE, MAAR 'T.j.| 00000C40: 66 03 99 22 20 49 53 20 4D 4F 47 45 4C 49 4A 4B |f.." IS MOGELIJK| 00000C50: 20 44 41 41 52 20 56 45 52 41 4E 44 45 52 49 4E | DAAR VERANDERIN| 00000C60: 20 49 4E 20 41 41 4E 20 54 45 00 95 14 70 03 99 | IN AAN TE...p..| 00000C70: 22 11 20 42 52 45 4E 47 45 4E 20 4D 45 54 20 48 |". BRENGEN MET H| 00000C80: 45 54 20 90 12 53 54 45 50 92 20 95 43 4F 4D 4D |ET ..STEP. .COMM| 00000C90: 41 4E 44 4F 2E 00 BB 14 7A 03 99 22 11 11 05 20 |ANDO....z.."... | 00000CA0: 20 20 20 32 30 20 20 46 4F 52 20 42 3D 30 20 54 | 20 FOR B=0 T| 00000CB0: 4F 20 35 30 20 53 54 45 50 20 32 00 D0 14 84 03 |O 50 STEP 2.....| 00000CC0: 99 22 20 20 20 20 33 30 20 20 4E 45 58 54 20 42 |." 30 NEXT B| 00000CD0: 00 13 15 8E 03 99 22 11 11 9E 20 5A 4F 20 57 4F |......"... ZO WO| 00000CE0: 52 44 54 20 45 52 20 54 45 4C 4B 45 4E 53 2C 20 |RDT ER TELKENS, | 00000CF0: 50 45 52 20 27 4C 4F 4F 50 27 20 32 20 20 20 20 |PER 'LOOP' 2 | 00000D00: 20 20 20 11 42 49 4A 20 42 20 4F 50 47 45 54 45 | .BIJ B OPGETE| 00000D10: 4C 44 2E 00 3E 15 98 03 99 22 11 90 20 44 45 20 |LD..>....".. DE | 00000D20: 45 45 52 53 54 45 20 4B 45 45 52 20 49 53 20 42 |EERSTE KEER IS B| 00000D30: 20 47 45 4C 49 4A 4B 20 41 41 4E 20 30 2C 00 83 | GELIJK AAN 0,..| 00000D40: 15 A2 03 99 22 11 20 4D 41 41 52 20 49 4E 20 44 |....". MAAR IN D| 00000D50: 45 20 54 57 45 45 44 45 20 52 4F 4E 44 45 20 57 |E TWEEDE RONDE W| 00000D60: 4F 52 44 54 20 42 3A 20 20 20 20 20 20 20 20 11 |ORDT B: .| 00000D70: 32 2D 34 2D 36 2D 38 20 45 4E 5A 2E 22 3A 8D 31 |2-4-6-8 ENZ.":.1| 00000D80: 37 36 30 00 B0 15 AC 03 99 22 93 1F 20 54 45 52 |760......".. TER| 00000D90: 55 47 20 54 45 4C 4C 45 4E 20 4B 41 4E 20 4F 4F |UG TELLEN KAN OO| 00000DA0: 4B 20 44 4F 4F 52 20 45 45 4E 56 4F 55 44 49 47 |K DOOR EENVOUDIG| 00000DB0: 00 DE 15 B6 03 99 22 11 20 45 45 4E 20 4D 49 4E |......". EEN MIN| 00000DC0: 54 45 4B 45 4E 20 54 45 20 50 4C 41 41 54 53 45 |TEKEN TE PLAATSE| 00000DD0: 4E 20 41 43 48 54 45 52 20 53 54 45 50 3A 00 02 |N ACHTER STEP:..| 00000DE0: 16 C0 03 99 22 11 11 1C 20 20 20 20 20 46 4F 52 |...."... FOR| 00000DF0: 20 42 3D 31 30 20 54 4F 20 30 20 53 54 45 50 20 | B=10 TO 0 STEP | 00000E00: 2D 32 00 33 16 CA 03 99 22 11 11 1F 20 42 20 53 |-2.3...."... B S| 00000E10: 54 41 52 54 20 42 49 4A 20 31 30 20 45 4E 20 49 |TART BIJ 10 EN I| 00000E20: 4E 20 44 45 20 56 4F 4C 47 45 4E 44 45 20 52 4F |N DE VOLGENDE RO| 00000E30: 4E 44 45 00 62 16 D4 03 99 22 11 20 57 4F 52 44 |NDE.b....". WORD| 00000E40: 54 20 42 20 38 3B 20 45 4E 5A 2E 20 54 4F 54 20 |T B 8; ENZ. TOT | 00000E50: 42 20 47 45 4C 49 4A 4B 20 49 53 20 41 41 4E 20 |B GELIJK IS AAN | 00000E60: 30 2E 00 93 16 DE 03 99 22 11 20 4D 45 4E 20 4E |0.......". MEN N| 00000E70: 4F 45 4D 54 20 44 49 54 20 27 52 45 56 45 52 53 |OEMT DIT 'REVERS| 00000E80: 45 20 53 54 45 50 50 49 4E 47 27 2E 22 3A 8D 31 |E STEPPING'.":.1| 00000E90: 37 36 30 00 B9 16 E8 03 99 22 93 1C 20 45 45 4E |760......".. EEN| 00000EA0: 20 41 4E 44 45 52 20 53 4F 4F 52 54 20 41 52 52 | ANDER SOORT ARR| 00000EB0: 41 59 20 49 53 20 48 45 54 00 E6 16 F2 03 99 22 |AY IS HET......"| 00000EC0: 11 20 32 2D 44 49 4D 45 4E 53 49 4F 4E 41 4C 45 |. 2-DIMENSIONALE| 00000ED0: 20 41 52 52 41 59 20 4F 46 57 45 4C 20 12 4D 41 | ARRAY OFWEL .MA| 00000EE0: 54 52 49 58 92 2E 00 16 17 FC 03 99 22 11 1F 20 |TRIX........".. | 00000EF0: 48 45 54 20 44 49 4D 2D 43 4F 4D 4D 41 4E 44 4F |HET DIM-COMMANDO| 00000F00: 20 49 53 20 41 4C 54 49 4A 44 20 4E 4F 44 49 47 | IS ALTIJD NODIG| 00000F10: 20 45 4E 20 45 52 00 37 17 06 04 99 22 11 20 4B | EN ER.7....". K| 00000F20: 4F 4D 4D 41 20 54 55 53 53 45 4E 3A 20 44 49 4D |OMMA TUSSEN: DIM| 00000F30: 20 50 28 32 2C 32 29 00 5E 17 10 04 99 22 11 05 | P(2,2).^...."..| 00000F40: 20 4F 50 20 44 45 5A 45 20 57 49 4A 5A 45 20 5A | OP DEZE WIJZE Z| 00000F50: 49 45 20 49 4B 20 50 28 32 2C 32 29 3A 11 00 6E |IE IK P(2,2):..n| 00000F60: 17 1A 04 99 22 1C 20 B0 C0 B2 C0 B2 C0 AE 00 99 |....". .........| 00000F70: 17 24 04 99 22 30 DD 35 DD 39 DD 30 DD 20 50 28 |.$.."0.5.9.0. P(| 00000F80: 30 2C 30 29 3D 20 20 3A 50 28 30 2C 31 29 3D 20 |0,0)= :P(0,1)= | 00000F90: 20 3A 50 28 30 2C 32 29 3D 00 A8 17 2E 04 99 22 | :P(0,2)=......"| 00000FA0: 20 AB C0 DB C0 DB C0 B3 00 D3 17 38 04 99 22 31 | ..........8.."1| 00000FB0: DD 31 DD 39 DD 34 DD 20 50 28 31 2C 30 29 3D 20 |.1.9.4. P(1,0)= | 00000FC0: 20 3A 50 28 31 2C 31 29 3D 20 20 3A 50 28 31 2C | :P(1,1)= :P(1,| 00000FD0: 32 29 3D 00 E2 17 42 04 99 22 20 AB C0 DB C0 DB |2)=...B.." .....| 00000FE0: C0 B3 00 0D 18 4C 04 99 22 32 DD 37 DD 33 DD 31 |.....L.."2.7.3.1| 00000FF0: DD 20 50 28 32 2C 30 29 3D 20 20 3A 50 28 32 2C |. P(2,0)= :P(2,| 00001000: 31 29 3D 20 20 3A 50 28 32 2C 32 29 3D 00 1C 18 |1)= :P(2,2)=...| 00001010: 56 04 99 22 20 AD C0 B1 C0 B1 C0 BD 00 2A 18 60 |V.." ........*.`| 00001020: 04 99 22 20 20 30 20 31 20 32 00 56 18 6A 04 99 |.." 0 1 2.V.j..| 00001030: 22 11 1F 20 48 45 54 20 45 45 52 53 54 45 20 43 |".. HET EERSTE C| 00001040: 49 4A 46 45 52 20 47 45 45 46 54 20 44 45 20 52 |IJFER GEEFT DE R| 00001050: 49 4A 20 41 41 4E 00 84 18 74 04 99 22 11 20 45 |IJ AAN...t..". E| 00001060: 4E 20 48 45 54 20 54 57 45 45 44 45 20 43 49 4A |N HET TWEEDE CIJ| 00001070: 46 45 52 20 44 45 20 4B 4F 4C 4F 4D 2E 22 3A 8D |FER DE KOLOM.":.| 00001080: 31 37 36 30 00 AE 18 7E 04 99 22 93 95 20 4F 4D |1760...~..".. OM| 00001090: 20 45 45 4E 20 4D 41 54 52 49 58 20 54 45 20 56 | EEN MATRIX TE V| 000010A0: 4F 52 4D 45 4E 20 49 53 20 45 52 20 27 4E 00 D6 |ORMEN IS ER 'N..| 000010B0: 18 88 04 99 22 11 20 54 45 43 48 4E 49 45 4B 20 |....". TECHNIEK | 000010C0: 47 45 4E 41 41 4D 44 20 27 4E 45 53 54 45 44 20 |GENAAMD 'NESTED | 000010D0: 4C 4F 4F 50 53 27 00 08 19 92 04 99 22 11 20 44 |LOOPS'......". D| 000010E0: 57 5A 2E 20 45 45 4E 20 4C 4F 4F 50 20 55 49 54 |WZ. EEN LOOP UIT| 000010F0: 47 45 56 4F 45 52 44 20 49 4E 20 45 45 4E 20 41 |GEVOERD IN EEN A| 00001100: 4E 44 45 52 45 3A 11 11 00 22 19 9C 04 99 22 9E |NDERE:..."....".| 00001110: B0 C0 20 31 30 20 46 4F 52 20 50 3D 30 20 54 4F |.. 10 FOR P=0 TO| 00001120: 20 37 00 2A 19 A6 04 99 22 DD 00 43 19 B0 04 99 | 7.*...."..C....| 00001130: 22 DD B0 20 32 30 20 46 4F 52 20 51 3D 30 20 54 |".. 20 FOR Q=0 T| 00001140: 4F 20 33 00 4C 19 BA 04 99 22 DD DD 00 5F 19 C4 |O 3.L...."..._..| 00001150: 04 99 22 DD AD 20 33 30 20 4E 45 58 54 20 51 00 |..".. 30 NEXT Q.| 00001160: 67 19 CE 04 99 22 DD 00 7A 19 D8 04 99 22 AD C0 |g...."..z...."..| 00001170: 20 34 30 20 4E 45 58 54 20 50 00 A8 19 E2 04 99 | 40 NEXT P......| 00001180: 22 11 11 1C 20 49 4E 20 45 4C 4B 45 20 27 50 27 |"... IN ELKE 'P'| 00001190: 20 4C 4F 4F 50 20 57 4F 52 44 54 20 45 45 4E 20 | LOOP WORDT EEN | 000011A0: 27 51 27 20 4C 4F 4F 50 00 CB 19 EC 04 99 22 11 |'Q' LOOP......".| 000011B0: 20 56 4F 4C 4C 45 44 49 47 20 41 46 47 45 4D 41 | VOLLEDIG AFGEMA| 000011C0: 41 4B 54 2E 22 3A 8D 31 37 36 30 00 0C 1A F6 04 |AKT.":.1760.....| 000011D0: 99 22 11 11 11 11 11 11 11 11 13 11 11 11 11 11 |."..............| 000011E0: 11 11 11 11 1F 20 48 45 54 20 49 53 20 56 41 4E |..... HET IS VAN| 000011F0: 20 47 52 4F 4F 54 53 54 20 42 45 4C 41 4E 47 2C | GROOTST BELANG,| 00001200: 20 44 41 54 20 44 45 20 4C 4F 4F 50 00 3B 1A 00 | DAT DE LOOP.;..| 00001210: 05 99 22 11 20 49 4E 20 44 45 20 41 4E 44 45 52 |..". IN DE ANDER| 00001220: 45 20 45 45 4E 20 27 4E 45 58 54 27 20 56 49 4E |E EEN 'NEXT' VIN| 00001230: 44 54 20 4D 45 54 20 5A 49 4A 4E 00 67 1A 0A 05 |DT MET ZIJN.g...| 00001240: 99 22 11 20 45 49 47 45 4E 20 27 54 45 4C 56 41 |.". EIGEN 'TELVA| 00001250: 52 49 41 42 45 4C 45 27 20 44 41 41 52 20 45 52 |RIABELE' DAAR ER| 00001260: 20 41 4E 44 45 52 53 00 91 1A 14 05 99 22 11 20 | ANDERS......". | 00001270: 47 45 47 45 56 45 4E 53 20 56 45 52 4C 4F 52 45 |GEGEVENS VERLORE| 00001280: 4E 20 47 41 41 4E 2C 20 4F 4D 20 44 41 54 20 44 |N GAAN, OM DAT D| 00001290: 45 00 C7 1A 1E 05 99 22 11 20 4C 4F 4F 50 53 20 |E......". LOOPS | 000012A0: 4E 49 45 54 20 56 4F 4C 4C 45 44 49 47 20 55 49 |NIET VOLLEDIG UI| 000012B0: 54 47 45 56 4F 45 52 44 20 57 4F 52 44 45 4E 2E |TGEVOERD WORDEN.| 000012C0: 22 3A 8D 31 37 36 30 00 D1 1A 28 05 8D 31 36 39 |":.1760...(..169| 000012D0: 30 00 00 1B 32 05 99 22 93 90 20 57 49 4C 20 4A |0...2..".. WIL J| 000012E0: 45 20 44 49 54 20 4C 41 41 54 53 54 45 20 4E 4F |E DIT LAATSTE NO| 000012F0: 47 20 45 45 4E 53 20 5A 49 45 4E 20 20 4A 2F 4E |G EENS ZIEN J/N| 00001300: 00 14 1B 3C 05 A1 51 24 3A 8B 51 24 B2 22 22 A7 |...<..Q$:.Q$."".| 00001310: 31 33 34 30 00 27 1B 46 05 8B 51 24 B2 C7 28 31 |1340.'.F..Q$..(1| 00001320: 33 29 89 31 33 34 30 00 38 1B 50 05 8B 51 24 B2 |3).1340.8.P..Q$.| 00001330: 22 4A 22 A7 31 30 30 30 00 51 1B 5A 05 99 A3 31 |"J".1000.Q.Z...1| 00001340: 35 29 22 93 1F 12 53 55 42 52 4F 55 54 49 4E 45 |5)"...SUBROUTINE| 00001350: 53 00 7D 1B 64 05 99 22 11 11 20 48 45 54 20 4B |S.}.d..".. HET K| 00001360: 4F 4D 54 20 56 4F 4F 52 20 44 41 54 20 49 4E 20 |OMT VOOR DAT IN | 00001370: 45 45 4E 20 50 52 4F 47 52 41 4D 4D 41 00 AC 1B |EEN PROGRAMMA...| 00001380: 6E 05 99 22 11 20 56 41 4B 45 52 20 45 45 4E 20 |n..". VAKER EEN | 00001390: 5A 45 4C 46 44 45 20 52 4F 55 54 49 4E 45 20 48 |ZELFDE ROUTINE H| 000013A0: 45 52 48 41 41 4C 44 20 4D 4F 45 54 00 D8 1B 78 |ERHAALD MOET...x| 000013B0: 05 99 22 11 20 57 4F 52 44 45 4E 2E 20 5A 4F 27 |..". WORDEN. ZO'| 000013C0: 4E 20 53 54 55 4B 4A 45 20 50 4C 41 41 54 53 45 |N STUKJE PLAATSE| 000013D0: 4E 20 57 45 20 42 56 2E 00 07 1C 82 05 99 22 11 |N WE BV.......".| 000013E0: 20 41 41 4E 20 27 54 20 45 49 4E 44 20 56 41 4E | AAN 'T EIND VAN| 000013F0: 20 27 54 20 50 52 4F 47 52 41 4D 4D 41 20 45 4E | 'T PROGRAMMA EN| 00001400: 20 4E 4F 45 4D 45 4E 00 33 1C 8C 05 99 22 11 20 | NOEMEN.3....". | 00001410: 57 45 20 27 53 55 42 52 4F 55 54 49 4E 45 27 3B |WE 'SUBROUTINE';| 00001420: 20 5A 45 20 4B 41 4E 20 5A 4F 20 56 41 41 4B 20 | ZE KAN ZO VAAK | 00001430: 41 4C 53 00 61 1C 96 05 99 22 11 20 4E 4F 44 49 |ALS.a....". NODI| 00001440: 47 20 57 4F 52 44 45 4E 20 41 41 4E 47 45 53 50 |G WORDEN AANGESP| 00001450: 52 4F 4B 45 4E 20 4D 45 54 20 27 47 4F 53 55 42 |ROKEN MET 'GOSUB| 00001460: 27 00 94 1C A0 05 99 22 11 20 50 4C 55 53 20 27 |'......". PLUS '| 00001470: 54 20 52 45 47 45 4C 4E 55 4D 4D 45 52 20 57 41 |T REGELNUMMER WA| 00001480: 41 52 20 5A 45 20 42 45 47 49 4E 54 2E 22 3A 8D |AR ZE BEGINT.":.| 00001490: 31 37 36 30 00 C5 1C AA 05 99 22 93 1C 20 48 45 |1760......".. HE| 000014A0: 54 20 4C 41 41 54 53 54 45 20 43 4F 4D 4D 41 4E |T LAATSTE COMMAN| 000014B0: 44 4F 20 56 41 4E 20 45 45 4E 20 53 55 42 52 4F |DO VAN EEN SUBRO| 000014C0: 55 54 49 4E 45 00 F1 1C B4 05 99 22 20 49 53 20 |UTINE......" IS | 000014D0: 41 4C 54 49 4A 44 20 27 52 45 54 55 52 4E 27 2C |ALTIJD 'RETURN',| 000014E0: 20 57 41 41 52 44 4F 4F 52 20 49 4B 20 57 45 45 | WAARDOOR IK WEE| 000014F0: 54 00 2C 1D BE 05 99 22 11 20 44 41 54 20 49 4B |T.,....". DAT IK| 00001500: 20 54 45 52 55 47 20 4D 4F 45 54 20 4E 41 41 52 | TERUG MOET NAAR| 00001510: 20 57 41 41 52 20 49 4B 20 57 41 53 20 20 20 20 | WAAR IK WAS | 00001520: 20 20 11 47 45 42 4C 45 56 45 4E 2E 00 5A 1D C8 | .GEBLEVEN..Z..| 00001530: 05 99 22 11 05 20 47 45 45 46 20 4E 4F 4F 49 54 |..".. GEEF NOOIT| 00001540: 20 48 45 54 20 27 43 4C 52 27 20 43 4F 4D 4D 41 | HET 'CLR' COMMA| 00001550: 4E 44 4F 20 49 4E 20 45 45 4E 00 89 1D D2 05 99 |NDO IN EEN......| 00001560: 22 11 20 53 55 42 52 4F 55 54 49 4E 45 2C 20 57 |". SUBROUTINE, W| 00001570: 41 4E 54 20 44 41 4E 20 57 45 45 54 20 49 4B 20 |ANT DAN WEET IK | 00001580: 4E 49 45 54 20 4D 45 45 52 00 B1 1D DC 05 99 22 |NIET MEER......"| 00001590: 11 20 57 41 41 52 20 49 4B 20 56 41 4E 44 41 41 |. WAAR IK VANDAA| 000015A0: 4E 20 4B 57 41 4D 20 45 4E 20 5A 45 47 20 49 4B |N KWAM EN ZEG IK| 000015B0: 3A 00 DE 1D E6 05 99 22 11 90 20 27 52 45 54 55 |:......".. 'RETU| 000015C0: 52 4E 20 57 49 54 48 4F 55 54 20 47 4F 53 55 42 |RN WITHOUT GOSUB| 000015D0: 27 20 45 52 52 4F 52 22 3A 8D 31 37 36 30 00 0E |' ERROR":.1760..| 000015E0: 1E F0 05 99 22 93 95 20 56 4F 4F 52 57 41 41 52 |....".. VOORWAAR| 000015F0: 44 45 4E 20 49 4E 20 45 45 4E 20 27 49 46 2D 54 |DEN IN EEN 'IF-T| 00001600: 48 45 4E 27 20 53 54 41 54 45 4D 45 4E 54 00 40 |HEN' STATEMENT.@| 00001610: 1E FA 05 99 22 11 11 20 20 49 46 20 41 3C 35 20 |....".. IF A<5 | 00001620: 05 42 45 54 45 4B 45 4E 54 20 41 4C 53 20 41 20 |.BETEKENT ALS A | 00001630: 4B 4C 45 49 4E 45 52 20 44 41 4E 20 35 20 49 53 |KLEINER DAN 5 IS| 00001640: 00 71 1E 04 06 99 22 11 95 20 20 49 46 20 51 3E |.q....".. IF Q>| 00001650: 31 20 05 42 45 54 45 4B 45 4E 54 20 41 4C 53 20 |1 .BETEKENT ALS | 00001660: 51 20 47 52 4F 54 45 52 20 44 41 4E 20 31 20 49 |Q GROTER DAN 1 I| 00001670: 53 00 A1 1E 0E 06 99 22 11 11 95 20 20 3C 3D 20 |S......"... <= | 00001680: 05 57 49 4C 20 5A 45 47 47 45 4E 20 47 45 4C 49 |.WIL ZEGGEN GELI| 00001690: 4A 4B 20 4F 46 20 4B 4C 45 49 4E 45 52 20 44 41 |JK OF KLEINER DA| 000016A0: 4E 00 D0 1E 18 06 99 22 11 11 95 20 20 3D 3E 20 |N......"... => | 000016B0: 05 57 49 4C 20 5A 45 47 47 45 4E 20 47 45 4C 49 |.WIL ZEGGEN GELI| 000016C0: 4A 4B 20 4F 46 20 47 52 4F 54 45 52 20 44 41 4E |JK OF GROTER DAN| 000016D0: 00 01 1F 22 06 99 22 11 11 95 20 20 3C 3E 20 05 |...".."... <> .| 000016E0: 57 49 4C 20 5A 45 47 47 45 4E 20 4E 49 45 54 20 |WIL ZEGGEN NIET | 000016F0: 47 45 4C 49 4A 4B 20 41 41 4E 22 3A 8D 31 37 36 |GELIJK AAN":.176| 00001700: 30 00 42 1F 2C 06 99 22 93 1F 20 12 4E 4F 54 92 |0.B.,..".. .NOT.| 00001710: 20 20 4D 45 54 20 45 45 4E 20 56 41 52 49 41 42 | MET EEN VARIAB| 00001720: 45 4C 45 20 57 49 4C 20 5A 45 47 47 45 4E 20 49 |ELE WIL ZEGGEN I| 00001730: 4E 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 C5 |N: .| 00001740: C5 C5 00 62 1F 36 06 99 22 11 05 20 20 20 20 31 |...b.6..".. 1| 00001750: 30 20 49 46 20 4E 4F 54 20 58 20 54 48 45 4E 20 |0 IF NOT X THEN | 00001760: 32 30 00 8E 1F 40 06 99 22 11 11 1F 20 41 4C 53 |20...@.."... ALS| 00001770: 20 58 20 4E 49 45 54 20 47 52 4F 54 45 52 20 44 | X NIET GROTER D| 00001780: 41 4E 20 4E 55 4C 20 49 53 20 44 41 4E 3A 00 AE |AN NUL IS DAN:..| 00001790: 1F 4A 06 99 22 11 20 47 41 20 4E 41 41 52 20 52 |.J..". GA NAAR R| 000017A0: 45 47 45 4C 20 32 30 22 3A 8D 31 37 36 30 00 DF |EGEL 20":.1760..| 000017B0: 1F 54 06 99 22 93 90 20 57 49 4C 20 4A 45 20 44 |.T..".. WIL JE D| 000017C0: 45 20 48 45 4C 45 20 4C 45 53 20 4E 4F 47 20 45 |E HELE LES NOG E| 000017D0: 45 4E 20 4B 45 45 52 4A 45 20 4A 2F 4E 20 3F 00 |EN KEERJE J/N ?.| 000017E0: F3 1F 5E 06 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 |..^..Q$:.Q$."".1| 000017F0: 36 33 30 00 06 20 68 06 8B 51 24 B2 C7 28 31 33 |630.. h..Q$..(13| 00001800: 29 89 31 36 33 30 00 2B 20 72 06 99 22 93 90 20 |).1630.+ r..".. | 00001810: 49 4B 20 4C 41 41 44 20 4E 55 20 44 45 20 56 4F |IK LAAD NU DE VO| 00001820: 4C 47 45 4E 44 45 20 4C 45 53 2C 00 3B 20 7C 06 |LGENDE LES,.; |.| 00001830: 99 22 11 20 44 45 45 4C 20 37 2E 00 51 20 86 06 |.". DEEL 7..Q ..| 00001840: 97 31 39 38 2C 31 3A 97 36 33 31 2C 31 33 31 3A |.198,1:.631,131:| 00001850: 80 00 8B 20 9A 06 99 22 13 11 11 11 11 11 11 11 |... ..."........| 00001860: 11 11 1C 20 49 4E 20 44 49 54 20 56 4F 4F 52 42 |... IN DIT VOORB| 00001870: 45 45 4C 44 20 44 4F 45 54 20 44 45 20 27 50 27 |EELD DOET DE 'P'| 00001880: 20 4C 4F 4F 50 20 20 20 20 20 22 00 BC 20 A4 06 | LOOP ".. ..| 00001890: 99 22 11 20 38 20 53 54 41 50 50 45 4E 20 28 30 |.". 8 STAPPEN (0| 000018A0: 20 54 4F 54 20 37 20 5A 49 4A 4E 20 38 20 43 49 | TOT 7 ZIJN 8 CI| 000018B0: 4A 46 45 52 53 21 29 20 20 20 20 22 00 E8 20 AE |JFERS!) ".. .| 000018C0: 06 99 22 20 44 45 20 51 20 4C 4F 4F 50 20 44 4F |.." DE Q LOOP DO| 000018D0: 45 54 20 34 20 53 54 41 50 50 45 4E 20 5A 4F 44 |ET 4 STAPPEN ZOD| 000018E0: 41 54 20 44 45 20 20 22 00 18 21 B8 06 99 22 11 |AT DE "..!...".| 000018F0: 20 4D 41 54 52 49 58 20 45 45 4E 20 49 4E 48 4F | MATRIX EEN INHO| 00001900: 55 44 20 48 45 45 46 54 20 56 41 4E 20 34 2A 38 |UD HEEFT VAN 4*8| 00001910: 3D 33 32 20 20 20 20 22 00 49 21 C2 06 99 22 11 |=32 ".I!...".| 00001920: 20 4C 4F 4B 41 54 49 45 53 2E 20 44 45 5A 45 20 | LOKATIES. DEZE | 00001930: 55 49 54 4B 4F 4D 53 54 20 4D 41 47 20 4E 4F 4F |UITKOMST MAG NOO| 00001940: 49 54 20 20 20 20 20 20 22 00 76 21 CC 06 99 22 |IT ".v!..."| 00001950: 20 47 52 4F 54 45 52 20 44 41 4E 20 32 35 36 20 | GROTER DAN 256 | 00001960: 57 4F 52 44 45 4E 20 4F 4D 44 41 54 20 4A 45 20 |WORDEN OMDAT JE | 00001970: 41 4E 44 45 52 53 00 AE 21 D6 06 99 22 11 20 42 |ANDERS..!...". B| 00001980: 55 49 54 45 4E 20 44 45 20 47 52 45 4E 5A 45 4E |UITEN DE GRENZEN| 00001990: 20 56 41 4E 20 4D 49 4A 4E 20 42 45 52 45 49 4B | VAN MIJN BEREIK| 000019A0: 20 4B 4F 4D 54 22 3A 8D 31 37 36 30 3A 8E 00 F7 | KOMT":.1760:...| 000019B0: 21 E0 06 97 51 31 2C 30 3A 99 22 9E 13 11 11 11 |!...Q1,0:.".....| 000019C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000019D0: 11 11 11 20 20 20 20 20 20 11 12 56 4F 4F 52 20 |... ..VOOR | 000019E0: 56 45 52 44 45 52 3A 20 44 52 55 4B 20 4F 50 20 |VERDER: DRUK OP | 000019F0: 27 53 50 41 43 45 27 00 0B 22 EA 06 A1 41 24 3A |'SPACE'.."...A$:| 00001A00: 8B 41 24 B2 22 22 A7 31 37 37 30 00 11 22 F4 06 |.A$."".1770.."..| 00001A10: 8E 00 25 22 FE 06 A1 51 24 3A 8B 51 24 B2 22 22 |..%"...Q$:.Q$.""| 00001A20: A7 31 36 33 30 00 00 00 |.1630... |
....D..G(142).*.N.Q1.198:.53280,5:.53281
,5.N.X..".. ==='FOR-NEXT' LOOPS===.P
...." ======================......".
. COMPUTERS WORDEN VAAK GEBRUIKT OM DIE.
M....". DINGEN TE DOEN DIE VOOR ONS VERV
ELEND... ..". EN EENTONIG ZIJN OM TE MOE
TEN DOEN..$...."... DIT KAN MET EEN COMP
UTER MET EEN.X....". REPETEER COMMANDO;
DE FOR-NEXT LOOP.":.1760.R....".. 20 FOR
X=1 TO 10...H.." 30 A(X)=10*X...R.." 4
0 NEXT X.F...."... IN REGEL 20 ZIE IK, D
AT IK IETS VAN......". EEN TOT TIEN MOET
HERHALEN EN IN REGEL.2....". 40 ZIE IK
PAS, DAT 'T IETS IS . UITGEVOER
D..B....". IN REGEL 30 ZIE IK WAT ER HER
HAALDELIJK......" MOET GEBEUREN: MAAK A(
IN RANGVOLGORDE)......". GELIJK AAN 10*D
E RANGVOLGORDE.......".. ALS IK DAT VAN
EEN TOT TIEN KEER HEB..."..". GEDAAN, DA
N STOP IK ER MEE.":.1760.@.,..".. DIE A(
X) IS EEN Z.G. 'ARRAY' VARIABELE.O.6..".
. HET GETAL 'X' MAG NIET HOGER ZIJN DAN.
..@..". 10 ANDERS ZIE JE:":.". ?BAD SU
BSCRIPT ERROR.R.J..".. JE KUNT WEL HOGER
, MAAR DAN MOET JE...T..". 'DIMENSIONERE
N' MET HET 'DIM' COMMANDO:":.". DIM A(
255).?.^..".. HOGER DAN 255 KAN NIET; ER
PASSEN.N.H..". MAAR 256 IN EEN ARRAY (V
AN 0 TOT 255)....R..".. ZO WORDT RUIMTE
GERESERVEERD VOOR 256...|..". GETALLEN I
N EEN ARRAY..F....1760......".. STRINGS
KUNNEN OOK IN EEN ARRAY STAAN.4....". OM
MET 'SUBSCRIPT' TE VERWERKEN":.". IN FO
R-NEXT LOOPS......"... HIERVOOR KUNEN WE
DE .READ. AND .DATA. . COMMANDO'S G
EBRUIKEN......."..'DATA' KAN WILLEKEURIG
IN HET PROGRAMMA......". STAAN, IK KIJK
ER PAS NAAR ALS IK":.". . 'READ'...B..
".. ALS COMMANDO TEGEN KOM.":.1760.=.L..
".. ZO'N PROGRAMMA KAN ER ZO UITZIEN:.S.
V.."..10 DIM A$(15).J...."20 FOR X=0 TO
15.~...."30 READ A$(X)......"50 NEXT X..
...."60 FOR X=0 TO 15......"70 ?A$(X);.F
...."80 NEXT X......"90 DATA KAT,MAT,SLO
T,KIP,FRANS,PAAL...&.."100 DATA WAS,VIS,
RIJK,MIS,HEER,DAME.=.0.."110 DATA APPEL,
ROVER,DOL,HAM.J.:..".. DE STRINGS IN DAT
A STATMENTS HOEVEN...D..". NIET TUSSEN A
ANHALINSTEKENS, BEHALVE.C.N..". ALS ER O
OK LEESTEKENS TUSSEN STAAN....X..".. DE
WOORDEN MOETEN WEL GESCHEIDEN...B..". WO
RDEN DOOR KOMMA'S!":.1760.@.L..".. DAT P
ROGRAMMA LEEST DATA VAN DE DATA-.E.V..".
STATMENTS, ELK OP Z'N BEURT.......".. M
ET DE EESTE KEER LEZEN IS X=0, DUS:.A...
.". A$(0)=KAT EN DE TWEEDE LOOP X=1 DUS
:......". A$(1)=MAT ENZ. TOT: X=15 EN A$
(15)=HAM.......".. DE PUNT-KOMMA VOORKOM
T DAT IK STEEDS.L....". NAAR EEN NIEUWE
REGEL GA, ZODAT ALLE......". WOORDEN OP
EEN RIJTJE ACHTER ELKAAR . KOMEN TE S
TAAN.......Q1,0:."... .WIL JE DIT NOG EE
NS DOORNEMEN ?.Q.F..Q$:.Q$."".710...P..Q
$."J".460.#.Z..".. OM TE VOORKOMEN, DAT
IK ZEG:":.". .'OUT OF DATA ERROR'.T...
.".. MOET JE ZORGEN, DAT ER VOLDOENDE 'D
ATA'......" STATEMENTS ZIJN, OF EEN SIGN
AAL OPNEMEN......" DAT IN HET PROGRAMMA
MIJ WAARSCHUWT DAT.S...." ER GEEN DATA M
EER KOMEN :......".. 10 FOR N=0 TO 3.'
...." 15 READ B$:IF B$="G(34)"-999"G(3
4)"THEN RESTORE.;. .." 20 PRINTB$.[.*.
." 30 DATA APPLE,CAT,-999...4..".. ALS
IK DE 'VLAG' '-999' LEES (B$=-999)...>.
.". WORDEN DATA 'RESTORED' EN KUNNEN WEE
R...H..". OPNIEUW GELEZEN WORDEN.":.1760
...R..".. 'FOR-NEXT' LOOPS TELLEN NORMAA
L EEN.=.\..". TEGELIJK OP PER OPDRACHT S
ERIE, MAAR 'T.J.F.." IS MOGELIJK DAAR VE
RANDERIN IN AAN TE...P..". BRENGEN MET H
ET ..STEP. .COMMANDO....Z.."... 20 F
OR B=0 TO 50 STEP 2.P...." 30 NEXT B
......"... ZO WORDT ER TELKENS, PER 'LOO
P' 2 .BIJ B OPGETELD..>....".. DE
EERSTE KEER IS B GELIJK AAN 0,......". M
AAR IN DE TWEEDE RONDE WORDT B: .
2-4-6-8 ENZ.":.1760......".. TERUG TELLE
N KAN OOK DOOR EENVOUDIG......". EEN MIN
TEKEN TE PLAATSEN ACHTER STEP:......"...
FOR B=10 TO 0 STEP -2.3.J.."... B S
TART BIJ 10 EN IN DE VOLGENDE RONDE.B.T.
.". WORDT B 8; ENZ. TOT B GELIJK IS AAN
0.......". MEN NOEMT DIT 'REVERSE STEPPI
NG'.":.1760......".. EEN ANDER SOORT ARR
AY IS HET......". 2-DIMENSIONALE ARRAY O
FWEL .MATRIX........".. HET DIM-COMMANDO
IS ALTIJD NODIG EN ER.7....". KOMMA TUS
SEN: DIM P(2,2).^....".. OP DEZE WIJZE Z
IE IK P(2,2):..N....". ..........$.."0.5
.9.0. P(0,0)= :P(0,1)= :P(0,2)=......"
........S.8.."1.1.9.4. P(1,0)= :P(1,1)
= :P(1,2)=...B.." ..........L.."2.7.3.1
. P(2,0)= :P(2,1)= :P(2,2)=...V.." ...
.....*.`.." 0 1 2.V.J..".. HET EERSTE C
IJFER GEEFT DE RIJ AAN...T..". EN HET TW
EEDE CIJFER DE KOLOM.":.1760...~..".. OM
EEN MATRIX TE VORMEN IS ER 'N.V....". T
ECHNIEK GENAAMD 'NESTED LOOPS'......". D
WZ. EEN LOOP UITGEVOERD IN EEN ANDERE:..
."...."... 10 FOR P=0 TO 7.*...."..C....
".. 20 FOR Q=0 TO 3.L...."..._.D..".. 30
NEXT Q.G.N.."..Z.X..".. 40 NEXT P......
"... IN ELKE 'P' LOOP WORDT EEN 'Q' LOOP
.K....". VOLLEDIG AFGEMAAKT.":.1760.....
."................... HET IS VAN GROOTST
BELANG, DAT DE LOOP.;....". IN DE ANDER
E EEN 'NEXT' VINDT MET ZIJN.G....". EIGE
N 'TELVARIABELE' DAAR ER ANDERS......".
GEGEVENS VERLOREN GAAN, OM DAT DE.G...."
. LOOPS NIET VOLLEDIG UITGEVOERD WORDEN.
":.1760.Q.(..1690...2..".. WIL JE DIT LA
ATSTE NOG EENS ZIEN J/N...<..Q$:.Q$."".
1340.'.F..Q$.G(13).1340.8.P..Q$."J".1000
.Q.Z...15)"...SUBROUTINES.}.D..".. HET K
OMT VOOR DAT IN EEN PROGRAMMA...N..". VA
KER EEN ZELFDE ROUTINE HERHAALD MOET.X.X
..". WORDEN. ZO'N STUKJE PLAATSEN WE BV.
......". AAN 'T EIND VAN 'T PROGRAMMA EN
NOEMEN.3....". WE 'SUBROUTINE'; ZE KAN
ZO VAAK ALS.A....". NODIG WORDEN AANGESP
ROKEN MET 'GOSUB'... ..". PLUS 'T REGELN
UMMER WAAR ZE BEGINT.":.1760.E....".. HE
T LAATSTE COMMANDO VAN EEN SUBROUTINE...
..." IS ALTIJD 'RETURN', WAARDOOR IK WEE
T.,....". DAT IK TERUG MOET NAAR WAAR IK
WAS .GEBLEVEN..Z.H..".. GEEF NOOIT
HET 'CLR' COMMANDO IN EEN...R..". SUBRO
UTINE, WANT DAN WEET IK NIET MEER......"
. WAAR IK VANDAAN KWAM EN ZEG IK:......"
.. 'RETURN WITHOUT GOSUB' ERROR":.1760..
....".. VOORWAARDEN IN EEN 'IF-THEN' STA
TEMENT.@....".. IF A<5 .BETEKENT ALS A
KLEINER DAN 5 IS.Q....".. IF Q>1 .BETEK
ENT ALS Q GROTER DAN 1 IS......"... <=
.WIL ZEGGEN GELIJK OF KLEINER DAN.P...."
... => .WIL ZEGGEN GELIJK OF GROTER DAN
...".."... <> .WIL ZEGGEN NIET GELIJK A
AN":.1760.B.,..".. .NOT. MET EEN VARIAB
ELE WIL ZEGGEN IN: EEE.B.6..
".. 10 IF NOT X THEN 20...@.."... ALS
X NIET GROTER DAN NUL IS DAN:...J..". G
A NAAR REGEL 20":.1760...T..".. WIL JE D
E HELE LES NOG EEN KEERJE J/N ?...^..Q$:
.Q$."".1630.. H..Q$.G(13).1630.+ R.."..
IK LAAD NU DE VOLGENDE LES,.; |..". DEEL
7..Q ...198,1:.631,131:... ..."........
... IN DIT VOORBEELD DOET DE 'P' LOOP
".. ...". 8 STAPPEN (0 TOT 7 ZIJN 8 CI
JFERS!) ".. ..." DE Q LOOP DOET 4 STA
PPEN ZODAT DE "..!...". MATRIX EEN INHO
UD HEEFT VAN 4*8=32 ".I!B..". LOKATIE
S. DEZE UITKOMST MAG NOOIT ".V!L.."
GROTER DAN 256 WORDEN OMDAT JE ANDERS..
!V..". BUITEN DE GRENZEN VAN MIJN BEREIK
KOMT":.1760:...!...Q1,0:.".............
........... ..VOOR VERDER: DRUK OP
'SPACE'.."...A$:.A$."".1770.."....%"...Q
$:.Q$."".1630...
> CLICK IMAGE PREVIEW FOR FULL MODAL