BASIC 2.8
FILE INFORMATION
FILENAME(S): BASIC 2.8
FILE TYPE(S): PRG
FILE SIZE: 8.9K
FIRST SEEN: 2025-11-30 21:07:01
APPEARS ON: 1 disk(s)
FILE HASH
0cff6c5850a4f51416a65e7d7a4e4b527b1c369b661070421845f7a1bfa7ab81
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HBMD OSS 01 | BASIC 2.8 | PRG | DuncanTwain | 25 | 1 | 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 38 92 11 11 22 00 8C 08 8C 00 99 22 11 1D |2.8..."......"..|
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 32 30 36 30 00 |..DOOR ";:.2060.|
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 32 30 33 30 00 FD 08 |....I.1:.2030...|
000000D0: B4 00 99 22 11 11 11 11 22 A3 31 35 29 22 4C 45 |..."....".15)"LE|
000000E0: 53 20 38 22 3A 99 A3 31 35 29 22 A3 A3 A3 A3 A3 |S 8":..15)".....|
000000F0: 22 3A 99 22 11 11 11 22 3B A3 31 32 29 00 31 09 |":."...";.12).1.|
00000100: BE 00 99 22 31 2E 20 48 55 49 53 57 45 52 4B 2D |..."1. HUISWERK-|
00000110: 56 45 52 4B 4C 41 52 49 4E 47 22 3A 99 A3 31 32 |VERKLARING":..12|
00000120: 29 22 32 2E 20 47 4F 53 55 42 2F 52 45 54 55 52 |)"2. GOSUB/RETUR|
00000130: 4E 00 60 09 C8 00 99 A3 31 32 29 22 33 2E 20 4F |N.`.....12)"3. O|
00000140: 4E 2E 2E 2E 2E 47 4F 54 4F 22 3A 99 A3 31 32 29 |N....GOTO":..12)|
00000150: 22 34 2E 20 4F 4E 2E 2E 2E 2E 47 4F 53 55 42 22 |"4. ON....GOSUB"|
00000160: 00 72 09 D2 00 8D 31 39 37 30 3A 8B 46 4C A7 31 |.r....1970:.FL.1|
00000170: 37 30 00 B9 09 DC 00 49 B2 32 3A 8D 32 30 33 30 |70.....I.2:.2030|
00000180: 3A 99 22 11 22 A3 31 30 29 22 48 55 49 53 57 45 |:.".".10)"HUISWE|
00000190: 52 4B 2D 56 45 52 4B 4C 41 52 49 4E 47 22 3A 99 |RK-VERKLARING":.|
000001A0: A3 31 30 29 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |.10)"...........|
000001B0: A3 A3 A3 A3 A3 A3 A3 A3 22 00 E7 09 E6 00 99 22 |........"......"|
000001C0: 11 48 45 54 20 56 4F 4C 47 45 4E 44 45 20 50 52 |.HET VOLGENDE PR|
000001D0: 4F 47 52 41 4D 4D 41 20 5A 41 4C 20 44 45 20 47 |OGRAMMA ZAL DE G|
000001E0: 45 54 41 4C 4C 45 4E 00 13 0A F0 00 99 22 31 20 |ETALLEN......"1 |
000001F0: 54 4F 54 20 32 30 20 45 4E 20 44 45 20 4B 57 41 |TOT 20 EN DE KWA|
00000200: 44 52 41 54 45 4E 20 55 49 54 50 52 49 4E 54 45 |DRATEN UITPRINTE|
00000210: 4E 3A 11 00 2B 0A FA 00 99 22 31 20 46 4F 52 20 |N:..+...."1 FOR |
00000220: 49 20 3D 20 31 20 54 4F 20 32 30 00 4B 0A 04 01 |I = 1 TO 20.K...|
00000230: 99 22 32 20 50 52 49 4E 54 20 49 2C 20 49 2A 49 |."2 PRINT I, I*I|
00000240: 22 3A 99 22 33 20 4E 45 58 54 22 00 77 0A 0E 01 |":."3 NEXT".w...|
00000250: 99 22 11 5A 4F 20 5A 49 45 54 20 44 45 20 52 55 |.".ZO ZIET DE RU|
00000260: 4E 20 45 52 55 49 54 3A 22 3A 8D 31 39 37 30 3A |N ERUIT:":.1970:|
00000270: 8B 46 4C A7 31 37 30 00 A6 0A 18 01 49 B2 33 3A |.FL.170.....I.3:|
00000280: 8D 32 30 33 30 3A 99 3A 81 49 B2 31 A4 32 30 3A |.2030:.:.I.1.20:|
00000290: 99 49 2C 49 AC 49 3A 82 3A 8D 31 39 37 30 3A 8B |.I,I.I:.:.1970:.|
000002A0: 46 4C A7 32 32 30 00 DF 0A 22 01 49 B2 34 3A 8D |FL.220...".I.4:.|
000002B0: 32 30 33 30 3A 99 22 11 22 A3 31 33 29 22 47 4F |2030:.".".13)"GO|
000002C0: 53 55 42 CE 52 45 54 55 52 4E 22 3A 99 A3 31 33 |SUB.RETURN":..13|
000002D0: 29 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 |)"............".|
000002E0: 0B 0B 2C 01 99 22 4D 45 45 53 54 41 4C 20 56 45 |..,.."MEESTAL VE|
000002F0: 52 4C 41 4E 47 45 4E 20 4C 41 4E 47 45 52 45 20 |RLANGEN LANGERE |
00000300: 50 52 4F 47 52 41 4D 4D 41 27 53 00 38 0B 36 01 |PROGRAMMA'S.8.6.|
00000310: 99 22 48 45 52 48 41 41 4C 44 45 20 55 49 54 56 |."HERHAALDE UITV|
00000320: 4F 45 52 49 4E 47 20 56 41 4E 20 45 45 4E 20 47 |OERING VAN EEN G|
00000330: 52 4F 45 50 20 56 41 4E 00 63 0B 40 01 99 22 49 |ROEP VAN.c.@.."I|
00000340: 4E 53 54 52 55 4B 54 49 45 53 2C 20 47 45 4E 4F |NSTRUKTIES, GENO|
00000350: 45 4D 44 20 45 45 4E 20 53 55 42 52 4F 55 54 49 |EMD EEN SUBROUTI|
00000360: 4E 45 2E 00 90 0B 4A 01 99 22 11 57 45 20 47 45 |NE....J..".WE GE|
00000370: 42 52 55 49 4B 45 4E 20 44 45 20 12 47 4F 53 55 |BRUIKEN DE .GOSU|
00000380: 42 92 2D 49 4E 53 54 52 55 4B 54 49 45 20 4F 4D |B.-INSTRUKTIE OM|
00000390: 00 BD 0B 54 01 99 22 44 45 20 43 4F 4D 50 55 54 |...T.."DE COMPUT|
000003A0: 45 52 20 44 45 20 53 55 42 52 4F 55 54 49 4E 45 |ER DE SUBROUTINE|
000003B0: 20 55 49 54 20 54 45 20 4C 41 54 45 4E 00 F3 0B | UIT TE LATEN...|
000003C0: 5E 01 99 22 56 4F 45 52 45 4E 2E 22 3A 99 22 11 |^.."VOEREN.":.".|
000003D0: 44 45 20 56 4F 52 4D 20 56 41 4E 20 44 45 20 47 |DE VORM VAN DE G|
000003E0: 4F 53 55 42 2D 49 4E 53 54 52 55 4B 54 49 45 20 |OSUB-INSTRUKTIE |
000003F0: 49 53 3A 00 3B 0C 68 01 99 22 11 20 20 12 52 45 |IS:.;.h..". .RE|
00000400: 47 45 4C 20 31 92 20 47 4F 53 55 42 20 12 52 45 |GEL 1. GOSUB .RE|
00000410: 47 45 4C 20 32 11 22 3A 99 22 41 4C 53 20 52 45 |GEL 2.":."ALS RE|
00000420: 47 45 4C 20 31 20 57 4F 52 44 54 20 55 49 54 47 |GEL 1 WORDT UITG|
00000430: 45 56 4F 45 52 44 2C 20 5A 41 4C 00 64 0C 72 01 |EVOERD, ZAL.d.r.|
00000440: 99 22 44 45 20 43 4F 4D 50 55 54 45 52 20 53 50 |."DE COMPUTER SP|
00000450: 52 49 4E 47 45 4E 20 4E 41 41 52 20 52 45 47 45 |RINGEN NAAR REGE|
00000460: 4C 20 32 2E 00 8E 0C 7C 01 99 22 11 44 45 20 43 |L 2....|..".DE C|
00000470: 4F 4D 50 55 54 45 52 20 5A 41 4C 20 4E 41 41 52 |OMPUTER ZAL NAAR|
00000480: 20 44 45 20 49 4E 53 54 52 55 4B 54 49 45 00 BA | DE INSTRUKTIE..|
00000490: 0C 86 01 99 22 56 4F 4C 47 45 4E 44 20 4F 50 20 |...."VOLGEND OP |
000004A0: 44 45 20 47 4F 53 55 42 2D 49 4E 53 54 52 55 4B |DE GOSUB-INSTRUK|
000004B0: 54 49 45 20 54 45 52 55 47 2D 00 EA 0C 90 01 99 |TIE TERUG-......|
000004C0: 22 4B 45 52 45 4E 2C 20 5A 4F 47 41 55 57 20 48 |"KEREN, ZOGAUW H|
000004D0: 49 4A 20 45 45 4E 20 12 52 45 54 55 52 4E 92 2D |IJ EEN .RETURN.-|
000004E0: 49 4E 53 54 52 55 43 54 49 45 00 0A 0D 9A 01 99 |INSTRUCTIE......|
000004F0: 22 54 45 47 45 4E 4B 4F 4D 54 2E 22 3A 8D 31 39 |"TEGENKOMT.":.19|
00000500: 37 30 3A 8B 46 4C A7 32 38 30 00 18 0D A4 01 49 |70:.FL.280.....I|
00000510: B2 35 3A 8D 32 30 33 30 00 47 0D AE 01 99 22 11 |.5:.2030.G....".|
00000520: 44 45 20 47 52 4F 45 50 20 56 41 4E 20 49 4E 53 |DE GROEP VAN INS|
00000530: 54 52 55 4B 54 49 45 53 20 54 55 53 53 45 4E 20 |TRUKTIES TUSSEN |
00000540: 52 45 47 45 4C 20 32 00 8D 0D B8 01 99 22 54 4F |REGEL 2......"TO|
00000550: 54 20 41 41 4E 20 44 45 20 52 45 54 55 52 4E 2D |T AAN DE RETURN-|
00000560: 49 4E 53 54 52 55 4B 54 49 45 20 57 4F 52 44 54 |INSTRUKTIE WORDT|
00000570: 20 45 45 4E 22 3A 99 22 12 53 55 42 52 4F 55 54 | EEN":.".SUBROUT|
00000580: 49 4E 45 92 20 47 45 4E 4F 45 4D 44 2E 00 D5 0D |INE. GENOEMD....|
00000590: C2 01 99 22 11 44 45 20 56 4F 52 4D 20 56 41 4E |...".DE VORM VAN|
000005A0: 20 45 45 4E 20 52 45 54 55 52 4E 20 49 4E 53 54 | EEN RETURN INST|
000005B0: 52 55 4B 54 49 45 20 49 53 3A 11 22 3A 99 22 20 |RUKTIE IS:.":." |
000005C0: 20 12 52 45 47 45 4C 4E 55 4D 4D 45 52 92 20 52 | .REGELNUMMER. R|
000005D0: 45 54 55 52 4E 00 0F 0E CC 01 99 22 11 42 45 4B |ETURN......".BEK|
000005E0: 49 4A 4B 45 4E 20 57 45 20 48 45 54 20 56 4F 4C |IJKEN WE HET VOL|
000005F0: 47 45 4E 44 45 20 50 52 4F 47 52 41 4D 4D 41 3A |GENDE PROGRAMMA:|
00000600: 22 3A 8D 31 39 37 30 3A 8B 46 4C A7 32 39 30 00 |":.1970:.FL.290.|
00000610: 1D 0E D6 01 49 B2 36 3A 8D 32 30 33 30 00 69 0E |....I.6:.2030.i.|
00000620: E0 01 99 22 11 20 32 20 20 46 4F 52 20 49 3D 31 |...". 2 FOR I=1|
00000630: 20 54 4F 20 31 30 30 22 3A 99 22 20 34 20 20 49 | TO 100":." 4 I|
00000640: 4E 50 55 54 20 4E 24 2C 20 48 2C 20 52 22 3A 99 |NPUT N$, H, R":.|
00000650: 22 20 36 20 20 47 4F 53 55 42 20 31 32 22 3A 99 |" 6 GOSUB 12":.|
00000660: 22 20 38 20 20 4E 45 58 54 00 A4 0E EA 01 99 22 |" 8 NEXT......"|
00000670: 20 31 30 20 47 4F 54 4F 20 32 32 22 3A 99 22 20 | 10 GOTO 22":." |
00000680: 31 31 20 52 45 4D 20 53 41 4C 41 52 49 53 20 42 |11 REM SALARIS B|
00000690: 45 52 45 4B 45 4E 49 4E 47 20 53 55 42 52 4F 55 |EREKENING SUBROU|
000006A0: 54 49 4E 45 00 E6 0E F4 01 99 22 20 31 32 20 49 |TINE......" 12 I|
000006B0: 46 20 48 3E 34 30 20 54 48 45 4E 20 31 38 22 3A |F H>40 THEN 18":|
000006C0: 99 22 20 31 34 20 50 52 49 4E 54 20 4E 24 20 22 |." 14 PRINT N$ "|
000006D0: 5A 24 22 20 56 45 52 44 49 45 4E 44 45 20 22 5A |Z$" VERDIENDE "Z|
000006E0: 24 22 20 48 2A 52 00 1B 0F FE 01 99 22 20 31 36 |$" H*R......" 16|
000006F0: 20 52 45 54 55 52 4E 22 3A 99 22 20 31 38 20 4C | RETURN":." 18 L|
00000700: 45 54 20 53 3D 20 34 30 2A 52 20 2B 20 28 48 2D |ET S= 40*R + (H-|
00000710: 34 30 29 2A 31 2E 35 20 2A 20 52 00 52 0F 08 02 |40)*1.5 * R.R...|
00000720: 99 22 20 32 30 20 50 52 49 4E 54 20 4E 24 20 22 |." 20 PRINT N$ "|
00000730: 5A 24 22 20 56 45 52 44 49 45 4E 44 45 20 22 5A |Z$" VERDIENDE "Z|
00000740: 24 22 20 53 22 3A 99 22 20 32 31 20 52 45 54 55 |$" S":." 21 RETU|
00000750: 52 4E 00 67 0F 12 02 99 22 20 32 32 20 45 4E 44 |RN.g...." 22 END|
00000760: 22 3A 8D 32 30 35 30 00 94 0F 1C 02 99 22 44 49 |":.2050......"DI|
00000770: 54 20 50 52 4F 47 52 41 4D 4D 41 20 5A 41 4C 20 |T PROGRAMMA ZAL |
00000780: 48 45 54 20 53 41 4C 41 52 49 53 20 56 4F 4F 52 |HET SALARIS VOOR|
00000790: 20 31 30 30 00 BF 0F 26 02 99 22 57 45 52 4B 4E | 100...&.."WERKN|
000007A0: 45 4D 45 52 53 20 42 45 52 45 4B 45 4E 45 4E 2E |EMERS BEREKENEN.|
000007B0: 22 3A 8D 31 39 37 30 3A 8B 46 4C A7 34 32 30 00 |":.1970:.FL.420.|
000007C0: CD 0F 30 02 49 B2 37 3A 8D 32 30 33 30 00 19 10 |..0.I.7:.2030...|
000007D0: 3A 02 99 22 11 20 32 20 20 46 4F 52 20 49 3D 31 |:..". 2 FOR I=1|
000007E0: 20 54 4F 20 31 30 30 22 3A 99 22 20 34 20 20 49 | TO 100":." 4 I|
000007F0: 4E 50 55 54 20 4E 24 2C 20 48 2C 20 52 22 3A 99 |NPUT N$, H, R":.|
00000800: 22 20 36 20 20 47 4F 53 55 42 20 31 32 22 3A 99 |" 6 GOSUB 12":.|
00000810: 22 20 38 20 20 4E 45 58 54 00 54 10 44 02 99 22 |" 8 NEXT.T.D.."|
00000820: 20 31 30 20 47 4F 54 4F 20 32 32 22 3A 99 22 20 | 10 GOTO 22":." |
00000830: 31 31 20 52 45 4D 20 53 41 4C 41 52 49 53 20 42 |11 REM SALARIS B|
00000840: 45 52 45 4B 45 4E 49 4E 47 20 53 55 42 52 4F 55 |EREKENING SUBROU|
00000850: 54 49 4E 45 00 96 10 4E 02 99 22 20 31 32 20 49 |TINE...N.." 12 I|
00000860: 46 20 48 3E 34 30 20 54 48 45 4E 20 31 38 22 3A |F H>40 THEN 18":|
00000870: 99 22 20 31 34 20 50 52 49 4E 54 20 4E 24 20 22 |." 14 PRINT N$ "|
00000880: 5A 24 22 20 56 45 52 44 49 45 4E 44 45 20 22 5A |Z$" VERDIENDE "Z|
00000890: 24 22 20 48 2A 52 00 CB 10 58 02 99 22 20 31 36 |$" H*R...X.." 16|
000008A0: 20 52 45 54 55 52 4E 22 3A 99 22 20 31 38 20 4C | RETURN":." 18 L|
000008B0: 45 54 20 53 3D 20 34 30 2A 52 20 2B 20 28 48 2D |ET S= 40*R + (H-|
000008C0: 34 30 29 2A 31 2E 35 20 2A 20 52 00 02 11 62 02 |40)*1.5 * R...b.|
000008D0: 99 22 20 32 30 20 50 52 49 4E 54 20 4E 24 20 22 |." 20 PRINT N$ "|
000008E0: 5A 24 22 20 56 45 52 44 49 45 4E 44 45 20 22 5A |Z$" VERDIENDE "Z|
000008F0: 24 22 20 53 22 3A 99 22 20 32 31 20 52 45 54 55 |$" S":." 21 RETU|
00000900: 52 4E 00 17 11 6C 02 99 22 20 32 32 20 45 4E 44 |RN...l.." 22 END|
00000910: 22 3A 8D 32 30 35 30 00 40 11 76 02 99 22 11 49 |":.2050.@.v..".I|
00000920: 4E 20 52 45 47 45 4C 20 34 20 57 4F 52 44 45 4E |N REGEL 4 WORDEN|
00000930: 20 44 45 20 4E 41 41 4D 2C 20 41 41 4E 54 41 4C | DE NAAM, AANTAL|
00000940: 00 67 11 80 02 99 22 47 45 57 45 52 4B 54 45 20 |.g...."GEWERKTE |
00000950: 55 52 45 4E 20 45 4E 20 4C 4F 4F 4E 20 49 4E 47 |UREN EN LOON ING|
00000960: 45 54 59 50 54 2E 22 00 8B 11 8A 02 99 22 52 45 |ETYPT."......"RE|
00000970: 47 45 4C 20 36 20 4C 41 41 54 20 44 45 20 43 4F |GEL 6 LAAT DE CO|
00000980: 4D 50 55 54 45 52 20 4E 41 41 52 00 B3 11 94 02 |MPUTER NAAR.....|
00000990: 99 22 52 45 47 45 4C 20 31 32 20 53 50 52 49 4E |."REGEL 12 SPRIN|
000009A0: 47 45 4E 2E 22 3A 8D 31 39 37 30 3A 8B 46 4C A7 |GEN.":.1970:.FL.|
000009B0: 34 37 30 00 C1 11 9E 02 49 B2 38 3A 8D 32 30 33 |470.....I.8:.203|
000009C0: 30 00 0D 12 A8 02 99 22 11 20 32 20 20 46 4F 52 |0......". 2 FOR|
000009D0: 20 49 3D 31 20 54 4F 20 31 30 30 22 3A 99 22 20 | I=1 TO 100":." |
000009E0: 34 20 20 49 4E 50 55 54 20 4E 24 2C 20 48 2C 20 |4 INPUT N$, H, |
000009F0: 52 22 3A 99 22 20 36 20 20 47 4F 53 55 42 20 31 |R":." 6 GOSUB 1|
00000A00: 32 22 3A 99 22 20 38 20 20 4E 45 58 54 00 48 12 |2":." 8 NEXT.H.|
00000A10: B2 02 99 22 20 31 30 20 47 4F 54 4F 20 32 32 22 |..." 10 GOTO 22"|
00000A20: 3A 99 22 20 31 31 20 52 45 4D 20 53 41 4C 41 52 |:." 11 REM SALAR|
00000A30: 49 53 20 42 45 52 45 4B 45 4E 49 4E 47 20 53 55 |IS BEREKENING SU|
00000A40: 42 52 4F 55 54 49 4E 45 00 8A 12 BC 02 99 22 20 |BROUTINE......" |
00000A50: 31 32 20 49 46 20 48 3E 34 30 20 54 48 45 4E 20 |12 IF H>40 THEN |
00000A60: 31 38 22 3A 99 22 20 31 34 20 50 52 49 4E 54 20 |18":." 14 PRINT |
00000A70: 4E 24 20 22 5A 24 22 20 56 45 52 44 49 45 4E 44 |N$ "Z$" VERDIEND|
00000A80: 45 20 22 5A 24 22 20 48 2A 52 00 BF 12 C6 02 99 |E "Z$" H*R......|
00000A90: 22 20 31 36 20 52 45 54 55 52 4E 22 3A 99 22 20 |" 16 RETURN":." |
00000AA0: 31 38 20 4C 45 54 20 53 3D 20 34 30 2A 52 20 2B |18 LET S= 40*R +|
00000AB0: 20 28 48 2D 34 30 29 2A 31 2E 35 20 2A 20 52 00 | (H-40)*1.5 * R.|
00000AC0: F6 12 D0 02 99 22 20 32 30 20 50 52 49 4E 54 20 |....." 20 PRINT |
00000AD0: 4E 24 20 22 5A 24 22 20 56 45 52 44 49 45 4E 44 |N$ "Z$" VERDIEND|
00000AE0: 45 20 22 5A 24 22 20 53 22 3A 99 22 20 32 31 20 |E "Z$" S":." 21 |
00000AF0: 52 45 54 55 52 4E 00 0B 13 DA 02 99 22 20 32 32 |RETURN......" 22|
00000B00: 20 45 4E 44 22 3A 8D 32 30 35 30 00 33 13 E4 02 | END":.2050.3...|
00000B10: 99 22 52 45 47 45 4C 20 31 32 20 42 45 50 41 41 |."REGEL 12 BEPAA|
00000B20: 4C 54 20 4F 46 20 48 49 4A 20 4D 45 45 52 20 44 |LT OF HIJ MEER D|
00000B30: 41 4E 22 00 49 13 EE 02 99 22 34 30 20 55 55 52 |AN".I...."40 UUR|
00000B40: 20 57 45 52 4B 54 45 2E 22 00 73 13 F8 02 99 22 | WERKTE.".s...."|
00000B50: 41 4C 53 20 44 41 54 20 5A 4F 20 49 53 2C 20 5A |ALS DAT ZO IS, Z|
00000B60: 41 4C 20 44 45 20 43 4F 4D 50 55 54 45 52 20 4E |AL DE COMPUTER N|
00000B70: 41 41 52 00 9C 13 02 03 99 22 52 45 47 45 4C 20 |AAR......"REGEL |
00000B80: 31 38 20 53 50 52 49 4E 47 45 4E 2C 20 57 41 41 |18 SPRINGEN, WAA|
00000B90: 52 20 5A 49 4A 4E 20 4C 4F 4F 4E 2C 00 C5 13 0C |R ZIJN LOON,....|
00000BA0: 03 99 22 2D 20 49 4E 43 4C 55 53 49 45 46 20 4F |.."- INCLUSIEF O|
00000BB0: 56 45 52 54 49 4A 44 20 2D 20 55 49 54 47 45 52 |VERTIJD - UITGER|
00000BC0: 45 4B 45 4E 44 00 F6 13 16 03 99 22 57 4F 52 44 |EKEND......"WORD|
00000BD0: 54 20 45 4E 20 4F 50 47 45 53 4C 41 47 45 4E 20 |T EN OPGESLAGEN |
00000BE0: 49 4E 20 12 53 92 2E 22 3A 8D 31 39 37 30 3A 8B |IN .S..":.1970:.|
00000BF0: 46 4C A7 35 36 30 00 04 14 20 03 49 B2 39 3A 8D |FL.560... .I.9:.|
00000C00: 32 30 33 30 00 50 14 2A 03 99 22 11 20 32 20 20 |2030.P.*..". 2 |
00000C10: 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 30 22 3A |FOR I=1 TO 100":|
00000C20: 99 22 20 34 20 20 49 4E 50 55 54 20 4E 24 2C 20 |." 4 INPUT N$, |
00000C30: 48 2C 20 52 22 3A 99 22 20 36 20 20 47 4F 53 55 |H, R":." 6 GOSU|
00000C40: 42 20 31 32 22 3A 99 22 20 38 20 20 4E 45 58 54 |B 12":." 8 NEXT|
00000C50: 00 8B 14 34 03 99 22 20 31 30 20 47 4F 54 4F 20 |...4.." 10 GOTO |
00000C60: 32 32 22 3A 99 22 20 31 31 20 52 45 4D 20 53 41 |22":." 11 REM SA|
00000C70: 4C 41 52 49 53 20 42 45 52 45 4B 45 4E 49 4E 47 |LARIS BEREKENING|
00000C80: 20 53 55 42 52 4F 55 54 49 4E 45 00 CD 14 3E 03 | SUBROUTINE...>.|
00000C90: 99 22 20 31 32 20 49 46 20 48 3E 34 30 20 54 48 |." 12 IF H>40 TH|
00000CA0: 45 4E 20 31 38 22 3A 99 22 20 31 34 20 50 52 49 |EN 18":." 14 PRI|
00000CB0: 4E 54 20 4E 24 20 22 5A 24 22 20 56 45 52 44 49 |NT N$ "Z$" VERDI|
00000CC0: 45 4E 44 45 20 22 5A 24 22 20 48 2A 52 00 02 15 |ENDE "Z$" H*R...|
00000CD0: 48 03 99 22 20 31 36 20 52 45 54 55 52 4E 22 3A |H.." 16 RETURN":|
00000CE0: 99 22 20 31 38 20 4C 45 54 20 53 3D 20 34 30 2A |." 18 LET S= 40*|
00000CF0: 52 20 2B 20 28 48 2D 34 30 29 2A 31 2E 35 20 2A |R + (H-40)*1.5 *|
00000D00: 20 52 00 39 15 52 03 99 22 20 32 30 20 50 52 49 | R.9.R.." 20 PRI|
00000D10: 4E 54 20 4E 24 20 22 5A 24 22 20 56 45 52 44 49 |NT N$ "Z$" VERDI|
00000D20: 45 4E 44 45 20 22 5A 24 22 20 53 22 3A 99 22 20 |ENDE "Z$" S":." |
00000D30: 32 31 20 52 45 54 55 52 4E 00 4E 15 5C 03 99 22 |21 RETURN.N.\.."|
00000D40: 20 32 32 20 45 4E 44 22 3A 8D 32 30 35 30 00 72 | 22 END":.2050.r|
00000D50: 15 66 03 99 22 52 45 47 45 4C 20 32 30 20 44 52 |.f.."REGEL 20 DR|
00000D60: 55 4B 54 20 44 45 20 4E 41 41 4D 20 56 41 4E 20 |UKT DE NAAM VAN |
00000D70: 44 45 00 97 15 70 03 99 22 57 45 52 4B 4E 45 4D |DE...p.."WERKNEM|
00000D80: 45 52 20 45 4E 20 5A 49 4A 4E 20 53 41 4C 41 52 |ER EN ZIJN SALAR|
00000D90: 49 53 20 41 46 2E 22 00 C5 15 7A 03 99 22 52 45 |IS AF."...z.."RE|
00000DA0: 47 45 4C 20 32 31 20 4C 41 41 54 20 44 45 20 43 |GEL 21 LAAT DE C|
00000DB0: 4F 4D 50 55 54 45 52 20 54 45 52 55 47 53 50 52 |OMPUTER TERUGSPR|
00000DC0: 49 4E 47 45 4E 00 DA 15 84 03 99 22 4E 41 41 52 |INGEN......"NAAR|
00000DD0: 20 52 45 47 45 4C 20 38 2E 22 00 08 16 8E 03 99 | REGEL 8."......|
00000DE0: 22 42 49 4A 20 4D 49 4E 44 45 52 20 44 41 4E 20 |"BIJ MINDER DAN |
00000DF0: 34 30 20 55 55 52 20 42 45 52 45 4B 45 4E 54 20 |40 UUR BEREKENT |
00000E00: 52 45 47 45 4C 20 31 34 00 38 16 98 03 99 22 5A |REGEL 14.8...."Z|
00000E10: 49 4A 4E 20 4C 4F 4F 4E 20 45 4E 20 44 52 55 4B |IJN LOON EN DRUK|
00000E20: 54 20 44 49 54 20 41 46 2E 22 3A 8D 31 39 37 30 |T DIT AF.":.1970|
00000E30: 3A 8B 46 4C A7 36 37 30 00 47 16 A2 03 49 B2 31 |:.FL.670.G...I.1|
00000E40: 30 3A 8D 32 30 33 30 00 93 16 AC 03 99 22 11 20 |0:.2030......". |
00000E50: 32 20 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 |2 FOR I=1 TO 10|
00000E60: 30 22 3A 99 22 20 34 20 20 49 4E 50 55 54 20 4E |0":." 4 INPUT N|
00000E70: 24 2C 20 48 2C 20 52 22 3A 99 22 20 36 20 20 47 |$, H, R":." 6 G|
00000E80: 4F 53 55 42 20 31 32 22 3A 99 22 20 38 20 20 4E |OSUB 12":." 8 N|
00000E90: 45 58 54 00 CE 16 B6 03 99 22 20 31 30 20 47 4F |EXT......" 10 GO|
00000EA0: 54 4F 20 32 32 22 3A 99 22 20 31 31 20 52 45 4D |TO 22":." 11 REM|
00000EB0: 20 53 41 4C 41 52 49 53 20 42 45 52 45 4B 45 4E | SALARIS BEREKEN|
00000EC0: 49 4E 47 20 53 55 42 52 4F 55 54 49 4E 45 00 10 |ING SUBROUTINE..|
00000ED0: 17 C0 03 99 22 20 31 32 20 49 46 20 48 3E 34 30 |...." 12 IF H>40|
00000EE0: 20 54 48 45 4E 20 31 38 22 3A 99 22 20 31 34 20 | THEN 18":." 14 |
00000EF0: 50 52 49 4E 54 20 4E 24 20 22 5A 24 22 20 56 45 |PRINT N$ "Z$" VE|
00000F00: 52 44 49 45 4E 44 45 20 22 5A 24 22 20 48 2A 52 |RDIENDE "Z$" H*R|
00000F10: 00 45 17 CA 03 99 22 20 31 36 20 52 45 54 55 52 |.E...." 16 RETUR|
00000F20: 4E 22 3A 99 22 20 31 38 20 4C 45 54 20 53 3D 20 |N":." 18 LET S= |
00000F30: 34 30 2A 52 20 2B 20 28 48 2D 34 30 29 2A 31 2E |40*R + (H-40)*1.|
00000F40: 35 20 2A 20 52 00 7C 17 D4 03 99 22 20 32 30 20 |5 * R.|...." 20 |
00000F50: 50 52 49 4E 54 20 4E 24 20 22 5A 24 22 20 56 45 |PRINT N$ "Z$" VE|
00000F60: 52 44 49 45 4E 44 45 20 22 5A 24 22 20 53 22 3A |RDIENDE "Z$" S":|
00000F70: 99 22 20 32 31 20 52 45 54 55 52 4E 00 91 17 DE |." 21 RETURN....|
00000F80: 03 99 22 20 32 32 20 45 4E 44 22 3A 8D 32 30 35 |.." 22 END":.205|
00000F90: 30 00 D1 17 E8 03 99 22 52 45 47 45 4C 20 31 36 |0......"REGEL 16|
00000FA0: 20 4C 41 41 54 20 44 45 20 43 4F 4D 50 55 54 45 | LAAT DE COMPUTE|
00000FB0: 52 20 54 45 52 55 47 22 3A 99 22 53 50 52 49 4E |R TERUG":."SPRIN|
00000FC0: 47 45 4E 20 4E 41 41 52 20 52 45 47 45 4C 20 38 |GEN NAAR REGEL 8|
00000FD0: 2E 00 FC 17 F2 03 99 22 11 4F 50 20 44 49 54 20 |.......".OP DIT |
00000FE0: 50 55 4E 54 20 57 4F 52 44 54 20 44 45 20 4C 55 |PUNT WORDT DE LU|
00000FF0: 53 20 48 45 52 48 41 41 4C 44 2E 22 00 2A 18 FC |S HERHAALD.".*..|
00001000: 03 99 22 52 45 47 45 4C 20 31 30 20 4C 41 41 54 |.."REGEL 10 LAAT|
00001010: 20 44 45 20 43 4F 4D 50 55 54 45 52 20 4E 41 41 | DE COMPUTER NAA|
00001020: 52 20 52 45 47 45 4C 20 32 32 00 58 18 06 04 99 |R REGEL 22.X....|
00001030: 22 53 50 52 49 4E 47 45 4E 20 4F 4D 20 48 45 54 |"SPRINGEN OM HET|
00001040: 20 50 52 4F 47 52 41 4D 4D 41 20 54 45 20 42 45 | PROGRAMMA TE BE|
00001050: 45 49 4E 44 49 47 45 4E 00 8B 18 10 04 99 22 41 |EINDIGEN......"A|
00001060: 4C 53 20 44 45 20 31 30 30 45 20 4E 41 41 4D 20 |LS DE 100E NAAM |
00001070: 49 4E 47 45 54 59 50 54 20 49 53 2E 22 3A 8D 31 |INGETYPT IS.":.1|
00001080: 39 37 30 3A 8B 46 4C A7 38 30 30 00 9A 18 1A 04 |970:.FL.800.....|
00001090: 49 B2 31 31 3A 8D 32 30 33 30 00 B4 18 24 04 99 |I.11:.2030...$..|
000010A0: 22 11 22 A3 31 30 29 22 45 45 4E 20 4F 50 47 41 |".".10)"EEN OPGA|
000010B0: 56 45 3A 22 00 C6 18 2E 04 99 22 11 1D 32 20 4C |VE:"......"..2 L|
000010C0: 45 54 20 41 3D 31 00 D8 18 38 04 99 22 1D 34 20 |ET A=1...8..".4 |
000010D0: 47 4F 53 55 42 20 31 30 00 E9 18 42 04 99 22 1D |GOSUB 10...B..".|
000010E0: 36 20 50 52 49 4E 54 20 41 00 FA 18 4C 04 99 22 |6 PRINT A...L.."|
000010F0: 1D 38 20 47 4F 54 4F 20 31 32 00 0F 19 56 04 99 |.8 GOTO 12...V..|
00001100: 22 1D 31 30 20 4C 45 54 20 41 3D 41 2A 31 30 00 |".10 LET A=A*10.|
00001110: 1D 19 60 04 99 22 1D 31 32 20 45 4E 44 00 27 19 |..`..".12 END.'.|
00001120: 6A 04 8D 32 30 35 30 00 53 19 74 04 99 22 11 57 |j..2050.S.t..".W|
00001130: 41 54 20 5A 41 4C 20 45 52 20 41 46 47 45 44 52 |AT ZAL ER AFGEDR|
00001140: 55 4B 54 20 57 4F 52 44 45 4E 2C 20 41 4C 53 20 |UKT WORDEN, ALS |
00001150: 44 49 54 00 75 19 7E 04 99 22 50 52 4F 47 52 41 |DIT.u.~.."PROGRA|
00001160: 4D 4D 41 20 55 49 54 47 45 56 4F 45 52 44 20 57 |MMA UITGEVOERD W|
00001170: 4F 52 44 54 3A 00 9B 19 88 04 99 22 11 12 31 2E |ORDT:......"..1.|
00001180: 92 20 31 22 2C 22 12 32 2E 92 20 31 30 22 2C 22 |. 1",".2.. 10","|
00001190: 12 33 2E 92 20 4E 49 45 54 53 11 00 B0 19 92 04 |.3.. NIETS......|
000011A0: 99 22 28 31 2C 32 20 4F 46 20 33 29 20 22 20 3B |."(1,2 OF 3) " ;|
000011B0: 00 D6 19 9C 04 85 41 24 3A 8B 41 24 B3 B1 22 31 |......A$:.A$.."1|
000011C0: 22 AF 41 24 B3 B1 22 32 22 AF 41 24 B3 B1 22 33 |".A$.."2".A$.."3|
000011D0: 22 A7 31 31 37 30 00 E7 19 A6 04 8B 41 24 B2 22 |".1170......A$."|
000011E0: 33 22 89 31 32 35 30 00 F8 19 B0 04 8B 41 24 B2 |3".1250......A$.|
000011F0: 22 32 22 89 31 32 34 30 00 27 1A BA 04 99 22 11 |"2".1240.'....".|
00001200: 4E 45 45 2C 20 55 20 56 45 52 47 45 45 54 20 44 |NEE, U VERGEET D|
00001210: 41 54 20 44 45 20 47 4F 53 55 42 20 44 45 20 43 |AT DE GOSUB DE C|
00001220: 4F 4D 50 55 54 45 52 00 4A 1A C4 04 99 22 4E 41 |OMPUTER.J...."NA|
00001230: 41 52 20 52 45 47 45 4C 20 31 30 20 4C 41 41 54 |AR REGEL 10 LAAT|
00001240: 20 53 50 52 49 4E 47 45 4E 2E 00 7B 1A CE 04 99 | SPRINGEN..{....|
00001250: 22 11 50 52 4F 42 45 45 52 20 48 45 54 20 4E 4F |".PROBEER HET NO|
00001260: 47 20 45 45 4E 53 21 22 3A 81 49 B2 31 A4 31 30 |G EENS!":.I.1.10|
00001270: 30 30 30 3A 82 3A 89 31 30 35 30 00 AC 1A D8 04 |000:.:.1050.....|
00001280: 99 22 11 4E 45 45 2C 20 57 41 41 52 20 49 53 20 |.".NEE, WAAR IS |
00001290: 44 45 20 52 45 54 55 52 4E 2D 49 4E 53 54 52 55 |DE RETURN-INSTRU|
000012A0: 4B 54 49 45 3F 22 3A 89 31 32 33 30 00 D9 1A E2 |KTIE?":.1230....|
000012B0: 04 99 22 11 44 41 54 20 4B 4C 4F 50 54 21 20 45 |..".DAT KLOPT! E|
000012C0: 52 20 57 4F 52 44 54 20 4E 49 45 54 53 20 41 46 |R WORDT NIETS AF|
000012D0: 47 45 44 52 55 4B 54 21 21 00 03 1B EC 04 99 22 |GEDRUKT!!......"|
000012E0: 41 4C 53 20 57 45 20 12 41 92 20 5A 4F 55 44 45 |ALS WE .A. ZOUDE|
000012F0: 4E 20 57 49 4C 4C 45 4E 20 41 46 44 52 55 4B 4B |N WILLEN AFDRUKK|
00001300: 45 4E 2C 00 31 1B F6 04 99 22 4D 4F 45 54 45 4E |EN,.1...."MOETEN|
00001310: 20 57 45 20 12 31 31 20 52 45 54 55 52 4E 92 20 | WE .11 RETURN. |
00001320: 41 41 4E 20 48 45 54 20 50 52 4F 47 52 41 4D 4D |AAN HET PROGRAMM|
00001330: 41 00 51 1B 00 05 99 22 54 4F 45 56 4F 45 47 45 |A.Q...."TOEVOEGE|
00001340: 4E 2E 22 3A 8D 31 39 37 30 3A 8B 46 4C A7 39 33 |N.":.1970:.FL.93|
00001350: 30 00 60 1B 0A 05 49 B2 31 32 3A 8D 32 30 33 30 |0.`...I.12:.2030|
00001360: 00 8B 1B 14 05 99 22 11 22 A3 31 33 29 22 4F 4E |......".".13)"ON|
00001370: 2E 2E 2E 2E 47 4F 54 4F 22 3A 99 A3 31 33 29 22 |....GOTO":..13)"|
00001380: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 BA 1B 1E 05 |..........".....|
00001390: 99 22 11 48 45 54 20 47 4F 54 4F 2D 43 4F 4D 4D |.".HET GOTO-COMM|
000013A0: 41 4E 44 4F 20 4C 41 41 54 20 44 45 20 43 4F 4D |ANDO LAAT DE COM|
000013B0: 50 55 54 45 52 20 4E 41 41 52 00 E4 1B 28 05 99 |PUTER NAAR...(..|
000013C0: 22 45 45 4E 20 42 45 50 41 41 4C 44 45 20 52 45 |"EEN BEPAALDE RE|
000013D0: 47 45 4C 20 49 4E 20 48 45 54 20 50 52 4F 47 52 |GEL IN HET PROGR|
000013E0: 41 4D 4D 41 00 0A 1C 32 05 99 22 53 50 52 49 4E |AMMA...2.."SPRIN|
000013F0: 47 45 4E 20 54 49 4A 44 45 4E 53 20 44 45 20 55 |GEN TIJDENS DE U|
00001400: 49 54 56 4F 45 52 49 4E 47 2E 00 36 1C 3C 05 99 |ITVOERING..6.<..|
00001410: 22 11 4F 50 20 44 45 5A 45 4C 46 44 45 20 4D 41 |".OP DEZELFDE MA|
00001420: 4E 49 45 52 20 4C 41 41 54 20 12 4F 4E 2E 2E 2E |NIER LAAT .ON...|
00001430: 2E 47 4F 54 4F 92 00 62 1C 46 05 99 22 44 45 20 |.GOTO..b.F.."DE |
00001440: 43 4F 4D 50 55 54 45 52 20 4E 41 41 52 20 45 45 |COMPUTER NAAR EE|
00001450: 4E 20 56 41 4E 20 56 45 52 53 43 48 45 49 44 45 |N VAN VERSCHEIDE|
00001460: 4E 45 00 8F 1C 50 05 99 22 4D 4F 47 45 4C 49 4A |NE...P.."MOGELIJ|
00001470: 4B 45 20 52 45 47 45 4C 53 20 53 50 52 49 4E 47 |KE REGELS SPRING|
00001480: 45 4E 2C 20 41 46 48 41 4E 4B 45 4C 49 4A 4B 00 |EN, AFHANKELIJK.|
00001490: B6 1C 5A 05 99 22 56 41 4E 20 44 45 20 57 41 41 |..Z.."VAN DE WAA|
000014A0: 52 44 45 20 56 41 4E 20 45 45 4E 20 45 58 50 52 |RDE VAN EEN EXPR|
000014B0: 45 53 53 49 45 2E 00 E1 1C 64 05 99 22 11 45 45 |ESSIE....d..".EE|
000014C0: 4E 20 56 4F 4F 52 42 45 45 4C 44 20 56 41 4E 20 |N VOORBEELD VAN |
000014D0: 45 45 4E 20 12 4F 4E 2E 2E 2E 2E 47 4F 54 4F 92 |EEN .ON....GOTO.|
000014E0: 2D 00 F6 1C 6E 05 99 22 49 4E 53 54 52 55 4B 54 |-...n.."INSTRUKT|
000014F0: 49 45 20 49 53 3A 00 12 1D 78 05 99 22 11 1D 38 |IE IS:...x.."..8|
00001500: 30 20 4F 4E 20 4A 20 47 4F 54 4F 20 31 30 2C 20 |0 ON J GOTO 10, |
00001510: 39 30 00 25 1D 82 05 8D 31 39 37 30 3A 8B 46 4C |90.%....1970:.FL|
00001520: A7 31 30 35 30 00 34 1D 8C 05 49 B2 31 33 3A 8D |.1050.4...I.13:.|
00001530: 32 30 33 30 00 50 1D 96 05 99 22 11 1D 38 30 20 |2030.P...."..80 |
00001540: 4F 4E 20 4A 20 47 4F 54 4F 20 31 30 2C 20 39 30 |ON J GOTO 10, 90|
00001550: 00 7B 1D A0 05 99 22 11 41 4C 53 20 4A 20 44 45 |.{....".ALS J DE|
00001560: 20 57 41 41 52 44 45 20 31 20 48 45 45 46 54 2C | WAARDE 1 HEEFT,|
00001570: 20 53 50 52 49 4E 47 54 20 44 45 00 99 1D AA 05 | SPRINGT DE.....|
00001580: 99 22 43 4F 4D 50 55 54 45 52 20 4E 41 41 52 20 |."COMPUTER NAAR |
00001590: 52 45 47 45 4C 20 31 30 2E 00 C4 1D B4 05 99 22 |REGEL 10......."|
000015A0: 11 41 4C 53 20 4A 20 44 45 20 57 41 41 52 44 45 |.ALS J DE WAARDE|
000015B0: 20 32 20 48 45 45 46 54 2C 20 53 50 52 49 4E 47 | 2 HEEFT, SPRING|
000015C0: 54 20 44 45 00 E2 1D BE 05 99 22 43 4F 4D 50 55 |T DE......"COMPU|
000015D0: 54 45 52 20 4E 41 41 52 20 52 45 47 45 4C 20 39 |TER NAAR REGEL 9|
000015E0: 30 2E 00 10 1E C8 05 99 22 11 41 4C 53 20 4A 20 |0.......".ALS J |
000015F0: 45 45 4E 20 41 4E 44 45 52 45 20 57 41 41 52 44 |EEN ANDERE WAARD|
00001600: 45 20 48 45 45 46 54 2C 20 44 41 4E 20 5A 41 4C |E HEEFT, DAN ZAL|
00001610: 00 55 1E D2 05 99 22 44 45 20 52 45 47 45 4C 20 |.U...."DE REGEL |
00001620: 56 4F 4C 47 45 4E 44 20 4F 50 20 38 30 20 55 49 |VOLGEND OP 80 UI|
00001630: 54 47 45 56 4F 45 52 44 20 57 4F 52 2D 22 3A 99 |TGEVOERD WOR-":.|
00001640: 22 44 45 4E 2E 22 3A 8D 31 39 37 30 3A 8B 46 4C |"DEN.":.1970:.FL|
00001650: A7 31 32 39 30 00 90 1E DC 05 49 B2 31 34 3A 8D |.1290.....I.14:.|
00001660: 32 30 33 30 3A 99 22 11 44 45 20 56 4F 52 4D 20 |2030:.".DE VORM |
00001670: 56 41 4E 20 44 45 20 4F 4E 2E 2E 2E 2E 47 4F 54 |VAN DE ON....GOT|
00001680: 4F 2D 49 4E 53 54 52 55 4B 54 49 45 20 49 53 3A |O-INSTRUKTIE IS:|
00001690: 00 C1 1E E6 05 99 22 11 12 52 45 47 45 4C 20 4E |......"..REGEL N|
000016A0: 4F 2E 92 20 4F 4E 20 12 58 92 20 47 4F 54 4F 20 |O.. ON .X. GOTO |
000016B0: 12 4C 49 4A 53 54 20 56 41 4E 20 52 45 47 45 4C |.LIJST VAN REGEL|
000016C0: 53 00 EE 1E F0 05 99 22 11 57 41 41 52 20 58 20 |S......".WAAR X |
000016D0: 45 45 4E 20 56 41 52 49 41 42 45 4C 45 20 4F 46 |EEN VARIABELE OF|
000016E0: 20 45 58 50 52 45 53 53 49 45 20 49 53 2E 00 16 | EXPRESSIE IS...|
000016F0: 1F FA 05 99 22 11 11 48 49 45 52 20 5A 49 4A 4E |...."..HIER ZIJN|
00001700: 20 4E 4F 47 20 54 57 45 45 20 56 4F 4F 52 42 45 | NOG TWEE VOORBE|
00001710: 45 4C 44 45 4E 3A 00 34 1F 04 06 99 22 11 11 1D |ELDEN:.4...."...|
00001720: 32 20 20 4F 4E 20 46 20 47 4F 54 4F 20 35 2C 20 |2 ON F GOTO 5, |
00001730: 35 2C 20 36 00 58 1F 0E 06 99 22 11 1D 31 34 20 |5, 6.X...."..14 |
00001740: 4F 4E 20 56 2B 32 20 47 4F 54 4F 20 33 33 2C 20 |ON V+2 GOTO 33, |
00001750: 31 30 2C 20 32 2C 20 32 00 6B 1F 18 06 8D 31 39 |10, 2, 2.k....19|
00001760: 37 30 3A 8B 46 4C A7 31 34 32 30 00 A2 1F 22 06 |70:.FL.1420...".|
00001770: 49 B2 31 35 3A 8D 32 30 33 30 3A 99 22 11 57 45 |I.15:.2030:.".WE|
00001780: 4C 4B 45 20 56 41 4E 20 44 45 20 56 4F 4C 47 45 |LKE VAN DE VOLGE|
00001790: 4E 44 45 20 56 4F 4F 52 42 45 45 4C 44 45 4E 20 |NDE VOORBEELDEN |
000017A0: 49 53 00 CA 1F 2C 06 99 22 45 45 4E 20 4A 55 49 |IS...,.."EEN JUI|
000017B0: 53 54 45 20 4F 4E 2E 2E 2E 2E 47 4F 54 4F 2D 49 |STE ON....GOTO-I|
000017C0: 4E 53 54 52 55 4B 54 49 45 3A 00 EB 1F 36 06 99 |NSTRUKTIE:...6..|
000017D0: 22 11 1D 32 30 20 4F 4E 20 4B 2D 32 20 47 4F 54 |"..20 ON K-2 GOT|
000017E0: 4F 20 31 30 2C 20 4A 2C 20 33 30 00 14 20 40 06 |O 10, J, 30.. @.|
000017F0: 99 22 11 1D 35 30 20 4F 4E 20 28 55 2D 56 29 2F |."..50 ON (U-V)/|
00001800: 4C 20 47 4F 54 4F 20 36 38 2C 20 35 35 2C 20 32 |L GOTO 68, 55, 2|
00001810: 2C 20 38 38 00 33 20 4A 06 99 22 11 1D 37 30 20 |, 88.3 J.."..70 |
00001820: 4F 4E 20 58 2C 59 20 47 4F 54 4F 20 38 39 2C 20 |ON X,Y GOTO 89, |
00001830: 36 36 11 00 4C 20 54 06 99 22 12 28 32 30 2C 35 |66..L T..".(20,5|
00001840: 30 20 4F 46 20 37 30 29 92 20 22 3B 00 75 20 5E |0 OF 70). ";.u ^|
00001850: 06 85 41 24 3A 8B 41 24 B3 B1 22 32 30 22 AF 41 |..A$:.A$.."20".A|
00001860: 24 B3 B1 22 35 30 22 AF 41 24 B3 B1 22 37 30 22 |$.."50".A$.."70"|
00001870: A7 31 36 32 30 00 87 20 68 06 8B 41 24 B2 22 37 |.1620.. h..A$."7|
00001880: 30 22 89 31 37 30 30 00 99 20 72 06 8B 41 24 B2 |0".1700.. r..A$.|
00001890: 22 35 30 22 89 31 37 32 30 00 C4 20 7C 06 99 22 |"50".1720.. |.."|
000018A0: 11 4E 45 45 2C 20 44 49 54 20 49 53 20 47 45 45 |.NEE, DIT IS GEE|
000018B0: 4E 20 4A 55 49 53 54 45 20 4F 4E 2E 2E 2E 2E 47 |N JUISTE ON....G|
000018C0: 4F 54 4F 2C 00 ED 20 86 06 99 22 4F 4D 44 41 54 |OTO,.. ..."OMDAT|
000018D0: 20 52 45 47 45 4C 4E 55 4D 4D 45 52 53 20 47 45 | REGELNUMMERS GE|
000018E0: 45 4E 20 56 41 52 49 41 42 45 4C 45 4E 00 FF 20 |EN VARIABELEN.. |
000018F0: 90 06 99 22 4D 4F 47 45 4E 20 5A 49 4A 4E 2E 00 |..."MOGEN ZIJN..|
00001900: 30 21 9A 06 99 22 11 50 52 4F 42 45 45 52 20 48 |0!...".PROBEER H|
00001910: 45 54 20 4E 4F 47 20 45 45 4E 53 21 22 3A 81 49 |ET NOG EENS!":.I|
00001920: B2 31 A4 31 30 30 30 30 3A 82 3A 89 31 35 37 30 |.1.10000:.:.1570|
00001930: 00 5B 21 A4 06 99 22 11 4E 45 45 2C 20 44 49 54 |.[!...".NEE, DIT|
00001940: 20 49 53 20 47 45 45 4E 20 4A 55 49 53 54 45 20 | IS GEEN JUISTE |
00001950: 4F 4E 2E 2E 2E 2E 47 4F 54 4F 2C 00 87 21 AE 06 |ON....GOTO,..!..|
00001960: 99 22 4F 4D 44 41 54 20 12 58 2C 59 92 20 47 45 |."OMDAT .X,Y. GE|
00001970: 45 4E 20 45 58 50 52 45 53 53 49 45 20 49 53 2E |EN EXPRESSIE IS.|
00001980: 22 3A 89 31 36 39 30 00 B4 21 B8 06 99 22 11 4B |":.1690..!...".K|
00001990: 4C 4F 50 54 21 20 52 45 47 45 4C 20 35 30 20 49 |LOPT! REGEL 50 I|
000019A0: 53 20 45 45 4E 20 4A 55 49 53 54 45 20 4F 4E 2E |S EEN JUISTE ON.|
000019B0: 2E 2E 2E 22 00 CB 21 C2 06 99 22 47 4F 54 4F 2D |..."..!..."GOTO-|
000019C0: 49 4E 53 54 52 55 4B 54 49 45 2E 00 F7 21 CC 06 |INSTRUKTIE...!..|
000019D0: 99 22 11 4D 45 52 4B 20 4F 50 20 44 41 54 20 52 |.".MERK OP DAT R|
000019E0: 45 47 45 4C 20 32 30 20 4F 4E 4A 55 49 53 54 20 |EGEL 20 ONJUIST |
000019F0: 49 53 20 44 4F 4F 52 00 23 22 D6 06 99 22 44 45 |IS DOOR.#"..."DE|
00001A00: 20 12 4A 92 20 45 4E 20 52 45 47 45 4C 20 37 30 | .J. EN REGEL 70|
00001A10: 20 4F 4F 4B 20 4F 4E 4A 55 49 53 54 2C 20 4F 4D | OOK ONJUIST, OM|
00001A20: 44 41 54 00 52 22 E0 06 99 22 12 58 2C 59 92 20 |DAT.R"...".X,Y. |
00001A30: 47 45 45 4E 20 45 58 50 52 45 53 53 49 45 20 49 |GEEN EXPRESSIE I|
00001A40: 53 2E 22 3A 8D 31 39 37 30 3A 8B 46 4C A7 31 35 |S.":.1970:.FL.15|
00001A50: 30 30 00 8A 22 EA 06 49 B2 31 36 3A 8D 32 30 33 |00.."..I.16:.203|
00001A60: 30 3A 99 22 11 22 A3 31 35 29 22 4F 4E 2E 2E 2E |0:.".".15)"ON...|
00001A70: 2E 47 4F 53 55 42 22 3A 99 A3 31 35 29 22 A3 A3 |.GOSUB":..15)"..|
00001A80: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 B8 22 F4 06 99 |.........".."...|
00001A90: 22 11 45 45 4E 20 49 4E 53 54 52 55 4B 54 49 45 |".EEN INSTRUKTIE|
00001AA0: 20 44 49 45 20 4F 50 20 4F 4E 2E 2E 2E 2E 47 4F | DIE OP ON....GO|
00001AB0: 54 4F 20 4C 49 4A 4B 54 00 CE 22 FE 06 99 22 49 |TO LIJKT.."..."I|
00001AC0: 53 20 4F 4E 2E 2E 2E 2E 47 4F 53 55 42 2E 00 FD |S ON....GOSUB...|
00001AD0: 22 08 07 99 22 11 44 45 20 4F 4E 2E 2E 2E 47 4F |"...".DE ON...GO|
00001AE0: 53 55 42 20 4C 41 41 54 20 44 45 20 43 4F 4D 50 |SUB LAAT DE COMP|
00001AF0: 55 54 45 52 20 4E 41 41 52 20 45 45 4E 00 2A 23 |UTER NAAR EEN.*#|
00001B00: 12 07 99 22 56 41 4E 20 56 45 52 53 43 48 45 49 |..."VAN VERSCHEI|
00001B10: 44 45 4E 45 20 53 55 42 52 4F 55 54 49 4E 45 53 |DENE SUBROUTINES|
00001B20: 20 53 50 52 49 4E 47 45 4E 2C 00 52 23 1C 07 99 | SPRINGEN,.R#...|
00001B30: 22 41 46 48 41 4E 4B 45 4C 49 4A 4B 20 56 41 4E |"AFHANKELIJK VAN|
00001B40: 20 44 45 20 57 41 41 52 44 45 20 56 41 4E 20 45 | DE WAARDE VAN E|
00001B50: 45 4E 00 63 23 26 07 99 22 45 58 50 52 45 53 53 |EN.c#&.."EXPRESS|
00001B60: 49 45 2E 00 91 23 30 07 99 22 11 41 4C 53 20 45 |IE...#0..".ALS E|
00001B70: 45 4E 20 52 45 54 55 52 4E 2D 49 4E 53 54 52 55 |EN RETURN-INSTRU|
00001B80: 4B 54 49 45 20 54 45 47 45 4E 47 45 4B 4F 4D 45 |KTIE TEGENGEKOME|
00001B90: 4E 00 BD 23 3A 07 99 22 57 4F 52 44 54 2C 20 53 |N..#:.."WORDT, S|
00001BA0: 50 52 49 4E 47 54 20 44 45 20 43 4F 4D 50 55 54 |PRINGT DE COMPUT|
00001BB0: 45 52 20 54 45 52 55 47 20 4E 41 41 52 00 EB 23 |ER TERUG NAAR..#|
00001BC0: 44 07 99 22 44 45 20 52 45 47 45 4C 20 4F 4E 4D |D.."DE REGEL ONM|
00001BD0: 49 44 44 45 4C 49 4A 4B 20 4E 41 20 44 45 20 4F |IDDELIJK NA DE O|
00001BE0: 4E 2E 2E 2E 2E 47 4F 53 55 42 2D 00 FD 23 4E 07 |N....GOSUB-..#N.|
00001BF0: 99 22 49 4E 53 54 52 55 4B 54 49 45 2E 00 28 24 |."INSTRUKTIE..($|
00001C00: 58 07 99 22 11 44 55 53 2C 20 52 45 54 55 52 4E |X..".DUS, RETURN|
00001C10: 20 57 45 52 4B 54 20 48 45 54 5A 45 4C 46 44 45 | WERKT HETZELFDE|
00001C20: 20 41 4C 53 20 42 49 4A 00 54 24 62 07 99 22 45 | ALS BIJ.T$b.."E|
00001C30: 45 4E 20 47 4F 53 55 42 2D 49 4E 53 54 52 55 4B |EN GOSUB-INSTRUK|
00001C40: 54 49 45 2E 22 3A 8D 31 39 37 30 3A 8B 46 4C A7 |TIE.":.1970:.FL.|
00001C50: 31 35 37 30 00 78 24 6C 07 49 B2 31 37 3A 8D 32 |1570.x$l.I.17:.2|
00001C60: 30 33 30 3A 99 22 11 45 45 4E 20 56 4F 4F 52 42 |030:.".EEN VOORB|
00001C70: 45 45 4C 44 20 49 53 3A 00 97 24 76 07 99 22 11 |EELD IS:..$v..".|
00001C80: 1D 37 20 4F 4E 20 45 20 47 4F 53 55 42 20 35 30 |.7 ON E GOSUB 50|
00001C90: 30 2C 20 31 30 30 30 00 CC 24 80 07 99 22 11 44 |0, 1000..$...".D|
00001CA0: 45 20 56 4F 52 4D 20 56 41 4E 20 44 45 20 4F 4E |E VORM VAN DE ON|
00001CB0: 2E 2E 2E 2E 47 4F 53 55 42 2D 49 4E 53 54 52 55 |....GOSUB-INSTRU|
00001CC0: 4B 54 49 45 22 3A 99 22 49 53 3A 22 00 FE 24 8A |KTIE":."IS:"..$.|
00001CD0: 07 99 22 11 12 52 45 47 45 4C 20 4E 4F 2E 92 20 |.."..REGEL NO.. |
00001CE0: 4F 4E 20 12 58 92 20 47 4F 53 55 42 20 12 4C 49 |ON .X. GOSUB .LI|
00001CF0: 4A 53 54 20 56 41 4E 20 52 45 47 45 4C 53 00 23 |JST VAN REGELS.#|
00001D00: 25 94 07 99 22 11 57 41 41 52 20 12 58 92 20 45 |%...".WAAR .X. E|
00001D10: 45 4E 20 56 41 52 49 41 42 45 4C 45 20 4F 46 20 |EN VARIABELE OF |
00001D20: 45 45 4E 00 48 25 9E 07 99 22 49 4E 53 54 52 55 |EEN.H%..."INSTRU|
00001D30: 4B 54 49 45 20 49 53 2E 22 3A 8D 31 39 37 30 3A |KTIE IS.":.1970:|
00001D40: 8B 46 4C A7 31 37 37 30 00 58 25 A8 07 8D 32 30 |.FL.1770.X%...20|
00001D50: 38 30 3A 8D 32 30 36 30 00 A1 25 B2 07 99 22 13 |80:.2060..%...".|
00001D60: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001D70: 11 11 11 11 11 11 11 12 20 3C 2B 3E 20 56 4F 4C |........ <+> VOL|
00001D80: 47 45 4E 44 45 20 50 41 47 49 4E 41 20 20 3C 2D |GENDE PAGINA <-|
00001D90: 3E 20 50 41 47 49 4E 41 20 54 45 52 55 47 20 92 |> PAGINA TERUG .|
00001DA0: 22 00 B3 25 BC 07 81 49 B2 31 A4 31 30 3A A1 58 |"..%...I.1.10:.X|
00001DB0: 24 3A 82 00 C7 25 C6 07 A1 58 24 3A 8B 58 24 B2 |$:...%...X$:.X$.|
00001DC0: 22 22 A7 31 39 39 30 00 DA 25 D0 07 8B 58 24 B2 |"".1990..%...X$.|
00001DD0: 22 2B 22 A7 46 4C B2 30 3A 8E 00 ED 25 DA 07 8B |"+".FL.0:...%...|
00001DE0: 58 24 B2 22 2D 22 A7 46 4C B2 31 3A 8E 00 F7 25 |X$."-".FL.1:...%|
00001DF0: E4 07 89 31 39 39 30 00 33 26 EE 07 8B 49 B3 31 |...1990.3&...I.1|
00001E00: 30 A7 99 22 93 12 20 43 55 52 53 55 53 20 42 41 |0..".. CURSUS BA|
00001E10: 53 49 43 20 20 20 20 20 4C 45 53 20 38 20 20 20 |SIC LES 8 |
00001E20: 20 20 50 41 47 49 4E 41 22 49 22 9D 20 20 20 92 | PAGINA"I". .|
00001E30: 22 3A 8E 00 6F 26 F8 07 8B 49 B2 B1 31 30 A7 99 |":..o&...I..10..|
00001E40: 22 93 12 20 43 55 52 53 55 53 20 42 41 53 49 43 |".. CURSUS BASIC|
00001E50: 20 20 20 20 20 4C 45 53 20 38 20 20 20 20 20 50 | LES 8 P|
00001E60: 41 47 49 4E 41 22 49 22 9D 20 20 92 22 3A 8E 00 |AGINA"I". .":..|
00001E70: 8A 26 02 08 81 49 B2 31 A4 33 38 3A 99 22 C0 22 |.&...I.1.38:."."|
00001E80: 3B 3A 82 3A 99 22 C0 22 3A 8E 00 CE 26 0C 08 99 |;:.:.".":...&...|
00001E90: A3 31 32 29 22 12 20 20 20 20 20 20 92 22 3A 99 |.12)". .":.|
00001EA0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 54 |"............. T|
00001EB0: 52 49 4F 20 92 22 3A 99 22 1D 1D 1D 1D 1D 1D 1D |RIO .":.".......|
00001EC0: 1D 1D 1D 1D 1D 12 20 2D 2D 2D 2D 20 92 22 00 0E |...... ---- ."..|
00001ED0: 27 16 08 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |'..."...........|
00001EE0: 1D 12 20 53 4F 46 54 20 92 22 3A 99 22 1D 1D 1D |.. SOFT .":."...|
00001EF0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 20 20 20 20 20 |.......... |
00001F00: 92 20 4D 43 4D 4C 58 58 58 49 56 22 3A 8E 00 4B |. MCMLXXXIV":..K|
00001F10: 27 20 08 99 22 93 11 11 11 11 11 11 11 11 22 A3 |' ..".........".|
00001F20: 31 32 29 22 45 49 4E 44 45 20 56 41 4E 20 4C 45 |12)"EINDE VAN LE|
00001F30: 53 20 38 22 3A 99 A3 31 32 29 22 B7 B7 B7 B7 B7 |S 8":..12)".....|
00001F40: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 00 69 27 2A 08 |..........".i'*.|
00001F50: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001F60: 11 11 22 3A 8D 32 30 36 30 00 B2 27 34 08 99 22 |..":.2060..'4.."|
00001F70: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001F80: 11 11 11 11 11 11 11 11 12 20 3C 2B 3E 20 45 49 |......... <+> EI|
00001F90: 4E 44 45 20 56 41 4E 20 4C 45 53 20 38 20 20 20 |NDE VAN LES 8 |
00001FA0: 20 20 20 3C 2D 3E 20 50 41 47 49 4E 41 20 31 20 | <-> PAGINA 1 |
00001FB0: 92 22 00 C4 27 3E 08 81 49 B2 31 A4 31 33 3A A1 |."..'>..I.1.13:.|
00001FC0: 58 24 3A 82 00 D8 27 48 08 A1 58 24 3A 8B 58 24 |X$:...'H..X$:.X$|
00001FD0: B2 22 22 A7 32 31 32 30 00 EB 27 52 08 8B 58 24 |."".2120..'R..X$|
00001FE0: B2 22 2B 22 A7 9E 36 34 37 33 38 00 FB 27 5C 08 |."+"..64738..'\.|
00001FF0: 8B 58 24 B2 22 2D 22 A7 31 37 30 00 05 28 66 08 |.X$."-".170..(f.|
00002000: 89 32 31 32 30 00 2A 28 70 08 8F 20 2A 2A 2A 2A |.2120.*(p.. ****|
00002010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 28 7A 08 8F |**********.O(z..|
00002030: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * |
00002040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00002050: 74 28 84 08 8F 20 2A 20 20 20 20 20 20 20 20 20 |t(... * |
00002060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002070: 20 20 20 2A 00 99 28 8E 08 8F 20 2A 20 20 20 20 | *..(... * |
00002080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002090: 20 20 20 20 20 20 20 20 2A 00 BE 28 98 08 8F 20 | *..(... |
000020A0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000020B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 E3 | *..|
000020C0: 28 A2 08 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |(... * |
000020D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020E0: 20 20 2A 00 08 29 AC 08 8F 20 2A 20 20 54 52 49 | *..)... * TRI|
000020F0: 4F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |O |
00002100: 20 20 20 20 20 20 20 2A 00 2D 29 B6 08 8F 20 2A | *.-)... *|
00002110: 20 20 2D 2D 2D 2D 20 20 20 20 20 20 20 20 20 20 | ---- |
00002120: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 52 29 | *.R)|
00002130: C0 08 8F 20 2A 20 20 53 4F 46 54 20 20 20 20 20 |... * SOFT |
00002140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002150: 20 2A 00 77 29 CA 08 8F 20 2A 20 20 20 20 20 20 | *.w)... * |
00002160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002170: 20 20 20 20 20 20 2A 00 9C 29 D4 08 8F 20 2A 20 | *..)... * |
00002180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002190: 20 20 20 20 20 20 20 20 20 20 20 2A 00 C1 29 DE | *..).|
000021A0: 08 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * |
000021B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000021C0: 2A 00 E6 29 E8 08 8F 20 2A 20 20 20 20 20 20 20 |*..)... * |
000021D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000021E0: 20 20 20 20 20 2A 00 0B 2A F2 08 8F 20 2A 20 20 | *..*... * |
000021F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002200: 20 20 20 20 20 20 20 20 20 20 2A 00 30 2A FC 08 | *.0*..|
00002210: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * |
00002220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00002230: 00 55 2A 06 09 8F 20 2A 20 20 20 20 20 20 20 20 |.U*... * |
00002240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002250: 20 20 20 20 2A 00 7A 2A 10 09 8F 20 2A 20 20 48 | *.z*... * H|
00002260: 4F 4D 4F 20 53 4F 49 54 20 20 20 20 20 20 20 20 |OMO SOIT |
00002270: 20 20 20 20 20 20 20 20 20 2A 00 9F 2A 1A 09 8F | *..*...|
00002280: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * |
00002290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
000022A0: C4 2A 24 09 8F 20 2A 20 20 20 20 20 20 20 20 20 |.*$.. * |
000022B0: 20 51 55 49 20 4D 41 4C 20 59 20 50 45 4E 53 45 | QUI MAL Y PENSE|
000022C0: 20 21 20 2A 00 E9 2A 2E 09 8F 20 2A 20 20 20 20 | ! *..*... * |
000022D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000022E0: 20 20 20 20 20 20 20 20 2A 00 0E 2B 38 09 8F 20 | *..+8.. |
000022F0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00002300: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 33 | *.3|
00002310: 2B 42 09 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |+B.. * |
00002320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002330: 20 20 2A 00 58 2B 4C 09 8F 20 2A 2A 2A 2A 2A 2A | *.X+L.. ******|
00002340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002350: 2A 2A 2A 2A 2A 2A 2A 2A 00 8D 2B 56 09 99 22 20 |********..+V.." |
00002360: 31 36 20 52 45 54 55 52 4E 22 3A 99 22 20 31 38 |16 RETURN":." 18|
00002370: 20 4C 45 54 20 53 3D 20 34 30 2A 52 20 2B 20 28 | LET S= 40*R + (|
00002380: 48 2D 34 30 29 2A 31 2E 35 20 2A 20 52 00 00 00 |H-40)*1.5 * R...|
....D..53281,0:.53280,0.(.N..G(142):."."
.5.X.Z$.G(34).G...."..................":
."........BASIC 2.8..."......"........AA
NGEPAST VOOR C-64 .......".............
..DOOR ";:.2060... ..I.1.7000:..M...I.1:
.2030......"....".15)"LES 8":..15)".....
":."...";.12).1...."1. HUISWERK-VERKLARI
NG":..12)"2. GOSUB/RETURN.`.H...12)"3. O
N....GOTO":..12)"4. ON....GOSUB".R.R..19
70:.FL.170.....I.2:.2030:.".".10)"HUISWE
RK-VERKLARING":..10)"...................
"......".HET VOLGENDE PROGRAMMA ZAL DE G
ETALLEN......"1 TOT 20 EN DE KWADRATEN U
ITPRINTEN:..+...."1 FOR I = 1 TO 20.K...
."2 PRINT I, I*I":."3 NEXT".W....".ZO ZI
ET DE RUN ERUIT:":.1970:.FL.170.....I.3:
.2030:.:.I.1.20:.I,I.I:.:.1970:.FL.220..
.".I.4:.2030:.".".13)"GOSUBNRETURN":..13
)"............"...,.."MEESTAL VERLANGEN
LANGERE PROGRAMMA'S.8.6.."HERHAALDE UITV
OERING VAN EEN GROEP VAN.C.@.."INSTRUKTI
ES, GENOEMD EEN SUBROUTINE....J..".WE GE
BRUIKEN DE .GOSUB.-INSTRUKTIE OM...T.."D
E COMPUTER DE SUBROUTINE UIT TE LATEN...
^.."VOEREN.":.".DE VORM VAN DE GOSUB-INS
TRUKTIE IS:.;.H..". .REGEL 1. GOSUB .RE
GEL 2.":."ALS REGEL 1 WORDT UITGEVOERD,
ZAL.D.R.."DE COMPUTER SPRINGEN NAAR REGE
L 2....|..".DE COMPUTER ZAL NAAR DE INST
RUKTIE......"VOLGEND OP DE GOSUB-INSTRUK
TIE TERUG-......"KEREN, ZOGAUW HIJ EEN .
RETURN.-INSTRUCTIE......"TEGENKOMT.":.19
70:.FL.280.....I.5:.2030.G....".DE GROEP
VAN INSTRUKTIES TUSSEN REGEL 2......"TO
T AAN DE RETURN-INSTRUKTIE WORDT EEN":."
.SUBROUTINE. GENOEMD..U.B..".DE VORM VAN
EEN RETURN INSTRUKTIE IS:.":." .REGELN
UMMER. RETURN...L..".BEKIJKEN WE HET VOL
GENDE PROGRAMMA:":.1970:.FL.290...V.I.6:
.2030.I....". 2 FOR I=1 TO 100":." 4 I
NPUT N$, H, R":." 6 GOSUB 12":." 8 NEX
T......" 10 GOTO 22":." 11 REM SALARIS B
EREKENING SUBROUTINE......" 12 IF H>40 T
HEN 18":." 14 PRINT N$ "Z$" VERDIENDE "Z
$" H*R......" 16 RETURN":." 18 LET S= 40
*R + (H-40)*1.5 * R.R...." 20 PRINT N$ "
Z$" VERDIENDE "Z$" S":." 21 RETURN.G....
" 22 END":.2050......"DIT PROGRAMMA ZAL
HET SALARIS VOOR 100...&.."WERKNEMERS BE
REKENEN.":.1970:.FL.420.M.0.I.7:.2030...
:..". 2 FOR I=1 TO 100":." 4 INPUT N$,
H, R":." 6 GOSUB 12":." 8 NEXT.T.D.."
10 GOTO 22":." 11 REM SALARIS BEREKENIN
G SUBROUTINE...N.." 12 IF H>40 THEN 18":
." 14 PRINT N$ "Z$" VERDIENDE "Z$" H*R.K
.X.." 16 RETURN":." 18 LET S= 40*R + (H-
40)*1.5 * R...B.." 20 PRINT N$ "Z$" VERD
IENDE "Z$" S":." 21 RETURN...L.." 22 END
":.2050.@.V..".IN REGEL 4 WORDEN DE NAAM
, AANTAL.G...."GEWERKTE UREN EN LOON ING
ETYPT."......"REGEL 6 LAAT DE COMPUTER N
AAR......"REGEL 12 SPRINGEN.":.1970:.FL.
470.A...I.8:.2030......". 2 FOR I=1 TO
100":." 4 INPUT N$, H, R":." 6 GOSUB 1
2":." 8 NEXT.H...." 10 GOTO 22":." 11 R
EM SALARIS BEREKENING SUBROUTINE......"
12 IF H>40 THEN 18":." 14 PRINT N$ "Z$"
VERDIENDE "Z$" H*R...F.." 16 RETURN":."
18 LET S= 40*R + (H-40)*1.5 * R...P.." 2
0 PRINT N$ "Z$" VERDIENDE "Z$" S":." 21
RETURN...Z.." 22 END":.2050.3...."REGEL
12 BEPAALT OF HIJ MEER DAN".I...."40 UUR
WERKTE.".S...."ALS DAT ZO IS, ZAL DE CO
MPUTER NAAR......"REGEL 18 SPRINGEN, WAA
R ZIJN LOON,.E...."- INCLUSIEF OVERTIJD
- UITGEREKEND......"WORDT EN OPGESLAGEN
IN .S..":.1970:.FL.560... .I.9:.2030.P.*
..". 2 FOR I=1 TO 100":." 4 INPUT N$,
H, R":." 6 GOSUB 12":." 8 NEXT...4.."
10 GOTO 22":." 11 REM SALARIS BEREKENING
SUBROUTINE.M.>.." 12 IF H>40 THEN 18":.
" 14 PRINT N$ "Z$" VERDIENDE "Z$" H*R...
H.." 16 RETURN":." 18 LET S= 40*R + (H-4
0)*1.5 * R.9.R.." 20 PRINT N$ "Z$" VERDI
ENDE "Z$" S":." 21 RETURN.N.\.." 22 END"
:.2050.R.F.."REGEL 20 DRUKT DE NAAM VAN
DE...P.."WERKNEMER EN ZIJN SALARIS AF.".
E.Z.."REGEL 21 LAAT DE COMPUTER TERUGSPR
INGEN.Z...."NAAR REGEL 8."......"BIJ MIN
DER DAN 40 UUR BEREKENT REGEL 14.8...."Z
IJN LOON EN DRUKT DIT AF.":.1970:.FL.670
.G...I.10:.2030......". 2 FOR I=1 TO 10
0":." 4 INPUT N$, H, R":." 6 GOSUB 12"
:." 8 NEXT.N...." 10 GOTO 22":." 11 REM
SALARIS BEREKENING SUBROUTINE......" 12
IF H>40 THEN 18":." 14 PRINT N$ "Z$" VE
RDIENDE "Z$" H*R.E.J.." 16 RETURN":." 18
LET S= 40*R + (H-40)*1.5 * R.|.T.." 20
PRINT N$ "Z$" VERDIENDE "Z$" S":." 21 RE
TURN......" 22 END":.2050.Q...."REGEL 16
LAAT DE COMPUTER TERUG":."SPRINGEN NAAR
REGEL 8.......".OP DIT PUNT WORDT DE LU
S HERHAALD.".*...."REGEL 10 LAAT DE COMP
UTER NAAR REGEL 22.X...."SPRINGEN OM HET
PROGRAMMA TE BEEINDIGEN......"ALS DE 10
0E NAAM INGETYPT IS.":.1970:.FL.800.....
I.11:.2030...$..".".10)"EEN OPGAVE:".F..
.."..2 LET A=1.X.8..".4 GOSUB 10...B..".
6 PRINT A...L..".8 GOTO 12...V..".10 LET
A=A*10...`..".12 END.'.J..2050.S.T..".W
AT ZAL ER AFGEDRUKT WORDEN, ALS DIT.U.~.
."PROGRAMMA UITGEVOERD WORDT:......"..1.
. 1",".2.. 10",".3.. NIETS......."(1,2 O
F 3) " ;.V....A$:.A$.."1".A$.."2".A$.."3
".1170......A$."3".1250......A$."2".1240
.'....".NEE, U VERGEET DAT DE GOSUB DE C
OMPUTER.J.D.."NAAR REGEL 10 LAAT SPRINGE
N..{.N..".PROBEER HET NOG EENS!":.I.1.10
000:.:.1050...X..".NEE, WAAR IS DE RETUR
N-INSTRUKTIE?":.1230.Y....".DAT KLOPT! E
R WORDT NIETS AFGEDRUKT!!......"ALS WE .
A. ZOUDEN WILLEN AFDRUKKEN,.1...."MOETEN
WE .11 RETURN. AAN HET PROGRAMMA.Q...."
TOEVOEGEN.":.1970:.FL.930.`...I.12:.2030
......".".13)"ON....GOTO":..13)"........
.."......".HET GOTO-COMMANDO LAAT DE COM
PUTER NAAR...(.."EEN BEPAALDE REGEL IN H
ET PROGRAMMA...2.."SPRINGEN TIJDENS DE U
ITVOERING..6.<..".OP DEZELFDE MANIER LAA
T .ON....GOTO..B.F.."DE COMPUTER NAAR EE
N VAN VERSCHEIDENE...P.."MOGELIJKE REGEL
S SPRINGEN, AFHANKELIJK...Z.."VAN DE WAA
RDE VAN EEN EXPRESSIE....D..".EEN VOORBE
ELD VAN EEN .ON....GOTO.-...N.."INSTRUKT
IE IS:...X.."..80 ON J GOTO 10, 90.%....
1970:.FL.1050.4...I.13:.2030.P...."..80
ON J GOTO 10, 90.{. ..".ALS J DE WAARDE
1 HEEFT, SPRINGT DE......"COMPUTER NAAR
REGEL 10..D....".ALS J DE WAARDE 2 HEEFT
, SPRINGT DE......"COMPUTER NAAR REGEL 9
0....H..".ALS J EEN ANDERE WAARDE HEEFT,
DAN ZAL.U.R.."DE REGEL VOLGEND OP 80 UI
TGEVOERD WOR-":."DEN.":.1970:.FL.1290...
..I.14:.2030:.".DE VORM VAN DE ON....GOT
O-INSTRUKTIE IS:.A...."..REGEL NO.. ON .
X. GOTO .LIJST VAN REGELS......".WAAR X
EEN VARIABELE OF EXPRESSIE IS......."..H
IER ZIJN NOG TWEE VOORBEELDEN:.4...."...
2 ON F GOTO 5, 5, 6.X...."..14 ON V+2 G
OTO 33, 10, 2, 2.K....1970:.FL.1420...".
I.15:.2030:.".WELKE VAN DE VOLGENDE VOOR
BEELDEN IS.J.,.."EEN JUISTE ON....GOTO-I
NSTRUKTIE:...6.."..20 ON K-2 GOTO 10, J,
30.. @.."..50 ON (U-V)/L GOTO 68, 55, 2
, 88.3 J.."..70 ON X,Y GOTO 89, 66..L T.
.".(20,50 OF 70). ";.U ^..A$:.A$.."20".A
$.."50".A$.."70".1620.. H..A$."70".1700.
. R..A$."50".1720.D |..".NEE, DIT IS GEE
N JUISTE ON....GOTO,.. ..."OMDAT REGELNU
MMERS GEEN VARIABELEN.. ..."MOGEN ZIJN..
0!...".PROBEER HET NOG EENS!":.I.1.10000
:.:.1570.[!...".NEE, DIT IS GEEN JUISTE
ON....GOTO,..!..."OMDAT .X,Y. GEEN EXPRE
SSIE IS.":.1690..!...".KLOPT! REGEL 50 I
S EEN JUISTE ON....".K!B.."GOTO-INSTRUKT
IE...!L..".MERK OP DAT REGEL 20 ONJUIST
IS DOOR.#"V.."DE .J. EN REGEL 70 OOK ONJ
UIST, OMDAT.R"...".X,Y. GEEN EXPRESSIE I
S.":.1970:.FL.1500.."..I.16:.2030:.".".1
5)"ON....GOSUB":..15)"...........".."...
".EEN INSTRUKTIE DIE OP ON....GOTO LIJKT
.N"..."IS ON....GOSUB..."...".DE ON...GO
SUB LAAT DE COMPUTER NAAR EEN.*#..."VAN
VERSCHEIDENE SUBROUTINES SPRINGEN,.R#...
"AFHANKELIJK VAN DE WAARDE VAN EEN.C#&..
"EXPRESSIE...#0..".ALS EEN RETURN-INSTRU
KTIE TEGENGEKOMEN..#:.."WORDT, SPRINGT D
E COMPUTER TERUG NAAR..#D.."DE REGEL ONM
IDDELIJK NA DE ON....GOSUB-..#N.."INSTRU
KTIE..($X..".DUS, RETURN WERKT HETZELFDE
ALS BIJ.T$B.."EEN GOSUB-INSTRUKTIE.":.1
970:.FL.1570.X$L.I.17:.2030:.".EEN VOORB
EELD IS:..$V.."..7 ON E GOSUB 500, 1000.
L$...".DE VORM VAN DE ON....GOSUB-INSTRU
KTIE":."IS:"..$..."..REGEL NO.. ON .X. G
OSUB .LIJST VAN REGELS.#%...".WAAR .X. E
EN VARIABELE OF EEN.H%..."INSTRUKTIE IS.
":.1970:.FL.1770.X%...2080:.2060..%...".
........................ <+> VOLGENDE PA
GINA <-> PAGINA TERUG ."..%...I.1.10:.X
$:..G%F..X$:.X$."".1990.Z%P..X$."+".FL.0
:...%Z..X$."-".FL.1:...%...1990.3&...I.1
0..".. CURSUS BASIC LES 8 PAGINA
"I". .":..O&...I..10..".. CURSUS BASIC
LES 8 PAGINA"I". .":...&...I.1
.38:.".";:.:.".":..N&....12)". .":.
"............. TRIO .":."............. -
--- ."..'..."............. SOFT .":."...
.......... . MCMLXXXIV":..K' .."...
......".12)"EINDE VAN LES 8":..12)".....
..........".I'*.."................":.206
0..'4.."......................... <+> EI
NDE VAN LES 8 <-> PAGINA 1 .".D'>..
I.1.13:.X$:..X'H..X$:.X$."".2120..'R..X$
."+"..64738..'\..X$."-".170..(F..2120.*(
P.. ******************************.O(Z..
* *.T(... *
*..(... *
*..(... *
*..(... *
*..)... * TRIO
*.-)... * ----
*.R)... * SOFT
*.W)J.. *
*..)T.. *
*.A)... *
*..)... * *..
*... * *.0*..
. * *.U*... *
*.Z*... * H
OMO SOIT *..*... *
*.D*$.. *
QUI MAL Y PENSE ! *..*... *
*..+8.. *
*.3+B.. *
*.X+L.. **********************
********..+V.." 16 RETURN":." 18 LET S=
40*R + (H-40)*1.5 * R...
> CLICK IMAGE PREVIEW FOR FULL MODAL