BL 8.1
FILE INFORMATION
FILENAME(S): BL 8.1
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 21:05:49
APPEARS ON: 1 disk(s)
FILE HASH
547f60fbd44e80ca6722bb3619ce6ca50a7d65f6faf2d99a67fcad15a72410e7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LESSEN | BL 8.1 | PRG | DuncanTwain | 4 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 01 00 8F 20 2B 2B 2B 20 38 2E 31 20 |....... +++ 8.1 | 00000010: 2B 2B 2B 00 25 08 64 00 41 B2 31 39 38 3A 99 C7 |+++.%.d.A.198:..| 00000020: 28 31 34 32 29 00 39 08 6E 00 97 35 33 32 38 31 |(142).9.n..53281| 00000030: 2C 38 3A 97 36 34 36 2C 37 00 4B 08 78 00 5A 24 |,8:.646,7.K.x.Z$| 00000040: B2 C7 28 33 34 29 3A 89 32 33 30 00 79 08 82 00 |..(34):.230.y...| 00000050: 59 B2 55 31 3A 8D 32 30 30 3A 99 22 CF 22 3A 81 |Y.U1:.200:.".":.| 00000060: 49 B2 30 A4 55 32 AB 55 31 AB 32 3A 99 22 A5 22 |I.0.U2.U1.2:."."| 00000070: 3A 82 3A 99 22 CC 22 3A 8E 00 AA 08 8C 00 99 22 |:.:.".":......."| 00000080: 93 22 3A 81 49 B2 31 A4 33 39 3A 99 43 24 3B 3A |.":.I.1.39:.C$;:| 00000090: 82 3A 81 49 B2 31 A4 32 32 3A 99 22 9D 11 22 43 |.:.I.1.22:.".."C| 000000A0: 24 3B 3A 82 3A 99 22 9D 22 3B 00 C7 08 96 00 81 |$;:.:.".";......| 000000B0: 49 B2 31 A4 33 38 3A 99 22 9D 22 43 24 22 9D 22 |I.1.38:."."C$"."| 000000C0: 3B 3A 82 3A 99 43 24 00 E2 08 A0 00 81 49 B2 31 |;:.:.C$......I.1| 000000D0: A4 32 33 3A 99 22 91 22 43 24 22 9D 22 3B 3A 82 |.23:."."C$".";:.| 000000E0: 3A 8E 00 04 09 AA 00 59 B2 55 31 3A 8D 32 30 30 |:......Y.U1:.200| 000000F0: 3A 81 49 B2 30 A4 55 32 AB 55 31 3A 99 22 20 22 |:.I.0.U2.U1:." "| 00000100: 3A 82 3A 8E 00 19 09 B4 00 97 41 2C 30 3A 92 41 |:.:.......A,0:.A| 00000110: 2C 32 35 35 3A 97 41 2C 30 00 21 09 BE 00 99 3A |,255:.A,0.!....:| 00000120: 8E 00 44 09 C8 00 99 22 13 22 3A 81 49 B2 30 A4 |..D....".":.I.0.| 00000130: 59 AB 31 3A 99 22 11 22 3B 3A 82 3A 99 22 91 91 |Y.1:.".";:.:."..| 00000140: 22 3B 3A 8E 00 8A 09 D2 00 59 B2 59 31 3A 8D 32 |";:......Y.Y1:.2| 00000150: 30 30 3A 81 49 B2 31 A4 59 32 AB 59 31 3A 99 22 |00:.I.1.Y2.Y1:."| 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000180: 20 20 20 20 20 20 20 22 3A 82 00 95 09 DC 00 8D | ":.......| 00000190: 32 30 30 3A 8E 00 C2 09 E6 00 43 24 B2 22 A6 22 |200:......C$."."| 000001A0: 3A 8D 31 34 30 3A 99 22 11 11 11 11 22 A3 31 36 |:.140:."....".16| 000001B0: 29 22 4C 45 53 20 38 11 11 11 11 22 3A 99 A3 31 |)"LES 8....":..1| 000001C0: 32 29 00 F6 09 F0 00 99 22 31 2E 20 48 55 49 53 |2)......"1. HUIS| 000001D0: 57 45 52 4B 20 56 45 52 4B 4C 41 52 49 4E 47 22 |WERK VERKLARING"| 000001E0: 3A 99 A3 31 32 29 22 32 2E 20 47 4F 53 55 42 2F |:..12)"2. GOSUB/| 000001F0: 52 45 54 55 52 4E 00 24 0A FA 00 99 A3 31 32 29 |RETURN.$.....12)| 00000200: 22 33 2E 20 4F 4E A4 47 4F 54 4F 22 3A 99 A3 31 |"3. ON.GOTO":..1| 00000210: 32 29 22 34 2E 20 4F 4E A4 47 4F 53 55 42 22 3A |2)"4. ON.GOSUB":| 00000220: 8D 31 38 30 00 46 0A 04 01 99 22 93 11 22 A3 31 |.180.F...."..".1| 00000230: 32 29 22 48 55 49 53 57 45 52 4B 20 56 45 52 4B |2)"HUISWERK VERK| 00000240: 4C 41 52 49 4E 47 00 74 0A 0E 01 99 22 11 48 45 |LARING.t....".HE| 00000250: 54 20 56 4F 4C 47 45 4E 44 45 20 50 52 4F 47 52 |T VOLGENDE PROGR| 00000260: 41 4D 4D 41 20 5A 41 4C 20 44 45 20 47 45 54 41 |AMMA ZAL DE GETA| 00000270: 4C 4C 45 4E 00 A0 0A 18 01 99 22 31 20 54 4F 54 |LLEN......"1 TOT| 00000280: 20 32 30 20 45 4E 20 44 45 20 4B 57 41 44 52 41 | 20 EN DE KWADRA| 00000290: 54 45 4E 20 55 49 54 50 52 49 4E 54 45 4E 3A 11 |TEN UITPRINTEN:.| 000002A0: 00 B8 0A 22 01 99 22 31 20 46 4F 52 20 49 20 3D |...".."1 FOR I =| 000002B0: 20 31 20 54 4F 20 32 30 00 D8 0A 2C 01 99 22 32 | 1 TO 20...,.."2| 000002C0: 20 50 52 49 4E 54 20 49 2C 20 49 2A 49 22 3A 99 | PRINT I, I*I":.| 000002D0: 22 33 20 4E 45 58 54 22 00 FC 0A 36 01 99 22 11 |"3 NEXT"...6..".| 000002E0: 5A 4F 20 5A 49 45 54 20 44 45 20 52 55 4E 20 45 |ZO ZIET DE RUN E| 000002F0: 52 55 49 54 3A 11 22 3A 8D 31 38 30 00 16 0B 40 |RUIT:.":.180...@| 00000300: 01 81 49 B2 31 A4 32 30 3A 99 49 2C 49 AC 49 3A |..I.1.20:.I,I.I:| 00000310: 82 3A 8D 31 38 30 00 5A 0B 4A 01 99 22 93 22 A3 |.:.180.Z.J..".".| 00000320: 31 33 29 22 47 4F 53 55 42 CE 52 45 54 55 52 4E |13)"GOSUB.RETURN| 00000330: 11 22 3A 99 22 4D 45 45 53 54 41 4C 20 56 45 52 |.":."MEESTAL VER| 00000340: 4C 41 4E 47 45 4E 20 4C 41 4E 47 45 52 45 20 50 |LANGEN LANGERE P| 00000350: 52 4F 47 52 41 4D 4D 41 27 53 00 87 0B 54 01 99 |ROGRAMMA'S...T..| 00000360: 22 48 45 52 48 41 41 4C 44 45 20 55 49 54 56 4F |"HERHAALDE UITVO| 00000370: 45 52 49 4E 47 20 56 41 4E 20 45 45 4E 20 47 52 |ERING VAN EEN GR| 00000380: 4F 45 50 20 56 41 4E 00 B2 0B 5E 01 99 22 49 4E |OEP VAN...^.."IN| 00000390: 53 54 52 55 4B 54 49 45 53 2C 20 47 45 4E 4F 45 |STRUKTIES, GENOE| 000003A0: 4D 44 20 45 45 4E 20 53 55 42 52 4F 55 54 49 4E |MD EEN SUBROUTIN| 000003B0: 45 2E 00 DF 0B 68 01 99 22 11 57 45 20 47 45 42 |E....h..".WE GEB| 000003C0: 52 55 49 4B 45 4E 20 44 45 20 12 47 4F 53 55 42 |RUIKEN DE .GOSUB| 000003D0: 92 20 49 4E 53 54 52 55 4B 54 49 45 20 4F 4D 00 |. INSTRUKTIE OM.| 000003E0: 0C 0C 72 01 99 22 44 45 20 43 4F 4D 50 55 54 45 |..r.."DE COMPUTE| 000003F0: 52 20 44 45 20 53 55 42 52 4F 55 54 49 4E 45 20 |R DE SUBROUTINE | 00000400: 55 49 54 20 54 45 20 4C 41 54 45 4E 00 42 0C 7C |UIT TE LATEN.B.|| 00000410: 01 99 22 56 4F 45 52 45 4E 2E 22 3A 99 22 11 44 |.."VOEREN.":.".D| 00000420: 45 20 56 4F 52 4D 20 56 41 4E 20 44 45 20 47 4F |E VORM VAN DE GO| 00000430: 53 55 42 20 49 4E 53 54 52 55 4B 54 49 45 20 49 |SUB INSTRUKTIE I| 00000440: 53 3A 00 8A 0C 86 01 99 22 11 20 20 12 52 45 47 |S:......". .REG| 00000450: 45 4C 20 31 92 20 47 4F 53 55 42 20 12 52 45 47 |EL 1. GOSUB .REG| 00000460: 45 4C 20 32 11 22 3A 99 22 41 4C 53 20 52 45 47 |EL 2.":."ALS REG| 00000470: 45 4C 20 31 20 57 4F 52 44 54 20 55 49 54 47 45 |EL 1 WORDT UITGE| 00000480: 56 4F 45 52 44 2C 20 5A 41 4C 00 B3 0C 90 01 99 |VOERD, ZAL......| 00000490: 22 44 45 20 43 4F 4D 50 55 54 45 52 20 53 50 52 |"DE COMPUTER SPR| 000004A0: 49 4E 47 45 4E 20 4E 41 41 52 20 52 45 47 45 4C |INGEN NAAR REGEL| 000004B0: 20 32 2E 00 DD 0C 9A 01 99 22 11 44 45 20 43 4F | 2.......".DE CO| 000004C0: 4D 50 55 54 45 52 20 5A 41 4C 20 4E 41 41 52 20 |MPUTER ZAL NAAR | 000004D0: 44 45 20 49 4E 53 54 52 55 4B 54 49 45 00 09 0D |DE INSTRUKTIE...| 000004E0: A4 01 99 22 56 4F 4C 47 45 4E 44 20 4F 50 20 44 |..."VOLGEND OP D| 000004F0: 45 20 47 4F 53 55 42 20 49 4E 53 54 52 55 4B 54 |E GOSUB INSTRUKT| 00000500: 49 45 20 54 45 52 55 47 2D 00 2E 0D AE 01 99 22 |IE TERUG-......"| 00000510: 4B 45 52 45 4E 20 5A 4F 47 41 55 57 20 41 4C 53 |KEREN ZOGAUW ALS| 00000520: 20 45 52 20 45 45 4E 20 52 45 54 55 52 4E 00 59 | ER EEN RETURN.Y| 00000530: 0D B8 01 99 22 49 4E 53 54 52 55 4B 54 49 45 20 |...."INSTRUKTIE | 00000540: 54 45 47 45 4E 47 45 4B 4F 4D 45 4E 20 57 4F 52 |TEGENGEKOMEN WOR| 00000550: 44 54 2E 22 3A 8D 31 38 30 00 73 0D C2 01 99 22 |DT.":.180.s...."| 00000560: 11 11 11 11 11 11 11 11 11 11 11 91 91 22 3A 8D |.............":.| 00000570: 31 38 30 00 AB 0D CC 01 59 B2 31 34 3A 8D 32 30 |180.....Y.14:.20| 00000580: 30 3A 99 22 44 45 20 47 52 4F 45 50 20 56 41 4E |0:."DE GROEP VAN| 00000590: 20 49 4E 53 54 52 55 4B 54 49 45 53 20 54 55 53 | INSTRUKTIES TUS| 000005A0: 53 45 4E 20 52 45 47 45 4C 20 32 00 F1 0D D6 01 |SEN REGEL 2.....| 000005B0: 99 22 54 4F 54 20 41 41 4E 20 44 45 20 52 45 54 |."TOT AAN DE RET| 000005C0: 55 52 4E 20 49 4E 53 54 52 55 4B 54 49 45 20 57 |URN INSTRUKTIE W| 000005D0: 4F 52 44 54 20 45 45 4E 22 3A 99 22 12 53 55 42 |ORDT EEN":.".SUB| 000005E0: 52 4F 55 54 49 4E 45 92 20 47 45 4E 4F 45 4D 44 |ROUTINE. GENOEMD| 000005F0: 2E 00 39 0E E0 01 99 22 11 44 45 20 56 4F 52 4D |..9....".DE VORM| 00000600: 20 56 41 4E 20 45 45 4E 20 52 45 54 55 52 4E 20 | VAN EEN RETURN | 00000610: 49 4E 53 54 52 55 4B 54 49 45 20 49 53 3A 11 22 |INSTRUKTIE IS:."| 00000620: 3A 99 22 20 20 12 52 45 47 45 4C 4E 55 4D 4D 45 |:." .REGELNUMME| 00000630: 52 92 20 52 45 54 55 52 4E 00 6A 0E EA 01 99 22 |R. RETURN.j...."| 00000640: 11 42 45 4B 49 4A 4B 45 4E 20 57 45 20 48 45 54 |.BEKIJKEN WE HET| 00000650: 20 56 4F 4C 47 45 4E 44 45 20 50 52 4F 47 52 41 | VOLGENDE PROGRA| 00000660: 4D 4D 41 3A 22 3A 8D 31 38 30 00 B6 0E F4 01 99 |MMA:":.180......| 00000670: 22 93 20 32 20 20 46 4F 52 20 49 3D 31 20 54 4F |". 2 FOR I=1 TO| 00000680: 20 31 30 30 22 3A 99 22 20 34 20 20 49 4E 50 55 | 100":." 4 INPU| 00000690: 54 20 4E 24 2C 20 48 2C 20 52 22 3A 99 22 20 36 |T N$, H, R":." 6| 000006A0: 20 20 47 4F 53 55 42 20 31 32 22 3A 99 22 20 38 | GOSUB 12":." 8| 000006B0: 20 20 4E 45 58 54 00 F1 0E FE 01 99 22 20 31 30 | NEXT......" 10| 000006C0: 20 47 4F 54 4F 20 32 32 22 3A 99 22 20 31 31 20 | GOTO 22":." 11 | 000006D0: 52 45 4D 20 53 41 4C 41 52 49 53 20 42 45 52 45 |REM SALARIS BERE| 000006E0: 4B 45 4E 49 4E 47 20 53 55 42 52 4F 55 54 49 4E |KENING SUBROUTIN| 000006F0: 45 00 33 0F 08 02 99 22 20 31 32 20 49 46 20 48 |E.3...." 12 IF H| 00000700: 3E 34 30 20 54 48 45 4E 20 31 38 22 3A 99 22 20 |>40 THEN 18":." | 00000710: 31 34 20 50 52 49 4E 54 20 4E 24 20 22 5A 24 22 |14 PRINT N$ "Z$"| 00000720: 20 56 45 52 44 49 45 4E 44 45 20 22 5A 24 22 20 | VERDIENDE "Z$" | 00000730: 48 2A 52 00 68 0F 12 02 99 22 20 31 36 20 52 45 |H*R.h...." 16 RE| 00000740: 54 55 52 4E 22 3A 99 22 20 31 38 20 4C 45 54 20 |TURN":." 18 LET | 00000750: 53 3D 20 34 30 2A 52 20 2B 20 28 48 2D 34 30 29 |S= 40*R + (H-40)| 00000760: 2A 31 2E 35 20 2A 20 52 00 9F 0F 1C 02 99 22 20 |*1.5 * R......" | 00000770: 32 30 20 50 52 49 4E 54 20 4E 24 20 22 5A 24 22 |20 PRINT N$ "Z$"| 00000780: 20 56 45 52 44 49 45 4E 44 45 20 22 5A 24 22 20 | VERDIENDE "Z$" | 00000790: 53 22 3A 99 22 20 32 31 20 52 45 54 55 52 4E 00 |S":." 21 RETURN.| 000007A0: B3 0F 26 02 99 22 20 32 32 20 45 4E 44 22 3A 8D |..&.." 22 END":.| 000007B0: 31 38 30 00 E0 0F 30 02 99 22 44 49 54 20 50 52 |180...0.."DIT PR| 000007C0: 4F 47 52 41 4D 4D 41 20 5A 41 4C 20 48 45 54 20 |OGRAMMA ZAL HET | 000007D0: 53 41 4C 41 52 49 53 20 56 4F 4F 52 20 31 30 30 |SALARIS VOOR 100| 000007E0: 00 02 10 3A 02 99 22 57 45 52 4B 4E 45 4D 45 52 |...:.."WERKNEMER| 000007F0: 53 20 42 45 52 45 4B 45 4E 45 4E 2E 22 3A 8D 31 |S BEREKENEN.":.1| 00000800: 38 30 00 1C 10 44 02 59 31 B2 31 35 3A 59 32 B2 |80...D.Y1.15:Y2.| 00000810: 32 34 3A 8D 32 31 30 3A 8D 32 30 30 00 44 10 4E |24:.210:.200.D.N| 00000820: 02 99 22 49 4E 20 52 45 47 45 4C 20 34 20 57 4F |.."IN REGEL 4 WO| 00000830: 52 44 45 4E 20 44 45 20 4E 41 41 4D 2C 20 41 41 |RDEN DE NAAM, AA| 00000840: 4E 54 41 4C 00 70 10 58 02 99 22 47 45 57 45 52 |NTAL.p.X.."GEWER| 00000850: 4B 54 45 20 55 52 45 4E 20 45 4E 20 4C 4F 4F 4E |KTE UREN EN LOON| 00000860: 20 49 4E 47 45 54 59 50 54 2E 22 3A 8D 31 38 30 | INGETYPT.":.180| 00000870: 00 94 10 62 02 99 22 52 45 47 45 4C 20 36 20 4C |...b.."REGEL 6 L| 00000880: 41 41 54 20 44 45 20 43 4F 4D 50 55 54 45 52 20 |AAT DE COMPUTER | 00000890: 4E 41 41 52 00 D1 10 6C 02 99 22 52 45 47 45 4C |NAAR...l.."REGEL| 000008A0: 20 31 32 20 53 50 52 49 4E 47 45 4E 2E 22 3A 8D | 12 SPRINGEN.":.| 000008B0: 31 38 30 3A 55 31 B2 33 3A 55 32 B2 37 3A 8D 31 |180:U1.3:U2.7:.1| 000008C0: 33 30 3A 8D 31 38 30 3A 8D 32 31 30 3A 59 B2 31 |30:.180:.210:Y.1| 000008D0: 35 00 FD 10 76 02 8D 32 30 30 3A 99 22 52 45 47 |5...v..200:."REG| 000008E0: 45 4C 20 31 32 20 42 45 50 41 41 4C 54 20 4F 46 |EL 12 BEPAALT OF| 000008F0: 20 48 49 4A 20 4D 45 45 52 20 44 41 4E 00 18 11 | HIJ MEER DAN...| 00000900: 80 02 99 22 34 30 20 55 55 52 20 57 45 52 4B 54 |..."40 UUR WERKT| 00000910: 45 2E 22 3A 8D 31 38 30 00 42 11 8A 02 99 22 41 |E.":.180.B...."A| 00000920: 4C 53 20 44 41 54 20 5A 4F 20 49 53 2C 20 5A 41 |LS DAT ZO IS, ZA| 00000930: 4C 20 44 45 20 43 4F 4D 50 55 54 45 52 20 4E 41 |L DE COMPUTER NA| 00000940: 41 52 00 6B 11 94 02 99 22 52 45 47 45 4C 20 31 |AR.k...."REGEL 1| 00000950: 38 20 53 50 52 49 4E 47 45 4E 2C 20 57 41 41 52 |8 SPRINGEN, WAAR| 00000960: 20 5A 49 4A 4E 20 4C 4F 4F 4E 2C 00 94 11 9E 02 | ZIJN LOON,.....| 00000970: 99 22 2D 20 49 4E 43 4C 55 53 49 45 46 20 4F 56 |."- INCLUSIEF OV| 00000980: 45 52 54 49 4A 44 20 2D 20 55 49 54 47 45 52 45 |ERTIJD - UITGERE| 00000990: 4B 45 4E 44 00 D6 11 A8 02 99 22 57 4F 52 44 54 |KEND......"WORDT| 000009A0: 20 45 4E 20 4F 50 47 45 53 4C 41 47 45 4E 20 49 | EN OPGESLAGEN I| 000009B0: 4E 20 12 53 92 2E 22 3A 8D 31 38 30 3A 55 31 B2 |N .S..":.180:U1.| 000009C0: 38 3A 55 32 B2 31 30 3A 8D 31 33 30 3A 8D 32 31 |8:U2.10:.130:.21| 000009D0: 30 3A 59 B2 31 35 00 FF 11 B2 02 8D 32 30 30 3A |0:Y.15......200:| 000009E0: 99 22 52 45 47 45 4C 20 32 30 20 44 52 55 4B 54 |."REGEL 20 DRUKT| 000009F0: 20 44 45 20 4E 41 41 4D 20 56 41 4E 20 44 45 00 | DE NAAM VAN DE.| 00000A00: 29 12 BC 02 99 22 57 45 52 4B 4E 45 4D 45 52 20 |)...."WERKNEMER | 00000A10: 45 4E 20 5A 49 4A 4E 20 53 41 4C 41 52 49 53 20 |EN ZIJN SALARIS | 00000A20: 41 46 2E 22 3A 8D 31 38 30 00 68 12 C6 02 55 31 |AF.":.180.h...U1| 00000A30: B2 33 3A 8D 31 37 30 3A 8D 32 31 30 3A 59 B2 31 |.3:.170:.210:Y.1| 00000A40: 35 3A 8D 32 30 30 3A 99 22 52 45 47 45 4C 20 32 |5:.200:."REGEL 2| 00000A50: 31 20 4C 41 41 54 20 44 45 20 43 4F 4D 50 55 54 |1 LAAT DE COMPUT| 00000A60: 45 52 20 54 45 52 55 47 00 A5 12 D0 02 99 22 53 |ER TERUG......"S| 00000A70: 50 52 49 4E 47 45 4E 20 4E 41 41 52 20 52 45 47 |PRINGEN NAAR REG| 00000A80: 45 4C 20 38 2E 22 3A 8D 31 38 30 3A 55 31 B2 34 |EL 8.":.180:U1.4| 00000A90: 3A 55 32 B2 31 32 3A 8D 31 33 30 3A 8D 31 38 30 |:U2.12:.130:.180| 00000AA0: 3A 8D 31 37 30 00 DD 12 DA 02 59 B2 31 38 3A 8D |:.170.....Y.18:.| 00000AB0: 32 30 30 3A 99 22 42 49 4A 20 4D 49 4E 44 45 52 |200:."BIJ MINDER| 00000AC0: 20 44 41 4E 20 34 30 20 55 55 52 20 42 45 52 45 | DAN 40 UUR BERE| 00000AD0: 4B 45 4E 54 20 52 45 47 45 4C 20 31 34 00 04 13 |KENT REGEL 14...| 00000AE0: E4 02 99 22 5A 49 4A 4E 20 4C 4F 4F 4E 20 45 4E |..."ZIJN LOON EN| 00000AF0: 20 44 52 55 4B 54 20 44 49 54 20 41 46 2E 22 3A | DRUKT DIT AF.":| 00000B00: 8D 31 38 30 00 44 13 EE 02 99 22 52 45 47 45 4C |.180.D...."REGEL| 00000B10: 20 31 36 20 4C 41 41 54 20 44 45 20 43 4F 4D 50 | 16 LAAT DE COMP| 00000B20: 55 54 45 52 20 54 45 52 55 47 22 3A 99 22 53 50 |UTER TERUG":."SP| 00000B30: 52 49 4E 47 45 4E 20 4E 41 41 52 20 52 45 47 45 |RINGEN NAAR REGE| 00000B40: 4C 20 38 2E 00 6B 13 F8 02 8D 31 38 30 3A 55 32 |L 8..k....180:U2| 00000B50: B2 39 3A 8D 31 33 30 3A 8D 31 38 30 3A 8D 31 37 |.9:.130:.180:.17| 00000B60: 30 3A 59 B2 32 33 3A 8D 32 30 30 00 B0 13 02 03 |0:Y.23:.200.....| 00000B70: 99 22 11 4F 50 20 44 49 54 20 50 55 4E 54 20 57 |.".OP DIT PUNT W| 00000B80: 4F 52 44 54 20 44 45 20 4C 55 53 20 48 45 52 48 |ORDT DE LUS HERH| 00000B90: 41 41 4C 44 2E 22 3B 3A 8D 31 38 30 3A 55 31 B2 |AALD.";:.180:U1.| 00000BA0: 31 3A 55 32 B2 34 3A 8D 31 33 30 3A 8D 31 38 30 |1:U2.4:.130:.180| 00000BB0: 00 D4 13 0C 03 8D 31 37 30 3A 59 31 B2 31 35 3A |......170:Y1.15:| 00000BC0: 59 32 B2 32 35 3A 8D 32 31 30 3A 59 B2 31 35 3A |Y2.25:.210:Y.15:| 00000BD0: 8D 32 30 30 00 02 14 16 03 99 22 52 45 47 45 4C |.200......"REGEL| 00000BE0: 20 31 30 20 4C 41 41 54 20 44 45 20 43 4F 4D 50 | 10 LAAT DE COMP| 00000BF0: 55 54 45 52 20 4E 41 41 52 20 52 45 47 45 4C 20 |UTER NAAR REGEL | 00000C00: 32 32 00 30 14 20 03 99 22 53 50 52 49 4E 47 45 |22.0. .."SPRINGE| 00000C10: 4E 20 4F 4D 20 48 45 54 20 50 52 4F 47 52 41 4D |N OM HET PROGRAM| 00000C20: 4D 41 20 54 45 20 42 45 45 49 4E 44 49 47 45 4E |MA TE BEEINDIGEN| 00000C30: 00 65 14 2A 03 99 22 41 4C 53 20 44 45 20 31 30 |.e.*.."ALS DE 10| 00000C40: 30 45 20 4E 41 41 4D 20 49 4E 47 45 54 59 50 54 |0E NAAM INGETYPT| 00000C50: 20 49 53 2E 22 3A 8D 31 38 30 3A 55 31 B2 35 3A | IS.":.180:U1.5:| 00000C60: 55 32 B2 31 33 00 73 14 34 03 8D 31 33 30 3A 8D |U2.13.s.4..130:.| 00000C70: 31 38 30 00 A9 14 3E 03 43 24 B2 22 A6 22 3A 8D |180...>.C$.".":.| 00000C80: 31 34 30 3A 99 22 11 11 11 11 11 11 1D 1D 1D 1D |140:."..........| 00000C90: 1D 1D 1D 45 49 4E 44 45 20 56 41 4E 20 4C 45 53 |...EINDE VAN LES| 00000CA0: 20 38 20 44 45 45 4C 20 31 00 D1 14 48 03 99 22 | 8 DEEL 1...H.."| 00000CB0: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 56 45 52 56 4F |...........VERVO| 00000CC0: 4C 47 20 57 4F 52 44 54 20 47 45 4C 41 44 45 4E |LG WORDT GELADEN| 00000CD0: 22 00 E1 14 52 03 99 22 11 11 11 11 11 11 11 11 |"...R.."........| 00000CE0: 11 00 E7 14 5C 03 80 00 00 00 |....\..... |
....... +++ 8.1 +++.%.D.A.198:.G(142).9.
N..53281,8:.646,7.K.X.Z$.G(34):.230.Y...
Y.U1:.200:."O":.I.0.U2.U1.2:.".":.:."L":
.......".":.I.1.39:.C$;:.:.I.1.22:.".."C
$;:.:.".";.G....I.1.38:."."C$".";:.:.C$.
.. ..I.1.23:."."C$".";:.:......Y.U1:.200
:.I.0.U2.U1:." ":.:.......A,0:.A,255:.A,
0.!....:..D.H..".":.I.0.Y.1:.".";:.:."..
";:....R.Y.Y1:.200:.I.1.Y2.Y1:."
":.......
200:..B...C$.".":.140:."....".16)"LES 8.
...":..12)......"1. HUISWERK VERKLARING"
:..12)"2. GOSUB/RETURN.$.....12)"3. ON.G
OTO":..12)"4. ON.GOSUB":.180.F...."..".1
2)"HUISWERK VERKLARING.T....".HET VOLGEN
DE PROGRAMMA ZAL DE GETALLEN. ...."1 TOT
20 EN DE KWADRATEN UITPRINTEN:....".."1
FOR I = 1 TO 20.X.,.."2 PRINT I, I*I":.
"3 NEXT"...6..".ZO ZIET DE RUN ERUIT:.":
.180...@..I.1.20:.I,I.I:.:.180.Z.J..".".
13)"GOSUBNRETURN.":."MEESTAL VERLANGEN L
ANGERE PROGRAMMA'S...T.."HERHAALDE UITVO
ERING VAN EEN GROEP VAN...^.."INSTRUKTIE
S, GENOEMD EEN SUBROUTINE....H..".WE GEB
RUIKEN DE .GOSUB. INSTRUKTIE OM...R.."DE
COMPUTER DE SUBROUTINE UIT TE LATEN.B.|
.."VOEREN.":.".DE VORM VAN DE GOSUB INST
RUKTIE IS:......". .REGEL 1. GOSUB .REG
EL 2.":."ALS REGEL 1 WORDT UITGEVOERD, Z
AL......"DE COMPUTER SPRINGEN NAAR REGEL
2.......".DE COMPUTER ZAL NAAR DE INSTR
UKTIE......"VOLGEND OP DE GOSUB INSTRUKT
IE TERUG-......"KEREN ZOGAUW ALS ER EEN
RETURN.Y...."INSTRUKTIE TEGENGEKOMEN WOR
DT.":.180.S.B..".............":.180...L.
Y.14:.200:."DE GROEP VAN INSTRUKTIES TUS
SEN REGEL 2...V.."TOT AAN DE RETURN INST
RUKTIE WORDT EEN":.".SUBROUTINE. GENOEMD
..9....".DE VORM VAN EEN RETURN INSTRUKT
IE IS:.":." .REGELNUMMER. RETURN.J...."
.BEKIJKEN WE HET VOLGENDE PROGRAMMA:":.1
80......". 2 FOR I=1 TO 100":." 4 INPU
T N$, H, R":." 6 GOSUB 12":." 8 NEXT..
...." 10 GOTO 22":." 11 REM SALARIS BERE
KENING SUBROUTINE.3...." 12 IF H>40 THEN
18":." 14 PRINT N$ "Z$" VERDIENDE "Z$"
H*R.H...." 16 RETURN":." 18 LET S= 40*R
+ (H-40)*1.5 * R......" 20 PRINT N$ "Z$"
VERDIENDE "Z$" S":." 21 RETURN...&.." 2
2 END":.180...0.."DIT PROGRAMMA ZAL HET
SALARIS VOOR 100...:.."WERKNEMERS BEREKE
NEN.":.180...D.Y1.15:Y2.24:.210:.200.D.N
.."IN REGEL 4 WORDEN DE NAAM, AANTAL.P.X
.."GEWERKTE UREN EN LOON INGETYPT.":.180
...B.."REGEL 6 LAAT DE COMPUTER NAAR.Q.L
.."REGEL 12 SPRINGEN.":.180:U1.3:U2.7:.1
30:.180:.210:Y.15...V..200:."REGEL 12 BE
PAALT OF HIJ MEER DAN......"40 UUR WERKT
E.":.180.B...."ALS DAT ZO IS, ZAL DE COM
PUTER NAAR.K...."REGEL 18 SPRINGEN, WAAR
ZIJN LOON,......"- INCLUSIEF OVERTIJD -
UITGEREKEND.V...."WORDT EN OPGESLAGEN I
N .S..":.180:U1.8:U2.10:.130:.210:Y.15..
....200:."REGEL 20 DRUKT DE NAAM VAN DE.
)...."WERKNEMER EN ZIJN SALARIS AF.":.18
0.H.F.U1.3:.170:.210:Y.15:.200:."REGEL 2
1 LAAT DE COMPUTER TERUG...P.."SPRINGEN
NAAR REGEL 8.":.180:U1.4:U2.12:.130:.180
:.170...Z.Y.18:.200:."BIJ MINDER DAN 40
UUR BEREKENT REGEL 14......"ZIJN LOON EN
DRUKT DIT AF.":.180.D...."REGEL 16 LAAT
DE COMPUTER TERUG":."SPRINGEN NAAR REGE
L 8..K....180:U2.9:.130:.180:.170:Y.23:.
200......".OP DIT PUNT WORDT DE LUS HERH
AALD.";:.180:U1.1:U2.4:.130:.180.T....17
0:Y1.15:Y2.25:.210:Y.15:.200......"REGEL
10 LAAT DE COMPUTER NAAR REGEL 22.0. ..
"SPRINGEN OM HET PROGRAMMA TE BEEINDIGEN
.E.*.."ALS DE 100E NAAM INGETYPT IS.":.1
80:U1.5:U2.13.S.4..130:.180...>.C$.".":.
140:.".............EINDE VAN LES 8 DEEL
1.Q.H.."...........VERVOLG WORDT GELADEN
"...R.."............\.....
> CLICK IMAGE PREVIEW FOR FULL MODAL