BASIC LES 7
FILE INFORMATION
FILENAME(S): BASIC LES 7
FILE TYPE(S): PRG
FILE SIZE: 6.5K
FIRST SEEN: 2025-11-30 15:51:47
APPEARS ON: 1 disk(s)
FILE HASH
bf378df2e7ef7e5d7de662ca274e53a53f6b796cf2f247ce4e488cb0e2c1bbdf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCCL 20 05 89 | BASIC LES 7 | PRG | Belgium | 3 | 1 | 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 43 0C 5E 01 99 22 11 1C 20 48 4F |255).C.^..".. 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 45 4E 20 4D |NIET; ER PASEN M| 00000440: 41 41 52 00 6D 0C 68 01 99 22 11 20 32 35 36 20 |AAR.m.h..". 256 | 00000450: 49 4E 20 45 45 4E 20 41 52 52 41 59 20 28 56 41 |IN EEN ARRAY (VA| 00000460: 4E 20 30 20 54 4F 54 20 32 35 35 29 2E 00 9C 0C |N 0 TOT 255)....| 00000470: 72 01 99 22 11 1F 20 5A 4F 20 57 4F 52 44 54 20 |r..".. ZO WORDT | 00000480: 52 55 49 4D 54 45 20 47 45 52 45 53 45 52 56 45 |RUIMTE GERESERVE| 00000490: 45 52 44 20 56 4F 4F 52 20 32 35 36 00 BB 0C 7C |ERD VOOR 256...|| 000004A0: 01 99 22 11 20 47 45 54 41 4C 4C 45 4E 20 49 4E |..". GETALLEN IN| 000004B0: 20 45 45 4E 20 41 52 52 41 59 2E 00 C5 0C 86 01 | EEN ARRAY......| 000004C0: 8D 31 37 36 30 00 F4 0C 90 01 99 22 93 05 20 53 |.1760......".. S| 000004D0: 54 52 49 4E 47 53 20 4B 55 4E 4E 45 4E 20 4F 4F |TRINGS KUNNEN OO| 000004E0: 4B 20 49 4E 20 45 45 4E 20 41 52 52 41 59 20 53 |K IN EEN ARRAY S| 000004F0: 54 41 41 4E 00 33 0D 9A 01 99 22 11 20 4F 4D 20 |TAAN.3....". OM | 00000500: 4D 45 54 20 27 53 55 42 53 43 52 49 50 54 27 20 |MET 'SUBSCRIPT' | 00000510: 54 45 20 56 45 52 57 45 52 4B 45 4E 22 3A 99 22 |TE VERWERKEN":."| 00000520: 11 20 49 4E 20 46 4F 52 2D 4E 45 58 54 20 4C 4F |. IN FOR-NEXT LO| 00000530: 4F 50 53 00 80 0D A4 01 99 22 11 11 1F 20 48 49 |OPS......"... HI| 00000540: 45 52 56 4F 4F 52 20 4B 55 4E 45 4E 20 57 45 20 |ERVOOR KUNEN WE | 00000550: 44 45 20 12 52 45 41 44 92 20 41 4E 44 20 12 44 |DE .READ. AND .D| 00000560: 41 54 41 92 20 20 20 20 20 11 20 43 4F 4D 4D 41 |ATA. . COMMA| 00000570: 4E 44 4F 27 53 20 47 45 42 52 55 49 4B 45 4E 2E |NDO'S GEBRUIKEN.| 00000580: 00 B0 0D AE 01 99 22 11 11 27 44 41 54 41 27 20 |......"..'DATA' | 00000590: 4B 41 4E 20 57 49 4C 4C 45 4B 45 55 52 49 47 20 |KAN WILLEKEURIG | 000005A0: 49 4E 20 48 45 54 20 50 52 4F 47 52 41 4D 4D 41 |IN HET PROGRAMMA| 000005B0: 00 E9 0D B8 01 99 22 11 20 53 54 41 41 4E 2C 20 |......". STAAN, | 000005C0: 49 4B 20 4B 49 4A 4B 20 45 52 20 50 41 53 20 4E |IK KIJK ER PAS N| 000005D0: 41 41 52 20 41 4C 53 20 49 4B 22 3A 99 22 11 20 |AAR ALS IK":.". | 000005E0: 90 20 20 27 52 45 41 44 27 00 11 0E C2 01 99 22 |. 'READ'......"| 000005F0: 11 1F 20 41 4C 53 20 43 4F 4D 4D 41 4E 44 4F 20 |.. ALS COMMANDO | 00000600: 54 45 47 45 4E 20 4B 4F 4D 2E 22 3A 8D 31 37 36 |TEGEN KOM.":.176| 00000610: 30 00 3C 0E CC 01 99 22 93 1C 20 5A 4F 27 4E 20 |0.<....".. ZO'N | 00000620: 50 52 4F 47 52 41 4D 4D 41 20 4B 41 4E 20 45 52 |PROGRAMMA KAN ER| 00000630: 20 5A 4F 20 55 49 54 5A 49 45 4E 3A 00 52 0E D6 | ZO UITZIEN:.R..| 00000640: 01 99 22 11 90 31 30 20 44 49 4D 20 41 24 28 31 |.."..10 DIM A$(1| 00000650: 35 29 00 69 0E E0 01 99 22 32 30 20 46 4F 52 20 |5).i...."20 FOR | 00000660: 58 3D 30 20 54 4F 20 31 35 00 7D 0E EA 01 99 22 |X=0 TO 15.}...."| 00000670: 33 30 20 52 45 41 44 20 41 24 28 58 29 00 8D 0E |30 READ A$(X)...| 00000680: F4 01 99 22 35 30 20 4E 45 58 54 20 58 00 A4 0E |..."50 NEXT X...| 00000690: FE 01 99 22 36 30 20 46 4F 52 20 58 3D 30 20 54 |..."60 FOR X=0 T| 000006A0: 4F 20 31 35 00 B5 0E 08 02 99 22 37 30 20 3F 41 |O 15......"70 ?A| 000006B0: 24 28 58 29 3B 00 C5 0E 12 02 99 22 38 30 20 4E |$(X);......"80 N| 000006C0: 45 58 54 20 58 00 EF 0E 1C 02 99 22 39 30 20 44 |EXT X......"90 D| 000006D0: 41 54 41 20 4B 41 54 2C 4D 41 54 2C 53 4C 4F 54 |ATA KAT,MAT,SLOT| 000006E0: 2C 4B 49 50 2C 46 52 41 4E 53 2C 50 41 41 4C 00 |,KIP,FRANS,PAAL.| 000006F0: 19 0F 26 02 99 22 31 30 30 20 44 41 54 41 20 57 |..&.."100 DATA W| 00000700: 41 53 2C 56 49 53 2C 52 49 4A 4B 2C 4D 49 53 2C |AS,VIS,RIJK,MIS,| 00000710: 48 45 45 52 2C 44 41 4D 45 00 3C 0F 30 02 99 22 |HEER,DAME.<.0.."| 00000720: 31 31 30 20 44 41 54 41 20 41 50 50 45 4C 2C 52 |110 DATA APPEL,R| 00000730: 4F 56 45 52 2C 44 4F 4C 2C 48 41 4D 00 69 0F 3A |OVER,DOL,HAM.i.:| 00000740: 02 99 22 11 1F 20 44 45 20 53 54 52 49 4E 47 53 |..".. DE STRINGS| 00000750: 20 49 4E 20 44 41 54 41 20 53 54 41 54 4D 45 4E | IN DATA STATMEN| 00000760: 54 53 20 48 4F 45 56 45 4E 00 96 0F 44 02 99 22 |TS HOEVEN...D.."| 00000770: 11 20 4E 49 45 54 20 54 55 53 53 45 4E 20 41 41 |. NIET TUSSEN AA| 00000780: 4E 48 41 4C 49 4E 53 54 45 4B 45 4E 53 2C 20 42 |NHALINSTEKENS, B| 00000790: 45 48 41 4C 56 45 00 C2 0F 4E 02 99 22 11 20 41 |EHALVE...N..". A| 000007A0: 4C 53 20 45 52 20 4F 4F 4B 20 4C 45 45 53 54 45 |LS ER OOK LEESTE| 000007B0: 4B 45 4E 53 20 54 55 53 53 45 4E 20 53 54 41 41 |KENS TUSSEN STAA| 000007C0: 4E 2E 00 EC 0F 58 02 99 22 11 9F 20 44 45 20 57 |N....X..".. DE W| 000007D0: 4F 4F 52 44 45 4E 20 4D 4F 45 54 45 4E 20 57 45 |OORDEN MOETEN WE| 000007E0: 4C 20 47 45 53 43 48 45 49 44 45 4E 00 10 10 62 |L GESCHEIDEN...b| 000007F0: 02 99 22 11 20 57 4F 52 44 45 4E 20 44 4F 4F 52 |..". WORDEN DOOR| 00000800: 20 4B 4F 4D 4D 41 27 53 21 22 3A 8D 31 37 36 30 | KOMMA'S!":.1760| 00000810: 00 3F 10 6C 02 99 22 93 95 20 44 41 54 20 50 52 |.?.l..".. DAT PR| 00000820: 4F 47 52 41 4D 4D 41 20 4C 45 45 53 54 20 44 41 |OGRAMMA LEEST DA| 00000830: 54 41 20 56 41 4E 20 44 45 20 44 41 54 41 2D 00 |TA VAN DE DATA-.| 00000840: 64 10 76 02 99 22 11 20 53 54 41 54 4D 45 4E 54 |d.v..". STATMENT| 00000850: 53 2C 20 45 4C 4B 20 4F 50 20 5A 27 4E 20 42 45 |S, ELK OP Z'N BE| 00000860: 55 52 54 2E 00 92 10 80 02 99 22 11 1F 20 4D 45 |URT.......".. ME| 00000870: 54 20 44 45 20 45 45 53 54 45 20 4B 45 45 52 20 |T DE EESTE KEER | 00000880: 4C 45 5A 45 4E 20 49 53 20 58 3D 30 2C 20 44 55 |LEZEN IS X=0, DU| 00000890: 53 3A 00 C0 10 8A 02 99 22 11 20 41 24 28 30 29 |S:......". A$(0)| 000008A0: 3D 4B 41 54 20 45 4E 20 44 45 20 54 57 45 45 44 |=KAT EN DE TWEED| 000008B0: 45 20 4C 4F 4F 50 20 20 58 3D 31 20 44 55 53 3A |E LOOP X=1 DUS:| 000008C0: 00 F0 10 94 02 99 22 11 20 41 24 28 31 29 3D 4D |......". A$(1)=M| 000008D0: 41 54 20 45 4E 5A 2E 20 54 4F 54 3A 20 58 3D 31 |AT ENZ. TOT: X=1| 000008E0: 35 20 45 4E 20 41 24 28 31 35 29 3D 48 41 4D 2E |5 EN A$(15)=HAM.| 000008F0: 00 1E 11 9E 02 99 22 11 95 20 44 45 20 50 55 4E |......".. DE PUN| 00000900: 54 2D 4B 4F 4D 4D 41 20 56 4F 4F 52 4B 4F 4D 54 |T-KOMMA VOORKOMT| 00000910: 20 44 41 54 20 49 4B 20 53 54 45 45 44 53 00 4B | DAT IK STEEDS.K| 00000920: 11 A8 02 99 22 11 20 4E 41 41 52 20 45 45 4E 20 |....". NAAR EEN | 00000930: 4E 49 45 55 57 45 20 52 45 47 45 4C 20 47 41 2C |NIEUWE REGEL GA,| 00000940: 20 5A 4F 44 41 54 20 41 4C 4C 45 00 8C 11 B2 02 | ZODAT ALLE.....| 00000950: 99 22 11 20 57 4F 4F 52 44 45 4E 20 4F 50 20 45 |.". WOORDEN OP E| 00000960: 45 4E 20 52 49 4A 54 4A 45 20 41 43 48 54 45 52 |EN RIJTJE ACHTER| 00000970: 20 45 4C 4B 41 41 52 20 20 20 20 11 20 4B 4F 4D | ELKAAR . KOM| 00000980: 45 4E 20 54 45 20 53 54 41 41 4E 2E 00 BD 11 BC |EN TE STAAN.....| 00000990: 02 97 51 31 2C 30 3A 99 22 11 11 90 20 12 57 49 |..Q1,0:."... .WI| 000009A0: 4C 20 4A 45 20 44 49 54 20 4E 4F 47 20 45 45 4E |L JE DIT NOG EEN| 000009B0: 53 20 44 4F 4F 52 4E 45 4D 45 4E 20 3F 00 D0 11 |S DOORNEMEN ?...| 000009C0: C6 02 A1 51 24 3A 8B 51 24 B2 22 22 A7 37 31 30 |...Q$:.Q$."".710| 000009D0: 00 E0 11 D0 02 8B 51 24 B2 22 4A 22 A7 34 36 30 |......Q$."J".460| 000009E0: 00 22 12 DA 02 99 22 93 1F 20 4F 4D 20 54 45 20 |."....".. OM TE | 000009F0: 56 4F 4F 52 4B 4F 4D 45 4E 2C 20 44 41 54 20 49 |VOORKOMEN, DAT I| 00000A00: 4B 20 5A 45 47 3A 22 3A 99 22 11 20 20 20 90 27 |K ZEG:":.". .'| 00000A10: 4F 55 54 20 4F 46 20 44 41 54 41 20 45 52 52 4F |OUT OF DATA ERRO| 00000A20: 52 27 00 53 12 E4 02 99 22 11 1F 20 4D 4F 45 54 |R'.S....".. MOET| 00000A30: 20 4A 45 20 5A 4F 52 47 45 4E 2C 20 44 41 54 20 | JE ZORGEN, DAT | 00000A40: 45 52 20 56 4F 4C 44 4F 45 4E 44 45 20 27 44 41 |ER VOLDOENDE 'DA| 00000A50: 54 41 27 00 82 12 EE 02 99 22 20 53 54 41 54 45 |TA'......" STATE| 00000A60: 4D 45 4E 54 53 20 5A 49 4A 4E 2C 20 4F 46 20 45 |MENTS ZIJN, OF E| 00000A70: 45 4E 20 53 49 47 4E 41 41 4C 20 4F 50 4E 45 4D |EN SIGNAAL OPNEM| 00000A80: 45 4E 00 B1 12 F8 02 99 22 20 44 41 54 20 49 4E |EN......" DAT IN| 00000A90: 20 48 45 54 20 50 52 4F 47 52 41 4D 4D 41 20 4D | HET PROGRAMMA M| 00000AA0: 49 4A 20 57 41 41 52 53 43 48 55 57 44 20 44 41 |IJ WAARSCHUWD DA| 00000AB0: 54 00 D2 12 02 03 99 22 20 45 52 20 47 45 45 4E |T......" ER GEEN| 00000AC0: 20 44 41 54 41 20 4D 45 45 52 20 4B 4F 4D 45 4E | DATA MEER KOMEN| 00000AD0: 20 3A 00 ED 12 0C 03 99 22 11 1C 20 20 20 31 30 | :......".. 10| 00000AE0: 20 46 4F 52 20 4E 3D 30 20 54 4F 20 33 00 26 13 | FOR N=0 TO 3.&.| 00000AF0: 16 03 99 22 20 20 20 31 35 20 52 45 41 44 20 42 |..." 15 READ B| 00000B00: 24 3A 49 46 20 42 24 3D 22 C7 28 33 34 29 22 2D |$:IF B$=".(34)"-| 00000B10: 39 39 39 22 C7 28 33 34 29 22 54 48 45 4E 20 52 |999".(34)"THEN R| 00000B20: 45 53 54 4F 52 45 00 3A 13 20 03 99 22 20 20 20 |ESTORE.:. .." | 00000B30: 32 30 20 50 52 49 4E 54 42 24 00 5A 13 2A 03 99 |20 PRINTB$.Z.*..| 00000B40: 22 20 20 20 33 30 20 44 41 54 41 20 41 50 50 4C |" 30 DATA APPL| 00000B50: 45 2C 43 41 54 2C 2D 39 39 39 00 8A 13 34 03 99 |E,CAT,-999...4..| 00000B60: 22 11 1F 20 41 4C 53 20 49 4B 20 44 45 20 27 56 |".. ALS IK DE 'V| 00000B70: 4C 41 47 27 20 27 2D 39 39 39 27 20 4C 45 45 53 |LAG' '-999' LEES| 00000B80: 20 28 42 24 3D 2D 39 39 39 29 00 B8 13 3E 03 99 | (B$=-999)...>..| 00000B90: 22 11 20 57 4F 52 44 45 4E 20 44 41 54 41 20 27 |". WORDEN DATA '| 00000BA0: 52 45 53 54 4F 52 45 44 27 20 45 4E 20 4B 55 4E |RESTORED' EN KUN| 00000BB0: 4E 45 4E 20 57 45 45 52 00 DF 13 48 03 99 22 11 |NEN WEER...H..".| 00000BC0: 20 4F 50 4E 49 45 55 57 20 47 45 4C 45 5A 45 4E | OPNIEUW GELEZEN| 00000BD0: 20 57 4F 52 44 45 4E 2E 22 3A 8D 31 37 36 30 00 | WORDEN.":.1760.| 00000BE0: 0C 14 52 03 99 22 93 95 20 27 46 4F 52 2D 4E 45 |..R..".. 'FOR-NE| 00000BF0: 58 54 27 20 4C 4F 4F 50 53 20 54 45 4C 4C 45 4E |XT' LOOPS TELLEN| 00000C00: 20 4E 4F 52 4D 41 41 4C 20 45 45 4E 00 3C 14 5C | NORMAAL EEN.<.\| 00000C10: 03 99 22 11 20 54 45 47 45 4C 49 4A 4B 20 4F 50 |..". TEGELIJK OP| 00000C20: 20 50 45 52 20 4F 50 44 52 41 43 48 54 20 53 45 | PER OPDRACHT SE| 00000C30: 52 49 45 2C 20 4D 41 41 52 20 27 54 00 69 14 66 |RIE, MAAR 'T.i.f| 00000C40: 03 99 22 20 49 53 20 4D 4F 47 45 4C 49 4A 4B 20 |.." IS MOGELIJK | 00000C50: 44 41 41 52 20 56 45 52 41 4E 44 45 52 49 4E 20 |DAAR VERANDERIN | 00000C60: 49 4E 20 41 41 4E 20 54 45 00 94 14 70 03 99 22 |IN AAN TE...p.."| 00000C70: 11 20 42 52 45 4E 47 45 4E 20 4D 45 54 20 48 45 |. BRENGEN MET HE| 00000C80: 54 20 90 12 53 54 45 50 92 20 95 43 4F 4D 4D 41 |T ..STEP. .COMMA| 00000C90: 4E 44 4F 2E 00 BA 14 7A 03 99 22 11 11 05 20 20 |NDO....z.."... | 00000CA0: 20 20 32 30 20 20 46 4F 52 20 42 3D 30 20 54 4F | 20 FOR B=0 TO| 00000CB0: 20 35 30 20 53 54 45 50 20 32 00 CF 14 84 03 99 | 50 STEP 2......| 00000CC0: 22 20 20 20 20 33 30 20 20 4E 45 58 54 20 42 00 |" 30 NEXT B.| 00000CD0: 12 15 8E 03 99 22 11 11 9E 20 5A 4F 20 57 4F 52 |....."... ZO WOR| 00000CE0: 44 54 20 45 52 20 54 45 4C 4B 45 4E 53 2C 20 50 |DT ER TELKENS, P| 00000CF0: 45 52 20 27 4C 4F 4F 50 27 20 32 20 20 20 20 20 |ER 'LOOP' 2 | 00000D00: 20 20 11 42 49 4A 20 42 20 4F 50 47 45 54 45 4C | .BIJ B OPGETEL| 00000D10: 44 2E 00 3D 15 98 03 99 22 11 90 20 44 45 20 45 |D..=....".. DE E| 00000D20: 45 52 53 54 45 20 4B 45 45 52 20 49 53 20 42 20 |ERSTE KEER IS B | 00000D30: 47 45 4C 49 4A 4B 20 41 41 4E 20 30 2C 00 82 15 |GELIJK AAN 0,...| 00000D40: A2 03 99 22 11 20 4D 41 41 52 20 49 4E 20 44 45 |...". MAAR IN DE| 00000D50: 20 54 57 45 45 44 45 20 52 4F 4E 44 45 4E 20 57 | TWEEDE RONDEN W| 00000D60: 4F 52 44 54 20 42 3A 20 20 20 20 20 20 20 11 32 |ORDT B: .2| 00000D70: 2D 34 2D 36 2D 38 20 45 4E 5A 2E 22 3A 8D 31 37 |-4-6-8 ENZ.":.17| 00000D80: 36 30 00 AF 15 AC 03 99 22 93 1F 20 54 45 52 55 |60......".. TERU| 00000D90: 47 20 54 45 4C 4C 45 4E 20 4B 41 4E 20 4F 4F 4B |G TELLEN KAN OOK| 00000DA0: 20 44 4F 4F 52 20 45 45 4E 56 4F 55 44 49 47 00 | DOOR EENVOUDIG.| 00000DB0: DD 15 B6 03 99 22 11 20 45 45 4E 20 4D 49 4E 54 |.....". EEN MINT| 00000DC0: 45 4B 45 4E 20 54 45 20 50 4C 41 41 54 53 45 4E |EKEN TE PLAATSEN| 00000DD0: 20 41 43 48 54 45 52 20 53 54 45 50 3A 00 01 16 | ACHTER STEP:...| 00000DE0: C0 03 99 22 11 11 1C 20 20 20 20 20 46 4F 52 20 |..."... FOR | 00000DF0: 42 3D 31 30 20 54 4F 20 30 20 53 54 45 50 20 2D |B=10 TO 0 STEP -| 00000E00: 32 00 32 16 CA 03 99 22 11 11 1F 20 42 20 53 54 |2.2...."... B ST| 00000E10: 41 52 54 20 42 49 4A 20 31 30 20 45 4E 20 49 4E |ART BIJ 10 EN IN| 00000E20: 20 44 45 20 56 4F 4C 47 45 4E 44 45 20 52 4F 4E | DE VOLGENDE RON| 00000E30: 44 45 00 61 16 D4 03 99 22 11 20 57 4F 52 44 54 |DE.a....". WORDT| 00000E40: 20 42 20 38 3B 20 45 4E 5A 2E 20 54 4F 54 20 42 | B 8; ENZ. TOT B| 00000E50: 20 47 45 4C 49 4A 4B 20 49 53 20 41 41 4E 20 30 | GELIJK IS AAN 0| 00000E60: 2E 00 92 16 DE 03 99 22 11 20 4D 45 4E 20 4E 4F |.......". MEN NO| 00000E70: 45 4D 54 20 44 49 54 20 27 52 45 56 45 52 53 45 |EMT DIT 'REVERSE| 00000E80: 20 53 54 45 50 50 49 4E 47 27 2E 22 3A 8D 31 37 | STEPPING'.":.17| 00000E90: 36 30 00 B7 16 E8 03 99 22 93 1C 20 45 45 4E 20 |60......".. EEN | 00000EA0: 41 4E 44 45 52 20 53 4F 4F 52 20 41 52 52 41 59 |ANDER SOOR ARRAY| 00000EB0: 20 49 53 20 48 45 54 00 E4 16 F2 03 99 22 11 20 | IS HET......". | 00000EC0: 32 2D 44 49 4D 45 4E 53 49 4F 4E 41 4C 45 20 41 |2-DIMENSIONALE A| 00000ED0: 52 52 41 59 20 4F 46 57 45 4C 20 12 4D 41 54 52 |RRAY OFWEL .MATR| 00000EE0: 49 58 92 2E 00 14 17 FC 03 99 22 11 1F 20 48 45 |IX........".. HE| 00000EF0: 54 20 44 49 4D 2D 43 4F 4D 4D 41 4E 44 4F 20 49 |T DIM-COMMANDO I| 00000F00: 53 20 41 4C 54 49 4A 44 20 4E 4F 44 49 47 20 45 |S ALTIJD NODIG E| 00000F10: 4E 20 45 52 00 35 17 06 04 99 22 11 20 4B 4F 4D |N ER.5....". KOM| 00000F20: 4D 41 20 54 55 53 53 45 4E 3A 20 44 49 4D 20 50 |MA TUSSEN: DIM P| 00000F30: 28 32 2C 32 29 00 5C 17 10 04 99 22 11 05 20 4F |(2,2).\....".. O| 00000F40: 50 20 44 45 5A 45 20 57 49 4A 5A 45 20 5A 49 45 |P DEZE WIJZE ZIE| 00000F50: 20 49 4B 20 50 28 32 2C 32 29 3A 11 00 6C 17 1A | IK P(2,2):..l..| 00000F60: 04 99 22 1C 20 B0 C0 B2 C0 B2 C0 AE 00 97 17 24 |..". ..........$| 00000F70: 04 99 22 30 DD 35 DD 39 DD 30 DD 20 50 28 30 2C |.."0.5.9.0. P(0,| 00000F80: 30 29 3D 20 20 3A 50 28 30 2C 31 29 3D 20 20 3A |0)= :P(0,1)= :| 00000F90: 50 28 30 2C 32 29 3D 00 A6 17 2E 04 99 22 20 AB |P(0,2)=......" .| 00000FA0: C0 DB C0 DB C0 B3 00 D1 17 38 04 99 22 31 DD 31 |.........8.."1.1| 00000FB0: DD 39 DD 34 DD 20 50 28 31 2C 30 29 3D 20 20 3A |.9.4. P(1,0)= :| 00000FC0: 50 28 31 2C 31 29 3D 20 20 3A 50 28 31 2C 32 29 |P(1,1)= :P(1,2)| 00000FD0: 3D 00 E0 17 42 04 99 22 20 AB C0 DB C0 DB C0 B3 |=...B.." .......| 00000FE0: 00 0B 18 4C 04 99 22 32 DD 37 DD 33 DD 31 DD 20 |...L.."2.7.3.1. | 00000FF0: 50 28 32 2C 30 29 3D 20 20 3A 50 28 32 2C 31 29 |P(2,0)= :P(2,1)| 00001000: 3D 20 20 3A 50 28 32 2C 32 29 3D 00 1A 18 56 04 |= :P(2,2)=...V.| 00001010: 99 22 20 AD C0 B1 C0 B1 C0 BD 00 28 18 60 04 99 |." ........(.`..| 00001020: 22 20 20 30 20 31 20 32 00 54 18 6A 04 99 22 11 |" 0 1 2.T.j..".| 00001030: 1F 20 48 45 54 20 45 45 52 53 54 45 20 43 49 4A |. HET EERSTE CIJ| 00001040: 46 45 52 20 47 45 45 46 54 20 44 45 20 52 49 4A |FER GEEFT DE RIJ| 00001050: 20 41 41 4E 00 82 18 74 04 99 22 11 20 45 4E 20 | AAN...t..". EN | 00001060: 48 45 54 20 54 57 45 45 44 45 20 43 49 4A 46 45 |HET TWEEDE CIJFE| 00001070: 52 20 44 45 20 4B 4F 4C 4F 4D 2E 22 3A 8D 31 37 |R DE KOLOM.":.17| 00001080: 36 30 00 AC 18 7E 04 99 22 93 95 20 4F 4D 20 45 |60...~..".. OM E| 00001090: 45 4E 20 4D 41 54 52 49 58 20 54 45 20 56 4F 52 |EN MATRIX TE VOR| 000010A0: 4D 45 4E 20 49 53 20 45 52 20 27 4E 00 D4 18 88 |MEN IS ER 'N....| 000010B0: 04 99 22 11 20 54 45 43 48 4E 49 45 4B 20 47 45 |..". TECHNIEK GE| 000010C0: 4E 41 41 4D 44 20 27 4E 45 53 54 45 44 20 4C 4F |NAAMD 'NESTED LO| 000010D0: 4F 50 53 27 00 06 19 92 04 99 22 11 20 44 57 5A |OPS'......". DWZ| 000010E0: 2E 20 45 45 4E 20 4C 4F 4F 50 20 55 49 54 47 45 |. EEN LOOP UITGE| 000010F0: 56 4F 45 52 44 20 49 4E 20 45 45 4E 20 41 4E 44 |VOERD IN EEN AND| 00001100: 45 52 45 3A 11 11 00 20 19 9C 04 99 22 9E B0 C0 |ERE:... ...."...| 00001110: 20 31 30 20 46 4F 52 20 50 3D 30 20 54 4F 20 37 | 10 FOR P=0 TO 7| 00001120: 00 28 19 A6 04 99 22 DD 00 41 19 B0 04 99 22 DD |.(...."..A....".| 00001130: B0 20 32 30 20 46 4F 52 20 51 3D 30 20 54 4F 20 |. 20 FOR Q=0 TO | 00001140: 33 00 4A 19 BA 04 99 22 DD DD 00 5D 19 C4 04 99 |3.J...."...]....| 00001150: 22 DD AD 20 33 30 20 4E 45 58 54 20 51 00 65 19 |".. 30 NEXT Q.e.| 00001160: CE 04 99 22 DD 00 78 19 D8 04 99 22 AD C0 20 34 |..."..x....".. 4| 00001170: 30 20 4E 45 58 54 20 50 00 A6 19 E2 04 99 22 11 |0 NEXT P......".| 00001180: 11 1C 20 49 4E 20 45 4C 4B 45 20 27 50 27 20 4C |.. IN ELKE 'P' L| 00001190: 4F 4F 50 20 57 4F 52 44 54 20 45 45 4E 20 27 51 |OOP WORDT EEN 'Q| 000011A0: 27 20 4C 4F 4F 50 00 C9 19 EC 04 99 22 11 20 56 |' LOOP......". V| 000011B0: 4F 4C 4C 45 44 49 47 20 41 46 47 45 4D 41 41 4B |OLLEDIG AFGEMAAK| 000011C0: 54 2E 22 3A 8D 31 37 36 30 00 0A 1A F6 04 99 22 |T.":.1760......"| 000011D0: 11 11 11 11 11 11 11 11 13 11 11 11 11 11 11 11 |................| 000011E0: 11 11 1F 20 48 45 54 20 49 53 20 56 41 4E 20 47 |... HET IS VAN G| 000011F0: 52 4F 4F 54 53 54 20 42 45 4C 41 4E 47 2C 20 44 |ROOTST BELANG, D| 00001200: 41 54 20 44 45 20 4C 4F 4F 50 00 37 1A 00 05 99 |AT DE LOOP.7....| 00001210: 22 11 20 49 4E 20 44 45 20 41 4E 44 45 52 45 20 |". IN DE ANDERE | 00001220: 45 45 4E 20 27 4E 45 58 54 20 56 49 4E 44 20 4D |EEN 'NEXT VIND M| 00001230: 45 54 20 5A 49 4A 4E 00 63 1A 0A 05 99 22 11 20 |ET ZIJN.c....". | 00001240: 45 49 47 45 4E 20 27 54 45 4C 56 41 52 49 41 42 |EIGEN 'TELVARIAB| 00001250: 45 4C 45 27 20 44 41 41 52 20 45 52 20 41 4E 44 |ELE' DAAR ER AND| 00001260: 45 52 53 00 8D 1A 14 05 99 22 11 20 47 45 47 45 |ERS......". GEGE| 00001270: 56 45 4E 53 20 56 45 52 4C 4F 52 45 4E 20 47 41 |VENS VERLOREN GA| 00001280: 41 4E 2C 20 4F 4D 20 44 41 54 20 44 45 00 C4 1A |AN, OM DAT DE...| 00001290: 1E 05 99 22 11 20 4C 4F 4F 50 27 53 20 4E 49 45 |...". LOOP'S NIE| 000012A0: 54 20 56 4F 4C 4C 45 44 49 47 20 55 49 54 47 45 |T VOLLEDIG UITGE| 000012B0: 56 4F 45 52 44 20 57 4F 52 44 45 4E 2E 22 3A 8D |VOERD WORDEN.":.| 000012C0: 31 37 36 30 00 CE 1A 28 05 8D 31 36 39 30 00 FD |1760...(..1690..| 000012D0: 1A 32 05 99 22 93 90 20 57 49 4C 20 4A 45 20 44 |.2..".. WIL JE D| 000012E0: 49 54 20 4C 41 41 54 53 54 45 20 4E 4F 47 20 45 |IT LAATSTE NOG E| 000012F0: 45 4E 53 20 5A 49 45 4E 20 20 4A 2F 4E 00 11 1B |ENS ZIEN J/N...| 00001300: 3C 05 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 33 34 |<..Q$:.Q$."".134| 00001310: 30 00 24 1B 46 05 8B 51 24 B2 C7 28 31 33 29 89 |0.$.F..Q$..(13).| 00001320: 31 33 34 30 00 35 1B 50 05 8B 51 24 B2 22 4A 22 |1340.5.P..Q$."J"| 00001330: A7 31 30 30 30 00 4E 1B 5A 05 99 A3 31 35 29 22 |.1000.N.Z...15)"| 00001340: 93 1F 12 53 55 42 52 4F 55 54 49 4E 45 53 00 7A |...SUBROUTINES.z| 00001350: 1B 64 05 99 22 11 11 20 48 45 54 20 4B 4F 4D 54 |.d..".. HET KOMT| 00001360: 20 56 4F 4F 52 20 44 41 54 20 49 4E 20 45 45 4E | VOOR DAT IN EEN| 00001370: 20 50 52 4F 47 52 41 4D 4D 41 00 A9 1B 6E 05 99 | PROGRAMMA...n..| 00001380: 22 11 20 56 41 4B 45 52 20 45 45 4E 20 5A 45 4C |". VAKER EEN ZEL| 00001390: 46 44 45 20 52 4F 55 54 49 4E 45 20 48 45 52 48 |FDE ROUTINE HERH| 000013A0: 41 41 4C 44 20 4D 4F 45 54 00 D5 1B 78 05 99 22 |AALD MOET...x.."| 000013B0: 11 20 57 4F 52 44 45 4E 2E 20 5A 4F 27 4E 20 53 |. WORDEN. ZO'N S| 000013C0: 54 55 4B 4A 45 20 50 4C 41 41 54 53 45 4E 20 57 |TUKJE PLAATSEN W| 000013D0: 45 20 42 56 2E 00 04 1C 82 05 99 22 11 20 41 41 |E BV.......". AA| 000013E0: 4E 20 27 54 20 45 49 4E 44 20 56 41 4E 20 27 54 |N 'T EIND VAN 'T| 000013F0: 20 50 52 4F 47 52 41 4D 4D 41 20 45 4E 20 4E 4F | PROGRAMMA EN NO| 00001400: 45 4D 45 4E 00 30 1C 8C 05 99 22 11 20 57 45 20 |EMEN.0....". WE | 00001410: 27 53 55 42 52 4F 55 54 49 4E 45 27 3B 20 5A 45 |'SUBROUTINE'; ZE| 00001420: 20 4B 41 4E 20 5A 4F 20 56 41 41 4B 20 41 4C 53 | KAN ZO VAAK ALS| 00001430: 00 5E 1C 96 05 99 22 11 20 4E 4F 44 49 47 20 57 |.^....". NODIG W| 00001440: 4F 52 44 45 4E 20 41 41 4E 47 45 53 50 52 4F 4B |ORDEN AANGESPROK| 00001450: 45 4E 20 4D 45 54 20 27 47 4F 53 55 42 27 00 91 |EN MET 'GOSUB'..| 00001460: 1C A0 05 99 22 11 20 50 4C 55 53 20 27 54 20 52 |....". PLUS 'T R| 00001470: 45 47 45 4C 4E 55 4D 4D 45 52 20 57 41 41 52 20 |EGELNUMMER WAAR | 00001480: 5A 45 20 42 45 47 49 4E 54 2E 22 3A 8D 31 37 36 |ZE BEGINT.":.176| 00001490: 30 00 C2 1C AA 05 99 22 93 1C 20 48 45 54 20 4C |0......".. HET L| 000014A0: 41 41 54 53 54 45 20 43 4F 4D 4D 41 4E 44 4F 20 |AATSTE COMMANDO | 000014B0: 56 41 4E 20 45 45 4E 20 53 55 42 52 4F 55 54 49 |VAN EEN SUBROUTI| 000014C0: 4E 45 00 EE 1C B4 05 99 22 20 49 53 20 41 4C 54 |NE......" IS ALT| 000014D0: 49 4A 44 20 27 52 45 54 55 52 4E 27 2C 20 57 41 |IJD 'RETURN', WA| 000014E0: 41 52 44 4F 4F 52 20 49 4B 20 57 45 45 54 00 29 |ARDOOR IK WEET.)| 000014F0: 1D BE 05 99 22 11 20 44 41 54 20 49 4B 20 54 45 |....". DAT IK TE| 00001500: 52 55 47 20 4D 4F 45 54 20 4E 41 41 52 20 57 41 |RUG MOET NAAR WA| 00001510: 41 52 20 49 4B 20 57 41 53 20 20 20 20 20 20 11 |AR IK WAS .| 00001520: 47 45 42 4C 45 56 45 4E 2E 00 57 1D C8 05 99 22 |GEBLEVEN..W...."| 00001530: 11 05 20 47 45 45 46 20 4E 4F 4F 49 54 20 48 45 |.. GEEF NOOIT HE| 00001540: 54 20 27 43 4C 52 27 20 43 4F 4D 4D 41 4E 44 4F |T 'CLR' COMMANDO| 00001550: 20 49 4E 20 45 45 4E 00 86 1D D2 05 99 22 11 20 | IN EEN......". | 00001560: 53 55 42 52 4F 55 54 49 4E 45 2C 20 57 41 4E 54 |SUBROUTINE, WANT| 00001570: 20 44 41 4E 20 57 45 45 54 20 49 4B 20 4E 49 45 | DAN WEET IK NIE| 00001580: 54 20 4D 45 45 52 00 AE 1D DC 05 99 22 11 20 57 |T MEER......". W| 00001590: 41 41 52 20 49 4B 20 56 41 4E 44 41 41 4E 20 4B |AAR IK VANDAAN K| 000015A0: 57 41 4D 20 45 4E 20 5A 45 47 20 49 4B 3A 00 DB |WAM EN ZEG IK:..| 000015B0: 1D E6 05 99 22 11 90 20 27 52 45 54 55 52 4E 20 |....".. 'RETURN | 000015C0: 57 49 54 48 4F 55 54 20 47 4F 53 55 42 27 20 45 |WITHOUT GOSUB' E| 000015D0: 52 52 4F 52 22 3A 8D 31 37 36 30 00 0B 1E F0 05 |RROR":.1760.....| 000015E0: 99 22 93 95 20 56 4F 4F 52 57 41 41 52 44 45 4E |.".. VOORWAARDEN| 000015F0: 20 49 4E 20 45 45 4E 20 27 49 46 2D 54 48 45 4E | IN EEN 'IF-THEN| 00001600: 27 20 53 54 41 54 45 4D 45 4E 54 00 3D 1E FA 05 |' STATEMENT.=...| 00001610: 99 22 11 11 20 20 49 46 20 41 3C 35 20 05 42 45 |.".. IF A<5 .BE| 00001620: 54 45 4B 45 4E 54 20 41 4C 53 20 41 20 4B 4C 45 |TEKENT ALS A KLE| 00001630: 49 4E 45 52 20 44 41 4E 20 35 20 49 53 00 6E 1E |INER DAN 5 IS.n.| 00001640: 04 06 99 22 11 95 20 20 49 46 20 51 3E 31 20 05 |...".. IF Q>1 .| 00001650: 42 45 54 45 4B 45 4E 54 20 41 4C 53 20 51 20 47 |BETEKENT ALS Q G| 00001660: 52 4F 54 45 52 20 44 41 4E 20 31 20 49 53 00 9E |ROTER DAN 1 IS..| 00001670: 1E 0E 06 99 22 11 11 95 20 20 3C 3D 20 05 57 49 |...."... <= .WI| 00001680: 4C 20 5A 45 47 47 45 4E 20 47 45 4C 49 4A 4B 20 |L ZEGGEN GELIJK | 00001690: 4F 46 20 4B 4C 45 49 4E 45 52 20 44 41 4E 00 CD |OF KLEINER DAN..| 000016A0: 1E 18 06 99 22 11 11 95 20 20 3D 3E 20 05 57 49 |...."... => .WI| 000016B0: 4C 20 5A 45 47 47 45 4E 20 47 45 4C 49 4A 4B 20 |L ZEGGEN GELIJK | 000016C0: 4F 46 20 47 52 4F 54 45 52 20 44 41 4E 00 FE 1E |OF GROTER DAN...| 000016D0: 22 06 99 22 11 11 95 20 20 3C 3E 20 05 57 49 4C |".."... <> .WIL| 000016E0: 20 5A 45 47 47 45 4E 20 4E 49 45 54 20 47 45 4C | ZEGGEN NIET GEL| 000016F0: 49 4A 4B 20 41 41 4E 22 3A 8D 31 37 36 30 00 3E |IJK AAN":.1760.>| 00001700: 1F 2C 06 99 22 93 1F 20 12 4E 4F 54 92 20 20 4D |.,..".. .NOT. M| 00001710: 45 54 20 45 45 4E 20 56 41 52 49 41 42 45 4C 45 |ET EEN VARIABELE| 00001720: 20 57 49 4C 20 5A 45 47 45 4E 20 49 4E 3A 20 20 | WIL ZEGEN IN: | 00001730: 20 20 20 20 20 20 20 20 20 20 20 C5 C5 C5 00 5E | ....^| 00001740: 1F 36 06 99 22 11 05 20 20 20 20 31 30 20 49 46 |.6..".. 10 IF| 00001750: 20 4E 4F 54 20 58 20 54 48 45 4E 20 32 30 00 8C | NOT X THEN 20..| 00001760: 1F 40 06 99 22 11 11 1F 20 41 4C 53 20 58 20 49 |.@.."... ALS X I| 00001770: 53 20 4E 49 45 54 20 47 52 4F 54 45 52 20 44 41 |S NIET GROTER DA| 00001780: 20 4E 55 4C 20 49 53 20 44 41 4E 3A 00 AC 1F 4A | NUL IS DAN:...J| 00001790: 06 99 22 11 20 47 41 20 4E 41 41 52 20 52 45 47 |..". GA NAAR REG| 000017A0: 45 4C 20 32 30 22 3A 8D 31 37 36 30 00 DD 1F 54 |EL 20":.1760...T| 000017B0: 06 99 22 93 90 20 57 49 4C 20 4A 45 20 44 45 20 |..".. WIL JE DE | 000017C0: 48 45 4C 45 20 4C 45 53 20 4E 4F 47 20 45 45 4E |HELE LES NOG EEN| 000017D0: 20 4B 45 45 52 4A 45 20 4A 2F 4E 20 3F 00 F1 1F | KEERJE J/N ?...| 000017E0: 5E 06 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 36 33 |^..Q$:.Q$."".163| 000017F0: 30 00 04 20 68 06 8B 51 24 B2 C7 28 31 33 29 89 |0.. h..Q$..(13).| 00001800: 31 36 33 30 00 29 20 72 06 99 22 93 90 20 49 4B |1630.) r..".. IK| 00001810: 20 4C 41 41 44 20 4E 55 20 44 45 20 56 4F 4C 47 | LAAD NU DE VOLG| 00001820: 45 4E 44 45 20 4C 45 53 2C 00 39 20 7C 06 99 22 |ENDE LES,.9 |.."| 00001830: 11 20 44 45 45 4C 20 37 2E 00 4F 20 86 06 97 31 |. DEEL 7..O ...1| 00001840: 39 38 2C 31 3A 97 36 33 31 2C 31 33 31 3A 80 00 |98,1:.631,131:..| 00001850: 89 20 9A 06 99 22 13 11 11 11 11 11 11 11 11 11 |. ..."..........| 00001860: 1C 20 49 4E 20 44 49 54 20 56 4F 4F 52 42 45 45 |. IN DIT VOORBEE| 00001870: 4C 44 20 44 4F 45 54 20 44 45 20 27 50 27 20 4C |LD DOET DE 'P' L| 00001880: 4F 4F 50 20 20 20 20 20 22 00 B8 20 A4 06 99 22 |OOP ".. ..."| 00001890: 11 20 38 20 53 54 41 50 50 45 4E 20 28 30 20 54 |. 8 STAPPEN (0 T| 000018A0: 4F 54 20 37 20 5A 49 4A 4E 20 38 20 43 49 4A 46 |OT 7 ZIJN 8 CIJF| 000018B0: 45 52 53 21 29 20 20 22 00 E5 20 AE 06 99 22 11 |ERS!) ".. ...".| 000018C0: 20 44 45 20 51 20 4C 4F 4F 50 20 44 4F 45 54 20 | DE Q LOOP DOET | 000018D0: 34 20 53 54 41 50 50 45 4E 20 5A 4F 44 41 54 20 |4 STAPPEN ZODAT | 000018E0: 44 45 20 20 22 00 15 21 B8 06 99 22 11 20 4D 41 |DE "..!...". MA| 000018F0: 54 52 49 58 20 45 45 4E 20 49 4E 48 4F 55 44 20 |TRIX EEN INHOUD | 00001900: 48 45 45 46 54 20 56 41 4E 20 34 2A 38 3D 33 32 |HEEFT VAN 4*8=32| 00001910: 20 20 20 20 22 00 46 21 C2 06 99 22 11 20 4C 4F | ".F!...". LO| 00001920: 4B 41 54 49 45 53 2E 20 44 45 5A 45 20 55 49 54 |KATIES. DEZE UIT| 00001930: 4B 4F 4D 53 54 20 4D 41 47 20 4E 4F 4F 49 54 20 |KOMST MAG NOOIT | 00001940: 20 20 20 20 20 22 00 73 21 CC 06 99 22 20 47 52 | ".s!..." GR| 00001950: 4F 54 45 52 20 44 41 4E 20 32 35 36 20 57 4F 52 |OTER DAN 256 WOR| 00001960: 44 45 4E 20 4F 4D 44 41 54 20 4A 45 20 41 4E 44 |DEN OMDAT JE AND| 00001970: 45 52 53 00 AB 21 D6 06 99 22 11 20 42 55 49 54 |ERS..!...". BUIT| 00001980: 45 4E 20 44 45 20 47 52 45 4E 5A 45 4E 20 56 41 |EN DE GRENZEN VA| 00001990: 4E 20 4D 49 4A 4E 20 42 45 52 45 49 4B 20 4B 4F |N MIJN BEREIK KO| 000019A0: 4D 54 22 3A 8D 31 37 36 30 3A 8E 00 F4 21 E0 06 |MT":.1760:...!..| 000019B0: 97 51 31 2C 30 3A 99 22 9E 13 11 11 11 11 11 11 |.Q1,0:."........| 000019C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000019D0: 20 20 20 20 20 20 11 12 56 4F 4F 52 20 56 45 52 | ..VOOR VER| 000019E0: 44 45 52 3A 20 44 52 55 4B 20 4F 50 20 27 53 50 |DER: DRUK OP 'SP| 000019F0: 41 43 45 27 00 08 22 EA 06 A1 41 24 3A 8B 41 24 |ACE'.."...A$:.A$| 00001A00: B2 22 22 A7 31 37 37 30 00 0E 22 F4 06 8E 00 22 |."".1770.."...."| 00001A10: 22 FE 06 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 36 |"...Q$:.Q$."".16| 00001A20: 33 30 00 00 00 FF 4E |30....N |
....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).C.^..".. HOGER DAN 255 KAN NIET; ER
PASEN MAAR.M.H..". 256 IN EEN ARRAY (VA
N 0 TOT 255)....R..".. ZO WORDT RUIMTE G
ERESERVEERD VOOR 256...|..". GETALLEN IN
EEN ARRAY..E....1760......".. STRINGS K
UNNEN OOK IN EEN ARRAY STAAN.3....". OM
MET 'SUBSCRIPT' TE VERWERKEN":.". IN FOR
-NEXT LOOPS......"... HIERVOOR KUNEN WE
DE .READ. AND .DATA. . COMMANDO'S GE
BRUIKEN......."..'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:.R.V
.."..10 DIM A$(15).I...."20 FOR X=0 TO 1
5.}...."30 READ A$(X)......"50 NEXT X...
..."60 FOR X=0 TO 15......"70 ?A$(X);.E.
..."80 NEXT X......"90 DATA KAT,MAT,SLOT
,KIP,FRANS,PAAL...&.."100 DATA WAS,VIS,R
IJK,MIS,HEER,DAME.<.0.."110 DATA APPEL,R
OVER,DOL,HAM.I.:..".. DE STRINGS IN DATA
STATMENTS HOEVEN...D..". NIET TUSSEN AA
NHALINSTEKENS, BEHALVE.B.N..". ALS ER OO
K LEESTEKENS TUSSEN STAAN....X..".. DE W
OORDEN MOETEN WEL GESCHEIDEN...B..". WOR
DEN DOOR KOMMA'S!":.1760.?.L..".. DAT PR
OGRAMMA LEEST DATA VAN DE DATA-.D.V..".
STATMENTS, ELK OP Z'N BEURT.......".. ME
T DE EESTE KEER LEZEN 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.......".. DE PUNT-KOMMA VOORKOMT
DAT IK STEEDS.K....". NAAR EEN NIEUWE R
EGEL GA, ZODAT ALLE......". WOORDEN OP E
EN RIJTJE ACHTER ELKAAR . KOMEN TE ST
AAN.......Q1,0:."... .WIL JE DIT NOG EEN
S DOORNEMEN ?.P.F..Q$:.Q$."".710...P..Q$
."J".460.".Z..".. OM TE VOORKOMEN, DAT I
K ZEG:":.". .'OUT OF DATA ERROR'.S....
".. MOET JE ZORGEN, DAT ER VOLDOENDE 'DA
TA'......" STATEMENTS ZIJN, OF EEN SIGNA
AL OPNEMEN......" DAT IN HET PROGRAMMA M
IJ WAARSCHUWD DAT.R...." ER GEEN DATA ME
ER KOMEN :......".. 10 FOR N=0 TO 3.&.
..." 15 READ B$:IF B$="G(34)"-999"G(34
)"THEN RESTORE.:. .." 20 PRINTB$.Z.*..
" 30 DATA APPLE,CAT,-999...4..".. ALS
IK DE 'VLAG' '-999' LEES (B$=-999)...>..
". WORDEN DATA 'RESTORED' EN KUNNEN WEER
...H..". OPNIEUW GELEZEN WORDEN.":.1760.
..R..".. 'FOR-NEXT' LOOPS TELLEN NORMAAL
EEN.<.\..". TEGELIJK OP PER OPDRACHT SE
RIE, MAAR 'T.I.F.." IS MOGELIJK DAAR VER
ANDERIN IN AAN TE...P..". BRENGEN MET HE
T ..STEP. .COMMANDO....Z.."... 20 FO
R B=0 TO 50 STEP 2.O...." 30 NEXT B.
....."... ZO WORDT ER TELKENS, PER 'LOOP
' 2 .BIJ B OPGETELD..=....".. DE E
ERSTE KEER IS B GELIJK AAN 0,......". MA
AR IN DE TWEEDE RONDEN WORDT B: .2
-4-6-8 ENZ.":.1760......".. TERUG TELLEN
KAN OOK DOOR EENVOUDIG......". EEN MINT
EKEN TE PLAATSEN ACHTER STEP:......"...
FOR B=10 TO 0 STEP -2.2.J.."... B ST
ART BIJ 10 EN IN DE VOLGENDE RONDE.A.T..
". WORDT B 8; ENZ. TOT B GELIJK IS AAN 0
.......". MEN NOEMT DIT 'REVERSE STEPPIN
G'.":.1760......".. EEN ANDER SOOR ARRAY
IS HET......". 2-DIMENSIONALE ARRAY OFW
EL .MATRIX........".. HET DIM-COMMANDO I
S ALTIJD NODIG EN ER.5....". KOMMA TUSSE
N: DIM P(2,2).\....".. OP DEZE WIJZE ZIE
IK P(2,2):..L....". ..........$.."0.5.9
.0. P(0,0)= :P(0,1)= :P(0,2)=......" .
.......Q.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.T.J..".. HET EERSTE CIJ
FER GEEFT DE RIJ AAN...T..". EN HET TWEE
DE CIJFER DE KOLOM.":.1760...~..".. OM E
EN MATRIX TE VORMEN IS ER 'N.T....". TEC
HNIEK GENAAMD 'NESTED LOOPS'......". DWZ
. EEN LOOP UITGEVOERD IN EEN ANDERE:...
...."... 10 FOR P=0 TO 7.(...."..A....".
. 20 FOR Q=0 TO 3.J...."...].D..".. 30 N
EXT Q.E.N.."..X.X..".. 40 NEXT P......".
.. IN ELKE 'P' LOOP WORDT EEN 'Q' LOOP.I
....". VOLLEDIG AFGEMAAKT.":.1760......"
................... HET IS VAN GROOTST B
ELANG, DAT DE LOOP.7....". IN DE ANDERE
EEN 'NEXT VIND MET ZIJN.C....". EIGEN 'T
ELVARIABELE' DAAR ER ANDERS......". GEGE
VENS VERLOREN GAAN, OM DAT DE.D....". LO
OP'S NIET VOLLEDIG UITGEVOERD WORDEN.":.
1760.N.(..1690...2..".. WIL JE DIT LAATS
TE NOG EENS ZIEN J/N...<..Q$:.Q$."".134
0.$.F..Q$.G(13).1340.5.P..Q$."J".1000.N.
Z...15)"...SUBROUTINES.Z.D..".. HET KOMT
VOOR DAT IN EEN PROGRAMMA...N..". VAKER
EEN ZELFDE ROUTINE HERHAALD MOET.U.X.."
. WORDEN. ZO'N STUKJE PLAATSEN WE BV....
...". AAN 'T EIND VAN 'T PROGRAMMA EN NO
EMEN.0....". WE 'SUBROUTINE'; ZE KAN ZO
VAAK ALS.^....". NODIG WORDEN AANGESPROK
EN MET 'GOSUB'... ..". PLUS 'T REGELNUMM
ER WAAR ZE BEGINT.":.1760.B....".. HET L
AATSTE COMMANDO VAN EEN SUBROUTINE......
" IS ALTIJD 'RETURN', WAARDOOR IK WEET.)
....". DAT IK TERUG MOET NAAR WAAR IK WA
S .GEBLEVEN..W.H..".. GEEF NOOIT HE
T 'CLR' COMMANDO IN EEN...R..". SUBROUTI
NE, WANT DAN WEET IK NIET MEER......". W
AAR IK VANDAAN KWAM EN ZEG IK:......"..
'RETURN WITHOUT GOSUB' ERROR":.1760.....
.".. VOORWAARDEN IN EEN 'IF-THEN' STATEM
ENT.=....".. IF A<5 .BETEKENT ALS A KLE
INER DAN 5 IS.N....".. IF Q>1 .BETEKENT
ALS Q GROTER DAN 1 IS......"... <= .WI
L ZEGGEN GELIJK OF KLEINER DAN.M...."...
=> .WIL ZEGGEN GELIJK OF GROTER DAN...
".."... <> .WIL ZEGGEN NIET GELIJK AAN"
:.1760.>.,..".. .NOT. MET EEN VARIABELE
WIL ZEGEN IN: EEE.^.6.."..
10 IF NOT X THEN 20...@.."... ALS X I
S NIET GROTER DA NUL IS DAN:...J..". GA
NAAR REGEL 20":.1760...T..".. WIL JE DE
HELE LES NOG EEN KEERJE J/N ?...^..Q$:.Q
$."".1630.. H..Q$.G(13).1630.) R..".. IK
LAAD NU DE VOLGENDE LES,.9 |..". DEEL 7
..O ...198,1:.631,131:... ..."..........
. IN DIT VOORBEELD DOET DE 'P' LOOP
".. ...". 8 STAPPEN (0 TOT 7 ZIJN 8 CIJF
ERS!) ".. ...". DE Q LOOP DOET 4 STAPPE
N ZODAT DE "..!...". MATRIX EEN INHOUD
HEEFT VAN 4*8=32 ".F!B..". LOKATIES.
DEZE UITKOMST MAG NOOIT ".S!L.." GR
OTER DAN 256 WORDEN OMDAT JE ANDERS..!V.
.". BUITEN DE GRENZEN VAN MIJN BEREIK KO
MT":.1760:...!...Q1,0:."................
........ ..VOOR VERDER: DRUK OP 'SP
ACE'.."...A$:.A$."".1770.."....""...Q$:.
Q$."".1630....N
> CLICK IMAGE PREVIEW FOR FULL MODAL