BASIC 7
FILE INFORMATION
FILENAME(S): BASIC 7
FILE TYPE(S): PRG
FILE SIZE: 7.9K
FIRST SEEN: 2025-12-01 02:26:35
APPEARS ON: 1 disk(s)
FILE HASH
fd32ca8d3252faee9608f90a46d222703dbce41a0a733e918f0aa341ace037c0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HUUB GILLISSEN | BASIC 7 | PRG | hedning, shine | 12 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 64 00 97 35 33 32 38 31 2C 30 3A 97 |....d..53281,0:.| 00000010: 35 33 32 38 30 2C 30 00 28 08 6E 00 99 C7 28 31 |53280,0.(.n...(1| 00000020: 34 32 29 3A 99 22 1E 22 00 35 08 78 00 5A 24 B2 |42):.".".5.x.Z$.| 00000030: C7 28 33 34 29 00 67 08 82 00 99 22 93 11 1D 1D |.(34).g...."....| 00000040: 1D 1D 1D 1D 1D A4 A4 A4 A4 A4 A4 A4 A4 A4 22 3A |..............":| 00000050: 99 22 1D 1D 1D 1D 1D 1D 1D 12 42 41 53 49 43 20 |."........BASIC | 00000060: 32 2E 37 92 11 11 22 00 8C 08 8C 00 99 22 11 1D |2.7..."......"..| 00000070: 1D 1D 1D 1D 1D 1D 41 41 4E 47 45 50 41 53 54 20 |......AANGEPAST | 00000080: 56 4F 4F 52 20 43 2D 36 34 20 20 11 00 AF 08 96 |VOOR C-64 .....| 00000090: 00 99 22 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D |..".............| 000000A0: 1D 1D 44 4F 4F 52 20 22 3B 3A 8D 31 38 39 30 00 |..DOOR ";:.1890.| 000000B0: BF 08 A0 00 81 49 B2 31 A4 37 30 30 30 3A 82 00 |.....I.1.7000:..| 000000C0: CD 08 AA 00 49 B2 31 3A 8D 31 38 36 30 00 F3 08 |....I.1:.1860...| 000000D0: B4 00 99 22 11 11 11 11 11 11 22 A3 31 33 29 22 |..."......".13)"| 000000E0: 4C 45 53 20 37 22 3A 99 A3 31 33 29 22 A3 A3 A3 |LES 7":..13)"...| 000000F0: A3 A3 22 00 0B 09 BE 00 99 22 11 11 22 A3 31 30 |.."......"..".10| 00000100: 29 22 31 2E 20 4C 55 53 53 45 4E 00 2C 09 C8 00 |)"1. LUSSEN.,...| 00000110: 99 A3 31 30 29 22 32 2E 20 46 4F 52 2F 4E 45 58 |..10)"2. FOR/NEX| 00000120: 54 2D 49 4E 53 54 52 55 4B 54 49 45 00 48 09 D2 |T-INSTRUKTIE.H..| 00000130: 00 99 A3 31 30 29 22 33 2E 20 52 45 4D 2D 49 4E |...10)"3. REM-IN| 00000140: 53 54 52 55 4B 54 49 45 00 65 09 DC 00 99 A3 31 |STRUKTIE.e.....1| 00000150: 30 29 22 34 2E 20 48 55 49 53 57 45 52 4B 2D 4F |0)"4. HUISWERK-O| 00000160: 50 47 41 56 45 00 77 09 E6 00 8D 31 38 30 30 3A |PGAVE.w....1800:| 00000170: 8B 46 4C A7 31 37 30 00 85 09 F0 00 49 B2 32 3A |.FL.170.....I.2:| 00000180: 8D 31 38 36 30 00 A8 09 FA 00 99 22 11 22 A3 31 |.1860......".".1| 00000190: 35 29 22 4C 55 53 53 45 4E 22 3A 99 A3 31 35 29 |5)"LUSSEN":..15)| 000001A0: 22 A3 A3 A3 A3 A3 A3 22 00 D1 09 04 01 99 22 11 |"......"......".| 000001B0: 45 45 4E 20 4B 52 41 43 48 54 49 47 20 4F 4E 44 |EEN KRACHTIG OND| 000001C0: 45 52 44 45 45 4C 20 56 41 4E 20 49 45 44 45 52 |ERDEEL VAN IEDER| 000001D0: 45 00 F8 09 0E 01 99 22 43 4F 4D 50 55 54 45 52 |E......"COMPUTER| 000001E0: 20 49 53 20 5A 49 4A 4E 20 4D 4F 47 45 4C 49 4A | IS ZIJN MOGELIJ| 000001F0: 4B 48 45 49 44 20 4F 4D 00 20 0A 18 01 99 22 48 |KHEID OM. ...."H| 00000200: 45 52 48 41 41 4C 44 45 20 44 41 54 41 2D 4F 50 |ERHAALDE DATA-OP| 00000210: 44 52 41 43 48 54 45 4E 20 53 4E 45 4C 20 45 4E |DRACHTEN SNEL EN| 00000220: 00 50 0A 22 01 99 22 47 45 4D 41 4B 4B 45 4C 49 |.P.".."GEMAKKELI| 00000230: 4A 4B 20 55 49 54 20 54 45 20 56 4F 45 52 45 4E |JK UIT TE VOEREN| 00000240: 2E 22 3A 8D 31 38 30 30 3A 8B 46 4C A7 31 37 30 |.":.1800:.FL.170| 00000250: 00 5E 0A 2C 01 49 B2 33 3A 8D 31 38 36 30 00 84 |.^.,.I.3:.1860..| 00000260: 0A 36 01 99 22 11 45 45 4E 20 50 52 4F 47 52 41 |.6..".EEN PROGRA| 00000270: 4D 4D 41 20 4F 4D 20 56 45 52 53 43 48 49 4C 4C |MMA OM VERSCHILL| 00000280: 45 4E 44 45 00 AB 0A 40 01 99 22 53 41 4C 41 52 |ENDE...@.."SALAR| 00000290: 49 53 53 45 4E 20 54 45 20 42 45 52 45 4B 45 4E |ISSEN TE BEREKEN| 000002A0: 45 4E 20 4C 41 41 54 20 48 45 54 00 CA 0A 4A 01 |EN LAAT HET...J.| 000002B0: 99 22 47 45 42 52 55 49 4B 20 56 41 4E 20 4C 55 |."GEBRUIK VAN LU| 000002C0: 53 53 45 4E 20 5A 49 45 4E 3A 00 D4 0A 54 01 8D |SSEN ZIEN:...T..| 000002D0: 31 38 38 30 00 10 0B 5E 01 99 22 20 39 35 20 20 |1880...^.." 95 | 000002E0: 52 45 41 44 20 4E 24 2C 52 2C 48 22 3A 99 22 20 |READ N$,R,H":." | 000002F0: 31 30 30 20 49 46 20 4E 24 3D 22 5A 24 22 45 49 |100 IF N$="Z$"EI| 00000300: 4E 44 45 22 5A 24 22 20 54 48 45 4E 20 37 35 35 |NDE"Z$" THEN 755| 00000310: 00 58 0B 68 01 99 22 1D 31 31 30 20 50 52 49 4E |.X.h..".110 PRIN| 00000320: 54 20 22 5A 24 22 53 41 4C 41 52 49 53 20 56 4F |T "Z$"SALARIS VO| 00000330: 4F 52 20 22 5A 24 22 4E 24 22 5A 24 22 20 49 53 |OR "Z$"N$"Z$" IS| 00000340: 20 22 5A 24 22 52 2A 48 22 3A 99 22 20 31 31 35 | "Z$"R*H":." 115| 00000350: 20 47 4F 54 4F 20 39 35 00 9F 0B 72 01 99 22 20 | GOTO 95...r.." | 00000360: 31 32 30 20 44 41 54 41 20 22 5A 24 22 42 4F 42 |120 DATA "Z$"BOB| 00000370: 20 53 4D 49 54 22 5A 24 22 2C 20 33 2E 35 30 2C | SMIT"Z$", 3.50,| 00000380: 20 34 30 22 3A 99 22 20 31 32 35 20 44 41 54 41 | 40":." 125 DATA| 00000390: 20 22 5A 24 22 4A 4F 20 42 4F 4B 22 5A 24 3B 00 | "Z$"JO BOK"Z$;.| 000003A0: DC 0B 7C 01 99 22 20 2C 20 33 2E 37 35 2C 20 32 |..|.." , 3.75, 2| 000003B0: 30 22 3A 99 22 20 31 33 30 20 44 41 54 41 20 22 |0":." 130 DATA "| 000003C0: 5A 24 22 4A 41 4E 45 54 20 56 52 49 45 53 22 5A |Z$"JANET VRIES"Z| 000003D0: 24 22 2C 20 34 2E 30 30 2C 20 33 38 00 25 0C 86 |$", 4.00, 38.%..| 000003E0: 01 99 22 20 31 34 30 20 44 41 54 41 20 22 5A 24 |.." 140 DATA "Z$| 000003F0: 22 4A 41 4E 20 44 4F 45 22 5A 24 22 2C 20 34 2E |"JAN DOE"Z$", 4.| 00000400: 31 30 2C 20 34 30 22 3A 99 22 20 31 39 39 20 44 |10, 40":." 199 D| 00000410: 41 54 41 20 22 5A 24 22 45 49 4E 44 45 22 5A 24 |ATA "Z$"EINDE"Z$| 00000420: 22 2C 30 2C 30 00 35 0C 90 01 99 22 20 37 35 35 |",0,0.5...." 755| 00000430: 20 45 4E 44 22 00 3F 0C 9A 01 8D 31 38 38 30 00 | END".?....1880.| 00000440: 6D 0C A4 01 99 22 44 49 54 20 50 52 4F 47 52 41 |m...."DIT PROGRA| 00000450: 4D 4D 41 20 5A 41 4C 20 44 45 20 49 4E 53 54 52 |MMA ZAL DE INSTR| 00000460: 55 4B 54 49 45 53 20 39 35 20 54 4F 54 00 84 0C |UKTIES 95 TOT...| 00000470: AE 01 99 22 31 31 35 20 48 45 52 48 41 4C 45 4E |..."115 HERHALEN| 00000480: 2C 20 22 3B 00 A2 0C B8 01 99 22 54 4F 54 44 41 |, ";......"TOTDA| 00000490: 54 20 44 45 20 12 45 49 4E 44 45 92 20 45 4E 20 |T DE .EINDE. EN | 000004A0: 44 45 00 DE 0C C2 01 99 22 12 30 92 20 57 41 41 |DE......".0. WAA| 000004B0: 52 44 45 4E 20 49 4E 20 52 45 47 45 4C 20 31 39 |RDEN IN REGEL 19| 000004C0: 39 20 47 45 4C 45 5A 45 4E 20 5A 49 4A 4E 2E 22 |9 GELEZEN ZIJN."| 000004D0: 3A 8D 31 38 30 30 3A 8B 46 4C A7 32 34 30 00 EE |:.1800:.FL.240..| 000004E0: 0C CC 01 49 B2 34 3A 8D 31 38 36 30 3A 99 00 2A |...I.4:.1860:..*| 000004F0: 0D D6 01 99 22 20 39 35 20 20 52 45 41 44 20 4E |...." 95 READ N| 00000500: 24 2C 52 2C 48 22 3A 99 22 20 31 30 30 20 49 46 |$,R,H":." 100 IF| 00000510: 20 4E 24 3D 22 5A 24 22 45 49 4E 44 45 22 5A 24 | N$="Z$"EINDE"Z$| 00000520: 22 20 54 48 45 4E 20 37 35 35 00 72 0D E0 01 99 |" THEN 755.r....| 00000530: 22 1D 31 31 30 20 50 52 49 4E 54 20 22 5A 24 22 |".110 PRINT "Z$"| 00000540: 53 41 4C 41 52 49 53 20 56 4F 4F 52 20 22 5A 24 |SALARIS VOOR "Z$| 00000550: 22 4E 24 22 5A 24 22 20 49 53 20 22 5A 24 22 52 |"N$"Z$" IS "Z$"R| 00000560: 2A 48 22 3A 99 22 20 31 31 35 20 47 4F 54 4F 20 |*H":." 115 GOTO | 00000570: 39 35 00 B9 0D EA 01 99 22 20 31 32 30 20 44 41 |95......" 120 DA| 00000580: 54 41 20 22 5A 24 22 42 4F 42 20 53 4D 49 54 22 |TA "Z$"BOB SMIT"| 00000590: 5A 24 22 2C 20 33 2E 35 30 2C 20 34 30 22 3A 99 |Z$", 3.50, 40":.| 000005A0: 22 20 31 32 35 20 44 41 54 41 20 22 5A 24 22 4A |" 125 DATA "Z$"J| 000005B0: 4F 20 42 4F 4B 22 5A 24 3B 00 F6 0D F4 01 99 22 |O BOK"Z$;......"| 000005C0: 20 2C 20 33 2E 37 35 2C 20 32 30 22 3A 99 22 20 | , 3.75, 20":." | 000005D0: 31 33 30 20 44 41 54 41 20 22 5A 24 22 4A 41 4E |130 DATA "Z$"JAN| 000005E0: 45 54 20 56 52 49 45 53 22 5A 24 22 2C 20 34 2E |ET VRIES"Z$", 4.| 000005F0: 30 30 2C 20 33 38 00 3F 0E FE 01 99 22 20 31 34 |00, 38.?...." 14| 00000600: 30 20 44 41 54 41 20 22 5A 24 22 4A 41 4E 20 44 |0 DATA "Z$"JAN D| 00000610: 4F 45 22 5A 24 22 2C 20 34 2E 31 30 2C 20 34 30 |OE"Z$", 4.10, 40| 00000620: 22 3A 99 22 20 31 39 39 20 44 41 54 41 20 22 5A |":." 199 DATA "Z| 00000630: 24 22 45 49 4E 44 45 22 5A 24 22 2C 30 2C 30 00 |$"EINDE"Z$",0,0.| 00000640: 4F 0E 08 02 99 22 20 37 35 35 20 45 4E 44 22 00 |O...." 755 END".| 00000650: 59 0E 12 02 8D 31 38 38 30 00 84 0E 1C 02 99 22 |Y....1880......"| 00000660: 44 45 20 4C 55 53 20 57 4F 52 44 54 20 47 45 4D |DE LUS WORDT GEM| 00000670: 41 41 4B 54 20 44 4F 4F 52 20 44 45 20 12 47 4F |AAKT DOOR DE .GO| 00000680: 54 4F 92 2D 00 A4 0E 26 02 99 22 49 4E 53 54 52 |TO.-...&.."INSTR| 00000690: 55 4B 54 49 45 20 49 4E 20 52 45 47 45 4C 20 31 |UKTIE IN REGEL 1| 000006A0: 31 35 2E 22 00 CF 0E 30 02 99 22 44 45 20 49 46 |15."...0.."DE IF| 000006B0: 2D 49 4E 53 54 52 55 4B 54 49 45 20 49 4E 20 52 |-INSTRUKTIE IN R| 000006C0: 45 47 45 4C 20 31 30 30 20 5A 41 4C 20 44 45 00 |EGEL 100 ZAL DE.| 000006D0: FA 0E 3A 02 99 22 4C 55 53 20 42 45 45 49 4E 44 |..:.."LUS BEEIND| 000006E0: 49 47 45 4E 20 41 4C 53 20 44 45 20 53 54 52 49 |IGEN ALS DE STRI| 000006F0: 4E 47 20 12 45 49 4E 44 45 92 00 10 0F 44 02 99 |NG .EINDE....D..| 00000700: 22 47 45 4C 45 5A 45 4E 20 57 4F 52 44 54 2E 22 |"GELEZEN WORDT."| 00000710: 00 3D 0F 4E 02 99 22 44 45 20 57 45 52 4B 45 4C |.=.N.."DE WERKEL| 00000720: 49 4A 4B 45 20 57 41 41 52 44 45 20 56 41 4E 20 |IJKE WAARDE VAN | 00000730: 44 45 20 4C 55 53 20 49 4E 20 44 49 54 00 68 0F |DE LUS IN DIT.h.| 00000740: 58 02 99 22 50 52 4F 47 52 41 4D 4D 41 20 57 4F |X.."PROGRAMMA WO| 00000750: 52 44 54 20 50 41 53 20 44 55 49 44 45 4C 49 4A |RDT PAS DUIDELIJ| 00000760: 4B 20 41 4C 53 20 45 52 00 93 0F 62 02 99 22 56 |K ALS ER...b.."V| 00000770: 45 45 4C 20 57 45 52 4B 4E 45 4D 45 52 53 20 5A |EEL WERKNEMERS Z| 00000780: 49 4A 4E 2E 22 3A 8D 31 38 30 30 3A 8B 46 4C A7 |IJN.":.1800:.FL.| 00000790: 33 30 30 00 A3 0F 6C 02 49 B2 35 3A 8D 31 38 36 |300...l.I.5:.186| 000007A0: 30 3A 99 00 DF 0F 76 02 99 22 20 39 35 20 20 52 |0:....v.." 95 R| 000007B0: 45 41 44 20 4E 24 2C 52 2C 48 22 3A 99 22 20 31 |EAD N$,R,H":." 1| 000007C0: 30 30 20 49 46 20 4E 24 3D 22 5A 24 22 45 49 4E |00 IF N$="Z$"EIN| 000007D0: 44 45 22 5A 24 22 20 54 48 45 4E 20 37 35 35 00 |DE"Z$" THEN 755.| 000007E0: 27 10 80 02 99 22 1D 31 31 30 20 50 52 49 4E 54 |'....".110 PRINT| 000007F0: 20 22 5A 24 22 53 41 4C 41 52 49 53 20 56 4F 4F | "Z$"SALARIS VOO| 00000800: 52 20 22 5A 24 22 4E 24 22 5A 24 22 20 49 53 20 |R "Z$"N$"Z$" IS | 00000810: 22 5A 24 22 52 2A 48 22 3A 99 22 20 31 31 35 20 |"Z$"R*H":." 115 | 00000820: 47 4F 54 4F 20 39 35 00 6E 10 8A 02 99 22 20 31 |GOTO 95.n...." 1| 00000830: 32 30 20 44 41 54 41 20 22 5A 24 22 42 4F 42 20 |20 DATA "Z$"BOB | 00000840: 53 4D 49 54 22 5A 24 22 2C 20 33 2E 35 30 2C 20 |SMIT"Z$", 3.50, | 00000850: 34 30 22 3A 99 22 20 31 32 35 20 44 41 54 41 20 |40":." 125 DATA | 00000860: 22 5A 24 22 4A 4F 20 42 4F 4B 22 5A 24 3B 00 AB |"Z$"JO BOK"Z$;..| 00000870: 10 94 02 99 22 20 2C 20 33 2E 37 35 2C 20 32 30 |...." , 3.75, 20| 00000880: 22 3A 99 22 20 31 33 30 20 44 41 54 41 20 22 5A |":." 130 DATA "Z| 00000890: 24 22 4A 41 4E 45 54 20 56 52 49 45 53 22 5A 24 |$"JANET VRIES"Z$| 000008A0: 22 2C 20 34 2E 30 30 2C 20 33 38 00 F4 10 9E 02 |", 4.00, 38.....| 000008B0: 99 22 20 31 34 30 20 44 41 54 41 20 22 5A 24 22 |." 140 DATA "Z$"| 000008C0: 4A 41 4E 20 44 4F 45 22 5A 24 22 2C 20 34 2E 31 |JAN DOE"Z$", 4.1| 000008D0: 30 2C 20 34 30 22 3A 99 22 20 31 39 39 20 44 41 |0, 40":." 199 DA| 000008E0: 54 41 20 22 5A 24 22 45 49 4E 44 45 22 5A 24 22 |TA "Z$"EINDE"Z$"| 000008F0: 2C 30 2C 30 00 04 11 A8 02 99 22 20 37 35 35 20 |,0,0......" 755 | 00000900: 45 4E 44 22 00 0E 11 B2 02 8D 31 38 38 30 00 39 |END"......1880.9| 00000910: 11 BC 02 99 22 44 45 20 45 4E 49 47 45 20 56 45 |...."DE ENIGE VE| 00000920: 52 41 4E 44 45 52 49 4E 47 20 44 49 45 20 4E 4F |RANDERING DIE NO| 00000930: 44 49 47 20 49 53 20 4F 4D 00 65 11 C6 02 99 22 |DIG IS OM.e...."| 00000940: 4D 45 45 52 20 57 45 52 4B 4E 45 4D 45 52 53 20 |MEER WERKNEMERS | 00000950: 54 4F 45 20 54 45 20 56 4F 45 47 45 4E 2C 20 49 |TOE TE VOEGEN, I| 00000960: 53 20 48 45 54 00 8F 11 D0 02 99 22 54 4F 45 56 |S HET......"TOEV| 00000970: 4F 45 47 45 4E 20 56 41 4E 20 4D 45 45 52 20 44 |OEGEN VAN MEER D| 00000980: 41 54 41 20 49 4E 53 54 52 55 4B 54 49 45 53 00 |ATA INSTRUKTIES.| 00000990: B3 11 DA 02 99 22 28 45 45 4E 20 56 4F 4F 52 20 |....."(EEN VOOR | 000009A0: 49 45 44 45 52 45 20 57 45 52 4B 4E 45 4D 45 52 |IEDERE WERKNEMER| 000009B0: 29 2E 22 00 DD 11 E4 02 99 22 48 45 54 20 49 53 |)."......"HET IS| 000009C0: 20 4F 4E 4E 4F 44 49 47 20 4F 4D 20 44 45 20 4C | ONNODIG OM DE L| 000009D0: 4F 47 49 43 41 20 56 41 4E 20 48 45 54 00 07 12 |OGICA VAN HET...| 000009E0: EE 02 99 22 50 52 4F 47 52 41 4D 4D 41 20 54 45 |..."PROGRAMMA TE| 000009F0: 20 56 45 52 41 4E 44 45 52 45 4E 20 41 4C 53 20 | VERANDEREN ALS | 00000A00: 45 52 20 4D 45 45 52 00 2C 12 F8 02 99 22 44 41 |ER MEER.,...."DA| 00000A10: 54 41 20 42 49 4A 20 4B 4F 4D 54 2E 91 22 3A 8D |TA BIJ KOMT..":.| 00000A20: 31 38 30 30 3A 8B 46 4C A7 34 36 30 00 49 12 02 |1800:.FL.460.I..| 00000A30: 03 49 B2 36 3A 8D 31 38 36 30 3A 99 22 11 4B 57 |.I.6:.1860:.".KW| 00000A40: 49 53 2D 54 49 4A 44 21 22 00 53 12 0C 03 8D 31 |IS-TIJD!".S....1| 00000A50: 38 38 30 00 8F 12 16 03 99 22 20 39 35 20 20 52 |880......" 95 R| 00000A60: 45 41 44 20 4E 24 2C 52 2C 48 22 3A 99 22 20 31 |EAD N$,R,H":." 1| 00000A70: 30 30 20 49 46 20 4E 24 3D 22 5A 24 22 45 49 4E |00 IF N$="Z$"EIN| 00000A80: 44 45 22 5A 24 22 20 54 48 45 4E 20 37 35 35 00 |DE"Z$" THEN 755.| 00000A90: D7 12 20 03 99 22 1D 31 31 30 20 50 52 49 4E 54 |.. ..".110 PRINT| 00000AA0: 20 22 5A 24 22 53 41 4C 41 52 49 53 20 56 4F 4F | "Z$"SALARIS VOO| 00000AB0: 52 20 22 5A 24 22 4E 24 22 5A 24 22 20 49 53 20 |R "Z$"N$"Z$" IS | 00000AC0: 22 5A 24 22 52 2A 48 22 3A 99 22 20 31 31 35 20 |"Z$"R*H":." 115 | 00000AD0: 47 4F 54 4F 20 39 35 00 1E 13 2A 03 99 22 20 31 |GOTO 95...*.." 1| 00000AE0: 32 30 20 44 41 54 41 20 22 5A 24 22 42 4F 42 20 |20 DATA "Z$"BOB | 00000AF0: 53 4D 49 54 22 5A 24 22 2C 20 33 2E 35 30 2C 20 |SMIT"Z$", 3.50, | 00000B00: 34 30 22 3A 99 22 20 31 32 35 20 44 41 54 41 20 |40":." 125 DATA | 00000B10: 22 5A 24 22 4A 4F 20 42 4F 4B 22 5A 24 3B 00 5B |"Z$"JO BOK"Z$;.[| 00000B20: 13 34 03 99 22 20 2C 20 33 2E 37 35 2C 20 32 30 |.4.." , 3.75, 20| 00000B30: 22 3A 99 22 20 31 33 30 20 44 41 54 41 20 22 5A |":." 130 DATA "Z| 00000B40: 24 22 4A 41 4E 45 54 20 56 52 49 45 53 22 5A 24 |$"JANET VRIES"Z$| 00000B50: 22 2C 20 34 2E 30 30 2C 20 33 38 00 A4 13 3E 03 |", 4.00, 38...>.| 00000B60: 99 22 20 31 34 30 20 44 41 54 41 20 22 5A 24 22 |." 140 DATA "Z$"| 00000B70: 4A 41 4E 20 44 4F 45 22 5A 24 22 2C 20 34 2E 31 |JAN DOE"Z$", 4.1| 00000B80: 30 2C 20 34 30 22 3A 99 22 20 31 39 39 20 44 41 |0, 40":." 199 DA| 00000B90: 54 41 20 22 5A 24 22 45 49 4E 44 45 22 5A 24 22 |TA "Z$"EINDE"Z$"| 00000BA0: 2C 30 2C 30 00 BA 13 48 03 99 22 20 37 35 35 20 |,0,0...H.." 755 | 00000BB0: 45 4E 44 22 3A 8D 31 38 38 30 00 FA 13 52 03 99 |END":.1880...R..| 00000BC0: 22 48 4F 45 56 45 45 4C 20 4B 45 45 52 20 5A 41 |"HOEVEEL KEER ZA| 00000BD0: 4C 20 44 45 20 43 4F 4D 50 55 54 45 52 20 49 4E |L DE COMPUTER IN| 00000BE0: 53 54 52 55 4B 54 49 45 22 3A 99 22 39 35 20 55 |STRUKTIE":."95 U| 00000BF0: 49 54 56 4F 45 52 45 4E 3A 22 00 12 14 5C 03 99 |ITVOEREN:"...\..| 00000C00: 22 28 31 2C 20 34 20 4F 46 20 35 29 22 3B 3A 85 |"(1, 4 OF 5)";:.| 00000C10: 41 24 00 33 14 66 03 8B 41 24 B3 B1 22 31 22 AF |A$.3.f..A$.."1".| 00000C20: 41 24 B3 B1 22 34 22 AF 41 24 B3 B1 22 35 22 A7 |A$.."4".A$.."5".| 00000C30: 38 36 30 00 44 14 70 03 8B 41 24 B2 22 35 22 A7 |860.D.p..A$."5".| 00000C40: 31 30 32 30 00 54 14 7A 03 8B 41 24 B2 22 34 22 |1020.T.z..A$."4"| 00000C50: A7 39 37 30 00 80 14 84 03 99 22 11 44 45 4E 4B |.970......".DENK| 00000C60: 20 45 52 41 41 4E 20 44 41 54 20 44 45 20 47 4F | ERAAN DAT DE GO| 00000C70: 54 4F 2D 49 4E 53 54 52 55 4B 54 49 45 20 44 45 |TO-INSTRUKTIE DE| 00000C80: 00 AD 14 8E 03 99 22 43 4F 4D 50 55 54 45 52 20 |......"COMPUTER | 00000C90: 54 45 52 55 47 20 4C 41 41 54 20 53 50 52 49 4E |TERUG LAAT SPRIN| 00000CA0: 47 45 4E 20 4E 41 41 52 20 39 35 2E 22 00 DC 14 |GEN NAAR 95."...| 00000CB0: 98 03 99 22 44 41 4E 20 57 4F 52 44 54 20 52 45 |..."DAN WORDT RE| 00000CC0: 47 45 4C 20 39 35 20 44 55 53 20 57 45 45 52 20 |GEL 95 DUS WEER | 00000CD0: 55 49 54 47 45 56 4F 45 52 44 2E 22 00 09 15 A2 |UITGEVOERD."....| 00000CE0: 03 99 22 44 45 20 49 46 2D 49 4E 53 54 52 55 4B |.."DE IF-INSTRUK| 00000CF0: 54 49 45 20 5A 41 4C 20 44 45 5A 45 20 4C 55 53 |TIE ZAL DEZE LUS| 00000D00: 20 44 4F 4F 52 42 52 45 2D 00 34 15 AC 03 99 22 | DOORBRE-.4...."| 00000D10: 4B 45 4E 20 41 4C 53 20 12 45 49 4E 44 45 92 20 |KEN ALS .EINDE. | 00000D20: 49 4E 20 52 45 47 45 4C 20 31 39 39 20 47 45 4C |IN REGEL 199 GEL| 00000D30: 45 5A 45 4E 00 42 15 B6 03 99 22 57 4F 52 44 54 |EZEN.B...."WORDT| 00000D40: 2E 22 00 65 15 C0 03 99 22 50 52 4F 42 45 45 52 |.".e...."PROBEER| 00000D50: 20 48 45 54 20 4E 4F 47 20 45 45 4E 53 21 22 3A | HET NOG EENS!":| 00000D60: 89 31 30 31 30 00 89 15 CA 03 99 22 11 4E 45 45 |.1010......".NEE| 00000D70: 2C 20 34 20 4B 45 45 52 20 49 53 20 4E 49 45 54 |, 4 KEER IS NIET| 00000D80: 20 43 4F 52 52 45 43 54 2E 00 B6 15 D4 03 99 22 | CORRECT......."| 00000D90: 4D 45 52 4B 20 4F 50 20 44 41 54 20 52 45 47 45 |MERK OP DAT REGE| 00000DA0: 4C 20 39 35 20 56 4F 4F 52 20 49 45 44 45 52 45 |L 95 VOOR IEDERE| 00000DB0: 20 44 41 54 41 2D 00 E2 15 DE 03 99 22 49 4E 53 | DATA-......"INS| 00000DC0: 54 52 55 4B 54 49 45 20 45 45 4E 20 4B 45 45 52 |TRUKTIE EEN KEER| 00000DD0: 20 55 49 54 47 45 56 4F 45 52 44 20 57 4F 52 44 | UITGEVOERD WORD| 00000DE0: 54 2C 00 1E 16 E8 03 99 22 4D 45 54 20 49 4E 42 |T,......"MET INB| 00000DF0: 45 47 52 49 50 20 56 41 4E 20 52 45 47 45 4C 20 |EGRIP VAN REGEL | 00000E00: 31 39 39 2E 22 3A 99 22 50 52 4F 42 45 45 52 20 |199.":."PROBEER | 00000E10: 48 45 54 20 4E 4F 47 20 45 45 4E 53 21 22 00 34 |HET NOG EENS!".4| 00000E20: 16 F2 03 81 49 B2 31 A4 31 35 30 30 30 3A 82 3A |....I.1.15000:.:| 00000E30: 89 37 37 30 00 63 16 FC 03 99 22 11 44 41 54 20 |.770.c....".DAT | 00000E40: 4B 4C 4F 50 54 2C 20 44 45 20 52 45 41 44 2D 49 |KLOPT, DE READ-I| 00000E50: 4E 53 54 52 55 4B 54 49 45 20 57 4F 52 44 54 20 |NSTRUKTIE WORDT | 00000E60: 35 58 22 00 90 16 06 04 99 22 55 49 54 47 45 56 |5X"......"UITGEV| 00000E70: 4F 45 52 44 2C 20 45 45 4E 20 4B 45 45 52 20 56 |OERD, EEN KEER V| 00000E80: 4F 4F 52 20 49 45 44 45 52 45 20 44 41 54 41 2D |OOR IEDERE DATA-| 00000E90: 00 B1 16 10 04 99 22 49 4E 53 54 52 55 4B 54 49 |......"INSTRUKTI| 00000EA0: 45 2E 22 3A 8D 31 38 30 30 3A 8B 46 4C A7 36 32 |E.":.1800:.FL.62| 00000EB0: 30 00 C1 16 1A 04 49 B2 37 3A 8D 31 38 36 30 3A |0.....I.7:.1860:| 00000EC0: 99 00 FD 16 24 04 99 A3 31 30 29 22 46 4F 52 CE |....$...10)"FOR.| 00000ED0: 4E 45 58 54 2D 49 4E 53 54 52 55 4B 54 49 45 53 |NEXT-INSTRUKTIES| 00000EE0: 22 3A 99 A3 31 30 29 22 A3 A3 A3 A3 A3 A3 A3 A3 |":..10)"........| 00000EF0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 29 17 |............".).| 00000F00: 2E 04 99 22 4C 55 53 53 45 4E 20 4B 55 4E 4E 45 |..."LUSSEN KUNNE| 00000F10: 4E 20 4F 4F 4B 20 47 45 4D 41 41 4B 54 20 57 4F |N OOK GEMAAKT WO| 00000F20: 52 44 45 4E 20 44 4F 4F 52 00 57 17 38 04 99 22 |RDEN DOOR.W.8.."| 00000F30: 48 45 54 20 47 45 42 52 55 49 4B 20 56 41 4E 20 |HET GEBRUIK VAN | 00000F40: 12 46 4F 52 2F 4E 45 58 54 92 2D 49 4E 53 54 52 |.FOR/NEXT.-INSTR| 00000F50: 55 4B 54 49 45 53 2E 00 83 17 42 04 99 22 44 45 |UKTIES....B.."DE| 00000F60: 5A 45 20 5A 49 4A 4E 20 4E 55 54 54 49 47 20 49 |ZE ZIJN NUTTIG I| 00000F70: 4E 20 4C 55 53 53 45 4E 20 44 49 45 20 47 45 43 |N LUSSEN DIE GEC| 00000F80: 4F 4E 2D 00 A6 17 4C 04 99 22 54 52 4F 4C 45 45 |ON-...L.."TROLEE| 00000F90: 52 44 20 57 4F 52 44 45 4E 20 44 4F 4F 52 20 54 |RD WORDEN DOOR T| 00000FA0: 45 4C 4C 45 4E 2E 00 D1 17 56 04 99 22 48 45 54 |ELLEN....V.."HET| 00000FB0: 20 56 4F 4C 47 45 4E 44 45 20 50 52 4F 47 52 41 | VOLGENDE PROGRA| 00000FC0: 4D 4D 41 20 5A 41 4C 20 45 45 4E 20 4C 49 4A 53 |MMA ZAL EEN LIJS| 00000FD0: 54 00 03 18 60 04 99 22 4E 55 4D 4D 45 52 53 20 |T...`.."NUMMERS | 00000FE0: 4A 4E 4C 45 5A 45 4E 20 45 4E 20 5A 45 20 44 41 |JNLEZEN EN ZE DA| 00000FF0: 4E 20 41 46 44 52 55 4B 4B 45 4E 3A 22 3A 8D 31 |N AFDRUKKEN:":.1| 00001000: 38 38 30 00 19 18 6A 04 99 22 20 32 20 46 4F 52 |880...j.." 2 FOR| 00001010: 49 3D 31 20 54 4F 20 31 30 00 4A 18 74 04 99 22 |I=1 TO 10.J.t.."| 00001020: 20 34 20 52 45 41 44 20 41 28 49 29 22 3A 99 22 | 4 READ A(I)":."| 00001030: 20 36 20 50 52 49 4E 54 20 41 28 49 29 22 3A 99 | 6 PRINT A(I)":.| 00001040: 22 20 38 20 4E 45 58 54 20 49 00 7E 18 7E 04 99 |" 8 NEXT I.~.~..| 00001050: 22 20 39 20 44 41 54 41 20 33 2E 31 2C 31 2E 34 |" 9 DATA 3.1,1.4| 00001060: 2C 38 2C 39 2E 34 2C 32 2C 35 2C 37 2C 38 2E 36 |,8,9.4,2,5,7,8.6| 00001070: 2C 33 2C 31 34 2E 37 22 3A 8D 31 38 38 30 00 9A |,3,14.7":.1880..| 00001080: 18 88 04 99 22 44 45 20 12 46 4F 52 92 2D 49 4E |...."DE .FOR.-IN| 00001090: 53 54 52 55 4B 54 49 45 22 3B 00 B5 18 92 04 99 |STRUKTIE";......| 000010A0: 22 5A 4F 52 47 54 20 56 4F 4F 52 20 48 45 52 48 |"ZORGT VOOR HERH| 000010B0: 41 41 4C 44 45 00 E3 18 9C 04 99 22 55 49 54 56 |AALDE......"UITV| 000010C0: 4F 45 52 49 4E 47 20 56 41 4E 20 41 4C 4C 45 20 |OERING VAN ALLE | 000010D0: 49 4E 53 54 52 55 4B 54 49 45 53 20 54 4F 54 20 |INSTRUKTIES TOT | 000010E0: 41 41 4E 00 FF 18 A6 04 99 22 44 45 20 12 4E 45 |AAN......"DE .NE| 000010F0: 58 54 92 2D 49 4E 53 54 52 55 4B 54 49 45 2E 00 |XT.-INSTRUKTIE..| 00001100: 11 19 B0 04 8D 31 38 30 30 3A 8B 46 4C A7 37 37 |.....1800:.FL.77| 00001110: 30 00 21 19 BA 04 49 B2 38 3A 8D 31 38 36 30 3A |0.!...I.8:.1860:| 00001120: 99 00 37 19 C4 04 99 22 20 32 20 46 4F 52 49 3D |..7...." 2 FORI=| 00001130: 31 20 54 4F 20 31 30 00 68 19 CE 04 99 22 20 34 |1 TO 10.h...." 4| 00001140: 20 52 45 41 44 20 41 28 49 29 22 3A 99 22 20 36 | READ A(I)":." 6| 00001150: 20 50 52 49 4E 54 20 41 28 49 29 22 3A 99 22 20 | PRINT A(I)":." | 00001160: 38 20 4E 45 58 54 20 49 00 9C 19 D8 04 99 22 20 |8 NEXT I......" | 00001170: 39 20 44 41 54 41 20 33 2E 31 2C 31 2E 34 2C 38 |9 DATA 3.1,1.4,8| 00001180: 2C 39 2E 34 2C 32 2C 35 2C 37 2C 38 2E 36 2C 33 |,9.4,2,5,7,8.6,3| 00001190: 2C 31 34 2E 37 22 3A 8D 31 38 38 30 00 B3 19 E2 |,14.7":.1880....| 000011A0: 04 99 22 45 45 52 53 54 20 56 4F 4F 52 20 49 3D |.."EERST VOOR I=| 000011B0: 31 2C 22 00 C9 19 EC 04 99 22 44 41 4E 20 56 4F |1,"......"DAN VO| 000011C0: 4F 52 20 20 20 49 3D 32 2C 00 00 1A F6 04 99 22 |OR I=2,......"| 000011D0: 44 41 4E 20 56 4F 4F 52 20 20 20 49 3D 33 2C 22 |DAN VOOR I=3,"| 000011E0: 3A 99 22 45 54 43 2E 2C 20 45 4E 20 54 45 4E 53 |:."ETC., EN TENS| 000011F0: 4C 4F 54 54 45 20 56 4F 4F 52 20 49 3D 31 30 2E |LOTTE VOOR I=10.| 00001200: 00 33 1A 00 05 99 22 11 44 45 20 12 4E 45 58 54 |.3....".DE .NEXT| 00001210: 92 2D 49 4E 53 54 52 55 4B 54 49 45 20 53 4C 55 |.-INSTRUKTIE SLU| 00001220: 49 54 20 44 45 20 49 4E 53 54 52 55 4B 54 49 45 |IT DE INSTRUKTIE| 00001230: 53 22 3B 00 5B 1A 0A 05 99 22 2C 57 45 4C 4B 45 |S";.[....",WELKE| 00001240: 20 48 45 52 48 41 41 4C 44 20 55 49 54 47 45 56 | HERHAALD UITGEV| 00001250: 4F 45 52 44 20 4D 4F 45 54 45 4E 00 86 1A 14 05 |OERD MOETEN.....| 00001260: 99 22 57 4F 52 44 45 4E 20 56 4F 4F 52 20 49 45 |."WORDEN VOOR IE| 00001270: 44 45 52 45 20 57 41 41 52 44 45 20 56 41 4E 20 |DERE WAARDE VAN | 00001280: 49 2C 20 41 46 2E 00 B0 1A 1E 05 99 22 11 45 52 |I, AF.......".ER| 00001290: 20 4D 4F 45 54 20 45 45 4E 20 12 4E 45 58 54 92 | MOET EEN .NEXT.| 000012A0: 2D 49 4E 53 54 52 55 4B 54 49 45 20 5A 49 4A 4E |-INSTRUKTIE ZIJN| 000012B0: 00 D4 1A 28 05 99 22 56 4F 4F 52 20 49 45 44 45 |...(.."VOOR IEDE| 000012C0: 52 45 20 12 46 4F 52 92 2D 49 4E 53 54 52 55 4B |RE .FOR.-INSTRUK| 000012D0: 54 49 45 2E 00 E7 1A 32 05 8D 31 38 30 30 3A 8B |TIE....2..1800:.| 000012E0: 46 4C A7 31 30 35 30 00 1A 1B 3C 05 49 B2 39 3A |FL.1050...<.I.9:| 000012F0: 8D 31 38 36 30 3A 99 22 11 45 45 4E 20 42 52 55 |.1860:.".EEN BRU| 00001300: 49 4B 42 41 52 45 20 4D 4F 47 45 4C 49 4A 4B 48 |IKBARE MOGELIJKH| 00001310: 45 49 44 20 56 41 4E 20 44 45 00 4C 1B 46 05 99 |EID VAN DE.L.F..| 00001320: 22 12 46 4F 52 92 2D 49 4E 53 54 52 55 4B 54 49 |".FOR.-INSTRUKTI| 00001330: 45 20 49 53 20 44 45 20 12 53 54 45 50 92 2C 20 |E IS DE .STEP., | 00001340: 44 49 45 20 47 45 42 52 55 49 4B 54 00 7A 1B 50 |DIE GEBRUIKT.z.P| 00001350: 05 99 22 57 4F 52 44 54 20 49 4E 20 48 45 54 20 |.."WORDT IN HET | 00001360: 56 4F 4C 47 45 4E 44 45 20 56 4F 4F 52 42 45 45 |VOLGENDE VOORBEE| 00001370: 4C 44 3A 22 3A 8D 31 38 38 30 00 91 1B 5A 05 99 |LD:":.1880...Z..| 00001380: 22 20 32 20 20 46 4F 52 20 49 3D 31 20 54 4F 20 |" 2 FOR I=1 TO | 00001390: 36 00 E1 1B 64 05 99 22 20 34 20 20 52 45 41 44 |6...d.." 4 READ| 000013A0: 20 41 28 49 29 22 3A 99 22 20 36 20 20 4E 45 58 | A(I)":." 6 NEX| 000013B0: 54 20 49 22 3A 99 22 20 38 20 20 46 4F 52 20 49 |T I":." 8 FOR I| 000013C0: 3D 36 20 54 4F 20 31 20 53 54 45 50 20 2D 31 22 |=6 TO 1 STEP -1"| 000013D0: 3A 99 22 20 31 30 20 50 52 49 4E 54 20 41 28 49 |:." 10 PRINT A(I| 000013E0: 29 00 1E 1C 6E 05 99 22 20 31 32 20 4E 45 58 54 |)...n.." 12 NEXT| 000013F0: 20 49 22 3A 99 22 20 31 34 20 44 41 54 41 20 33 | I":." 14 DATA 3| 00001400: 2E 32 2C 20 32 2C 20 35 2E 31 2C 20 30 2E 31 2C |.2, 2, 5.1, 0.1,| 00001410: 20 36 36 2C 20 2E 37 22 3A 8D 31 38 38 30 00 4A | 66, .7":.1880.J| 00001420: 1C 78 05 99 22 44 45 20 4E 55 4D 4D 45 52 53 20 |.x.."DE NUMMERS | 00001430: 57 4F 52 44 45 4E 20 45 45 52 53 54 20 4F 50 47 |WORDEN EERST OPG| 00001440: 45 53 4C 41 47 45 4E 20 49 4E 00 60 1C 82 05 99 |ESLAGEN IN.`....| 00001450: 22 44 45 20 4C 49 4A 53 54 20 41 28 49 29 2E 22 |"DE LIJST A(I)."| 00001460: 00 87 1C 8C 05 99 22 44 45 20 54 57 45 45 44 45 |......"DE TWEEDE| 00001470: 20 4C 55 53 20 28 52 45 47 45 4C 53 20 38 20 54 | LUS (REGELS 8 T| 00001480: 4F 54 20 31 32 29 22 00 B3 1C 96 05 99 22 5A 41 |OT 12)"......"ZA| 00001490: 4C 20 44 45 20 4E 55 4D 4D 45 52 53 20 49 4E 20 |L DE NUMMERS IN | 000014A0: 4F 4D 47 45 4B 45 45 52 44 45 20 56 4F 4C 47 4F |OMGEKEERDE VOLGO| 000014B0: 52 44 45 00 C5 1C A0 05 99 22 41 46 44 52 55 4B |RDE......"AFDRUK| 000014C0: 4B 45 4E 2E 22 00 F1 1C AA 05 99 22 4F 4D 44 41 |KEN."......"OMDA| 000014D0: 54 20 44 45 20 53 54 45 50 20 2D 31 20 49 53 2C |T DE STEP -1 IS,| 000014E0: 20 5A 41 4C 20 12 49 92 20 42 45 47 49 4E 4E 45 | ZAL .I. BEGINNE| 000014F0: 4E 00 1D 1D B4 05 99 22 4D 45 54 20 44 45 20 57 |N......"MET DE W| 00001500: 41 41 52 44 45 20 36 2C 20 44 41 41 52 4E 41 20 |AARDE 6, DAARNA | 00001510: 49 3D 35 2C 20 44 41 4E 20 49 3D 34 2C 00 3B 1D |I=5, DAN I=4,.;.| 00001520: BE 05 99 22 45 54 43 2E 2C 20 45 4E 20 54 45 4E |..."ETC., EN TEN| 00001530: 53 4C 4F 54 54 45 20 49 3D 31 2E 00 4E 1D C8 05 |SLOTTE I=1..N...| 00001540: 8D 31 38 30 30 3A 8B 46 4C A7 31 32 31 30 00 5D |.1800:.FL.1210.]| 00001550: 1D D2 05 49 B2 31 30 3A 8D 31 38 36 30 00 8A 1D |...I.10:.1860...| 00001560: DC 05 99 22 11 41 4C 53 20 45 52 20 47 45 45 4E |...".ALS ER GEEN| 00001570: 20 53 54 45 50 20 41 41 4E 47 45 47 45 56 45 4E | STEP AANGEGEVEN| 00001580: 20 49 53 2C 20 57 4F 52 44 54 00 AE 1D E6 05 99 | IS, WORDT......| 00001590: 22 44 45 20 57 41 41 52 44 45 20 56 41 4E 20 2B |"DE WAARDE VAN +| 000015A0: 31 20 41 41 4E 47 45 4E 4F 4D 45 4E 2E 22 00 DA |1 AANGENOMEN."..| 000015B0: 1D F0 05 99 22 11 11 44 45 20 56 4F 52 4D 20 56 |...."..DE VORM V| 000015C0: 41 4E 20 44 45 20 12 46 4F 52 92 2D 49 4E 53 54 |AN DE .FOR.-INST| 000015D0: 52 55 4B 54 49 45 20 49 53 3A 00 14 1E FA 05 99 |RUKTIE IS:......| 000015E0: 22 11 12 52 45 47 45 4C 20 4E 4F 2E 92 20 46 4F |"..REGEL NO.. FO| 000015F0: 52 20 12 56 41 52 49 41 42 45 4C 45 92 20 3D 20 |R .VARIABELE. = | 00001600: 12 59 92 54 4F 20 12 5A 92 20 53 54 45 50 20 12 |.Y.TO .Z. STEP .| 00001610: 53 92 2C 22 00 41 1E 04 06 99 22 11 57 41 41 52 |S.,".A....".WAAR| 00001620: 20 12 59 2C 20 5A 20 45 4E 20 53 92 20 45 4C 4B | .Y, Z EN S. ELK| 00001630: 20 47 45 54 41 4C 2C 20 56 41 52 49 41 42 45 4C | GETAL, VARIABEL| 00001640: 45 00 61 1E 0E 06 99 22 4F 46 20 45 58 50 52 45 |E.a...."OF EXPRE| 00001650: 53 53 49 45 20 4B 55 4E 4E 45 4E 20 5A 49 4A 4E |SSIE KUNNEN ZIJN| 00001660: 2E 00 8E 1E 18 06 99 22 11 11 44 45 20 56 4F 52 |......."..DE VOR| 00001670: 4D 20 56 41 4E 20 44 45 20 12 4E 45 58 54 92 2D |M VAN DE .NEXT.-| 00001680: 49 4E 53 54 52 55 4B 54 49 45 20 49 53 3A 00 B3 |INSTRUKTIE IS:..| 00001690: 1E 22 06 99 22 11 12 52 45 47 45 4C 20 4E 4F 2E |.".."..REGEL NO.| 000016A0: 92 20 4E 45 58 54 20 12 56 41 52 49 41 42 4C 45 |. NEXT .VARIABLE| 000016B0: 92 2C 22 00 DE 1E 2C 06 99 22 11 57 41 41 52 20 |.,"...,..".WAAR | 000016C0: 12 56 41 52 49 41 42 45 4C 45 92 20 44 45 5A 45 |.VARIABELE. DEZE| 000016D0: 4C 46 44 45 20 56 41 52 49 41 42 45 4C 45 00 1B |LFDE VARIABELE..| 000016E0: 1F 36 06 99 22 4E 41 41 4D 20 49 53 2C 20 41 4C |.6.."NAAM IS, AL| 000016F0: 53 20 44 49 45 20 49 4E 20 44 45 20 46 4F 52 2D |S DIE IN DE FOR-| 00001700: 49 4E 53 54 52 55 4B 54 49 45 2E 22 3A 8D 31 38 |INSTRUKTIE.":.18| 00001710: 30 30 3A 8B 46 4C A7 31 33 34 30 00 2A 1F 40 06 |00:.FL.1340.*.@.| 00001720: 49 B2 31 31 3A 8D 31 38 36 30 00 4B 1F 4A 06 99 |I.11:.1860.K.J..| 00001730: 22 11 45 4E 4B 45 4C 45 20 12 46 4F 52 92 2D 56 |".ENKELE .FOR.-V| 00001740: 4F 4F 52 42 45 45 4C 44 45 4E 3A 00 67 1F 54 06 |OORBEELDEN:.g.T.| 00001750: 99 22 11 11 31 30 20 20 20 46 4F 52 20 49 20 3D |."..10 FOR I =| 00001760: 20 31 20 54 4F 20 35 00 8D 1F 5E 06 99 22 11 31 | 1 TO 5...^..".1| 00001770: 32 35 20 20 46 4F 52 20 4A 20 3D 20 31 32 20 54 |25 FOR J = 12 T| 00001780: 4F 20 33 39 20 53 54 45 50 20 30 2E 35 00 B3 1F |O 39 STEP 0.5...| 00001790: 68 06 99 22 11 31 37 20 20 20 46 4F 52 20 41 31 |h..".17 FOR A1| 000017A0: 20 3D 20 33 39 20 54 4F 20 31 32 20 53 54 45 50 | = 39 TO 12 STEP| 000017B0: 20 2D 31 00 D8 1F 72 06 99 22 11 31 32 34 30 20 | -1...r..".1240 | 000017C0: 46 4F 52 20 58 20 3D 20 41 31 20 54 4F 20 41 32 |FOR X = A1 TO A2| 000017D0: 20 53 54 45 50 20 41 33 00 01 20 7C 06 99 22 11 | STEP A3.. |..".| 000017E0: 31 30 30 20 20 46 4F 52 20 4B 20 3D 20 41 2A 33 |100 FOR K = A*3| 000017F0: 20 54 4F 20 58 2D 31 20 53 54 45 50 20 32 2F 5A | TO X-1 STEP 2/Z| 00001800: 5A 00 14 20 86 06 8D 31 38 30 30 3A 8B 46 4C A7 |Z.. ...1800:.FL.| 00001810: 31 34 39 30 00 23 20 90 06 49 B2 31 32 3A 8D 31 |1490.# ..I.12:.1| 00001820: 38 36 30 00 42 20 9A 06 99 22 11 45 4E 20 44 41 |860.B ...".EN DA| 00001830: 4E 20 4E 55 20 48 45 54 20 48 55 49 53 57 45 52 |N NU HET HUISWER| 00001840: 4B 3A 00 6D 20 A4 06 99 22 11 53 43 48 52 49 4A |K:.m ...".SCHRIJ| 00001850: 46 20 45 4E 20 52 55 4E 20 45 45 4E 20 50 52 4F |F EN RUN EEN PRO| 00001860: 47 52 41 4D 4D 41 20 44 41 54 20 44 45 00 9B 20 |GRAMMA DAT DE.. | 00001870: AE 06 99 22 43 49 4A 46 45 52 53 20 31 20 54 4F |..."CIJFERS 1 TO| 00001880: 54 20 32 30 20 41 46 44 52 55 4B 54 20 4D 45 54 |T 20 AFDRUKT MET| 00001890: 20 44 41 41 52 41 43 48 54 45 52 00 C8 20 B8 06 | DAARACHTER.. ..| 000018A0: 99 22 48 45 54 20 4B 57 41 44 52 41 41 54 20 28 |."HET KWADRAAT (| 000018B0: 48 45 54 20 47 45 54 41 4C 20 4D 41 41 4C 20 5A |HET GETAL MAAL Z| 000018C0: 49 43 48 5A 45 4C 46 29 00 DD 20 C2 06 99 22 56 |ICHZELF).. ..."V| 000018D0: 41 4E 20 44 41 54 20 47 45 54 41 4C 2E 00 0D 21 |AN DAT GETAL...!| 000018E0: CC 06 99 22 11 12 20 20 20 20 20 20 20 20 20 20 |...".. | 000018F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001900: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 3C 21 | ".<!| 00001910: D6 06 99 22 12 20 20 4D 49 53 53 43 48 49 45 4E |...". MISSCHIEN| 00001920: 20 4B 55 4E 54 20 55 20 44 49 54 20 4F 56 45 52 | KUNT U DIT OVER| 00001930: 53 43 48 52 49 4A 56 45 4E 2C 20 22 00 6B 21 E0 |SCHRIJVEN, ".k!.| 00001940: 06 99 22 12 20 20 56 4F 4F 52 44 41 54 20 55 20 |..". VOORDAT U | 00001950: 4F 50 20 2B 20 4F 46 20 2D 20 54 4F 45 54 53 54 |OP + OF - TOETST| 00001960: 2E 20 20 20 20 20 20 20 20 20 22 00 9A 21 EA 06 |. "..!..| 00001970: 99 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". | 00001980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001990: 20 20 20 20 20 20 20 20 20 22 00 AD 21 F4 06 8D | "..!...| 000019A0: 31 38 30 30 3A 8B 46 4C A7 31 36 30 30 00 BD 21 |1800:.FL.1600..!| 000019B0: FE 06 8D 31 39 31 30 3A 8D 31 38 39 30 00 06 22 |...1910:.1890.."| 000019C0: 08 07 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............| 000019D0: 11 11 11 11 11 11 11 11 11 11 11 11 12 20 3C 2B |............. <+| 000019E0: 3E 20 56 4F 4C 47 45 4E 44 45 20 50 41 47 49 4E |> VOLGENDE PAGIN| 000019F0: 41 20 20 3C 2D 3E 20 50 41 47 49 4E 41 20 54 45 |A <-> PAGINA TE| 00001A00: 52 55 47 20 92 22 00 18 22 12 07 81 49 B2 31 A4 |RUG .".."...I.1.| 00001A10: 31 30 3A A1 58 24 3A 82 00 2C 22 1C 07 A1 58 24 |10:.X$:..,"...X$| 00001A20: 3A 8B 58 24 B2 22 22 A7 31 38 32 30 00 3F 22 26 |:.X$."".1820.?"&| 00001A30: 07 8B 58 24 B2 22 2B 22 A7 46 4C B2 30 3A 8E 00 |..X$."+".FL.0:..| 00001A40: 52 22 30 07 8B 58 24 B2 22 2D 22 A7 46 4C B2 31 |R"0..X$."-".FL.1| 00001A50: 3A 8E 00 5C 22 3A 07 89 31 38 32 30 00 98 22 44 |:..\":..1820.."D| 00001A60: 07 8B 49 B3 31 30 A7 99 22 93 12 20 43 55 52 53 |..I.10..".. CURS| 00001A70: 55 53 20 42 41 53 49 43 20 20 20 20 20 4C 45 53 |US BASIC LES| 00001A80: 20 37 20 20 20 20 20 50 41 47 49 4E 41 22 49 22 | 7 PAGINA"I"| 00001A90: 9D 20 20 20 92 22 3A 8E 00 D4 22 4E 07 8B 49 B2 |. .":..."N..I.| 00001AA0: B1 31 30 A7 99 22 93 12 20 43 55 52 53 55 53 20 |.10..".. CURSUS | 00001AB0: 42 41 53 49 43 20 20 20 20 20 4C 45 53 20 37 20 |BASIC LES 7 | 00001AC0: 20 20 20 20 50 41 47 49 4E 41 22 49 22 9D 20 20 | PAGINA"I". | 00001AD0: 92 22 3A 8E 00 EF 22 58 07 81 49 B2 31 A4 33 38 |.":..."X..I.1.38| 00001AE0: 3A 99 22 C0 22 3B 3A 82 3A 99 22 C0 22 3A 8E 00 |:.".";:.:.".":..| 00001AF0: 33 23 62 07 99 A3 31 32 29 22 12 20 20 20 20 20 |3#b...12)". | 00001B00: 20 92 22 3A 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D | .":."..........| 00001B10: 1D 1D 12 20 54 52 49 4F 20 92 22 3A 99 22 1D 1D |... TRIO .":."..| 00001B20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 2D 2D 2D 2D |........... ----| 00001B30: 20 92 22 00 73 23 6C 07 99 22 1D 1D 1D 1D 1D 1D | .".s#l.."......| 00001B40: 1D 1D 1D 1D 1D 1D 12 20 53 4F 46 54 20 92 22 3A |....... SOFT .":| 00001B50: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 |."............. | 00001B60: 20 20 20 20 20 92 20 4D 43 4D 4C 58 58 58 49 56 | . MCMLXXXIV| 00001B70: 22 3A 8E 00 B0 23 76 07 99 22 93 11 11 11 11 11 |":...#v.."......| 00001B80: 11 11 11 22 A3 31 32 29 22 45 49 4E 44 45 20 56 |...".12)"EINDE V| 00001B90: 41 4E 20 4C 45 53 20 37 22 3A 99 A3 31 32 29 22 |AN LES 7":..12)"| 00001BA0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 |..............."| 00001BB0: 00 CE 23 80 07 99 22 13 11 11 11 11 11 11 11 11 |..#...".........| 00001BC0: 11 11 11 11 11 11 11 22 3A 8D 31 38 39 30 00 17 |.......":.1890..| 00001BD0: 24 8A 07 99 22 13 11 11 11 11 11 11 11 11 11 11 |$..."...........| 00001BE0: 11 11 11 11 11 11 11 11 11 11 11 11 11 12 20 3C |.............. <| 00001BF0: 2B 3E 20 45 49 4E 44 45 20 56 41 4E 20 4C 45 53 |+> EINDE VAN LES| 00001C00: 20 37 20 20 20 20 20 20 3C 2D 3E 20 50 41 47 49 | 7 <-> PAGI| 00001C10: 4E 41 20 31 20 92 22 00 29 24 94 07 81 49 B2 31 |NA 1 .".)$...I.1| 00001C20: A4 31 33 3A A1 58 24 3A 82 00 3D 24 9E 07 A1 58 |.13:.X$:..=$...X| 00001C30: 24 3A 8B 58 24 B2 22 22 A7 31 39 35 30 00 50 24 |$:.X$."".1950.P$| 00001C40: A8 07 8B 58 24 B2 22 2B 22 A7 9E 36 34 37 33 38 |...X$."+"..64738| 00001C50: 00 60 24 B2 07 8B 58 24 B2 22 2D 22 A7 31 37 30 |.`$...X$."-".170| 00001C60: 00 6A 24 BC 07 89 31 39 35 30 00 8F 24 C6 07 8F |.j$...1950..$...| 00001C70: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00001C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00001C90: B4 24 D0 07 8F 20 2A 20 20 20 20 20 20 20 20 20 |.$... * | 00001CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001CB0: 20 20 20 2A 00 D9 24 DA 07 8F 20 2A 20 20 20 20 | *..$... * | 00001CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001CD0: 20 20 20 20 20 20 20 20 2A 00 FE 24 E4 07 8F 20 | *..$... | 00001CE0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 00001CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 23 | *.#| 00001D00: 25 EE 07 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |%... * | 00001D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D20: 20 20 2A 00 48 25 F8 07 8F 20 2A 20 20 20 20 20 | *.H%... * | 00001D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D40: 20 20 20 20 20 20 20 2A 00 6D 25 02 08 8F 20 2A | *.m%... *| 00001D50: 20 20 54 52 49 4F 20 20 20 20 20 20 20 20 20 20 | TRIO | 00001D60: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 92 25 | *..%| 00001D70: 0C 08 8F 20 2A 20 20 2D 2D 2D 2D 20 20 20 20 20 |... * ---- | 00001D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D90: 20 2A 00 B7 25 16 08 8F 20 2A 20 20 53 4F 46 54 | *..%... * SOFT| 00001DA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001DB0: 20 20 20 20 20 20 2A 00 DC 25 20 08 8F 20 2A 20 | *..% .. * | 00001DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001DD0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 01 26 2A | *..&*| 00001DE0: 08 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * | 00001DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E00: 2A 00 26 26 34 08 8F 20 2A 20 20 20 20 20 20 20 |*.&&4.. * | 00001E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E20: 20 20 20 20 20 2A 00 4B 26 3E 08 8F 20 2A 20 20 | *.K&>.. * | 00001E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E40: 20 20 20 20 20 20 20 20 20 20 2A 00 70 26 48 08 | *.p&H.| 00001E50: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * | 00001E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *| 00001E70: 00 95 26 52 08 8F 20 2A 20 20 20 20 20 20 20 20 |..&R.. * | 00001E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E90: 20 20 20 20 2A 00 BA 26 5C 08 8F 20 2A 20 20 20 | *..&\.. * | 00001EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001EB0: 20 20 20 20 20 20 20 20 20 2A 00 DF 26 66 08 8F | *..&f..| 00001EC0: 20 2A 20 20 48 4F 4D 4F 20 53 4F 49 54 20 20 20 | * HOMO SOIT | 00001ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 00001EE0: 04 27 70 08 8F 20 2A 20 20 20 20 20 20 20 20 20 |.'p.. * | 00001EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F00: 20 20 20 2A 00 29 27 7A 08 8F 20 2A 20 20 20 20 | *.)'z.. * | 00001F10: 20 20 20 20 20 20 51 55 49 20 4D 41 4C 20 59 20 | QUI MAL Y | 00001F20: 50 45 4E 53 45 20 21 20 2A 00 4E 27 84 08 8F 20 |PENSE ! *.N'... | 00001F30: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 00001F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 73 | *.s| 00001F50: 27 8E 08 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |'... * | 00001F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F70: 20 20 2A 00 98 27 98 08 8F 20 2A 20 20 20 20 20 | *..'... * | 00001F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F90: 20 20 20 20 20 20 20 2A 00 BD 27 A2 08 8F 20 2A | *..'... *| 00001FA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 00 00 |*************...|
....D..53281,0:.53280,0.(.N..G(142):."."
.5.X.Z$.G(34).G...."..................":
."........BASIC 2.7..."......"........AA
NGEPAST VOOR C-64 .......".............
..DOOR ";:.1890... ..I.1.7000:..M...I.1:
.1860......"......".13)"LES 7":..13)"...
.."......"..".10)"1. LUSSEN.,.H...10)"2.
FOR/NEXT-INSTRUKTIE.H.R...10)"3. REM-IN
STRUKTIE.E.....10)"4. HUISWERK-OPGAVE.W.
...1800:.FL.170.....I.2:.1860......".".1
5)"LUSSEN":..15)"......".Q....".EEN KRAC
HTIG ONDERDEEL VAN IEDERE......"COMPUTER
IS ZIJN MOGELIJKHEID OM. ...."HERHAALDE
DATA-OPDRACHTEN SNEL EN.P.".."GEMAKKELI
JK UIT TE VOEREN.":.1800:.FL.170.^.,.I.3
:.1860...6..".EEN PROGRAMMA OM VERSCHILL
ENDE...@.."SALARISSEN TE BEREKENEN LAAT
HET.J.J.."GEBRUIK VAN LUSSEN ZIEN:.T.T..
1880...^.." 95 READ N$,R,H":." 100 IF N
$="Z$"EINDE"Z$" THEN 755.X.H..".110 PRIN
T "Z$"SALARIS VOOR "Z$"N$"Z$" IS "Z$"R*H
":." 115 GOTO 95...R.." 120 DATA "Z$"BOB
SMIT"Z$", 3.50, 40":." 125 DATA "Z$"JO
BOK"Z$;...|.." , 3.75, 20":." 130 DATA "
Z$"JANET VRIES"Z$", 4.00, 38.%...." 140
DATA "Z$"JAN DOE"Z$", 4.10, 40":." 199 D
ATA "Z$"EINDE"Z$",0,0.5...." 755 END".?.
...1880.M...."DIT PROGRAMMA ZAL DE INSTR
UKTIES 95 TOT......"115 HERHALEN, ";....
.."TOTDAT DE .EINDE. EN DE...B..".0. WAA
RDEN IN REGEL 199 GELEZEN ZIJN.":.1800:.
FL.240...L.I.4:.1860:..*.V.." 95 READ N
$,R,H":." 100 IF N$="Z$"EINDE"Z$" THEN 7
55.R....".110 PRINT "Z$"SALARIS VOOR "Z$
"N$"Z$" IS "Z$"R*H":." 115 GOTO 95......
" 120 DATA "Z$"BOB SMIT"Z$", 3.50, 40":.
" 125 DATA "Z$"JO BOK"Z$;......" , 3.75,
20":." 130 DATA "Z$"JANET VRIES"Z$", 4.
00, 38.?...." 140 DATA "Z$"JAN DOE"Z$",
4.10, 40":." 199 DATA "Z$"EINDE"Z$",0,0.
O...." 755 END".Y....1880......"DE LUS W
ORDT GEMAAKT DOOR DE .GOTO.-...&.."INSTR
UKTIE IN REGEL 115.".O.0.."DE IF-INSTRUK
TIE IN REGEL 100 ZAL DE...:.."LUS BEEIND
IGEN ALS DE STRING .EINDE....D.."GELEZEN
WORDT.".=.N.."DE WERKELIJKE WAARDE VAN
DE LUS IN DIT.H.X.."PROGRAMMA WORDT PAS
DUIDELIJK ALS ER...B.."VEEL WERKNEMERS Z
IJN.":.1800:.FL.300...L.I.5:.1860:....V.
." 95 READ N$,R,H":." 100 IF N$="Z$"EIN
DE"Z$" THEN 755.'....".110 PRINT "Z$"SAL
ARIS VOOR "Z$"N$"Z$" IS "Z$"R*H":." 115
GOTO 95.N...." 120 DATA "Z$"BOB SMIT"Z$"
, 3.50, 40":." 125 DATA "Z$"JO BOK"Z$;..
...." , 3.75, 20":." 130 DATA "Z$"JANET
VRIES"Z$", 4.00, 38......" 140 DATA "Z$"
JAN DOE"Z$", 4.10, 40":." 199 DATA "Z$"E
INDE"Z$",0,0......" 755 END"......1880.9
...."DE ENIGE VERANDERING DIE NODIG IS O
M.E.F.."MEER WERKNEMERS TOE TE VOEGEN, I
S HET...P.."TOEVOEGEN VAN MEER DATA INST
RUKTIES...Z.."(EEN VOOR IEDERE WERKNEMER
)."......"HET IS ONNODIG OM DE LOGICA VA
N HET......"PROGRAMMA TE VERANDEREN ALS
ER MEER.,...."DATA BIJ KOMT..":.1800:.FL
.460.I...I.6:.1860:.".KWIS-TIJD!".S....1
880......" 95 READ N$,R,H":." 100 IF N$
="Z$"EINDE"Z$" THEN 755.W. ..".110 PRINT
"Z$"SALARIS VOOR "Z$"N$"Z$" IS "Z$"R*H"
:." 115 GOTO 95...*.." 120 DATA "Z$"BOB
SMIT"Z$", 3.50, 40":." 125 DATA "Z$"JO B
OK"Z$;.[.4.." , 3.75, 20":." 130 DATA "Z
$"JANET VRIES"Z$", 4.00, 38...>.." 140 D
ATA "Z$"JAN DOE"Z$", 4.10, 40":." 199 DA
TA "Z$"EINDE"Z$",0,0...H.." 755 END":.18
80...R.."HOEVEEL KEER ZAL DE COMPUTER IN
STRUKTIE":."95 UITVOEREN:"...\.."(1, 4 O
F 5)";:.A$.3.F..A$.."1".A$.."4".A$.."5".
860.D.P..A$."5".1020.T.Z..A$."4".970....
..".DENK ERAAN DAT DE GOTO-INSTRUKTIE DE
......"COMPUTER TERUG LAAT SPRINGEN NAAR
95."......"DAN WORDT REGEL 95 DUS WEER
UITGEVOERD."......"DE IF-INSTRUKTIE ZAL
DEZE LUS DOORBRE-.4...."KEN ALS .EINDE.
IN REGEL 199 GELEZEN.B...."WORDT.".E....
"PROBEER HET NOG EENS!":.1010...J..".NEE
, 4 KEER IS NIET CORRECT....T.."MERK OP
DAT REGEL 95 VOOR IEDERE DATA-......"INS
TRUKTIE EEN KEER UITGEVOERD WORDT,......
"MET INBEGRIP VAN REGEL 199.":."PROBEER
HET NOG EENS!".4....I.1.15000:.:.770.C..
..".DAT KLOPT, DE READ-INSTRUKTIE WORDT
5X"......"UITGEVOERD, EEN KEER VOOR IEDE
RE DATA-......"INSTRUKTIE.":.1800:.FL.62
0.A...I.7:.1860:....$...10)"FORNNEXT-INS
TRUKTIES":..10)"....................".).
..."LUSSEN KUNNEN OOK GEMAAKT WORDEN DOO
R.W.8.."HET GEBRUIK VAN .FOR/NEXT.-INSTR
UKTIES....B.."DEZE ZIJN NUTTIG IN LUSSEN
DIE GECON-...L.."TROLEERD WORDEN DOOR T
ELLEN..Q.V.."HET VOLGENDE PROGRAMMA ZAL
EEN LIJST...`.."NUMMERS JNLEZEN EN ZE DA
N AFDRUKKEN:":.1880...J.." 2 FORI=1 TO 1
0.J.T.." 4 READ A(I)":." 6 PRINT A(I)":.
" 8 NEXT I.~.~.." 9 DATA 3.1,1.4,8,9.4,2
,5,7,8.6,3,14.7":.1880......"DE .FOR.-IN
STRUKTIE";......"ZORGT VOOR HERHAALDE...
..."UITVOERING VAN ALLE INSTRUKTIES TOT
AAN......"DE .NEXT.-INSTRUKTIE.......180
0:.FL.770.!...I.8:.1860:..7.D.." 2 FORI=
1 TO 10.H.N.." 4 READ A(I)":." 6 PRINT A
(I)":." 8 NEXT I...X.." 9 DATA 3.1,1.4,8
,9.4,2,5,7,8.6,3,14.7":.1880......"EERST
VOOR I=1,".I...."DAN VOOR I=2,......"
DAN VOOR I=3,":."ETC., EN TENSLOTTE VO
OR I=10..3....".DE .NEXT.-INSTRUKTIE SLU
IT DE INSTRUKTIES";.[....",WELKE HERHAAL
D UITGEVOERD MOETEN......"WORDEN VOOR IE
DERE WAARDE VAN I, AF.......".ER MOET EE
N .NEXT.-INSTRUKTIE ZIJN.T.(.."VOOR IEDE
RE .FOR.-INSTRUKTIE....2..1800:.FL.1050.
..<.I.9:.1860:.".EEN BRUIKBARE MOGELIJKH
EID VAN DE.L.F..".FOR.-INSTRUKTIE IS DE
.STEP., DIE GEBRUIKT.Z.P.."WORDT IN HET
VOLGENDE VOORBEELD:":.1880...Z.." 2 FOR
I=1 TO 6...D.." 4 READ A(I)":." 6 NEX
T I":." 8 FOR I=6 TO 1 STEP -1":." 10 P
RINT A(I)...N.." 12 NEXT I":." 14 DATA 3
.2, 2, 5.1, 0.1, 66, .7":.1880.J.X.."DE
NUMMERS WORDEN EERST OPGESLAGEN IN.`....
"DE LIJST A(I)."......"DE TWEEDE LUS (RE
GELS 8 TOT 12)"......"ZAL DE NUMMERS IN
OMGEKEERDE VOLGORDE.E. .."AFDRUKKEN."...
..."OMDAT DE STEP -1 IS, ZAL .I. BEGINNE
N......"MET DE WAARDE 6, DAARNA I=5, DAN
I=4,.;...."ETC., EN TENSLOTTE I=1..N.H.
.1800:.FL.1210.].R.I.10:.1860......".ALS
ER GEEN STEP AANGEGEVEN IS, WORDT......
"DE WAARDE VAN +1 AANGENOMEN.".Z...."..D
E VORM VAN DE .FOR.-INSTRUKTIE IS:......
"..REGEL NO.. FOR .VARIABELE. = .Y.TO .Z
. STEP .S.,".A....".WAAR .Y, Z EN S. ELK
GETAL, VARIABELE.A...."OF EXPRESSIE KUN
NEN ZIJN......."..DE VORM VAN DE .NEXT.-
INSTRUKTIE IS:...".."..REGEL NO.. NEXT .
VARIABLE.,"...,..".WAAR .VARIABELE. DEZE
LFDE VARIABELE...6.."NAAM IS, ALS DIE IN
DE FOR-INSTRUKTIE.":.1800:.FL.1340.*.@.
I.11:.1860.K.J..".ENKELE .FOR.-VOORBEELD
EN:.G.T.."..10 FOR I = 1 TO 5...^..".1
25 FOR J = 12 TO 39 STEP 0.5...H..".17
FOR A1 = 39 TO 12 STEP -1.X.R..".1240
FOR X = A1 TO A2 STEP A3.. |..".100 FOR
K = A*3 TO X-1 STEP 2/ZZ.. ...1800:.FL.
1490.# ..I.12:.1860.B ...".EN DAN NU HET
HUISWERK:.M ...".SCHRIJF EN RUN EEN PRO
GRAMMA DAT DE.. ..."CIJFERS 1 TOT 20 AFD
RUKT MET DAARACHTER.H ..."HET KWADRAAT (
HET GETAL MAAL ZICHZELF).. B.."VAN DAT G
ETAL...!L.."..
".<!V..". MISSCHIEN KUNT U
DIT OVERSCHRIJVEN, ".K!...". VOORDAT U
OP + OF - TOETST. "..!...".
"..!...
1800:.FL.1600..!...1910:.1890.."..."....
..................... <+> VOLGENDE PAGIN
A <-> PAGINA TERUG .".."...I.1.10:.X$:.
.,"...X$:.X$."".1820.?"&..X$."+".FL.0:..
R"0..X$."-".FL.1:..\":..1820.."D..I.10..
".. CURSUS BASIC LES 7 PAGINA"I"
. .":..T"N..I..10..".. CURSUS BASIC
LES 7 PAGINA"I". .":..."X..I.1.38
:.".";:.:.".":..3#B...12)". .":."..
........... TRIO .":."............. ----
.".S#L.."............. SOFT .":."......
....... . MCMLXXXIV":...#V.."......
...".12)"EINDE VAN LES 7":..12)"........
.......".N#..."................":.1890..
$..."......................... <+> EINDE
VAN LES 7 <-> PAGINA 1 .".)$...I.1
.13:.X$:..=$...X$:.X$."".1950.P$...X$."+
"..64738.`$...X$."-".170.J$...1950..$F..
******************************..$P.. *
*.Y$Z.. *
*..$... *
*.#%... *
*.H%... *
*.M%... * TRIO
*..%... * ----
*..%... * SOFT
*..% .. *
*..&*.. *
*.&&4.. * *.K
&>.. * *.P&H.
. * *..&R.. *
*..&\.. *
*..&F.. * HOMO
SOIT *..'P.. *
*.)'Z.. * QU
I MAL Y PENSE ! *.N'... *
*.S'... *
*..'... *
*..'... *************************
*****...
> CLICK IMAGE PREVIEW FOR FULL MODAL