BASIC 6
FILE INFORMATION
FILENAME(S): BASIC 6
FILE TYPE(S): PRG
FILE SIZE: 6.6K
FIRST SEEN: 2025-11-30 21:07:01
APPEARS ON: 1 disk(s)
FILE HASH
07d03b0d4a65670151b92d567fdfa9cb7660f1053505af7820c93dd8b9c33a12
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HBMD OSS 01 | BASIC 6 | PRG | DuncanTwain | 5 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3E 08 0A 00 99 22 93 2A 2A 2A 2A 2A 2A 2A |..>....".*******|
00000010: 2A 20 42 41 53 49 43 20 43 55 52 53 55 53 20 2A |* BASIC CURSUS *|
00000020: 2A 2A 20 4C 45 53 20 36 20 2A 2A 2A 2A 2A 2A 2A |** LES 6 *******|
00000030: 2A 22 3A 81 49 B2 31 A4 35 30 30 30 3A 82 00 4A |*":.I.1.5000:..J|
00000040: 08 64 00 99 C7 28 31 34 32 29 00 67 08 6E 00 51 |.d...(142).g.n.Q|
00000050: 31 B2 31 39 38 3A 97 35 33 32 38 30 2C 35 3A 97 |1.198:.53280,5:.|
00000060: 35 33 32 38 31 2C 35 00 8B 08 78 00 99 22 93 1F |53281,5...x.."..|
00000070: 20 20 20 20 20 3D 3D 3D 27 46 4F 52 2D 4E 45 58 | ==='FOR-NEX|
00000080: 54 27 20 4C 4F 4F 50 53 3D 3D 3D 00 AD 08 82 00 |T' LOOPS===.....|
00000090: 99 22 20 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |." =========|
000000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 DC 08 |=============...|
000000B0: 8C 00 99 22 11 1C 20 43 4F 4D 50 55 54 45 52 53 |...".. COMPUTERS|
000000C0: 20 57 4F 52 44 45 4E 20 56 41 41 4B 20 47 45 42 | WORDEN VAAK GEB|
000000D0: 52 55 49 4B 54 20 4F 4D 20 44 49 45 00 0A 09 96 |RUIKT OM DIE....|
000000E0: 00 99 22 11 20 44 49 4E 47 45 4E 20 54 45 20 44 |..". DINGEN TE D|
000000F0: 4F 45 4E 20 44 49 45 20 56 4F 4F 52 20 4F 4E 53 |OEN DIE VOOR ONS|
00000100: 20 56 45 52 56 45 4C 45 4E 44 00 36 09 A0 00 99 | VERVELEND.6....|
00000110: 22 11 20 45 4E 20 45 45 4E 54 4F 4E 49 47 20 5A |". EN EENTONIG Z|
00000120: 49 4A 4E 20 4F 4D 20 54 45 20 4D 4F 45 54 45 4E |IJN OM TE MOETEN|
00000130: 20 44 4F 45 4E 2E 00 61 09 AA 00 99 22 11 11 90 | DOEN..a...."...|
00000140: 20 44 49 54 20 4B 41 4E 20 4D 45 54 20 45 45 4E | DIT KAN MET EEN|
00000150: 20 43 4F 4D 50 55 54 45 52 20 4D 45 54 20 45 45 | COMPUTER MET EE|
00000160: 4E 00 95 09 B4 00 99 22 11 20 52 45 50 45 54 45 |N......". REPETE|
00000170: 45 52 20 43 4F 4D 4D 41 4E 44 4F 3B 20 44 45 20 |ER COMMANDO; DE |
00000180: 46 4F 52 2D 4E 45 58 54 20 4C 4F 4F 50 2E 22 3A |FOR-NEXT LOOP.":|
00000190: 8D 31 37 36 30 00 AF 09 BE 00 99 22 93 1C 20 32 |.1760......".. 2|
000001A0: 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 31 30 00 |0 FOR X=1 TO 10.|
000001B0: C4 09 C8 00 99 22 20 33 30 20 20 41 28 58 29 3D |....." 30 A(X)=|
000001C0: 31 30 2A 58 00 D5 09 D2 00 99 22 20 34 30 20 4E |10*X......" 40 N|
000001D0: 45 58 54 20 58 00 03 0A DC 00 99 22 11 11 95 20 |EXT X......"... |
000001E0: 49 4E 20 52 45 47 45 4C 20 32 30 20 5A 49 45 20 |IN REGEL 20 ZIE |
000001F0: 49 4B 2C 20 44 41 54 20 49 4B 20 49 45 54 53 20 |IK, DAT IK IETS |
00000200: 56 41 4E 00 32 0A E6 00 99 22 11 20 45 45 4E 20 |VAN.2....". EEN |
00000210: 54 4F 54 20 54 49 45 4E 20 4D 4F 45 54 20 48 45 |TOT TIEN MOET HE|
00000220: 52 48 41 4C 45 4E 20 45 4E 20 49 4E 20 52 45 47 |RHALEN EN IN REG|
00000230: 45 4C 00 6A 0A F0 00 99 22 11 20 34 30 20 5A 49 |EL.j....". 40 ZI|
00000240: 45 20 49 4B 20 50 41 53 2C 20 44 41 54 20 27 54 |E IK PAS, DAT 'T|
00000250: 20 49 45 54 53 20 55 49 54 47 45 42 52 45 49 44 | IETS UITGEBREID|
00000260: 45 52 22 3A 99 22 20 49 53 2E 00 9A 0A FA 00 99 |ER":." IS.......|
00000270: 22 11 20 49 4E 20 52 45 47 45 4C 20 33 30 20 5A |". IN REGEL 30 Z|
00000280: 49 45 20 49 4B 20 57 41 54 20 45 52 20 48 45 52 |IE IK WAT ER HER|
00000290: 48 41 41 4C 44 45 4C 49 4A 4B 00 C8 0A 04 01 99 |HAALDELIJK......|
000002A0: 22 20 4D 4F 45 54 20 47 45 42 45 55 52 45 4E 3A |" MOET GEBEUREN:|
000002B0: 20 4D 41 41 4B 20 41 28 49 4E 20 52 41 4E 47 56 | MAAK A(IN RANGV|
000002C0: 4F 4C 47 4F 52 44 45 29 00 EF 0A 0E 01 99 22 11 |OLGORDE)......".|
000002D0: 20 47 45 4C 49 4A 4B 20 41 41 4E 20 31 30 2A 44 | GELIJK AAN 10*D|
000002E0: 45 20 52 41 4E 47 56 4F 4C 47 4F 52 44 45 2E 00 |E RANGVOLGORDE..|
000002F0: 1D 0B 18 01 99 22 11 1F 20 41 4C 53 20 49 4B 20 |.....".. ALS IK |
00000300: 44 41 54 20 56 41 4E 20 45 45 4E 20 54 4F 54 20 |DAT VAN EEN TOT |
00000310: 54 49 45 4E 20 4B 45 45 52 20 48 45 42 00 48 0B |TIEN KEER HEB.H.|
00000320: 22 01 99 22 11 20 47 45 44 41 41 4E 2C 20 44 41 |"..". GEDAAN, DA|
00000330: 4E 20 53 54 4F 50 20 49 4B 20 45 52 20 4D 45 45 |N STOP IK ER MEE|
00000340: 2E 22 3A 8D 31 37 36 30 00 78 0B 2C 01 99 22 93 |.":.1760.x.,..".|
00000350: 1F 20 44 49 45 20 41 28 58 29 20 49 53 20 45 45 |. DIE A(X) IS EE|
00000360: 4E 20 5A 2E 47 2E 20 27 41 52 52 41 59 27 20 56 |N Z.G. 'ARRAY' V|
00000370: 41 52 49 41 42 45 4C 45 00 A7 0B 36 01 99 22 11 |ARIABELE...6..".|
00000380: 90 20 48 45 54 20 47 45 54 41 4C 20 27 58 27 20 |. HET GETAL 'X' |
00000390: 4D 41 47 20 4E 49 45 54 20 48 4F 47 45 52 20 5A |MAG NIET HOGER Z|
000003A0: 49 4A 4E 20 44 41 4E 00 DD 0B 40 01 99 22 11 20 |IJN DAN...@..". |
000003B0: 31 30 20 41 4E 44 45 52 53 20 5A 49 45 20 4A 45 |10 ANDERS ZIE JE|
000003C0: 3A 22 3A 99 22 11 20 20 20 3F 42 41 44 20 53 55 |:":.". ?BAD SU|
000003D0: 42 53 43 52 49 50 54 20 45 52 52 4F 52 00 0A 0C |BSCRIPT ERROR...|
000003E0: 4A 01 99 22 11 1C 20 4A 45 20 4B 55 4E 54 20 57 |J..".. JE KUNT W|
000003F0: 45 4C 20 48 4F 47 45 52 2C 20 4D 41 41 52 20 44 |EL HOGER, MAAR D|
00000400: 41 4E 20 4D 4F 45 54 20 4A 45 00 4C 0C 54 01 99 |AN MOET JE.L.T..|
00000410: 22 11 20 27 44 49 4D 45 4E 53 49 4F 4E 45 52 45 |". 'DIMENSIONERE|
00000420: 4E 27 20 4D 45 54 20 48 45 54 20 27 44 49 4D 27 |N' MET HET 'DIM'|
00000430: 20 43 4F 4D 4D 41 4E 44 4F 3A 22 3A 99 22 90 20 | COMMANDO:":.". |
00000440: 20 20 44 49 4D 20 41 28 32 35 35 29 00 7A 0C 5E | DIM A(255).z.^|
00000450: 01 99 22 11 1C 20 48 4F 47 45 52 20 44 41 4E 20 |..".. HOGER DAN |
00000460: 32 35 35 20 4B 41 4E 20 4E 49 45 54 3B 20 45 52 |255 KAN NIET; ER|
00000470: 20 50 41 53 53 45 4E 20 45 52 00 A9 0C 68 01 99 | PASSEN ER...h..|
00000480: 22 11 20 4D 41 41 52 20 32 35 36 20 49 4E 20 45 |". MAAR 256 IN E|
00000490: 45 4E 20 41 52 52 41 59 20 28 56 41 4E 20 30 20 |EN ARRAY (VAN 0 |
000004A0: 54 4F 54 20 32 35 35 29 2E 00 D8 0C 72 01 99 22 |TOT 255)....r.."|
000004B0: 11 1F 20 5A 4F 20 57 4F 52 44 54 20 52 55 49 4D |.. ZO WORDT RUIM|
000004C0: 54 45 20 47 45 52 45 53 45 52 56 45 45 52 44 20 |TE GERESERVEERD |
000004D0: 56 4F 4F 52 20 32 35 36 00 F7 0C 7C 01 99 22 11 |VOOR 256...|..".|
000004E0: 20 47 45 54 41 4C 4C 45 4E 20 49 4E 20 45 45 4E | GETALLEN IN EEN|
000004F0: 20 41 52 52 41 59 2E 00 01 0D 86 01 8D 31 37 36 | ARRAY.......176|
00000500: 30 00 30 0D 90 01 99 22 93 05 20 53 54 52 49 4E |0.0....".. STRIN|
00000510: 47 53 20 4B 55 4E 4E 45 4E 20 4F 4F 4B 20 49 4E |GS KUNNEN OOK IN|
00000520: 20 45 45 4E 20 41 52 52 41 59 20 53 54 41 41 4E | EEN ARRAY STAAN|
00000530: 00 6F 0D 9A 01 99 22 11 20 4F 4D 20 4D 45 54 20 |.o....". OM MET |
00000540: 27 53 55 42 53 43 52 49 50 54 27 20 54 45 20 56 |'SUBSCRIPT' TE V|
00000550: 45 52 57 45 52 4B 45 4E 22 3A 99 22 11 20 49 4E |ERWERKEN":.". IN|
00000560: 20 46 4F 52 2D 4E 45 58 54 20 4C 4F 4F 50 53 00 | FOR-NEXT LOOPS.|
00000570: BC 0D A4 01 99 22 11 11 1F 20 48 49 45 52 56 4F |....."... HIERVO|
00000580: 4F 52 20 4B 55 4E 45 4E 20 57 45 20 44 45 20 12 |OR KUNEN WE DE .|
00000590: 52 45 41 44 92 20 41 4E 44 20 12 44 41 54 41 92 |READ. AND .DATA.|
000005A0: 20 20 20 20 20 11 20 43 4F 4D 4D 41 4E 44 4F 27 | . COMMANDO'|
000005B0: 53 20 47 45 42 52 55 49 4B 45 4E 2E 00 EC 0D AE |S GEBRUIKEN.....|
000005C0: 01 99 22 11 11 27 44 41 54 41 27 20 4B 41 4E 20 |.."..'DATA' KAN |
000005D0: 57 49 4C 4C 45 4B 45 55 52 49 47 20 49 4E 20 48 |WILLEKEURIG IN H|
000005E0: 45 54 20 50 52 4F 47 52 41 4D 4D 41 00 25 0E B8 |ET PROGRAMMA.%..|
000005F0: 01 99 22 11 20 53 54 41 41 4E 2C 20 49 4B 20 4B |..". STAAN, IK K|
00000600: 49 4A 4B 20 45 52 20 50 41 53 20 4E 41 41 52 20 |IJK ER PAS NAAR |
00000610: 41 4C 53 20 49 4B 22 3A 99 22 11 20 90 20 20 27 |ALS IK":.". . '|
00000620: 52 45 41 44 27 00 4D 0E C2 01 99 22 11 1F 20 41 |READ'.M....".. A|
00000630: 4C 53 20 43 4F 4D 4D 41 4E 44 4F 20 54 45 47 45 |LS COMMANDO TEGE|
00000640: 4E 20 4B 4F 4D 2E 22 3A 8D 31 37 36 30 00 78 0E |N KOM.":.1760.x.|
00000650: CC 01 99 22 93 1C 20 5A 4F 27 4E 20 50 52 4F 47 |...".. ZO'N PROG|
00000660: 52 41 4D 4D 41 20 4B 41 4E 20 45 52 20 5A 4F 20 |RAMMA KAN ER ZO |
00000670: 55 49 54 5A 49 45 4E 3A 00 8E 0E D6 01 99 22 11 |UITZIEN:......".|
00000680: 90 31 30 20 44 49 4D 20 41 24 28 31 35 29 00 A5 |.10 DIM A$(15)..|
00000690: 0E E0 01 99 22 32 30 20 46 4F 52 20 58 3D 30 20 |...."20 FOR X=0 |
000006A0: 54 4F 20 31 35 00 B9 0E EA 01 99 22 33 30 20 52 |TO 15......"30 R|
000006B0: 45 41 44 20 41 24 28 58 29 00 C9 0E F4 01 99 22 |EAD A$(X)......"|
000006C0: 35 30 20 4E 45 58 54 20 58 00 E0 0E FE 01 99 22 |50 NEXT X......"|
000006D0: 36 30 20 46 4F 52 20 58 3D 30 20 54 4F 20 31 35 |60 FOR X=0 TO 15|
000006E0: 00 F1 0E 08 02 99 22 37 30 20 3F 41 24 28 58 29 |......"70 ?A$(X)|
000006F0: 3B 00 01 0F 12 02 99 22 38 30 20 4E 45 58 54 20 |;......"80 NEXT |
00000700: 58 00 2B 0F 1C 02 99 22 39 30 20 44 41 54 41 20 |X.+...."90 DATA |
00000710: 4B 41 54 2C 4D 41 54 2C 53 4C 4F 54 2C 4B 49 50 |KAT,MAT,SLOT,KIP|
00000720: 2C 46 52 41 4E 53 2C 50 41 41 4C 00 55 0F 26 02 |,FRANS,PAAL.U.&.|
00000730: 99 22 31 30 30 20 44 41 54 41 20 57 41 53 2C 56 |."100 DATA WAS,V|
00000740: 49 53 2C 52 49 4A 4B 2C 4D 49 53 2C 48 45 45 52 |IS,RIJK,MIS,HEER|
00000750: 2C 44 41 4D 45 00 78 0F 30 02 99 22 31 31 30 20 |,DAME.x.0.."110 |
00000760: 44 41 54 41 20 41 50 50 45 4C 2C 52 4F 56 45 52 |DATA APPEL,ROVER|
00000770: 2C 44 4F 4C 2C 48 41 4D 00 A5 0F 3A 02 99 22 11 |,DOL,HAM...:..".|
00000780: 1F 20 44 45 20 53 54 52 49 4E 47 53 20 49 4E 20 |. DE STRINGS IN |
00000790: 44 41 54 41 53 54 41 54 45 4D 45 4E 54 53 20 48 |DATASTATEMENTS H|
000007A0: 4F 45 56 45 4E 00 D2 0F 44 02 99 22 11 20 4E 49 |OEVEN...D..". NI|
000007B0: 45 54 20 54 55 53 53 45 4E 20 41 41 4E 48 41 4C |ET TUSSEN AANHAL|
000007C0: 49 4E 53 54 45 4B 45 4E 53 2C 20 42 45 48 41 4C |INSTEKENS, BEHAL|
000007D0: 56 45 00 FE 0F 4E 02 99 22 11 20 41 4C 53 20 45 |VE...N..". ALS E|
000007E0: 52 20 4F 4F 4B 20 4C 45 45 53 54 45 4B 45 4E 53 |R OOK LEESTEKENS|
000007F0: 20 54 55 53 53 45 4E 20 53 54 41 41 4E 2E 00 28 | TUSSEN STAAN..(|
00000800: 10 58 02 99 22 11 9F 20 44 45 20 57 4F 4F 52 44 |.X..".. DE WOORD|
00000810: 45 4E 20 4D 4F 45 54 45 4E 20 57 45 4C 20 47 45 |EN MOETEN WEL GE|
00000820: 53 43 48 45 49 44 45 4E 00 4C 10 62 02 99 22 11 |SCHEIDEN.L.b..".|
00000830: 20 57 4F 52 44 45 4E 20 44 4F 4F 52 20 4B 4F 4D | WORDEN DOOR KOM|
00000840: 4D 41 27 53 21 22 3A 8D 31 37 36 30 00 7B 10 6C |MA'S!":.1760.{.l|
00000850: 02 99 22 93 95 20 44 41 54 20 50 52 4F 47 52 41 |..".. DAT PROGRA|
00000860: 4D 4D 41 20 4C 45 45 53 54 20 44 41 54 41 20 56 |MMA LEEST DATA V|
00000870: 41 4E 20 44 45 20 44 41 54 41 2D 00 A1 10 76 02 |AN DE DATA-...v.|
00000880: 99 22 11 20 53 54 41 54 45 4D 45 4E 54 53 2C 20 |.". STATEMENTS, |
00000890: 45 4C 4B 20 4F 50 20 5A 27 4E 20 42 45 55 52 54 |ELK OP Z'N BEURT|
000008A0: 2E 00 CF 10 80 02 99 22 11 1F 20 4D 45 54 20 44 |.......".. MET D|
000008B0: 45 20 45 45 53 54 45 20 4B 45 45 52 20 4C 45 5A |E EESTE KEER LEZ|
000008C0: 45 4E 20 49 53 20 58 3D 30 2C 20 44 55 53 3A 00 |EN IS X=0, DUS:.|
000008D0: FD 10 8A 02 99 22 11 20 41 24 28 30 29 3D 4B 41 |.....". A$(0)=KA|
000008E0: 54 20 45 4E 20 44 45 20 54 57 45 45 44 45 20 4C |T EN DE TWEEDE L|
000008F0: 4F 4F 50 20 20 58 3D 31 20 44 55 53 3A 00 2D 11 |OOP X=1 DUS:.-.|
00000900: 94 02 99 22 11 20 41 24 28 31 29 3D 4D 41 54 20 |...". A$(1)=MAT |
00000910: 45 4E 5A 2E 20 54 4F 54 3A 20 58 3D 31 35 20 45 |ENZ. TOT: X=15 E|
00000920: 4E 20 41 24 28 31 35 29 3D 48 41 4D 2E 00 5B 11 |N A$(15)=HAM..[.|
00000930: 9E 02 99 22 11 95 20 44 45 20 50 55 4E 54 2D 4B |...".. DE PUNT-K|
00000940: 4F 4D 4D 41 20 56 4F 4F 52 4B 4F 4D 54 20 44 41 |OMMA VOORKOMT DA|
00000950: 54 20 49 4B 20 53 54 45 45 44 53 00 88 11 A8 02 |T IK STEEDS.....|
00000960: 99 22 11 20 4E 41 41 52 20 45 45 4E 20 4E 49 45 |.". NAAR EEN NIE|
00000970: 55 57 45 20 52 45 47 45 4C 20 47 41 2C 20 5A 4F |UWE REGEL GA, ZO|
00000980: 44 41 54 20 41 4C 4C 45 00 C9 11 B2 02 99 22 11 |DAT ALLE......".|
00000990: 20 57 4F 4F 52 44 45 4E 20 4F 50 20 45 45 4E 20 | WOORDEN OP EEN |
000009A0: 52 49 4A 54 4A 45 20 41 43 48 54 45 52 20 45 4C |RIJTJE ACHTER EL|
000009B0: 4B 41 41 52 20 20 20 20 11 20 4B 4F 4D 45 4E 20 |KAAR . KOMEN |
000009C0: 54 45 20 53 54 41 41 4E 2E 00 FA 11 BC 02 97 51 |TE STAAN.......Q|
000009D0: 31 2C 30 3A 99 22 11 11 90 20 12 57 49 4C 20 4A |1,0:."... .WIL J|
000009E0: 45 20 44 49 54 20 4E 4F 47 20 45 45 4E 53 20 44 |E DIT NOG EENS D|
000009F0: 4F 4F 52 4E 45 4D 45 4E 20 3F 00 0D 12 C6 02 A1 |OORNEMEN ?......|
00000A00: 51 24 3A 8B 51 24 B2 22 22 A7 37 31 30 00 1D 12 |Q$:.Q$."".710...|
00000A10: D0 02 8B 51 24 B2 22 4A 22 A7 34 36 30 00 5F 12 |...Q$."J".460._.|
00000A20: DA 02 99 22 93 1F 20 4F 4D 20 54 45 20 56 4F 4F |...".. OM TE VOO|
00000A30: 52 4B 4F 4D 45 4E 2C 20 44 41 54 20 49 4B 20 5A |RKOMEN, DAT IK Z|
00000A40: 45 47 3A 22 3A 99 22 11 20 20 20 90 27 4F 55 54 |EG:":.". .'OUT|
00000A50: 20 4F 46 20 44 41 54 41 20 45 52 52 4F 52 27 00 | OF DATA ERROR'.|
00000A60: 90 12 E4 02 99 22 11 1F 20 4D 4F 45 54 20 4A 45 |.....".. MOET JE|
00000A70: 20 5A 4F 52 47 45 4E 2C 20 44 41 54 20 45 52 20 | ZORGEN, DAT ER |
00000A80: 56 4F 4C 44 4F 45 4E 44 45 20 27 44 41 54 41 27 |VOLDOENDE 'DATA'|
00000A90: 00 BF 12 EE 02 99 22 20 53 54 41 54 45 4D 45 4E |......" STATEMEN|
00000AA0: 54 53 20 5A 49 4A 4E 2C 20 4F 46 20 45 45 4E 20 |TS ZIJN, OF EEN |
00000AB0: 53 49 47 4E 41 41 4C 20 4F 50 4E 45 4D 45 4E 00 |SIGNAAL OPNEMEN.|
00000AC0: EE 12 F8 02 99 22 20 44 41 54 20 4D 49 4A 20 49 |....." DAT MIJ I|
00000AD0: 4E 20 48 45 54 20 50 52 4F 47 52 41 4D 4D 41 20 |N HET PROGRAMMA |
00000AE0: 57 41 41 52 53 43 48 55 57 54 2C 44 41 54 00 0F |WAARSCHUWT,DAT..|
00000AF0: 13 02 03 99 22 20 45 52 20 47 45 45 4E 20 44 41 |...." ER GEEN DA|
00000B00: 54 41 20 4D 45 45 52 20 4B 4F 4D 45 4E 20 3A 00 |TA MEER KOMEN :.|
00000B10: 2A 13 0C 03 99 22 11 1C 20 20 20 31 30 20 46 4F |*....".. 10 FO|
00000B20: 52 20 4E 3D 30 20 54 4F 20 33 00 63 13 16 03 99 |R N=0 TO 3.c....|
00000B30: 22 20 20 20 31 35 20 52 45 41 44 20 42 24 3A 49 |" 15 READ B$:I|
00000B40: 46 20 42 24 3D 22 C7 28 33 34 29 22 2D 39 39 39 |F B$=".(34)"-999|
00000B50: 22 C7 28 33 34 29 22 54 48 45 4E 20 52 45 53 54 |".(34)"THEN REST|
00000B60: 4F 52 45 00 77 13 20 03 99 22 20 20 20 32 30 20 |ORE.w. .." 20 |
00000B70: 50 52 49 4E 54 42 24 00 97 13 2A 03 99 22 20 20 |PRINTB$...*.." |
00000B80: 20 33 30 20 44 41 54 41 20 41 50 50 4C 45 2C 43 | 30 DATA APPLE,C|
00000B90: 41 54 2C 2D 39 39 39 00 C7 13 34 03 99 22 11 1F |AT,-999...4.."..|
00000BA0: 20 41 4C 53 20 49 4B 20 44 45 20 27 46 4C 41 47 | ALS IK DE 'FLAG|
00000BB0: 27 20 27 2D 39 39 39 27 20 4C 45 45 53 20 28 42 |' '-999' LEES (B|
00000BC0: 24 3D 2D 39 39 39 29 00 F5 13 3E 03 99 22 11 20 |$=-999)...>..". |
00000BD0: 57 4F 52 44 45 4E 20 44 41 54 41 20 27 52 45 53 |WORDEN DATA 'RES|
00000BE0: 54 4F 52 45 44 27 20 45 4E 20 4B 55 4E 4E 45 4E |TORED' EN KUNNEN|
00000BF0: 20 57 45 45 52 00 1C 14 48 03 99 22 11 20 4F 50 | WEER...H..". OP|
00000C00: 4E 49 45 55 57 20 47 45 4C 45 5A 45 4E 20 57 4F |NIEUW GELEZEN WO|
00000C10: 52 44 45 4E 2E 22 3A 8D 31 37 36 30 00 49 14 52 |RDEN.":.1760.I.R|
00000C20: 03 99 22 93 95 20 27 46 4F 52 2D 4E 45 58 54 27 |..".. 'FOR-NEXT'|
00000C30: 20 4C 4F 4F 50 53 20 54 45 4C 4C 45 4E 20 4E 4F | LOOPS TELLEN NO|
00000C40: 52 4D 41 41 4C 20 45 45 4E 00 79 14 5C 03 99 22 |RMAAL EEN.y.\.."|
00000C50: 11 20 54 45 47 45 4C 49 4A 4B 20 4F 50 20 50 45 |. TEGELIJK OP PE|
00000C60: 52 20 4F 50 44 52 41 43 48 54 20 53 45 52 49 45 |R OPDRACHT SERIE|
00000C70: 2C 20 4D 41 41 52 20 27 54 00 A6 14 66 03 99 22 |, MAAR 'T...f.."|
00000C80: 20 49 53 20 4D 4F 47 45 4C 49 4A 4B 20 44 41 41 | IS MOGELIJK DAA|
00000C90: 52 20 56 45 52 41 4E 44 45 52 49 4E 20 49 4E 20 |R VERANDERIN IN |
00000CA0: 41 41 4E 20 54 45 00 D1 14 70 03 99 22 11 20 42 |AAN TE...p..". B|
00000CB0: 52 45 4E 47 45 4E 20 4D 45 54 20 48 45 54 20 90 |RENGEN MET HET .|
00000CC0: 12 53 54 45 50 92 20 95 43 4F 4D 4D 41 4E 44 4F |.STEP. .COMMANDO|
00000CD0: 2E 00 F7 14 7A 03 99 22 11 11 05 20 20 20 20 32 |....z.."... 2|
00000CE0: 30 20 20 46 4F 52 20 42 3D 30 20 54 4F 20 35 30 |0 FOR B=0 TO 50|
00000CF0: 20 53 54 45 50 20 32 00 0C 15 84 03 99 22 20 20 | STEP 2......" |
00000D00: 20 20 33 30 20 20 4E 45 58 54 20 42 00 4F 15 8E | 30 NEXT B.O..|
00000D10: 03 99 22 11 11 9E 20 5A 4F 20 57 4F 52 44 54 20 |.."... ZO WORDT |
00000D20: 45 52 20 54 45 4C 4B 45 4E 53 2C 20 50 45 52 20 |ER TELKENS, PER |
00000D30: 27 4C 4F 4F 50 27 20 32 20 20 20 20 20 20 20 11 |'LOOP' 2 .|
00000D40: 42 49 4A 20 42 20 4F 50 47 45 54 45 4C 44 2E 00 |BIJ B OPGETELD..|
00000D50: 7A 15 98 03 99 22 11 90 20 44 45 20 45 45 52 53 |z....".. DE EERS|
00000D60: 54 45 20 4B 45 45 52 20 49 53 20 42 20 47 45 4C |TE KEER IS B GEL|
00000D70: 49 4A 4B 20 41 41 4E 20 30 2C 00 C3 15 A2 03 99 |IJK AAN 0,......|
00000D80: 22 11 20 4D 41 41 52 20 49 4E 20 44 45 20 54 57 |". MAAR IN DE TW|
00000D90: 45 45 44 45 20 52 4F 4E 44 45 20 57 4F 52 44 54 |EEDE RONDE WORDT|
00000DA0: 20 42 3A 20 20 20 20 20 20 20 11 20 32 3B 20 45 | B: . 2; E|
00000DB0: 4E 20 34 2D 36 2D 38 20 45 4E 5A 2E 22 3A 8D 31 |N 4-6-8 ENZ.":.1|
00000DC0: 37 36 30 00 F0 15 AC 03 99 22 93 1F 20 54 45 52 |760......".. TER|
00000DD0: 55 47 20 54 45 4C 4C 45 4E 20 4B 41 4E 20 4F 4F |UG TELLEN KAN OO|
00000DE0: 4B 20 44 4F 4F 52 20 45 45 4E 56 4F 55 44 49 47 |K DOOR EENVOUDIG|
00000DF0: 00 1E 16 B6 03 99 22 11 20 45 45 4E 20 4D 49 4E |......". EEN MIN|
00000E00: 54 45 4B 45 4E 20 54 45 20 50 4C 41 41 54 53 45 |TEKEN TE PLAATSE|
00000E10: 4E 20 41 43 48 54 45 52 20 53 54 45 50 3A 00 42 |N ACHTER STEP:.B|
00000E20: 16 C0 03 99 22 11 11 1C 20 20 20 20 20 46 4F 52 |...."... FOR|
00000E30: 20 42 3D 31 30 20 54 4F 20 30 20 53 54 45 50 20 | B=10 TO 0 STEP |
00000E40: 2D 32 00 73 16 CA 03 99 22 11 11 1F 20 42 20 53 |-2.s...."... B S|
00000E50: 54 41 52 54 20 42 49 4A 20 31 30 20 45 4E 20 49 |TART BIJ 10 EN I|
00000E60: 4E 20 44 45 20 56 4F 4C 47 45 4E 44 45 20 52 4F |N DE VOLGENDE RO|
00000E70: 4E 44 45 00 A2 16 D4 03 99 22 11 20 57 4F 52 44 |NDE......". WORD|
00000E80: 54 20 42 20 38 3B 20 45 4E 5A 2E 20 54 4F 54 20 |T B 8; ENZ. TOT |
00000E90: 42 20 47 45 4C 49 4A 4B 20 49 53 20 41 41 4E 20 |B GELIJK IS AAN |
00000EA0: 30 2E 00 D3 16 DE 03 99 22 11 20 4D 45 4E 20 4E |0.......". MEN N|
00000EB0: 4F 45 4D 54 20 44 49 54 20 27 52 45 56 45 52 53 |OEMT DIT 'REVERS|
00000EC0: 45 20 53 54 45 50 50 49 4E 47 27 2E 22 3A 8D 31 |E STEPPING'.":.1|
00000ED0: 37 36 30 00 F8 16 E8 03 99 22 93 1C 20 45 45 4E |760......".. EEN|
00000EE0: 20 41 4E 44 45 52 20 53 4F 4F 52 20 41 52 52 41 | ANDER SOOR ARRA|
00000EF0: 59 20 49 53 20 48 45 54 00 25 17 F2 03 99 22 11 |Y IS HET.%....".|
00000F00: 20 32 2D 44 49 4D 45 4E 53 49 4F 4E 41 4C 45 20 | 2-DIMENSIONALE |
00000F10: 41 52 52 41 59 20 4F 46 57 45 4C 20 12 4D 41 54 |ARRAY OFWEL .MAT|
00000F20: 52 49 58 92 2E 00 55 17 FC 03 99 22 11 1F 20 48 |RIX...U....".. H|
00000F30: 45 54 20 44 49 4D 2D 43 4F 4D 4D 41 4E 44 4F 20 |ET DIM-COMMANDO |
00000F40: 49 53 20 41 4C 54 49 4A 44 20 4E 4F 44 49 47 20 |IS ALTIJD NODIG |
00000F50: 45 4E 20 45 52 00 7F 17 06 04 99 22 11 20 4D 4F |EN ER......". MO|
00000F60: 45 54 20 45 45 4E 20 4B 4F 4D 4D 41 20 54 55 53 |ET EEN KOMMA TUS|
00000F70: 53 45 4E 3A 20 44 49 4D 20 50 28 32 2C 32 29 00 |SEN: DIM P(2,2).|
00000F80: A6 17 10 04 99 22 11 05 20 4F 50 20 44 45 5A 45 |.....".. OP DEZE|
00000F90: 20 57 49 4A 5A 45 20 5A 49 45 20 49 4B 20 50 28 | WIJZE ZIE IK P(|
00000FA0: 32 2C 32 29 3A 11 00 B6 17 1A 04 99 22 1C 20 B0 |2,2):.......". .|
00000FB0: C0 B2 C0 B2 C0 AE 00 E1 17 24 04 99 22 30 DD 35 |.........$.."0.5|
00000FC0: DD 39 DD 30 DD 20 50 28 30 2C 30 29 3D 20 20 3A |.9.0. P(0,0)= :|
00000FD0: 50 28 30 2C 31 29 3D 20 20 3A 50 28 30 2C 32 29 |P(0,1)= :P(0,2)|
00000FE0: 3D 00 F0 17 2E 04 99 22 20 AB C0 DB C0 DB C0 B3 |=......" .......|
00000FF0: 00 1B 18 38 04 99 22 31 DD 31 DD 39 DD 34 DD 20 |...8.."1.1.9.4. |
00001000: 50 28 31 2C 30 29 3D 20 20 3A 50 28 31 2C 31 29 |P(1,0)= :P(1,1)|
00001010: 3D 20 20 3A 50 28 31 2C 32 29 3D 00 2A 18 42 04 |= :P(1,2)=.*.B.|
00001020: 99 22 20 AB C0 DB C0 DB C0 B3 00 55 18 4C 04 99 |." ........U.L..|
00001030: 22 32 DD 37 DD 33 DD 31 DD 20 50 28 32 2C 30 29 |"2.7.3.1. P(2,0)|
00001040: 3D 20 20 3A 50 28 32 2C 31 29 3D 20 20 3A 50 28 |= :P(2,1)= :P(|
00001050: 32 2C 32 29 3D 00 64 18 56 04 99 22 20 AD C0 B1 |2,2)=.d.V.." ...|
00001060: C0 B1 C0 BD 00 72 18 60 04 99 22 20 20 30 20 31 |.....r.`.." 0 1|
00001070: 20 32 00 9E 18 6A 04 99 22 11 1F 20 48 45 54 20 | 2...j..".. HET |
00001080: 45 45 52 53 54 45 20 43 49 4A 46 45 52 20 47 45 |EERSTE CIJFER GE|
00001090: 45 46 54 20 44 45 20 52 49 4A 20 41 41 4E 00 CC |EFT DE RIJ AAN..|
000010A0: 18 74 04 99 22 11 20 45 4E 20 48 45 54 20 54 57 |.t..". EN HET TW|
000010B0: 45 45 44 45 20 43 49 4A 46 45 52 20 44 45 20 4B |EEDE CIJFER DE K|
000010C0: 4F 4C 4F 4D 2E 22 3A 8D 31 37 36 30 00 F6 18 7E |OLOM.":.1760...~|
000010D0: 04 99 22 93 95 20 4F 4D 20 45 45 4E 20 4D 41 54 |..".. OM EEN MAT|
000010E0: 52 49 58 20 54 45 20 56 4F 52 4D 45 4E 20 49 53 |RIX TE VORMEN IS|
000010F0: 20 45 52 20 27 4E 00 1E 19 88 04 99 22 11 20 54 | ER 'N......". T|
00001100: 45 43 48 4E 49 45 4B 20 47 45 4E 41 41 4D 44 20 |ECHNIEK GENAAMD |
00001110: 27 4E 45 53 54 45 44 20 4C 4F 4F 50 53 27 00 50 |'NESTED LOOPS'.P|
00001120: 19 92 04 99 22 11 20 44 57 5A 2E 20 45 45 4E 20 |....". DWZ. EEN |
00001130: 4C 4F 4F 50 20 55 49 54 47 45 56 4F 45 52 44 20 |LOOP UITGEVOERD |
00001140: 49 4E 20 45 45 4E 20 41 4E 44 45 52 45 3A 11 11 |IN EEN ANDERE:..|
00001150: 00 6A 19 9C 04 99 22 9E B0 C0 20 31 30 20 46 4F |.j...."... 10 FO|
00001160: 52 20 50 3D 30 20 54 4F 20 37 00 72 19 A6 04 99 |R P=0 TO 7.r....|
00001170: 22 DD 00 8B 19 B0 04 99 22 DD B0 20 32 30 20 46 |".......".. 20 F|
00001180: 4F 52 20 51 3D 30 20 54 4F 20 33 00 94 19 BA 04 |OR Q=0 TO 3.....|
00001190: 99 22 DD DD 00 A7 19 C4 04 99 22 DD AD 20 33 30 |."........".. 30|
000011A0: 20 4E 45 58 54 20 51 00 AF 19 CE 04 99 22 DD 00 | NEXT Q......"..|
000011B0: C2 19 D8 04 99 22 AD C0 20 34 30 20 4E 45 58 54 |.....".. 40 NEXT|
000011C0: 20 50 00 F0 19 E2 04 99 22 11 11 1C 20 49 4E 20 | P......"... IN |
000011D0: 45 4C 4B 45 20 27 50 27 20 4C 4F 4F 50 20 57 4F |ELKE 'P' LOOP WO|
000011E0: 52 44 54 20 45 45 4E 20 27 51 27 20 4C 4F 4F 50 |RDT EEN 'Q' LOOP|
000011F0: 00 13 1A EC 04 99 22 11 20 56 4F 4C 4C 45 44 49 |......". VOLLEDI|
00001200: 47 20 41 46 47 45 4D 41 41 4B 54 2E 22 3A 8D 31 |G AFGEMAAKT.":.1|
00001210: 37 36 30 00 52 1A F6 04 99 22 11 11 11 11 11 11 |760.R...."......|
00001220: 11 11 13 11 11 11 11 11 11 11 11 11 1F 20 48 45 |............. HE|
00001230: 54 20 49 53 20 56 41 4E 20 47 52 4F 4F 54 20 42 |T IS VAN GROOT B|
00001240: 45 4C 41 4E 47 2C 20 44 41 54 20 44 45 20 4C 4F |ELANG, DAT DE LO|
00001250: 4F 50 00 81 1A 00 05 99 22 11 20 49 4E 20 44 45 |OP......". IN DE|
00001260: 20 41 4E 44 45 52 45 20 45 45 4E 20 27 4E 45 58 | ANDERE EEN 'NEX|
00001270: 54 27 20 56 49 4E 44 54 20 4D 45 54 20 5A 49 4A |T' VINDT MET ZIJ|
00001280: 4E 00 AE 1A 0A 05 99 22 11 20 45 49 47 45 4E 20 |N......". EIGEN |
00001290: 27 54 45 4C 56 41 52 49 41 42 45 4C 45 27 2C 20 |'TELVARIABELE', |
000012A0: 44 41 41 52 20 45 52 20 41 4E 44 45 52 53 00 DE |DAAR ER ANDERS..|
000012B0: 1A 14 05 99 22 11 20 47 45 47 45 56 45 4E 53 20 |....". GEGEVENS |
000012C0: 56 45 52 4C 4F 52 45 4E 20 47 41 41 4E 2C 20 4F |VERLOREN GAAN, O|
000012D0: 4D 44 41 54 20 44 45 20 4C 4F 4F 50 27 53 00 0D |MDAT DE LOOP'S..|
000012E0: 1B 1E 05 99 22 20 4E 49 45 54 20 56 4F 4C 4C 45 |...." NIET VOLLE|
000012F0: 44 49 47 20 55 49 54 47 45 56 4F 45 52 44 20 57 |DIG UITGEVOERD W|
00001300: 4F 52 44 45 4E 2E 22 3A 8D 31 37 36 30 00 17 1B |ORDEN.":.1760...|
00001310: 28 05 8D 31 36 39 30 00 46 1B 32 05 99 22 93 90 |(..1690.F.2.."..|
00001320: 20 57 49 4C 20 4A 45 20 44 49 54 20 4C 41 41 54 | WIL JE DIT LAAT|
00001330: 53 54 45 20 4E 4F 47 20 45 45 4E 53 20 5A 49 45 |STE NOG EENS ZIE|
00001340: 4E 20 20 4A 2F 4E 00 5A 1B 3C 05 A1 51 24 3A 8B |N J/N.Z.<..Q$:.|
00001350: 51 24 B2 22 22 A7 31 33 34 30 00 6D 1B 46 05 8B |Q$."".1340.m.F..|
00001360: 51 24 B2 C7 28 31 33 29 89 31 33 34 30 00 7E 1B |Q$..(13).1340.~.|
00001370: 50 05 8B 51 24 B2 22 4A 22 A7 31 30 30 30 00 97 |P..Q$."J".1000..|
00001380: 1B 5A 05 99 A3 31 35 29 22 93 1F 12 53 55 42 52 |.Z...15)"...SUBR|
00001390: 4F 55 54 49 4E 45 53 00 C9 1B 64 05 99 22 11 11 |OUTINES...d.."..|
000013A0: 20 48 45 54 20 4B 4F 4D 54 20 56 4F 4F 52 20 44 | HET KOMT VOOR D|
000013B0: 41 54 20 49 4E 20 45 45 4E 20 50 52 4F 47 52 41 |AT IN EEN PROGRA|
000013C0: 4D 4D 41 20 20 20 20 20 22 00 FA 1B 6E 05 99 22 |MMA "...n.."|
000013D0: 11 20 56 41 4B 45 52 20 45 45 4E 20 5A 45 4C 46 |. VAKER EEN ZELF|
000013E0: 44 45 20 52 4F 55 54 49 4E 45 20 48 45 52 48 41 |DE ROUTINE HERHA|
000013F0: 41 4C 44 20 4D 4F 45 54 20 22 00 2B 1C 78 05 99 |ALD MOET ".+.x..|
00001400: 22 11 20 57 4F 52 44 45 4E 2E 20 5A 4F 27 4E 20 |". WORDEN. ZO'N |
00001410: 53 54 55 4B 4A 45 20 50 4C 41 41 54 53 45 4E 20 |STUKJE PLAATSEN |
00001420: 57 45 20 42 56 2E 20 20 20 20 22 00 5C 1C 82 05 |WE BV. ".\...|
00001430: 99 22 11 20 41 41 4E 20 27 54 20 45 49 4E 44 20 |.". AAN 'T EIND |
00001440: 56 41 4E 20 27 54 20 50 52 4F 47 52 41 4D 4D 41 |VAN 'T PROGRAMMA|
00001450: 20 45 4E 20 4E 4F 45 4D 45 4E 20 22 00 8D 1C 8C | EN NOEMEN "....|
00001460: 05 99 22 11 20 57 45 20 27 53 55 42 52 4F 55 54 |..". WE 'SUBROUT|
00001470: 49 4E 45 27 3B 20 5A 45 20 4B 41 4E 20 5A 4F 20 |INE'; ZE KAN ZO |
00001480: 56 41 41 4B 20 41 4C 53 20 20 20 20 22 00 BE 1C |VAAK ALS "...|
00001490: 96 05 99 22 11 20 4E 4F 44 49 47 20 57 4F 52 44 |...". NODIG WORD|
000014A0: 45 4E 20 41 41 4E 47 45 53 50 52 4F 4B 45 4E 20 |EN AANGESPROKEN |
000014B0: 4D 45 54 20 27 47 4F 53 55 42 27 20 20 22 00 F5 |MET 'GOSUB' "..|
000014C0: 1C A0 05 99 22 11 20 50 4C 55 53 20 27 54 20 52 |....". PLUS 'T R|
000014D0: 45 47 45 4C 4E 55 4D 4D 45 52 20 57 41 41 52 20 |EGELNUMMER WAAR |
000014E0: 5A 45 20 42 45 47 49 4E 54 2E 20 20 20 20 22 3A |ZE BEGINT. ":|
000014F0: 8D 31 37 36 30 00 26 1D AA 05 99 22 93 1C 20 48 |.1760.&....".. H|
00001500: 45 54 20 4C 41 41 54 53 54 45 20 43 4F 4D 4D 41 |ET LAATSTE COMMA|
00001510: 4E 44 4F 20 56 41 4E 20 45 45 4E 20 53 55 42 52 |NDO VAN EEN SUBR|
00001520: 4F 55 54 49 4E 45 00 52 1D B4 05 99 22 20 49 53 |OUTINE.R...." IS|
00001530: 20 41 4C 54 49 4A 44 20 27 52 45 54 55 52 4E 27 | ALTIJD 'RETURN'|
00001540: 2C 20 57 41 41 52 44 4F 4F 52 20 49 4B 20 57 45 |, WAARDOOR IK WE|
00001550: 45 54 00 8D 1D BE 05 99 22 11 20 44 41 54 20 49 |ET......". DAT I|
00001560: 4B 20 54 45 52 55 47 20 4D 4F 45 54 20 4E 41 41 |K TERUG MOET NAA|
00001570: 52 20 57 41 41 52 20 49 4B 20 57 41 53 20 20 20 |R WAAR IK WAS |
00001580: 20 20 20 11 47 45 42 4C 45 56 45 4E 2E 00 BB 1D | .GEBLEVEN....|
00001590: C8 05 99 22 11 05 20 47 45 45 46 20 4E 4F 4F 49 |...".. GEEF NOOI|
000015A0: 54 20 48 45 54 20 27 43 4C 52 27 20 43 4F 4D 4D |T HET 'CLR' COMM|
000015B0: 41 4E 44 4F 20 49 4E 20 45 45 4E 00 EA 1D D2 05 |ANDO IN EEN.....|
000015C0: 99 22 11 20 53 55 42 52 4F 55 54 49 4E 45 2C 20 |.". SUBROUTINE, |
000015D0: 57 41 4E 54 20 44 41 4E 20 57 45 45 54 20 49 4B |WANT DAN WEET IK|
000015E0: 20 4E 49 45 54 20 4D 45 45 52 00 12 1E DC 05 99 | NIET MEER......|
000015F0: 22 11 20 57 41 41 52 20 49 4B 20 56 41 4E 44 41 |". WAAR IK VANDA|
00001600: 41 4E 20 4B 57 41 4D 20 45 4E 20 5A 45 47 20 49 |AN KWAM EN ZEG I|
00001610: 4B 3A 00 3F 1E E6 05 99 22 11 90 20 27 52 45 54 |K:.?....".. 'RET|
00001620: 55 52 4E 20 57 49 54 48 4F 55 54 20 47 4F 53 55 |URN WITHOUT GOSU|
00001630: 42 27 20 45 52 52 4F 52 22 3A 8D 31 37 36 30 00 |B' ERROR":.1760.|
00001640: 6F 1E F0 05 99 22 93 95 20 56 4F 4F 52 57 41 41 |o....".. VOORWAA|
00001650: 52 44 45 4E 20 49 4E 20 45 45 4E 20 27 49 46 2D |RDEN IN EEN 'IF-|
00001660: 54 48 45 4E 27 20 53 54 41 54 45 4D 45 4E 54 00 |THEN' STATEMENT.|
00001670: A1 1E FA 05 99 22 11 11 20 20 49 46 20 41 3C 35 |.....".. IF A<5|
00001680: 20 05 42 45 54 45 4B 45 4E 54 20 41 4C 53 20 41 | .BETEKENT ALS A|
00001690: 20 4B 4C 45 49 4E 45 52 20 44 41 4E 20 35 20 49 | KLEINER DAN 5 I|
000016A0: 53 00 D2 1E 04 06 99 22 11 95 20 20 49 46 20 51 |S......".. IF Q|
000016B0: 3E 31 20 05 42 45 54 45 4B 45 4E 54 20 41 4C 53 |>1 .BETEKENT ALS|
000016C0: 20 51 20 47 52 4F 54 45 52 20 44 41 4E 20 31 20 | Q GROTER DAN 1 |
000016D0: 49 53 00 02 1F 0E 06 99 22 11 11 95 20 20 3C 3D |IS......"... <=|
000016E0: 20 05 57 49 4C 20 5A 45 47 47 45 4E 20 47 45 4C | .WIL ZEGGEN GEL|
000016F0: 49 4A 4B 20 4F 46 20 4B 4C 45 49 4E 45 52 20 44 |IJK OF KLEINER D|
00001700: 41 4E 00 31 1F 18 06 99 22 11 11 95 20 20 3D 3E |AN.1...."... =>|
00001710: 20 05 57 49 4C 20 5A 45 47 47 45 4E 20 47 45 4C | .WIL ZEGGEN GEL|
00001720: 49 4A 4B 20 4F 46 20 47 52 4F 54 45 52 20 44 41 |IJK OF GROTER DA|
00001730: 4E 00 62 1F 22 06 99 22 11 11 95 20 20 3C 3E 20 |N.b.".."... <> |
00001740: 05 57 49 4C 20 5A 45 47 47 45 4E 20 4E 49 45 54 |.WIL ZEGGEN NIET|
00001750: 20 47 45 4C 49 4A 4B 20 41 41 4E 22 3A 8D 31 37 | GELIJK AAN":.17|
00001760: 36 30 00 A2 1F 2C 06 99 22 93 1F 20 12 4E 4F 54 |60...,..".. .NOT|
00001770: 92 20 20 4D 45 54 20 45 45 4E 20 56 41 52 49 41 |. MET EEN VARIA|
00001780: 42 45 4C 45 20 57 49 4C 20 5A 45 47 45 4E 20 49 |BELE WIL ZEGEN I|
00001790: 4E 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 C5 |N: .|
000017A0: C5 C5 00 C2 1F 36 06 99 22 11 05 20 20 20 20 31 |.....6..".. 1|
000017B0: 30 20 49 46 20 4E 4F 54 20 58 20 54 48 45 4E 20 |0 IF NOT X THEN |
000017C0: 32 30 00 F1 1F 40 06 99 22 11 11 1F 20 41 4C 53 |20...@.."... ALS|
000017D0: 20 58 20 49 53 20 4E 49 45 54 20 47 52 4F 54 45 | X IS NIET GROTE|
000017E0: 52 20 44 41 4E 20 4E 55 4C 20 49 53 20 44 41 4E |R DAN NUL IS DAN|
000017F0: 3A 00 11 20 4A 06 99 22 11 20 47 41 20 4E 41 41 |:.. J..". GA NAA|
00001800: 52 20 52 45 47 45 4C 20 32 30 22 3A 8D 31 37 36 |R REGEL 20":.176|
00001810: 30 00 42 20 54 06 99 22 93 90 20 57 49 4C 20 4A |0.B T..".. WIL J|
00001820: 45 20 44 45 20 48 45 4C 45 20 4C 45 53 20 4E 4F |E DE HELE LES NO|
00001830: 47 20 45 45 4E 20 4B 45 45 52 4A 45 20 4A 2F 4E |G EEN KEERJE J/N|
00001840: 20 3F 00 56 20 5E 06 A1 51 24 3A 8B 51 24 B2 22 | ?.V ^..Q$:.Q$."|
00001850: 22 A7 31 36 33 30 00 66 20 68 06 8B 51 24 B2 22 |".1630.f h..Q$."|
00001860: 4A 22 A7 89 31 30 00 88 20 72 06 99 22 93 90 20 |J"..10.. r..".. |
00001870: 4C 41 41 44 20 4E 55 20 44 45 20 56 4F 4C 47 45 |LAAD NU DE VOLGE|
00001880: 4E 44 45 20 4C 45 53 2C 00 A5 20 7C 06 99 22 11 |NDE LES,.. |..".|
00001890: 20 44 45 45 4C 20 37 2E 22 3A 81 49 B2 31 A4 35 | DEEL 7.":.I.1.5|
000018A0: 30 30 30 3A 82 00 B0 20 86 06 99 22 93 22 3A 80 |000:... ...".":.|
000018B0: 00 EB 20 9A 06 99 22 13 11 11 11 11 11 11 11 11 |.. ...".........|
000018C0: 11 1C 20 49 4E 20 44 49 54 20 56 4F 4F 52 42 45 |.. IN DIT VOORBE|
000018D0: 45 4C 44 20 44 4F 45 54 20 44 45 20 27 50 27 20 |ELD DOET DE 'P' |
000018E0: 4C 4F 4F 50 20 20 20 20 20 20 22 00 1B 21 A4 06 |LOOP "..!..|
000018F0: 99 22 20 38 20 53 54 41 50 50 45 4E 20 28 30 20 |." 8 STAPPEN (0 |
00001900: 54 4F 54 20 37 20 5A 49 4A 4E 20 38 20 43 49 4A |TOT 7 ZIJN 8 CIJ|
00001910: 46 45 52 53 21 29 2E 20 20 20 22 00 4B 21 AE 06 |FERS!). ".K!..|
00001920: 99 22 20 44 45 20 51 20 4C 4F 4F 50 20 44 4F 45 |." DE Q LOOP DOE|
00001930: 54 20 34 20 53 54 41 50 50 45 4E 2C 20 5A 4F 44 |T 4 STAPPEN, ZOD|
00001940: 41 54 20 44 45 20 20 20 20 20 22 00 7B 21 B8 06 |AT DE ".{!..|
00001950: 99 22 20 4D 41 54 52 49 58 20 45 45 4E 20 49 4E |." MATRIX EEN IN|
00001960: 48 4F 55 44 20 48 45 45 46 54 20 56 41 4E 20 34 |HOUD HEEFT VAN 4|
00001970: 2A 38 3D 33 32 20 20 20 20 20 22 00 AB 21 C2 06 |*8=32 "..!..|
00001980: 99 22 20 4C 4F 4B 41 54 49 45 53 2E 20 44 45 5A |." LOKATIES. DEZ|
00001990: 45 20 55 49 54 4B 4F 4D 53 54 20 4D 41 47 20 4E |E UITKOMST MAG N|
000019A0: 4F 4F 49 54 20 20 20 20 20 20 22 00 DB 21 CC 06 |OOIT "..!..|
000019B0: 99 22 20 47 52 4F 54 45 52 20 44 41 4E 20 32 35 |." GROTER DAN 25|
000019C0: 36 20 57 4F 52 44 45 4E 2C 20 4F 4D 44 41 54 20 |6 WORDEN, OMDAT |
000019D0: 4A 45 20 41 4E 44 45 52 53 20 22 00 13 22 D6 06 |JE ANDERS ".."..|
000019E0: 99 22 20 42 55 49 54 45 4E 20 44 45 20 47 52 45 |." BUITEN DE GRE|
000019F0: 4E 5A 45 4E 20 56 41 4E 20 4D 49 4A 4E 20 42 45 |NZEN VAN MIJN BE|
00001A00: 52 45 49 4B 20 4B 4F 4D 54 2E 22 3A 8D 31 37 36 |REIK KOMT.":.176|
00001A10: 30 3A 8E 00 5C 22 E0 06 97 51 31 2C 30 3A 99 22 |0:..\"...Q1,0:."|
00001A20: 9E 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001A30: 11 11 11 11 11 11 11 11 20 20 20 20 20 20 11 12 |........ ..|
00001A40: 56 4F 4F 52 20 56 45 52 44 45 52 3A 20 44 52 55 |VOOR VERDER: DRU|
00001A50: 4B 20 4F 50 20 27 53 50 41 43 45 27 00 70 22 EA |K OP 'SPACE'.p".|
00001A60: 06 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 37 37 30 |..A$:.A$."".1770|
00001A70: 00 76 22 F4 06 8E 00 8A 22 FE 06 A1 51 24 3A 8B |.v"....."...Q$:.|
00001A80: 51 24 B2 22 22 A7 31 36 33 30 00 00 00 1F |Q$."".1630.... |
..>....".******** BASIC CURSUS *** LES 6
********":.I.1.5000:..J.D..G(142).G.N.Q
1.198:.53280,5:.53281,5...X..".. ===
'FOR-NEXT' LOOPS===......" =========
=============......".. COMPUTERS WORDEN
VAAK GEBRUIKT OM DIE......". DINGEN TE D
OEN DIE VOOR ONS VERVELEND.6. ..". EN EE
NTONIG ZIJN OM TE MOETEN DOEN..A...."...
DIT KAN MET EEN COMPUTER MET EEN......"
. REPETEER COMMANDO; DE FOR-NEXT LOOP.":
.1760......".. 20 FOR X=1 TO 10.D.H.." 3
0 A(X)=10*X.U.R.." 40 NEXT X......"...
IN REGEL 20 ZIE IK, DAT IK IETS VAN.2...
.". EEN TOT TIEN MOET HERHALEN EN IN REG
EL.J....". 40 ZIE IK PAS, DAT 'T IETS UI
TGEBREIDER":." IS.......". IN REGEL 30 Z
IE IK WAT ER HERHAALDELIJK.H...." MOET G
EBEUREN: MAAK A(IN RANGVOLGORDE)......".
GELIJK AAN 10*DE RANGVOLGORDE......."..
ALS IK DAT VAN EEN TOT TIEN KEER HEB.H.
"..". GEDAAN, DAN STOP IK ER MEE.":.1760
.X.,..".. DIE A(X) IS EEN Z.G. 'ARRAY' V
ARIABELE...6..".. HET GETAL 'X' MAG NIET
HOGER ZIJN DAN...@..". 10 ANDERS ZIE JE
:":.". ?BAD SUBSCRIPT ERROR...J..".. J
E KUNT WEL HOGER, MAAR DAN MOET JE.L.T..
". 'DIMENSIONEREN' MET HET 'DIM' COMMAND
O:":.". DIM A(255).Z.^..".. HOGER DAN
255 KAN NIET; ER PASSEN ER...H..". MAAR
256 IN EEN ARRAY (VAN 0 TOT 255)..X.R.."
.. ZO WORDT RUIMTE GERESERVEERD VOOR 256
...|..". GETALLEN IN EEN ARRAY.......176
0.0....".. STRINGS KUNNEN OOK IN EEN ARR
AY STAAN.O....". OM MET 'SUBSCRIPT' TE V
ERWERKEN":.". IN FOR-NEXT LOOPS......"..
. HIERVOOR KUNEN WE DE .READ. AND .DATA.
. COMMANDO'S GEBRUIKEN......."..'DA
TA' KAN WILLEKEURIG IN HET PROGRAMMA.%..
..". STAAN, IK KIJK ER PAS NAAR ALS IK":
.". . 'READ'.M.B..".. ALS COMMANDO TEGE
N KOM.":.1760.X.L..".. ZO'N PROGRAMMA KA
N ER ZO UITZIEN:...V.."..10 DIM A$(15)..
...."20 FOR X=0 TO 15......"30 READ A$(X
).I...."50 NEXT X......"60 FOR X=0 TO 15
......"70 ?A$(X);......"80 NEXT X.+...."
90 DATA KAT,MAT,SLOT,KIP,FRANS,PAAL.U.&.
."100 DATA WAS,VIS,RIJK,MIS,HEER,DAME.X.
0.."110 DATA APPEL,ROVER,DOL,HAM...:..".
. DE STRINGS IN DATASTATEMENTS HOEVEN.R.
D..". NIET TUSSEN AANHALINSTEKENS, BEHAL
VE...N..". ALS ER OOK LEESTEKENS TUSSEN
STAAN..(.X..".. DE WOORDEN MOETEN WEL GE
SCHEIDEN.L.B..". WORDEN DOOR KOMMA'S!":.
1760.{.L..".. DAT PROGRAMMA LEEST DATA V
AN DE DATA-...V..". STATEMENTS, ELK OP Z
'N BEURT..O....".. MET DE EESTE KEER LEZ
EN IS X=0, DUS:......". 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.....
.". NAAR EEN NIEUWE REGEL GA, ZODAT ALLE
.I....". WOORDEN OP EEN RIJTJE ACHTER EL
KAAR . KOMEN TE STAAN.......Q1,0:."..
. .WIL JE DIT NOG EENS DOORNEMEN ?...F..
Q$:.Q$."".710...P..Q$."J".460._.Z..".. O
M TE VOORKOMEN, DAT IK ZEG:":.". .'OUT
OF DATA ERROR'......".. MOET JE ZORGEN,
DAT ER VOLDOENDE 'DATA'......" STATEMEN
TS ZIJN, OF EEN SIGNAAL OPNEMEN......" D
AT MIJ IN HET PROGRAMMA WAARSCHUWT,DAT..
...." ER GEEN DATA MEER KOMEN :.*...."..
10 FOR N=0 TO 3.C...." 15 READ B$:I
F B$="G(34)"-999"G(34)"THEN RESTORE.W. .
." 20 PRINTB$...*.." 30 DATA APPLE,C
AT,-999.G.4..".. ALS IK DE 'FLAG' '-999'
LEES (B$=-999)...>..". WORDEN DATA 'RES
TORED' EN KUNNEN WEER...H..". OPNIEUW GE
LEZEN WORDEN.":.1760.I.R..".. 'FOR-NEXT'
LOOPS TELLEN NORMAAL EEN.Y.\..". TEGELI
JK OP PER OPDRACHT SERIE, MAAR 'T...F.."
IS MOGELIJK DAAR VERANDERIN IN AAN TE.Q
.P..". BRENGEN MET HET ..STEP. .COMMANDO
....Z.."... 20 FOR B=0 TO 50 STEP 2.
....." 30 NEXT B.O...."... ZO WORDT
ER TELKENS, PER 'LOOP' 2 .BIJ B OP
GETELD..Z....".. DE EERSTE KEER IS B GEL
IJK AAN 0,.C....". MAAR IN DE TWEEDE RON
DE WORDT B: . 2; EN 4-6-8 ENZ.":.1
760......".. TERUG TELLEN KAN OOK DOOR E
ENVOUDIG......". EEN MINTEKEN TE PLAATSE
N ACHTER STEP:.B...."... FOR B=10 TO
0 STEP -2.S.J.."... B START BIJ 10 EN I
N DE VOLGENDE RONDE...T..". WORDT B 8; E
NZ. TOT B GELIJK IS AAN 0..S....". MEN N
OEMT DIT 'REVERSE STEPPING'.":.1760.....
.".. EEN ANDER SOOR ARRAY IS HET.%....".
2-DIMENSIONALE ARRAY OFWEL .MATRIX...U.
...".. HET DIM-COMMANDO IS ALTIJD NODIG
EN ER.....". MOET EEN KOMMA TUSSEN: DIM
P(2,2)......".. OP DEZE WIJZE ZIE IK P(
2,2):.......". ..........$.."0.5.9.0. P(
0,0)= :P(0,1)= :P(0,2)=......" .......
...8.."1.1.9.4. P(1,0)= :P(1,1)= :P(1,
2)=.*.B.." ........U.L.."2.7.3.1. P(2,0)
= :P(2,1)= :P(2,2)=.D.V.." ........R.`
.." 0 1 2...J..".. HET EERSTE CIJFER GE
EFT DE RIJ AAN.L.T..". EN HET TWEEDE CIJ
FER DE KOLOM.":.1760...~..".. OM EEN MAT
RIX TE VORMEN IS ER 'N......". TECHNIEK
GENAAMD 'NESTED LOOPS'.P....". DWZ. EEN
LOOP UITGEVOERD IN EEN ANDERE:...J....".
.. 10 FOR P=0 TO 7.R....".......".. 20 F
OR Q=0 TO 3......".....D..".. 30 NEXT Q.
..N.."..B.X..".. 40 NEXT P......"... IN
ELKE 'P' LOOP WORDT EEN 'Q' LOOP......".
VOLLEDIG AFGEMAAKT.":.1760.R...."......
............. HET IS VAN GROOT BELANG, D
AT DE LOOP......". IN DE ANDERE EEN 'NEX
T' VINDT MET ZIJN......". EIGEN 'TELVARI
ABELE', DAAR ER ANDERS......". GEGEVENS
VERLOREN GAAN, OMDAT DE LOOP'S......" NI
ET VOLLEDIG UITGEVOERD WORDEN.":.1760...
(..1690.F.2..".. WIL JE DIT LAATSTE NOG
EENS ZIEN J/N.Z.<..Q$:.Q$."".1340.M.F..
Q$.G(13).1340.~.P..Q$."J".1000...Z...15)
"...SUBROUTINES.I.D..".. HET KOMT VOOR D
AT IN EEN PROGRAMMA "...N..". VAKER
EEN ZELFDE ROUTINE HERHAALD MOET ".+.X..
". WORDEN. ZO'N STUKJE PLAATSEN WE BV.
".\....". AAN 'T EIND VAN 'T PROGRAMMA
EN NOEMEN "......". WE 'SUBROUTINE'; ZE
KAN ZO VAAK ALS "......". NODIG WORD
EN AANGESPROKEN MET 'GOSUB' "... ..". P
LUS 'T REGELNUMMER WAAR ZE BEGINT. ":
.1760.&....".. HET LAATSTE COMMANDO VAN
EEN SUBROUTINE.R...." IS ALTIJD 'RETURN'
, WAARDOOR IK WEET......". DAT IK TERUG
MOET NAAR WAAR IK WAS .GEBLEVEN....
H..".. GEEF NOOIT HET 'CLR' COMMANDO IN
EEN...R..". SUBROUTINE, WANT DAN WEET IK
NIET MEER......". WAAR IK VANDAAN KWAM
EN ZEG IK:.?....".. 'RETURN WITHOUT GOSU
B' ERROR":.1760.O....".. VOORWAARDEN IN
EEN 'IF-THEN' STATEMENT......".. IF A<5
.BETEKENT ALS A KLEINER DAN 5 IS.R...."
.. IF Q>1 .BETEKENT ALS Q GROTER DAN 1
IS......"... <= .WIL ZEGGEN GELIJK OF K
LEINER DAN.1...."... => .WIL ZEGGEN GEL
IJK OF GROTER DAN.B.".."... <> .WIL ZEG
GEN NIET GELIJK AAN":.1760...,..".. .NOT
. MET EEN VARIABELE WIL ZEGEN IN:
EEE.B.6..".. 10 IF NOT X THEN
20...@.."... ALS X IS NIET GROTER DAN NU
L IS DAN:.. J..". GA NAAR REGEL 20":.176
0.B T..".. WIL JE DE HELE LES NOG EEN KE
ERJE J/N ?.V ^..Q$:.Q$."".1630.F H..Q$."
J"..10.. R..".. LAAD NU DE VOLGENDE LES,
.. |..". DEEL 7.":.I.1.5000:... ...".":.
.. ..."........... IN DIT VOORBEELD DOET
DE 'P' LOOP "..!..." 8 STAPPEN (0
TOT 7 ZIJN 8 CIJFERS!). ".K!..." DE Q
LOOP DOET 4 STAPPEN, ZODAT DE ".{!..
." MATRIX EEN INHOUD HEEFT VAN 4*8=32
"..!B.." LOKATIES. DEZE UITKOMST MAG N
OOIT "..!L.." GROTER DAN 256 WORDEN
, OMDAT JE ANDERS ".."V.." BUITEN DE GRE
NZEN VAN MIJN BEREIK KOMT.":.1760:..\"..
.Q1,0:."........................ ..
VOOR VERDER: DRUK OP 'SPACE'.P"...A$:.A$
."".1770.V"....."...Q$:.Q$."".1630....
> CLICK IMAGE PREVIEW FOR FULL MODAL