BASIC LES 6
FILE INFORMATION
FILENAME(S): BASIC LES 6
FILE TYPE(S): PRG
FILE SIZE: 6.5K
FIRST SEEN: 2025-12-01 20:43:42
APPEARS ON: 1 disk(s)
FILE HASH
bb6ce11c545938ba26508e12cf01bf581d288c87375cad5a2e43cc9e7c901beb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC | BASIC LES 6 | PRG | mace | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 01 00 8F 20 42 41 53 49 43 20 4C 45 |....... BASIC LE|
00000010: 53 20 36 00 28 08 02 00 97 34 39 31 35 32 2C C2 |S 6.(....49152,.|
00000020: 28 31 38 36 29 3A 89 36 00 71 08 03 00 97 51 31 |(186):.6.q....Q1|
00000030: 2C 30 3A 99 22 9E 13 11 11 11 11 11 11 11 11 11 |,0:."...........|
00000040: 11 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 |............. |
00000050: 20 20 20 11 12 56 4F 4F 52 20 56 45 52 44 45 52 | ..VOOR VERDER|
00000060: 3A 20 44 52 55 4B 20 4F 50 20 27 53 50 41 43 45 |: DRUK OP 'SPACE|
00000070: 27 00 84 08 04 00 A1 41 24 3A 8B 41 24 B3 B1 22 |'......A$:.A$.."|
00000080: 20 22 A7 34 00 8A 08 05 00 8E 00 96 08 06 00 99 | ".4............|
00000090: C7 28 31 34 32 29 00 B3 08 07 00 51 31 B2 31 39 |.(142).....Q1.19|
000000A0: 38 3A 97 35 33 32 38 30 2C 35 3A 97 35 33 32 38 |8:.53280,5:.5328|
000000B0: 31 2C 35 00 D7 08 08 00 99 22 93 1F 20 20 20 20 |1,5......".. |
000000C0: 20 3D 3D 3D 27 46 4F 52 2D 4E 45 58 54 27 20 4C | ==='FOR-NEXT' L|
000000D0: 4F 4F 50 53 3D 3D 3D 00 F9 08 09 00 99 22 20 20 |OOPS===......" |
000000E0: 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | =============|
000000F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 28 09 0A 00 99 22 |=========.(...."|
00000100: 11 1C 20 43 4F 4D 50 55 54 45 52 53 20 57 4F 52 |.. COMPUTERS WOR|
00000110: 44 45 4E 20 56 41 41 4B 20 47 45 42 52 55 49 4B |DEN VAAK GEBRUIK|
00000120: 54 20 4F 4D 20 44 49 45 00 56 09 0B 00 99 22 11 |T OM DIE.V....".|
00000130: 20 44 49 4E 47 45 4E 20 54 45 20 44 4F 45 4E 20 | DINGEN TE DOEN |
00000140: 44 49 45 20 56 4F 4F 52 20 4F 4E 53 20 56 45 52 |DIE VOOR ONS VER|
00000150: 56 45 4C 45 4E 44 00 82 09 0C 00 99 22 11 20 45 |VELEND......". E|
00000160: 4E 20 45 45 4E 54 4F 4E 49 47 20 5A 49 4A 4E 20 |N EENTONIG ZIJN |
00000170: 4F 4D 20 54 45 20 4D 4F 45 54 45 4E 20 44 4F 45 |OM TE MOETEN DOE|
00000180: 4E 2E 00 AD 09 0D 00 99 22 11 11 90 20 44 49 54 |N......."... DIT|
00000190: 20 4B 41 4E 20 4D 45 54 20 45 45 4E 20 43 4F 4D | KAN MET EEN COM|
000001A0: 50 55 54 45 52 20 4D 45 54 20 45 45 4E 00 DE 09 |PUTER MET EEN...|
000001B0: 0E 00 99 22 11 20 52 45 50 45 54 45 45 52 20 43 |...". REPETEER C|
000001C0: 4F 4D 4D 41 4E 44 4F 3B 20 44 45 20 46 4F 52 2D |OMMANDO; DE FOR-|
000001D0: 4E 45 58 54 20 4C 4F 4F 50 2E 22 3A 8D 33 00 F8 |NEXT LOOP.":.3..|
000001E0: 09 0F 00 99 22 93 1C 20 32 30 20 46 4F 52 20 58 |....".. 20 FOR X|
000001F0: 3D 31 20 54 4F 20 31 30 00 0D 0A 10 00 99 22 20 |=1 TO 10......" |
00000200: 33 30 20 20 41 28 58 29 3D 31 30 2A 58 00 1E 0A |30 A(X)=10*X...|
00000210: 11 00 99 22 20 34 30 20 4E 45 58 54 20 58 00 4C |..." 40 NEXT X.L|
00000220: 0A 12 00 99 22 11 11 95 20 49 4E 20 52 45 47 45 |...."... IN REGE|
00000230: 4C 20 32 30 20 5A 49 45 20 49 4B 2C 20 44 41 54 |L 20 ZIE IK, DAT|
00000240: 20 49 4B 20 49 45 54 53 20 56 41 4E 00 7B 0A 13 | IK IETS VAN.{..|
00000250: 00 99 22 11 20 45 45 4E 20 54 4F 54 20 54 49 45 |..". EEN TOT TIE|
00000260: 4E 20 4D 4F 45 54 20 48 45 52 48 41 4C 45 4E 20 |N MOET HERHALEN |
00000270: 45 4E 20 49 4E 20 52 45 47 45 4C 00 B8 0A 14 00 |EN IN REGEL.....|
00000280: 99 22 11 20 34 30 20 5A 49 45 20 49 4B 20 50 41 |.". 40 ZIE IK PA|
00000290: 53 2C 20 44 41 54 20 27 54 20 49 45 54 53 20 49 |S, DAT 'T IETS I|
000002A0: 53 20 20 20 20 20 20 20 20 20 20 11 20 55 49 54 |S . UIT|
000002B0: 47 45 56 4F 45 52 44 2E 00 E8 0A 15 00 99 22 11 |GEVOERD.......".|
000002C0: 20 49 4E 20 52 45 47 45 4C 20 33 30 20 5A 49 45 | IN REGEL 30 ZIE|
000002D0: 20 49 4B 20 57 41 54 20 45 52 20 48 45 52 48 41 | IK WAT ER HERHA|
000002E0: 41 4C 44 45 4C 49 4A 4B 00 16 0B 16 00 99 22 20 |ALDELIJK......" |
000002F0: 4D 4F 45 54 20 47 45 42 45 55 52 45 4E 3A 20 4D |MOET GEBEUREN: M|
00000300: 41 41 4B 20 41 28 49 4E 20 52 41 4E 47 56 4F 4C |AAK A(IN RANGVOL|
00000310: 47 4F 52 44 45 29 00 3D 0B 17 00 99 22 11 20 47 |GORDE).=....". G|
00000320: 45 4C 49 4A 4B 20 41 41 4E 20 31 30 2A 44 45 20 |ELIJK AAN 10*DE |
00000330: 52 41 4E 47 56 4F 4C 47 4F 52 44 45 2E 00 6B 0B |RANGVOLGORDE..k.|
00000340: 18 00 99 22 11 1F 20 41 4C 53 20 49 4B 20 44 41 |...".. ALS IK DA|
00000350: 54 20 56 41 4E 20 45 45 4E 20 54 4F 54 20 54 49 |T VAN EEN TOT TI|
00000360: 45 4E 20 4B 45 45 52 20 48 45 42 00 93 0B 19 00 |EN KEER HEB.....|
00000370: 99 22 11 20 47 45 44 41 41 4E 2C 20 44 41 4E 20 |.". GEDAAN, DAN |
00000380: 53 54 4F 50 20 49 4B 20 45 52 20 4D 45 45 2E 22 |STOP IK ER MEE."|
00000390: 3A 8D 33 00 C3 0B 1A 00 99 22 93 1F 20 44 49 45 |:.3......".. DIE|
000003A0: 20 41 28 58 29 20 49 53 20 45 45 4E 20 5A 2E 47 | A(X) IS EEN Z.G|
000003B0: 2E 20 27 41 52 52 41 59 27 20 56 41 52 49 41 42 |. 'ARRAY' VARIAB|
000003C0: 45 4C 45 00 F2 0B 1B 00 99 22 11 90 20 48 45 54 |ELE......".. HET|
000003D0: 20 47 45 54 41 4C 20 27 58 27 20 4D 41 47 20 4E | GETAL 'X' MAG N|
000003E0: 49 45 54 20 48 4F 47 45 52 20 5A 49 4A 4E 20 44 |IET HOGER ZIJN D|
000003F0: 41 4E 00 28 0C 1C 00 99 22 11 20 31 30 20 41 4E |AN.(....". 10 AN|
00000400: 44 45 52 53 20 5A 49 45 20 4A 45 3A 22 3A 99 22 |DERS ZIE JE:":."|
00000410: 11 20 20 20 3F 42 41 44 20 53 55 42 53 43 52 49 |. ?BAD SUBSCRI|
00000420: 50 54 20 45 52 52 4F 52 00 55 0C 1D 00 99 22 11 |PT ERROR.U....".|
00000430: 1C 20 4A 45 20 4B 55 4E 54 20 57 45 4C 20 48 4F |. JE KUNT WEL HO|
00000440: 47 45 52 2C 20 4D 41 41 52 20 44 41 4E 20 4D 4F |GER, MAAR DAN MO|
00000450: 45 54 20 4A 45 00 97 0C 1E 00 99 22 11 20 27 44 |ET JE......". 'D|
00000460: 49 4D 45 4E 53 49 4F 4E 45 52 45 4E 27 20 4D 45 |IMENSIONEREN' ME|
00000470: 54 20 48 45 54 20 27 44 49 4D 27 20 43 4F 4D 4D |T HET 'DIM' COMM|
00000480: 41 4E 44 4F 3A 22 3A 99 22 90 20 20 20 44 49 4D |ANDO:":.". DIM|
00000490: 20 41 28 32 35 35 29 00 C7 0C 1F 00 99 22 11 1C | A(255)......"..|
000004A0: 20 48 4F 47 45 52 20 44 41 4E 20 32 35 35 20 4B | HOGER DAN 255 K|
000004B0: 41 4E 20 4E 49 45 54 3B 20 45 52 20 50 41 53 53 |AN NIET; ER PASS|
000004C0: 45 4E 20 4D 41 41 52 00 F1 0C 20 00 99 22 11 20 |EN MAAR... ..". |
000004D0: 32 35 36 20 49 4E 20 45 45 4E 20 41 52 52 41 59 |256 IN EEN ARRAY|
000004E0: 20 28 56 41 4E 20 30 20 54 4F 54 20 32 35 35 29 | (VAN 0 TOT 255)|
000004F0: 2E 00 20 0D 21 00 99 22 11 1F 20 5A 4F 20 57 4F |.. .!..".. ZO WO|
00000500: 52 44 54 20 52 55 49 4D 54 45 20 47 45 52 45 53 |RDT RUIMTE GERES|
00000510: 45 52 56 45 45 52 44 20 56 4F 4F 52 20 32 35 36 |ERVEERD VOOR 256|
00000520: 00 3F 0D 22 00 99 22 11 20 47 45 54 41 4C 4C 45 |.?."..". GETALLE|
00000530: 4E 20 49 4E 20 45 45 4E 20 41 52 52 41 59 2E 00 |N IN EEN ARRAY..|
00000540: 46 0D 23 00 8D 33 00 76 0D 24 00 99 22 93 05 20 |F.#..3.v.$..".. |
00000550: 53 54 52 49 4E 47 53 20 4B 55 4E 4E 45 4E 20 4F |STRINGS KUNNEN O|
00000560: 4F 4B 20 49 4E 20 45 45 4E 20 41 52 52 41 59 20 |OK IN EEN ARRAY |
00000570: 53 54 41 41 4E 2E 00 9E 0D 25 00 99 22 11 20 53 |STAAN....%..". S|
00000580: 54 52 49 4E 47 53 20 4B 55 4E 4E 45 4E 20 4D 41 |TRINGS KUNNEN MA|
00000590: 4B 4B 45 4C 49 4A 4B 20 57 4F 52 44 45 4E 00 C3 |KKELIJK WORDEN..|
000005A0: 0D 26 00 99 22 11 20 49 4E 47 45 56 55 4C 44 20 |.&..". INGEVULD |
000005B0: 4D 45 54 20 46 4F 52 2D 4E 45 58 54 20 4C 4F 4F |MET FOR-NEXT LOO|
000005C0: 50 53 2E 00 10 0E 27 00 99 22 11 11 1F 20 48 49 |PS....'.."... HI|
000005D0: 45 52 56 4F 4F 52 20 4B 55 4E 4E 45 4E 20 57 45 |ERVOOR KUNNEN WE|
000005E0: 20 44 45 20 12 52 45 41 44 92 20 41 4E 44 20 12 | DE .READ. AND .|
000005F0: 44 41 54 41 92 20 20 20 20 11 20 43 4F 4D 4D 41 |DATA. . COMMA|
00000600: 4E 44 4F 27 53 20 47 45 42 52 55 49 4B 45 4E 2E |NDO'S GEBRUIKEN.|
00000610: 00 40 0E 28 00 99 22 11 11 27 44 41 54 41 27 20 |.@.(.."..'DATA' |
00000620: 4B 41 4E 20 57 49 4C 4C 45 4B 45 55 52 49 47 20 |KAN WILLEKEURIG |
00000630: 49 4E 20 48 45 54 20 50 52 4F 47 52 41 4D 4D 41 |IN HET PROGRAMMA|
00000640: 00 79 0E 29 00 99 22 11 20 53 54 41 41 4E 2C 20 |.y.)..". STAAN, |
00000650: 49 4B 20 4B 49 4A 4B 20 45 52 20 50 41 53 20 4E |IK KIJK ER PAS N|
00000660: 41 41 52 20 41 4C 53 20 49 4B 22 3A 99 22 11 20 |AAR ALS IK":.". |
00000670: 90 20 20 27 52 45 41 44 27 00 9E 0E 2A 00 99 22 |. 'READ'...*.."|
00000680: 11 1F 20 41 4C 53 20 43 4F 4D 4D 41 4E 44 4F 20 |.. ALS COMMANDO |
00000690: 54 45 47 45 4E 20 4B 4F 4D 2E 22 3A 8D 33 00 C9 |TEGEN KOM.":.3..|
000006A0: 0E 2B 00 99 22 93 1C 20 5A 4F 27 4E 20 50 52 4F |.+..".. ZO'N PRO|
000006B0: 47 52 41 4D 4D 41 20 4B 41 4E 20 45 52 20 5A 4F |GRAMMA KAN ER ZO|
000006C0: 20 55 49 54 5A 49 45 4E 3A 00 DF 0E 2C 00 99 22 | UITZIEN:...,.."|
000006D0: 11 90 31 30 20 44 49 4D 20 41 24 28 31 35 29 00 |..10 DIM A$(15).|
000006E0: F6 0E 2D 00 99 22 32 30 20 46 4F 52 20 58 3D 30 |..-.."20 FOR X=0|
000006F0: 20 54 4F 20 31 35 00 0A 0F 2E 00 99 22 33 30 20 | TO 15......"30 |
00000700: 52 45 41 44 20 41 24 28 58 29 00 1A 0F 2F 00 99 |READ A$(X).../..|
00000710: 22 35 30 20 4E 45 58 54 20 58 00 31 0F 30 00 99 |"50 NEXT X.1.0..|
00000720: 22 36 30 20 46 4F 52 20 58 3D 30 20 54 4F 20 31 |"60 FOR X=0 TO 1|
00000730: 35 00 42 0F 31 00 99 22 37 30 20 3F 41 24 28 58 |5.B.1.."70 ?A$(X|
00000740: 29 3B 00 52 0F 32 00 99 22 38 30 20 4E 45 58 54 |);.R.2.."80 NEXT|
00000750: 20 58 00 7C 0F 33 00 99 22 39 30 20 44 41 54 41 | X.|.3.."90 DATA|
00000760: 20 4B 41 54 2C 4D 41 54 2C 53 4C 4F 54 2C 4B 49 | KAT,MAT,SLOT,KI|
00000770: 50 2C 46 52 41 4E 53 2C 50 41 41 4C 00 A6 0F 34 |P,FRANS,PAAL...4|
00000780: 00 99 22 31 30 30 20 44 41 54 41 20 57 41 53 2C |.."100 DATA WAS,|
00000790: 56 49 53 2C 52 49 4A 4B 2C 4D 49 53 2C 48 45 45 |VIS,RIJK,MIS,HEE|
000007A0: 52 2C 44 41 4D 45 00 C9 0F 35 00 99 22 31 31 30 |R,DAME...5.."110|
000007B0: 20 44 41 54 41 20 41 50 50 45 4C 2C 52 4F 56 45 | DATA APPEL,ROVE|
000007C0: 52 2C 44 4F 4C 2C 48 41 4D 00 F7 0F 36 00 99 22 |R,DOL,HAM...6.."|
000007D0: 11 1F 20 44 45 20 53 54 52 49 4E 47 53 20 49 4E |.. DE STRINGS IN|
000007E0: 20 44 41 54 41 20 53 54 41 54 45 4D 45 4E 54 53 | DATA STATEMENTS|
000007F0: 20 48 4F 45 56 45 4E 00 25 10 37 00 99 22 11 20 | HOEVEN.%.7..". |
00000800: 4E 49 45 54 20 54 55 53 53 45 4E 20 41 41 4E 48 |NIET TUSSEN AANH|
00000810: 41 4C 49 4E 47 53 54 45 4B 45 4E 53 2C 20 42 45 |ALINGSTEKENS, BE|
00000820: 48 41 4C 56 45 00 51 10 38 00 99 22 11 20 41 4C |HALVE.Q.8..". AL|
00000830: 53 20 45 52 20 4F 4F 4B 20 4C 45 45 53 54 45 4B |S ER OOK LEESTEK|
00000840: 45 4E 53 20 54 55 53 53 45 4E 20 53 54 41 41 4E |ENS TUSSEN STAAN|
00000850: 2E 00 7B 10 39 00 99 22 11 9F 20 44 45 20 57 4F |..{.9..".. DE WO|
00000860: 4F 52 44 45 4E 20 4D 4F 45 54 45 4E 20 57 45 4C |ORDEN MOETEN WEL|
00000870: 20 47 45 53 43 48 45 49 44 45 4E 00 9C 10 3A 00 | GESCHEIDEN...:.|
00000880: 99 22 11 20 57 4F 52 44 45 4E 20 44 4F 4F 52 20 |.". WORDEN DOOR |
00000890: 4B 4F 4D 4D 41 27 53 21 22 3A 8D 33 00 CB 10 3B |KOMMA'S!":.3...;|
000008A0: 00 99 22 93 95 20 44 41 54 20 50 52 4F 47 52 41 |..".. DAT PROGRA|
000008B0: 4D 4D 41 20 4C 45 45 53 54 20 44 41 54 41 20 56 |MMA LEEST DATA V|
000008C0: 41 4E 20 44 45 20 44 41 54 41 2D 00 F1 10 3C 00 |AN DE DATA-...<.|
000008D0: 99 22 11 20 53 54 41 54 45 4D 45 4E 54 53 2C 20 |.". STATEMENTS, |
000008E0: 45 4C 4B 20 4F 50 20 5A 27 4E 20 42 45 55 52 54 |ELK OP Z'N BEURT|
000008F0: 2E 00 1F 11 3D 00 99 22 11 1F 20 4D 45 54 20 44 |....=..".. MET D|
00000900: 45 20 45 45 53 54 45 20 4B 45 45 52 20 4C 45 5A |E EESTE KEER LEZ|
00000910: 45 4E 20 49 53 20 58 3D 30 2C 20 44 55 53 3A 00 |EN IS X=0, DUS:.|
00000920: 4D 11 3E 00 99 22 11 20 41 24 28 30 29 3D 4B 41 |M.>..". A$(0)=KA|
00000930: 54 20 45 4E 20 44 45 20 54 57 45 45 44 45 20 4C |T EN DE TWEEDE L|
00000940: 4F 4F 50 20 20 58 3D 31 20 44 55 53 3A 00 7D 11 |OOP X=1 DUS:.}.|
00000950: 3F 00 99 22 11 20 41 24 28 31 29 3D 4D 41 54 20 |?..". A$(1)=MAT |
00000960: 45 4E 5A 2E 20 54 4F 54 3A 20 58 3D 31 35 20 45 |ENZ. TOT: X=15 E|
00000970: 4E 20 41 24 28 31 35 29 3D 48 41 4D 2E 00 AB 11 |N A$(15)=HAM....|
00000980: 40 00 99 22 11 95 20 44 45 20 50 55 4E 54 2D 4B |@..".. DE PUNT-K|
00000990: 4F 4D 4D 41 20 56 4F 4F 52 4B 4F 4D 54 20 44 41 |OMMA VOORKOMT DA|
000009A0: 54 20 49 4B 20 53 54 45 45 44 53 00 D8 11 41 00 |T IK STEEDS...A.|
000009B0: 99 22 11 20 4E 41 41 52 20 45 45 4E 20 4E 49 45 |.". NAAR EEN NIE|
000009C0: 55 57 45 20 52 45 47 45 4C 20 47 41 2C 20 5A 4F |UWE REGEL GA, ZO|
000009D0: 44 41 54 20 41 4C 4C 45 00 19 12 42 00 99 22 11 |DAT ALLE...B..".|
000009E0: 20 57 4F 4F 52 44 45 4E 20 4F 50 20 45 45 4E 20 | WOORDEN OP EEN |
000009F0: 52 49 4A 54 4A 45 20 41 43 48 54 45 52 20 45 4C |RIJTJE ACHTER EL|
00000A00: 4B 41 41 52 20 20 20 20 11 20 4B 4F 4D 45 4E 20 |KAAR . KOMEN |
00000A10: 54 45 20 53 54 41 41 4E 2E 00 4A 12 43 00 97 51 |TE STAAN..J.C..Q|
00000A20: 31 2C 30 3A 99 22 11 11 90 20 12 57 49 4C 20 4A |1,0:."... .WIL J|
00000A30: 45 20 44 49 54 20 4E 4F 47 20 45 45 4E 53 20 44 |E DIT NOG EENS D|
00000A40: 4F 4F 52 4E 45 4D 45 4E 20 3F 00 5D 12 44 00 A1 |OORNEMEN ?.].D..|
00000A50: 51 24 3A 8B 51 24 B2 22 4A 22 A7 34 33 00 6D 12 |Q$:.Q$."J".43.m.|
00000A60: 45 00 8B 51 24 B3 B1 22 4E 22 A7 36 38 00 AF 12 |E..Q$.."N".68...|
00000A70: 46 00 99 22 93 1F 20 4F 4D 20 54 45 20 56 4F 4F |F..".. OM TE VOO|
00000A80: 52 4B 4F 4D 45 4E 2C 20 44 41 54 20 49 4B 20 5A |RKOMEN, DAT IK Z|
00000A90: 45 47 3A 22 3A 99 22 11 20 20 20 90 27 4F 55 54 |EG:":.". .'OUT|
00000AA0: 20 4F 46 20 44 41 54 41 20 45 52 52 4F 52 27 00 | OF DATA ERROR'.|
00000AB0: E0 12 47 00 99 22 11 1F 20 4D 4F 45 54 20 4A 45 |..G..".. MOET JE|
00000AC0: 20 5A 4F 52 47 45 4E 2C 20 44 41 54 20 45 52 20 | ZORGEN, DAT ER |
00000AD0: 56 4F 4C 44 4F 45 4E 44 45 20 27 44 41 54 41 27 |VOLDOENDE 'DATA'|
00000AE0: 00 0F 13 48 00 99 22 20 53 54 41 54 45 4D 45 4E |...H.." STATEMEN|
00000AF0: 54 53 20 5A 49 4A 4E 2C 20 4F 46 20 45 45 4E 20 |TS ZIJN, OF EEN |
00000B00: 53 49 47 4E 41 41 4C 20 4F 50 4E 45 4D 45 4E 00 |SIGNAAL OPNEMEN.|
00000B10: 3E 13 49 00 99 22 20 44 41 54 20 49 4E 20 48 45 |>.I.." DAT IN HE|
00000B20: 54 20 50 52 4F 47 52 41 4D 4D 41 20 4D 49 4A 20 |T PROGRAMMA MIJ |
00000B30: 57 41 41 52 53 43 48 55 57 54 20 44 41 54 00 5F |WAARSCHUWT DAT._|
00000B40: 13 4A 00 99 22 20 45 52 20 47 45 45 4E 20 44 41 |.J.." ER GEEN DA|
00000B50: 54 41 20 4D 45 45 52 20 4B 4F 4D 45 4E 20 3A 00 |TA MEER KOMEN :.|
00000B60: 7A 13 4B 00 99 22 11 1C 20 20 20 31 30 20 46 4F |z.K..".. 10 FO|
00000B70: 52 20 4E 3D 30 20 54 4F 20 33 00 B3 13 4C 00 99 |R N=0 TO 3...L..|
00000B80: 22 20 20 20 31 35 20 52 45 41 44 20 42 24 3A 49 |" 15 READ B$:I|
00000B90: 46 20 42 24 3D 22 C7 28 33 34 29 22 2D 39 39 39 |F B$=".(34)"-999|
00000BA0: 22 C7 28 33 34 29 22 54 48 45 4E 20 52 45 53 54 |".(34)"THEN REST|
00000BB0: 4F 52 45 00 C7 13 4D 00 99 22 20 20 20 32 30 20 |ORE...M.." 20 |
00000BC0: 50 52 49 4E 54 42 24 00 E7 13 4E 00 99 22 20 20 |PRINTB$...N.." |
00000BD0: 20 33 30 20 44 41 54 41 20 41 50 50 4C 45 2C 43 | 30 DATA APPLE,C|
00000BE0: 41 54 2C 2D 39 39 39 00 17 14 4F 00 99 22 11 1F |AT,-999...O.."..|
00000BF0: 20 41 4C 53 20 49 4B 20 44 45 20 27 56 4C 41 47 | ALS IK DE 'VLAG|
00000C00: 27 20 27 2D 39 39 39 27 20 4C 45 45 53 20 28 42 |' '-999' LEES (B|
00000C10: 24 3D 2D 39 39 39 29 00 45 14 50 00 99 22 11 20 |$=-999).E.P..". |
00000C20: 57 4F 52 44 45 4E 20 44 41 54 41 20 27 52 45 53 |WORDEN DATA 'RES|
00000C30: 54 4F 52 45 44 27 20 45 4E 20 4B 55 4E 4E 45 4E |TORED' EN KUNNEN|
00000C40: 20 57 45 45 52 00 69 14 51 00 99 22 11 20 4F 50 | WEER.i.Q..". OP|
00000C50: 4E 49 45 55 57 20 47 45 4C 45 5A 45 4E 20 57 4F |NIEUW GELEZEN WO|
00000C60: 52 44 45 4E 2E 22 3A 8D 33 00 96 14 52 00 99 22 |RDEN.":.3...R.."|
00000C70: 93 95 20 27 46 4F 52 2D 4E 45 58 54 27 20 4C 4F |.. 'FOR-NEXT' LO|
00000C80: 4F 50 53 20 54 45 4C 4C 45 4E 20 4E 4F 52 4D 41 |OPS TELLEN NORMA|
00000C90: 41 4C 20 45 45 4E 00 C6 14 53 00 99 22 11 20 54 |AL EEN...S..". T|
00000CA0: 45 47 45 4C 49 4A 4B 20 4F 50 20 50 45 52 20 4F |EGELIJK OP PER O|
00000CB0: 50 44 52 41 43 48 54 20 53 45 52 49 45 2C 20 4D |PDRACHT SERIE, M|
00000CC0: 41 41 52 20 27 54 00 F4 14 54 00 99 22 20 49 53 |AAR 'T...T.." IS|
00000CD0: 20 4D 4F 47 45 4C 49 4A 4B 20 44 41 41 52 20 56 | MOGELIJK DAAR V|
00000CE0: 45 52 41 4E 44 45 52 49 4E 47 20 49 4E 20 41 41 |ERANDERING IN AA|
00000CF0: 4E 20 54 45 00 1F 15 55 00 99 22 11 20 42 52 45 |N TE...U..". BRE|
00000D00: 4E 47 45 4E 20 4D 45 54 20 48 45 54 20 90 12 53 |NGEN MET HET ..S|
00000D10: 54 45 50 92 20 95 43 4F 4D 4D 41 4E 44 4F 2E 00 |TEP. .COMMANDO..|
00000D20: 45 15 56 00 99 22 11 11 05 20 20 20 20 32 30 20 |E.V.."... 20 |
00000D30: 20 46 4F 52 20 42 3D 30 20 54 4F 20 35 30 20 53 | FOR B=0 TO 50 S|
00000D40: 54 45 50 20 32 00 5A 15 57 00 99 22 20 20 20 20 |TEP 2.Z.W.." |
00000D50: 33 30 20 20 4E 45 58 54 20 42 00 9D 15 58 00 99 |30 NEXT B...X..|
00000D60: 22 11 11 9E 20 5A 4F 20 57 4F 52 44 54 20 45 52 |"... ZO WORDT ER|
00000D70: 20 54 45 4C 4B 45 4E 53 2C 20 50 45 52 20 27 4C | TELKENS, PER 'L|
00000D80: 4F 4F 50 27 20 32 20 20 20 20 20 20 20 11 42 49 |OOP' 2 .BI|
00000D90: 4A 20 42 20 4F 50 47 45 54 45 4C 44 2E 00 C8 15 |J B OPGETELD....|
00000DA0: 59 00 99 22 11 90 20 44 45 20 45 45 52 53 54 45 |Y..".. DE EERSTE|
00000DB0: 20 4B 45 45 52 20 49 53 20 42 20 47 45 4C 49 4A | KEER IS B GELIJ|
00000DC0: 4B 20 41 41 4E 20 30 2C 00 0A 16 5A 00 99 22 11 |K AAN 0,...Z..".|
00000DD0: 20 4D 41 41 52 20 49 4E 20 44 45 20 54 57 45 45 | MAAR IN DE TWEE|
00000DE0: 44 45 20 52 4F 4E 44 45 4E 20 57 4F 52 44 54 20 |DE RONDEN WORDT |
00000DF0: 42 3A 20 20 20 20 20 20 20 11 32 2D 34 2D 36 2D |B: .2-4-6-|
00000E00: 38 20 45 4E 5A 2E 22 3A 8D 33 00 37 16 5B 00 99 |8 ENZ.":.3.7.[..|
00000E10: 22 93 1F 20 54 45 52 55 47 20 54 45 4C 4C 45 4E |".. TERUG TELLEN|
00000E20: 20 4B 41 4E 20 4F 4F 4B 20 44 4F 4F 52 20 45 45 | KAN OOK DOOR EE|
00000E30: 4E 56 4F 55 44 49 47 00 65 16 5C 00 99 22 11 20 |NVOUDIG.e.\..". |
00000E40: 45 45 4E 20 4D 49 4E 54 45 4B 45 4E 20 54 45 20 |EEN MINTEKEN TE |
00000E50: 50 4C 41 41 54 53 45 4E 20 41 43 48 54 45 52 20 |PLAATSEN ACHTER |
00000E60: 53 54 45 50 3A 00 89 16 5D 00 99 22 11 11 1C 20 |STEP:...].."... |
00000E70: 20 20 20 20 46 4F 52 20 42 3D 31 30 20 54 4F 20 | FOR B=10 TO |
00000E80: 30 20 53 54 45 50 20 2D 32 00 BA 16 5E 00 99 22 |0 STEP -2...^.."|
00000E90: 11 11 1F 20 42 20 53 54 41 52 54 20 42 49 4A 20 |... B START BIJ |
00000EA0: 31 30 20 45 4E 20 49 4E 20 44 45 20 56 4F 4C 47 |10 EN IN DE VOLG|
00000EB0: 45 4E 44 45 20 52 4F 4E 44 45 00 E9 16 5F 00 99 |ENDE RONDE..._..|
00000EC0: 22 11 20 57 4F 52 44 54 20 42 20 38 3B 20 45 4E |". WORDT B 8; EN|
00000ED0: 5A 2E 20 54 4F 54 20 42 20 47 45 4C 49 4A 4B 20 |Z. TOT B GELIJK |
00000EE0: 49 53 20 41 41 4E 20 30 2E 00 17 17 60 00 99 22 |IS AAN 0....`.."|
00000EF0: 11 20 4D 45 4E 20 4E 4F 45 4D 54 20 44 49 54 20 |. MEN NOEMT DIT |
00000F00: 27 52 45 56 45 52 53 45 20 53 54 45 50 50 49 4E |'REVERSE STEPPIN|
00000F10: 47 27 2E 22 3A 8D 33 00 3C 17 61 00 99 22 93 1C |G'.":.3.<.a.."..|
00000F20: 20 45 45 4E 20 41 4E 44 45 52 20 53 4F 4F 52 20 | EEN ANDER SOOR |
00000F30: 41 52 52 41 59 20 49 53 20 48 45 54 00 69 17 62 |ARRAY IS HET.i.b|
00000F40: 00 99 22 11 20 32 2D 44 49 4D 45 4E 53 49 4F 4E |..". 2-DIMENSION|
00000F50: 41 4C 45 20 41 52 52 41 59 20 4F 46 57 45 4C 20 |ALE ARRAY OFWEL |
00000F60: 12 4D 41 54 52 49 58 92 2E 00 99 17 63 00 99 22 |.MATRIX.....c.."|
00000F70: 11 1F 20 48 45 54 20 44 49 4D 2D 43 4F 4D 4D 41 |.. HET DIM-COMMA|
00000F80: 4E 44 4F 20 49 53 20 41 4C 54 49 4A 44 20 4E 4F |NDO IS ALTIJD NO|
00000F90: 44 49 47 20 45 4E 20 45 52 00 C3 17 64 00 99 22 |DIG EN ER...d.."|
00000FA0: 11 20 4D 4F 45 54 20 45 45 4E 20 4B 4F 4D 4D 41 |. MOET EEN KOMMA|
00000FB0: 20 54 55 53 53 45 4E 3A 20 44 49 4D 20 50 28 32 | TUSSEN: DIM P(2|
00000FC0: 2C 32 29 00 EA 17 65 00 99 22 11 05 20 4F 50 20 |,2)...e..".. OP |
00000FD0: 44 45 5A 45 20 57 49 4A 5A 45 20 5A 49 45 20 49 |DEZE WIJZE ZIE I|
00000FE0: 4B 20 50 28 32 2C 32 29 3A 11 00 FA 17 66 00 99 |K P(2,2):....f..|
00000FF0: 22 1C 20 B0 C0 B2 C0 B2 C0 AE 00 25 18 67 00 99 |". ........%.g..|
00001000: 22 30 DD 35 DD 39 DD 30 DD 20 50 28 30 2C 30 29 |"0.5.9.0. P(0,0)|
00001010: 3D 20 20 3A 50 28 30 2C 31 29 3D 20 20 3A 50 28 |= :P(0,1)= :P(|
00001020: 30 2C 32 29 3D 00 34 18 68 00 99 22 20 AB C0 DB |0,2)=.4.h.." ...|
00001030: C0 DB C0 B3 00 5F 18 69 00 99 22 31 DD 31 DD 39 |....._.i.."1.1.9|
00001040: DD 34 DD 20 50 28 31 2C 30 29 3D 20 20 3A 50 28 |.4. P(1,0)= :P(|
00001050: 31 2C 31 29 3D 20 20 3A 50 28 31 2C 32 29 3D 00 |1,1)= :P(1,2)=.|
00001060: 6E 18 6A 00 99 22 20 AB C0 DB C0 DB C0 B3 00 99 |n.j.." .........|
00001070: 18 6B 00 99 22 32 DD 37 DD 33 DD 31 DD 20 50 28 |.k.."2.7.3.1. P(|
00001080: 32 2C 30 29 3D 20 20 3A 50 28 32 2C 31 29 3D 20 |2,0)= :P(2,1)= |
00001090: 20 3A 50 28 32 2C 32 29 3D 00 A8 18 6C 00 99 22 | :P(2,2)=...l.."|
000010A0: 20 AD C0 B1 C0 B1 C0 BD 00 B6 18 6D 00 99 22 20 | ..........m.." |
000010B0: 20 30 20 31 20 32 00 E2 18 6E 00 99 22 11 1F 20 | 0 1 2...n..".. |
000010C0: 48 45 54 20 45 45 52 53 54 45 20 43 49 4A 46 45 |HET EERSTE CIJFE|
000010D0: 52 20 47 45 45 46 54 20 44 45 20 52 49 4A 20 41 |R GEEFT DE RIJ A|
000010E0: 41 4E 00 0D 19 6F 00 99 22 11 20 45 4E 20 48 45 |AN...o..". EN HE|
000010F0: 54 20 54 57 45 45 44 45 20 43 49 4A 46 45 52 20 |T TWEEDE CIJFER |
00001100: 44 45 20 4B 4F 4C 4F 4D 2E 22 3A 8D 33 00 37 19 |DE KOLOM.":.3.7.|
00001110: 70 00 99 22 93 95 20 4F 4D 20 45 45 4E 20 4D 41 |p..".. OM EEN MA|
00001120: 54 52 49 58 20 54 45 20 56 4F 52 4D 45 4E 20 49 |TRIX TE VORMEN I|
00001130: 53 20 45 52 20 27 4E 00 5F 19 71 00 99 22 11 20 |S ER 'N._.q..". |
00001140: 54 45 43 48 4E 49 45 4B 20 47 45 4E 41 41 4D 44 |TECHNIEK GENAAMD|
00001150: 20 27 4E 45 53 54 45 44 20 4C 4F 4F 50 53 27 00 | 'NESTED LOOPS'.|
00001160: 91 19 72 00 99 22 11 20 44 57 5A 2E 20 45 45 4E |..r..". DWZ. EEN|
00001170: 20 4C 4F 4F 50 20 55 49 54 47 45 56 4F 45 52 44 | LOOP UITGEVOERD|
00001180: 20 49 4E 20 45 45 4E 20 41 4E 44 45 52 45 3A 11 | IN EEN ANDERE:.|
00001190: 11 00 AB 19 73 00 99 22 9E B0 C0 20 31 30 20 46 |....s.."... 10 F|
000011A0: 4F 52 20 50 3D 30 20 54 4F 20 37 00 B3 19 74 00 |OR P=0 TO 7...t.|
000011B0: 99 22 DD 00 CC 19 75 00 99 22 DD B0 20 32 30 20 |."....u..".. 20 |
000011C0: 46 4F 52 20 51 3D 30 20 54 4F 20 33 00 D5 19 76 |FOR Q=0 TO 3...v|
000011D0: 00 99 22 DD DD 00 E8 19 77 00 99 22 DD AD 20 33 |..".....w..".. 3|
000011E0: 30 20 4E 45 58 54 20 51 00 F0 19 78 00 99 22 DD |0 NEXT Q...x..".|
000011F0: 00 03 1A 79 00 99 22 AD C0 20 34 30 20 4E 45 58 |...y..".. 40 NEX|
00001200: 54 20 50 00 31 1A 7A 00 99 22 11 11 1C 20 49 4E |T P.1.z.."... IN|
00001210: 20 45 4C 4B 45 20 27 50 27 20 4C 4F 4F 50 20 57 | ELKE 'P' LOOP W|
00001220: 4F 52 44 54 20 45 45 4E 20 27 51 27 20 4C 4F 4F |ORDT EEN 'Q' LOO|
00001230: 50 00 51 1A 7B 00 99 22 11 20 56 4F 4C 4C 45 44 |P.Q.{..". VOLLED|
00001240: 49 47 20 41 46 47 45 4D 41 41 4B 54 2E 22 3A 8D |IG AFGEMAAKT.":.|
00001250: 33 00 92 1A 7C 00 99 22 11 11 11 11 11 11 11 11 |3...|.."........|
00001260: 13 11 11 11 11 11 11 11 11 11 1F 20 48 45 54 20 |........... HET |
00001270: 49 53 20 56 41 4E 20 47 52 4F 4F 54 53 54 20 42 |IS VAN GROOTST B|
00001280: 45 4C 41 4E 47 2C 20 44 41 54 20 44 45 20 4C 4F |ELANG, DAT DE LO|
00001290: 4F 50 00 BF 1A 7D 00 99 22 11 20 49 4E 20 44 45 |OP...}..". IN DE|
000012A0: 20 41 4E 44 45 52 45 20 45 45 4E 20 27 4E 45 58 | ANDERE EEN 'NEX|
000012B0: 54 20 56 49 4E 44 20 4D 45 54 20 5A 49 4A 4E 00 |T VIND MET ZIJN.|
000012C0: EB 1A 7E 00 99 22 11 20 45 49 47 45 4E 20 27 54 |..~..". EIGEN 'T|
000012D0: 45 4C 56 41 52 49 41 42 45 4C 45 27 20 44 41 41 |ELVARIABELE' DAA|
000012E0: 52 20 45 52 20 41 4E 44 45 52 53 00 15 1B 7F 00 |R ER ANDERS.....|
000012F0: 99 22 11 20 47 45 47 45 56 45 4E 53 20 56 45 52 |.". GEGEVENS VER|
00001300: 4C 4F 52 45 4E 20 47 41 41 4E 2C 20 4F 4D 20 44 |LOREN GAAN, OM D|
00001310: 41 54 20 44 45 00 49 1B 80 00 99 22 11 20 4C 4F |AT DE.I....". LO|
00001320: 4F 50 27 53 20 4E 49 45 54 20 56 4F 4C 4C 45 44 |OP'S NIET VOLLED|
00001330: 49 47 20 55 49 54 47 45 56 4F 45 52 44 20 57 4F |IG UITGEVOERD WO|
00001340: 52 44 45 4E 2E 22 3A 8D 33 00 83 1B 81 00 99 22 |RDEN.":.3......"|
00001350: 13 11 11 11 11 11 11 11 11 11 1C 20 49 4E 20 44 |........... IN D|
00001360: 49 54 20 56 4F 4F 52 42 45 45 4C 44 20 44 4F 45 |IT VOORBEELD DOE|
00001370: 54 20 44 45 20 27 50 27 20 4C 4F 4F 50 20 20 20 |T DE 'P' LOOP |
00001380: 20 20 22 00 B2 1B 82 00 99 22 11 20 38 20 53 54 | "......". 8 ST|
00001390: 41 50 50 45 4E 20 28 30 20 54 4F 54 20 37 20 5A |APPEN (0 TOT 7 Z|
000013A0: 49 4A 4E 20 38 20 43 49 4A 46 45 52 53 21 29 20 |IJN 8 CIJFERS!) |
000013B0: 20 22 00 DF 1B 83 00 99 22 11 20 44 45 20 51 20 | "......". DE Q |
000013C0: 4C 4F 4F 50 20 44 4F 45 54 20 34 20 53 54 41 50 |LOOP DOET 4 STAP|
000013D0: 50 45 4E 20 5A 4F 44 41 54 20 44 45 20 20 22 00 |PEN ZODAT DE ".|
000013E0: 0F 1C 84 00 99 22 11 20 4D 41 54 52 49 58 20 45 |.....". MATRIX E|
000013F0: 45 4E 20 49 4E 48 4F 55 44 20 48 45 45 46 54 20 |EN INHOUD HEEFT |
00001400: 56 41 4E 20 34 2A 38 3D 33 32 20 20 20 20 22 00 |VAN 4*8=32 ".|
00001410: 40 1C 85 00 99 22 11 20 4C 4F 4B 41 54 49 45 53 |@....". LOKATIES|
00001420: 2E 20 44 45 5A 45 20 55 49 54 4B 4F 4D 53 54 20 |. DEZE UITKOMST |
00001430: 4D 41 47 20 4E 4F 4F 49 54 20 20 20 20 20 20 22 |MAG NOOIT "|
00001440: 00 6D 1C 86 00 99 22 20 47 52 4F 54 45 52 20 44 |.m...." GROTER D|
00001450: 41 4E 20 32 35 36 20 57 4F 52 44 45 4E 20 4F 4D |AN 256 WORDEN OM|
00001460: 44 41 54 20 4A 45 20 41 4E 44 45 52 53 00 A0 1C |DAT JE ANDERS...|
00001470: 87 00 99 22 11 20 42 55 49 54 45 4E 20 44 45 20 |...". BUITEN DE |
00001480: 47 52 45 4E 5A 45 4E 20 56 41 4E 20 4D 49 4A 4E |GRENZEN VAN MIJN|
00001490: 20 42 45 52 45 49 4B 20 4B 4F 4D 54 22 3A 8D 33 | BEREIK KOMT":.3|
000014A0: 00 CF 1C 88 00 99 22 93 90 20 57 49 4C 20 4A 45 |......".. WIL JE|
000014B0: 20 44 49 54 20 4C 41 41 54 53 54 45 20 4E 4F 47 | DIT LAATSTE NOG|
000014C0: 20 45 45 4E 53 20 5A 49 45 4E 20 20 4A 2F 4E 00 | EENS ZIEN J/N.|
000014D0: E2 1C 89 00 A1 51 24 3A 8B 51 24 B2 22 4A 22 A7 |.....Q$:.Q$."J".|
000014E0: 39 37 00 F3 1C 8A 00 8B 51 24 B3 B1 22 4E 22 A7 |97......Q$.."N".|
000014F0: 31 33 37 00 0C 1D 8B 00 99 A3 31 35 29 22 93 1F |137.......15)"..|
00001500: 12 53 55 42 52 4F 55 54 49 4E 45 53 00 38 1D 8C |.SUBROUTINES.8..|
00001510: 00 99 22 11 11 20 48 45 54 20 4B 4F 4D 54 20 56 |..".. HET KOMT V|
00001520: 4F 4F 52 20 44 41 54 20 49 4E 20 45 45 4E 20 50 |OOR DAT IN EEN P|
00001530: 52 4F 47 52 41 4D 4D 41 00 67 1D 8D 00 99 22 11 |ROGRAMMA.g....".|
00001540: 20 56 41 4B 45 52 20 45 45 4E 20 5A 45 4C 46 44 | VAKER EEN ZELFD|
00001550: 45 20 52 4F 55 54 49 4E 45 20 48 45 52 48 41 41 |E ROUTINE HERHAA|
00001560: 4C 44 20 4D 4F 45 54 00 93 1D 8E 00 99 22 11 20 |LD MOET......". |
00001570: 57 4F 52 44 45 4E 2E 20 5A 4F 27 4E 20 53 54 55 |WORDEN. ZO'N STU|
00001580: 4B 4A 45 20 50 4C 41 41 54 53 45 4E 20 57 45 20 |KJE PLAATSEN WE |
00001590: 42 56 2E 00 C2 1D 8F 00 99 22 11 20 41 41 4E 20 |BV.......". AAN |
000015A0: 27 54 20 45 49 4E 44 20 56 41 4E 20 27 54 20 50 |'T EIND VAN 'T P|
000015B0: 52 4F 47 52 41 4D 4D 41 20 45 4E 20 4E 4F 45 4D |ROGRAMMA EN NOEM|
000015C0: 45 4E 00 EE 1D 90 00 99 22 11 20 57 45 20 27 53 |EN......". WE 'S|
000015D0: 55 42 52 4F 55 54 49 4E 45 27 3B 20 5A 45 20 4B |UBROUTINE'; ZE K|
000015E0: 41 4E 20 5A 4F 20 56 41 41 4B 20 41 4C 53 00 1C |AN ZO VAAK ALS..|
000015F0: 1E 91 00 99 22 11 20 4E 4F 44 49 47 20 57 4F 52 |....". NODIG WOR|
00001600: 44 45 4E 20 41 41 4E 47 45 53 50 52 4F 4B 45 4E |DEN AANGESPROKEN|
00001610: 20 4D 45 54 20 27 47 4F 53 55 42 27 00 4C 1E 92 | MET 'GOSUB'.L..|
00001620: 00 99 22 11 20 50 4C 55 53 20 27 54 20 52 45 47 |..". PLUS 'T REG|
00001630: 45 4C 4E 55 4D 4D 45 52 20 57 41 41 52 20 5A 45 |ELNUMMER WAAR ZE|
00001640: 20 42 45 47 49 4E 54 2E 22 3A 8D 33 00 7D 1E 93 | BEGINT.":.3.}..|
00001650: 00 99 22 93 1C 20 48 45 54 20 4C 41 41 54 53 54 |..".. HET LAATST|
00001660: 45 20 43 4F 4D 4D 41 4E 44 4F 20 56 41 4E 20 45 |E COMMANDO VAN E|
00001670: 45 4E 20 53 55 42 52 4F 55 54 49 4E 45 00 A9 1E |EN SUBROUTINE...|
00001680: 94 00 99 22 20 49 53 20 41 4C 54 49 4A 44 20 27 |..." IS ALTIJD '|
00001690: 52 45 54 55 52 4E 27 2C 20 57 41 41 52 44 4F 4F |RETURN', WAARDOO|
000016A0: 52 20 49 4B 20 57 45 45 54 00 E4 1E 95 00 99 22 |R IK WEET......"|
000016B0: 11 20 44 41 54 20 49 4B 20 54 45 52 55 47 20 4D |. DAT IK TERUG M|
000016C0: 4F 45 54 20 4E 41 41 52 20 57 41 41 52 20 49 4B |OET NAAR WAAR IK|
000016D0: 20 57 41 53 20 20 20 20 20 20 11 47 45 42 4C 45 | WAS .GEBLE|
000016E0: 56 45 4E 2E 00 12 1F 96 00 99 22 11 05 20 47 45 |VEN.......".. GE|
000016F0: 45 46 20 4E 4F 4F 49 54 20 48 45 54 20 27 43 4C |EF NOOIT HET 'CL|
00001700: 52 27 20 43 4F 4D 4D 41 4E 44 4F 20 49 4E 20 45 |R' COMMANDO IN E|
00001710: 45 4E 00 41 1F 97 00 99 22 11 20 53 55 42 52 4F |EN.A....". SUBRO|
00001720: 55 54 49 4E 45 2C 20 57 41 4E 54 20 44 41 4E 20 |UTINE, WANT DAN |
00001730: 57 45 45 54 20 49 4B 20 4E 49 45 54 20 4D 45 45 |WEET IK NIET MEE|
00001740: 52 00 69 1F 98 00 99 22 11 20 57 41 41 52 20 49 |R.i....". WAAR I|
00001750: 4B 20 56 41 4E 44 41 41 4E 20 4B 57 41 4D 20 45 |K VANDAAN KWAM E|
00001760: 4E 20 5A 45 47 20 49 4B 3A 00 93 1F 99 00 99 22 |N ZEG IK:......"|
00001770: 11 90 20 27 52 45 54 55 52 4E 20 57 49 54 48 4F |.. 'RETURN WITHO|
00001780: 55 54 20 47 4F 53 55 42 27 20 45 52 52 4F 52 22 |UT GOSUB' ERROR"|
00001790: 3A 8D 33 00 C3 1F 9A 00 99 22 93 95 20 56 4F 4F |:.3......".. VOO|
000017A0: 52 57 41 41 52 44 45 4E 20 49 4E 20 45 45 4E 20 |RWAARDEN IN EEN |
000017B0: 27 49 46 2D 54 48 45 4E 27 20 53 54 41 54 45 4D |'IF-THEN' STATEM|
000017C0: 45 4E 54 00 F5 1F 9B 00 99 22 11 11 20 20 49 46 |ENT......".. IF|
000017D0: 20 41 3C 35 20 05 42 45 54 45 4B 45 4E 54 20 41 | A<5 .BETEKENT A|
000017E0: 4C 53 20 41 20 4B 4C 45 49 4E 45 52 20 44 41 4E |LS A KLEINER DAN|
000017F0: 20 35 20 49 53 00 26 20 9C 00 99 22 11 95 20 20 | 5 IS.& ...".. |
00001800: 49 46 20 51 3E 31 20 05 42 45 54 45 4B 45 4E 54 |IF Q>1 .BETEKENT|
00001810: 20 41 4C 53 20 51 20 47 52 4F 54 45 52 20 44 41 | ALS Q GROTER DA|
00001820: 4E 20 31 20 49 53 00 56 20 9D 00 99 22 11 11 95 |N 1 IS.V ..."...|
00001830: 20 20 3C 3D 20 05 57 49 4C 20 5A 45 47 47 45 4E | <= .WIL ZEGGEN|
00001840: 20 47 45 4C 49 4A 4B 20 4F 46 20 4B 4C 45 49 4E | GELIJK OF KLEIN|
00001850: 45 52 20 44 41 4E 00 85 20 9E 00 99 22 11 11 95 |ER DAN.. ..."...|
00001860: 20 20 3D 3E 20 05 57 49 4C 20 5A 45 47 47 45 4E | => .WIL ZEGGEN|
00001870: 20 47 45 4C 49 4A 4B 20 4F 46 20 47 52 4F 54 45 | GELIJK OF GROTE|
00001880: 52 20 44 41 4E 00 B3 20 9F 00 99 22 11 11 95 20 |R DAN.. ..."... |
00001890: 20 3C 3E 20 05 57 49 4C 20 5A 45 47 47 45 4E 20 | <> .WIL ZEGGEN |
000018A0: 4E 49 45 54 20 47 45 4C 49 4A 4B 20 41 41 4E 22 |NIET GELIJK AAN"|
000018B0: 3A 8D 33 00 F4 20 A0 00 99 22 93 1F 20 12 4E 4F |:.3.. ...".. .NO|
000018C0: 54 92 20 20 4D 45 54 20 45 45 4E 20 56 41 52 49 |T. MET EEN VARI|
000018D0: 41 42 45 4C 45 20 57 49 4C 20 5A 45 47 47 45 4E |ABELE WIL ZEGGEN|
000018E0: 20 49 4E 3A 20 20 20 20 20 20 20 20 20 20 20 20 | IN: |
000018F0: 20 C5 C5 C5 00 14 21 A1 00 99 22 11 05 20 20 20 | .....!...".. |
00001900: 20 31 30 20 49 46 20 4E 4F 54 20 58 20 54 48 45 | 10 IF NOT X THE|
00001910: 4E 20 32 30 00 43 21 A2 00 99 22 11 11 1F 20 41 |N 20.C!..."... A|
00001920: 4C 53 20 58 20 49 53 20 4E 49 45 54 20 47 52 4F |LS X IS NIET GRO|
00001930: 54 45 52 20 44 41 4E 20 4E 55 4C 20 49 53 20 44 |TER DAN NUL IS D|
00001940: 41 4E 3A 00 60 21 A3 00 99 22 11 20 47 41 20 4E |AN:.`!...". GA N|
00001950: 41 41 52 20 52 45 47 45 4C 20 32 30 22 3A 8D 33 |AAR REGEL 20":.3|
00001960: 00 91 21 A4 00 99 22 93 90 20 57 49 4C 20 4A 45 |..!...".. WIL JE|
00001970: 20 44 45 20 48 45 4C 45 20 4C 45 53 20 4E 4F 47 | DE HELE LES NOG|
00001980: 20 45 45 4E 20 4B 45 45 52 4A 45 20 4A 2F 4E 20 | EEN KEERJE J/N |
00001990: 3F 00 A4 21 A5 00 A1 51 24 3A 8B 51 24 B2 22 4A |?..!...Q$:.Q$."J|
000019A0: 22 A7 8A 36 00 B5 21 A6 00 8B 51 24 B3 B1 22 4E |"..6..!...Q$.."N|
000019B0: 22 A7 31 36 35 00 DA 21 A7 00 99 22 93 90 20 49 |".165..!...".. I|
000019C0: 4B 20 4C 41 41 44 20 4E 55 20 44 45 20 56 4F 4C |K LAAD NU DE VOL|
000019D0: 47 45 4E 44 45 20 4C 45 53 2C 00 EA 21 A8 00 99 |GENDE LES,..!...|
000019E0: 22 11 20 44 45 45 4C 20 37 2E 00 06 22 A9 00 93 |". DEEL 7..."...|
000019F0: 22 42 41 53 49 43 20 4C 45 53 20 37 22 2C C2 28 |"BASIC LES 7",.(|
00001A00: 34 39 31 35 32 29 00 00 00 |49152)... |
....... BASIC LES 6.(....49152,B(186):.6
.Q....Q1,0:."........................
..VOOR VERDER: DRUK OP 'SPACE'......A
$:.A$.." ".4............G(142).....Q1.19
8:.53280,5:.53281,5.W....".. ==='FOR
-NEXT' LOOPS===......" =============
=========.(....".. COMPUTERS WORDEN VAAK
GEBRUIKT OM DIE.V....". DINGEN TE DOEN
DIE VOOR ONS VERVELEND......". EN EENTON
IG ZIJN OM TE MOETEN DOEN......."... DIT
KAN MET EEN COMPUTER MET EEN......". RE
PETEER COMMANDO; DE FOR-NEXT LOOP.":.3..
....".. 20 FOR X=1 TO 10......" 30 A(X)
=10*X......" 40 NEXT X.L...."... IN REGE
L 20 ZIE IK, DAT IK IETS VAN.{....". EEN
TOT TIEN MOET HERHALEN EN IN REGEL.....
.". 40 ZIE IK PAS, DAT 'T IETS IS
. UITGEVOERD.......". IN REGEL 30 ZIE
IK WAT ER HERHAALDELIJK......" MOET GEB
EUREN: MAAK A(IN RANGVOLGORDE).=....". G
ELIJK AAN 10*DE RANGVOLGORDE..K....".. A
LS IK DAT VAN EEN TOT TIEN KEER HEB.....
.". GEDAAN, DAN STOP IK ER MEE.":.3.C...
.".. DIE A(X) IS EEN Z.G. 'ARRAY' VARIAB
ELE......".. HET GETAL 'X' MAG NIET HOGE
R ZIJN DAN.(....". 10 ANDERS ZIE JE:":."
. ?BAD SUBSCRIPT ERROR.U....".. JE KUN
T WEL HOGER, MAAR DAN MOET JE......". 'D
IMENSIONEREN' MET HET 'DIM' COMMANDO:":.
". DIM A(255).G....".. HOGER DAN 255 K
AN NIET; ER PASSEN MAAR... ..". 256 IN E
EN ARRAY (VAN 0 TOT 255).. .!..".. ZO WO
RDT RUIMTE GERESERVEERD VOOR 256.?."..".
GETALLEN IN EEN ARRAY..F.#..3.V.$.."..
STRINGS KUNNEN OOK IN EEN ARRAY STAAN...
.%..". STRINGS KUNNEN MAKKELIJK WORDEN.C
.&..". INGEVULD MET FOR-NEXT LOOPS....'.
."... HIERVOOR KUNNEN WE DE .READ. AND .
DATA. . COMMANDO'S GEBRUIKEN..@.(..".
.'DATA' KAN WILLEKEURIG IN HET PROGRAMMA
.Y.)..". STAAN, IK KIJK ER PAS NAAR ALS
IK":.". . 'READ'...*..".. ALS COMMANDO
TEGEN KOM.":.3.I.+..".. ZO'N PROGRAMMA K
AN ER ZO UITZIEN:...,.."..10 DIM A$(15).
..-.."20 FOR X=0 TO 15......"30 READ A$(
X).../.."50 NEXT X.1.0.."60 FOR X=0 TO 1
5.B.1.."70 ?A$(X);.R.2.."80 NEXT X.|.3..
"90 DATA KAT,MAT,SLOT,KIP,FRANS,PAAL...4
.."100 DATA WAS,VIS,RIJK,MIS,HEER,DAME.I
.5.."110 DATA APPEL,ROVER,DOL,HAM...6.."
.. DE STRINGS IN DATA STATEMENTS HOEVEN.
%.7..". NIET TUSSEN AANHALINGSTEKENS, BE
HALVE.Q.8..". ALS ER OOK LEESTEKENS TUSS
EN STAAN..{.9..".. DE WOORDEN MOETEN WEL
GESCHEIDEN...:..". WORDEN DOOR KOMMA'S!
":.3.K.;..".. DAT PROGRAMMA LEEST DATA V
AN DE DATA-...<..". STATEMENTS, ELK OP Z
'N BEURT....=..".. MET DE EESTE KEER LEZ
EN IS X=0, DUS:.M.>..". A$(0)=KAT EN DE
TWEEDE LOOP X=1 DUS:.}.?..". A$(1)=MAT
ENZ. TOT: X=15 EN A$(15)=HAM....@..".. D
E PUNT-KOMMA VOORKOMT DAT IK STEEDS.X.A.
.". NAAR EEN NIEUWE REGEL GA, ZODAT ALLE
...B..". WOORDEN OP EEN RIJTJE ACHTER EL
KAAR . KOMEN TE STAAN..J.C..Q1,0:."..
. .WIL JE DIT NOG EENS DOORNEMEN ?.].D..
Q$:.Q$."J".43.M.E..Q$.."N".68...F..".. O
M TE VOORKOMEN, DAT IK ZEG:":.". .'OUT
OF DATA ERROR'...G..".. MOET JE ZORGEN,
DAT ER VOLDOENDE 'DATA'...H.." STATEMEN
TS ZIJN, OF EEN SIGNAAL OPNEMEN.>.I.." D
AT IN HET PROGRAMMA MIJ WAARSCHUWT DAT._
.J.." ER GEEN DATA MEER KOMEN :.Z.K.."..
10 FOR N=0 TO 3...L.." 15 READ B$:I
F B$="G(34)"-999"G(34)"THEN RESTORE.G.M.
." 20 PRINTB$...N.." 30 DATA APPLE,C
AT,-999...O..".. ALS IK DE 'VLAG' '-999'
LEES (B$=-999).E.P..". WORDEN DATA 'RES
TORED' EN KUNNEN WEER.I.Q..". OPNIEUW GE
LEZEN WORDEN.":.3...R..".. 'FOR-NEXT' LO
OPS TELLEN NORMAAL EEN.F.S..". TEGELIJK
OP PER OPDRACHT SERIE, MAAR 'T...T.." IS
MOGELIJK DAAR VERANDERING IN AAN TE...U
..". BRENGEN MET HET ..STEP. .COMMANDO..
E.V.."... 20 FOR B=0 TO 50 STEP 2.Z.
W.." 30 NEXT B...X.."... ZO WORDT ER
TELKENS, PER 'LOOP' 2 .BIJ B OPGE
TELD..H.Y..".. DE EERSTE KEER IS B GELIJ
K AAN 0,...Z..". MAAR IN DE TWEEDE RONDE
N WORDT B: .2-4-6-8 ENZ.":.3.7.[..
".. TERUG TELLEN KAN OOK DOOR EENVOUDIG.
E.\..". EEN MINTEKEN TE PLAATSEN ACHTER
STEP:...].."... FOR B=10 TO 0 STEP -
2...^.."... B START BIJ 10 EN IN DE VOLG
ENDE RONDE..._..". WORDT B 8; ENZ. TOT B
GELIJK IS AAN 0....`..". MEN NOEMT DIT
'REVERSE STEPPING'.":.3.<.A..".. EEN AND
ER SOOR ARRAY IS HET.I.B..". 2-DIMENSION
ALE ARRAY OFWEL .MATRIX.....C..".. HET D
IM-COMMANDO IS ALTIJD NODIG EN ER.C.D.."
. MOET EEN KOMMA TUSSEN: DIM P(2,2)...E.
.".. OP DEZE WIJZE ZIE IK P(2,2):....F..
". ........%.G.."0.5.9.0. P(0,0)= :P(0,
1)= :P(0,2)=.4.H.." ........_.I.."1.1.9
.4. P(1,0)= :P(1,1)= :P(1,2)=.N.J.." .
.........K.."2.7.3.1. P(2,0)= :P(2,1)=
:P(2,2)=...L.." ..........M.." 0 1 2..
.N..".. HET EERSTE CIJFER GEEFT DE RIJ A
AN...O..". EN HET TWEEDE CIJFER DE KOLOM
.":.3.7.P..".. OM EEN MATRIX TE VORMEN I
S ER 'N._.Q..". TECHNIEK GENAAMD 'NESTED
LOOPS'...R..". DWZ. EEN LOOP UITGEVOERD
IN EEN ANDERE:.....S.."... 10 FOR P=0 T
O 7...T.."..L.U..".. 20 FOR Q=0 TO 3.U.V
..".....W..".. 30 NEXT Q...X.."....Y..".
. 40 NEXT P.1.Z.."... IN ELKE 'P' LOOP W
ORDT EEN 'Q' LOOP.Q.{..". VOLLEDIG AFGEM
AAKT.":.3...|.."................... HET
IS VAN GROOTST BELANG, DAT DE LOOP...}..
". IN DE ANDERE EEN 'NEXT VIND MET ZIJN.
..~..". EIGEN 'TELVARIABELE' DAAR ER AND
ERS.....". GEGEVENS VERLOREN GAAN, OM D
AT DE.I....". LOOP'S NIET VOLLEDIG UITGE
VOERD WORDEN.":.3......"........... IN D
IT VOORBEELD DOET DE 'P' LOOP ".....
.". 8 STAPPEN (0 TOT 7 ZIJN 8 CIJFERS!)
"......". DE Q LOOP DOET 4 STAPPEN ZODA
T DE "......". MATRIX EEN INHOUD HEEFT
VAN 4*8=32 ".@....". LOKATIES. DEZE U
ITKOMST MAG NOOIT ".M...." GROTER D
AN 256 WORDEN OMDAT JE ANDERS. ....". BU
ITEN DE GRENZEN VAN MIJN BEREIK KOMT":.3
.O....".. WIL JE DIT LAATSTE NOG EENS ZI
EN J/N......Q$:.Q$."J".97......Q$.."N".
137.......15)"...SUBROUTINES.8....".. HE
T KOMT VOOR DAT IN EEN PROGRAMMA.G....".
VAKER EEN ZELFDE ROUTINE HERHAALD MOET.
.....". WORDEN. ZO'N STUKJE PLAATSEN WE
BV..B....". AAN 'T EIND VAN 'T PROGRAMMA
EN NOEMEN......". WE 'SUBROUTINE'; ZE K
AN ZO VAAK ALS......". NODIG WORDEN AANG
ESPROKEN MET 'GOSUB'.L....". PLUS 'T REG
ELNUMMER WAAR ZE BEGINT.":.3.}....".. HE
T LAATSTE COMMANDO VAN EEN SUBROUTINE...
..." IS ALTIJD 'RETURN', WAARDOOR IK WEE
T......". DAT IK TERUG MOET NAAR WAAR IK
WAS .GEBLEVEN.......".. GEEF NOOIT
HET 'CLR' COMMANDO IN EEN.A....". SUBRO
UTINE, WANT DAN WEET IK NIET MEER.I...."
. WAAR IK VANDAAN KWAM EN ZEG IK:......"
.. 'RETURN WITHOUT GOSUB' ERROR":.3.C...
.".. VOORWAARDEN IN EEN 'IF-THEN' STATEM
ENT......".. IF A<5 .BETEKENT ALS A KLE
INER DAN 5 IS.& ...".. IF Q>1 .BETEKENT
ALS Q GROTER DAN 1 IS.V ..."... <= .WI
L ZEGGEN GELIJK OF KLEINER DAN.. ..."...
=> .WIL ZEGGEN GELIJK OF GROTER DAN..
..."... <> .WIL ZEGGEN NIET GELIJK AAN"
:.3.. ..".. .NOT. MET EEN VARIABELE WI
L ZEGGEN IN: EEE..!..."..
10 IF NOT X THEN 20.C!..."... ALS X IS
NIET GROTER DAN NUL IS DAN:.`!...". GA N
AAR REGEL 20":.3..!...".. WIL JE DE HELE
LES NOG EEN KEERJE J/N ?..!...Q$:.Q$."J
"..6..!...Q$.."N".165.Z!...".. IK LAAD N
U DE VOLGENDE LES,..!...". DEEL 7..."...
"BASIC LES 7",B(49152)...
> CLICK IMAGE PREVIEW FOR FULL MODAL