NED BASIC LES 6

00000000: 01 04 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 54 20 86 06 93 22  |. DEEL 7..T ..."|
00001840: 4E 45 44 20 42 41 53 49  43 20 4C 45 53 20 37 22  |NED BASIC LES 7"|
00001850: 2C 38 3A 80 00 8E 20 9A  06 99 22 13 11 11 11 11  |,8:... ...".....|
00001860: 11 11 11 11 11 1C 20 49  4E 20 44 49 54 20 56 4F  |...... IN DIT VO|
00001870: 4F 52 42 45 45 4C 44 20  44 4F 45 54 20 44 45 20  |ORBEELD DOET DE |
00001880: 27 50 27 20 4C 4F 4F 50  20 20 20 20 20 22 00 BD  |'P' LOOP     "..|
00001890: 20 A4 06 99 22 11 20 38  20 53 54 41 50 50 45 4E  | ...". 8 STAPPEN|
000018A0: 20 28 30 20 54 4F 54 20  37 20 5A 49 4A 4E 20 38  | (0 TOT 7 ZIJN 8|
000018B0: 20 43 49 4A 46 45 52 53  21 29 20 20 22 00 EA 20  | CIJFERS!)  ".. |
000018C0: AE 06 99 22 11 20 44 45  20 51 20 4C 4F 4F 50 20  |...". DE Q LOOP |
000018D0: 44 4F 45 54 20 34 20 53  54 41 50 50 45 4E 20 5A  |DOET 4 STAPPEN Z|
000018E0: 4F 44 41 54 20 44 45 20  20 22 00 1A 21 B8 06 99  |ODAT DE  "..!...|
000018F0: 22 11 20 4D 41 54 52 49  58 20 45 45 4E 20 49 4E  |". MATRIX EEN IN|
00001900: 48 4F 55 44 20 48 45 45  46 54 20 56 41 4E 20 34  |HOUD HEEFT VAN 4|
00001910: 2A 38 3D 33 32 20 20 20  20 22 00 4B 21 C2 06 99  |*8=32    ".K!...|
00001920: 22 11 20 4C 4F 4B 41 54  49 45 53 2E 20 44 45 5A  |". LOKATIES. DEZ|
00001930: 45 20 55 49 54 4B 4F 4D  53 54 20 4D 41 47 20 4E  |E UITKOMST MAG N|
00001940: 4F 4F 49 54 20 20 20 20  20 20 22 00 78 21 CC 06  |OOIT      ".x!..|
00001950: 99 22 20 47 52 4F 54 45  52 20 44 41 4E 20 32 35  |." GROTER DAN 25|
00001960: 36 20 57 4F 52 44 45 4E  20 4F 4D 44 41 54 20 4A  |6 WORDEN OMDAT J|
00001970: 45 20 41 4E 44 45 52 53  00 B0 21 D6 06 99 22 11  |E ANDERS..!...".|
00001980: 20 42 55 49 54 45 4E 20  44 45 20 47 52 45 4E 5A  | BUITEN DE GRENZ|
00001990: 45 4E 20 56 41 4E 20 4D  49 4A 4E 20 42 45 52 45  |EN VAN MIJN BERE|
000019A0: 49 4B 20 4B 4F 4D 54 22  3A 8D 31 37 36 30 3A 8E  |IK KOMT":.1760:.|
000019B0: 00 F9 21 E0 06 97 51 31  2C 30 3A 99 22 9E 13 11  |..!...Q1,0:."...|
000019C0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
000019D0: 11 11 11 11 11 20 20 20  20 20 20 11 12 56 4F 4F  |.....      ..VOO|
000019E0: 52 20 56 45 52 44 45 52  3A 20 44 52 55 4B 20 4F  |R VERDER: DRUK O|
000019F0: 50 20 27 53 50 41 43 45  27 00 0D 22 EA 06 A1 41  |P 'SPACE'.."...A|
00001A00: 24 3A 8B 41 24 B2 22 22  A7 31 37 37 30 00 13 22  |$:.A$."".1770.."|
00001A10: F4 06 8E 00 27 22 FE 06  A1 51 24 3A 8B 51 24 B2  |....'"...Q$:.Q$.|
00001A20: 22 22 A7 31 36 33 30 00  00 00                    |"".1630...      |

....D..G(142).*.N.Q1.198:.53280,5:.53281
,5.N.X.."..     ==='FOR-NEXT' LOOPS===.P
...."     ======================......".
. COMPUTERS WORDEN VAAK GEBRUIKT OM DIE.
M....". DINGEN TE DOEN DIE VOOR ONS VERV
ELEND... ..". EN EENTONIG ZIJN OM TE MOE
TEN DOEN..$...."... DIT KAN MET EEN COMP
UTER MET EEN.X....". REPETEER COMMANDO; 
DE FOR-NEXT LOOP.":.1760.R....".. 20 FOR
 X=1 TO 10...H.." 30  A(X)=10*X...R.." 4
0 NEXT X.F...."... IN REGEL 20 ZIE IK, D
AT IK IETS VAN......". EEN TOT TIEN MOET
 HERHALEN EN IN REGEL.2....". 40 ZIE IK 
PAS, DAT 'T IETS IS          . UITGEVOER
D..B....". IN REGEL 30 ZIE IK WAT ER HER
HAALDELIJK......" MOET GEBEUREN: MAAK A(
IN RANGVOLGORDE)......". GELIJK AAN 10*D
E RANGVOLGORDE.......".. ALS IK DAT VAN 
EEN TOT TIEN KEER HEB..."..". GEDAAN, DA
N STOP IK ER MEE.":.1760.@.,..".. DIE A(
X) IS EEN Z.G. 'ARRAY' VARIABELE.O.6..".
. HET GETAL 'X' MAG NIET HOGER ZIJN DAN.
..@..". 10 ANDERS ZIE JE:":.".   ?BAD SU
BSCRIPT ERROR.R.J..".. JE KUNT WEL HOGER
, MAAR DAN MOET JE...T..". 'DIMENSIONERE
N' MET HET 'DIM' COMMANDO:":.".   DIM A(
255).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
..T ..."NED BASIC LES 7",8:... ...".....
...... IN DIT VOORBEELD DOET DE 'P' LOOP
     ".. ...". 8 STAPPEN (0 TOT 7 ZIJN 8
 CIJFERS!)  ".. ...". DE Q LOOP DOET 4 S
TAPPEN ZODAT DE  "..!...". MATRIX EEN IN
HOUD HEEFT VAN 4*8=32    ".K!B..". LOKAT
IES. DEZE UITKOMST MAG NOOIT      ".X!L.
." GROTER DAN 256 WORDEN OMDAT JE ANDERS
..!V..". BUITEN DE GRENZEN VAN MIJN BERE
IK KOMT":.1760:...!...Q1,0:."...........
.............      ..VOOR VERDER: DRUK O
P 'SPACE'.."...A$:.A$."".1770.."....'"..
.Q$:.Q$."".1630...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL