BASIC 4
FILE INFORMATION
FILENAME(S): BASIC 4
FILE TYPE(S): PRG
FILE SIZE: 6.5K
FIRST SEEN: 2025-11-30 21:07:01
APPEARS ON: 1 disk(s)
FILE HASH
123ce02af1d829b316a1b410401837bb3b9f13cd7255702b5d1cc8ee99035cbe
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HBMD OSS 01 | BASIC 4 | PRG | DuncanTwain | 29 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 99 C7 28 31 34 32 29 00 2A 08 |....d...(142).*.|
00000010: 6E 00 51 31 B2 31 39 38 3A 97 35 33 32 38 30 2C |n.Q1.198:.53280,|
00000020: 32 3A 97 35 33 32 38 31 2C 32 00 67 08 73 00 99 |2:.53281,2.g.s..|
00000030: 22 93 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 42 41 53 49 |".********* BASI|
00000040: 43 20 43 55 52 53 55 53 20 2A 2A 2A 20 4C 45 53 |C CURSUS *** LES|
00000050: 20 33 20 2A 2A 2A 2A 2A 2A 2A 22 3A 81 49 B2 31 | 3 *******":.I.1|
00000060: A4 37 30 30 30 3A 82 00 9A 08 78 00 99 22 05 93 |.7000:....x.."..|
00000070: 20 2A 2A 2A 20 56 41 52 49 41 42 45 4C 45 4E 20 | *** VARIABELEN |
00000080: 2A 2A 2A 22 3A 99 22 20 2A 2A 2A 20 2D 2D 2D 2D |***":." *** ----|
00000090: 2D 2D 2D 2D 2D 2D 20 2A 2A 2A 00 C9 08 82 00 99 |------ ***......|
000000A0: 22 11 11 90 20 56 41 52 49 41 42 45 4C 45 4E 20 |"... VARIABELEN |
000000B0: 5A 49 4A 4E 20 41 2E 48 2E 57 20 4B 4C 45 49 4E |ZIJN A.H.W KLEIN|
000000C0: 45 20 44 4F 4F 53 4A 45 53 00 F7 08 8C 00 99 22 |E DOOSJES......"|
000000D0: 11 20 57 41 41 52 49 4E 20 57 45 20 47 45 54 41 |. WAARIN WE GETA|
000000E0: 4C 4C 45 4E 20 5A 4F 57 45 4C 20 41 4C 53 20 57 |LLEN ZOWEL ALS W|
000000F0: 4F 4F 52 44 45 4E 2C 00 20 09 96 00 99 22 11 20 |OORDEN,. ....". |
00000100: 4D 41 41 52 20 4F 4F 4B 20 45 45 4E 20 43 4F 4D |MAAR OOK EEN COM|
00000110: 42 49 4E 41 54 49 45 20 44 41 41 52 56 41 4E 2C |BINATIE DAARVAN,|
00000120: 00 4F 09 A0 00 99 22 11 20 54 49 4A 44 45 4C 49 |.O....". TIJDELI|
00000130: 4A 4B 20 4B 55 4E 4E 45 4E 20 4F 50 42 45 52 47 |JK KUNNEN OPBERG|
00000140: 45 4E 2C 20 4F 4D 20 5A 45 20 4C 41 54 45 52 00 |EN, OM ZE LATER.|
00000150: 84 09 AA 00 99 22 11 20 45 52 20 57 45 45 52 20 |.....". ER WEER |
00000160: 55 49 54 20 54 45 20 48 41 4C 45 4E 20 45 4E 20 |UIT TE HALEN EN |
00000170: 54 45 20 56 45 52 57 45 52 4B 45 4E 2E 22 3A 8D |TE VERWERKEN.":.|
00000180: 31 37 36 30 00 A9 09 B4 00 99 22 93 22 3B 3A 53 |1760......".";:S|
00000190: B2 34 3A 8D 31 37 32 30 3A 99 22 37 39 11 11 11 |.4:.1720:."79...|
000001A0: 9D 9D 9D 12 41 92 11 11 11 00 CF 09 BE 00 99 22 |....A.........."|
000001B0: 13 22 3B 3A 53 B2 31 35 3A 8D 31 37 32 30 3A 99 |.";:S.15:.1720:.|
000001C0: 22 31 31 11 11 11 9D 9D 9D 12 50 92 11 11 11 00 |"11.......P.....|
000001D0: F5 09 C8 00 99 22 13 22 3B 3A 53 B2 32 35 3A 8D |.....".";:S.25:.|
000001E0: 31 37 32 30 3A 99 22 35 35 11 11 11 9D 9D 9D 12 |1720:."55.......|
000001F0: 47 92 11 11 11 00 22 0A D2 00 99 22 11 9A 20 44 |G....."....".. D|
00000200: 45 20 56 41 52 49 41 42 45 4C 45 4E 2C 20 48 49 |E VARIABELEN, HI|
00000210: 45 52 20 27 41 27 20 27 50 27 20 45 4E 20 27 47 |ER 'A' 'P' EN 'G|
00000220: 27 2C 00 50 0A DC 00 99 22 11 20 49 44 45 4E 54 |',.P....". IDENT|
00000230: 49 46 49 43 45 52 45 4E 20 48 45 54 20 27 44 4F |IFICEREN HET 'DO|
00000240: 4F 53 4A 45 27 2C 20 57 41 41 52 49 4E 20 57 45 |OSJE', WAARIN WE|
00000250: 00 75 0A E6 00 99 22 11 20 45 45 4E 20 47 45 54 |.u....". EEN GET|
00000260: 41 4C 20 48 45 42 42 45 4E 20 4F 50 47 45 42 4F |AL HEBBEN OPGEBO|
00000270: 52 47 45 4E 2E 00 A8 0A F0 00 99 22 11 90 20 4D |RGEN.......".. M|
00000280: 45 54 3A 20 12 4C 45 54 20 41 3D 37 39 92 20 28 |ET: .LET A=79. (|
00000290: 4C 45 54 20 4D 41 47 20 4A 45 20 4F 4F 4B 20 57 |LET MAG JE OOK W|
000002A0: 45 47 4C 41 54 45 4E 29 00 D5 0A FA 00 99 22 20 |EGLATEN)......" |
000002B0: 53 54 4F 50 50 45 4E 20 57 45 20 48 45 54 20 47 |STOPPEN WE HET G|
000002C0: 45 54 41 4C 20 37 39 20 49 4E 20 44 45 20 27 44 |ETAL 79 IN DE 'D|
000002D0: 4F 4F 53 27 2E 00 FC 0A 04 01 99 22 11 05 20 4D |OOS'.......".. M|
000002E0: 45 54 20 48 45 54 20 27 4C 41 42 45 4C 27 20 27 |ET HET 'LABEL' '|
000002F0: 41 27 2E 2E 2E 22 3A 8D 31 37 36 30 00 22 0B 0E |A'...":.1760."..|
00000300: 01 99 22 93 22 3B 3A 53 B2 34 3A 8D 31 37 32 30 |..".";:S.4:.1720|
00000310: 3A 99 22 37 39 11 11 11 9D 9D 9D 12 41 25 92 11 |:."79.......A%..|
00000320: 11 11 00 49 0B 18 01 99 22 13 22 3B 3A 53 B2 31 |...I....".";:S.1|
00000330: 35 3A 8D 31 37 32 30 3A 99 22 31 31 11 11 11 9D |5:.1720:."11....|
00000340: 9D 9D 12 50 25 92 11 11 11 00 70 0B 22 01 99 22 |...P%.....p.".."|
00000350: 13 22 3B 3A 53 B2 32 35 3A 8D 31 37 32 30 3A 99 |.";:S.25:.1720:.|
00000360: 22 35 35 11 11 11 9D 9D 9D 12 47 25 92 11 11 11 |"55.......G%....|
00000370: 00 A1 0B 2C 01 99 22 9A 20 48 45 54 20 50 52 4F |...,..". HET PRO|
00000380: 43 45 4E 54 54 45 4B 45 4E 20 12 25 92 20 41 43 |CENTTEKEN .%. AC|
00000390: 48 54 45 52 20 27 4E 20 4E 55 4D 45 52 49 45 4B |HTER 'N NUMERIEK|
000003A0: 45 00 CD 0B 36 01 99 22 11 20 56 41 52 49 41 42 |E...6..". VARIAB|
000003B0: 45 4C 45 20 42 56 2E 20 41 25 3D 37 39 2C 20 53 |ELE BV. A%=79, S|
000003C0: 50 41 41 52 54 20 52 55 49 4D 54 45 2C 00 F3 0B |PAART RUIMTE,...|
000003D0: 40 01 99 22 11 20 4D 41 41 52 20 4C 41 41 54 20 |@..". MAAR LAAT |
000003E0: 47 45 45 4E 20 44 45 43 49 4D 41 4C 45 4E 20 54 |GEEN DECIMALEN T|
000003F0: 4F 45 21 00 23 0C 4A 01 99 22 11 11 99 20 41 25 |OE!.#.J.."... A%|
00000400: 20 49 53 20 4E 49 45 54 20 48 45 54 20 5A 45 4C | IS NIET HET ZEL|
00000410: 46 44 45 20 41 4C 53 20 41 2C 20 44 55 53 20 42 |FDE ALS A, DUS B|
00000420: 45 49 2D 00 53 0C 54 01 99 22 11 20 44 45 4E 20 |EI-.S.T..". DEN |
00000430: 4D 4F 47 45 4E 20 49 4E 20 48 45 54 5A 45 4C 46 |MOGEN IN HETZELF|
00000440: 44 45 20 50 52 4F 47 52 2E 20 56 4F 4F 52 4B 4F |DE PROGR. VOORKO|
00000450: 4D 45 4E 00 88 0C 5E 01 99 22 11 1E 20 25 20 4E |MEN...^..".. % N|
00000460: 4F 45 4D 45 4E 20 57 45 20 45 45 4E 20 27 49 4E |OEMEN WE EEN 'IN|
00000470: 54 45 47 45 52 20 49 44 45 4E 54 49 46 49 45 52 |TEGER IDENTIFIER|
00000480: 27 22 3A 8D 31 37 36 30 00 B8 0C 68 01 99 22 93 |'":.1760...h..".|
00000490: 90 20 41 4C 53 20 56 41 52 49 41 42 41 4C 45 20 |. ALS VARIABALE |
000004A0: 4D 41 47 20 4A 45 20 45 4C 4B 45 20 57 49 4C 4C |MAG JE ELKE WILL|
000004B0: 45 4B 45 55 52 49 47 45 00 E2 0C 72 01 99 22 11 |EKEURIGE...r..".|
000004C0: 20 4C 45 54 54 45 52 20 55 49 54 20 48 45 54 20 | LETTER UIT HET |
000004D0: 41 4C 46 41 42 45 54 20 47 45 42 52 55 49 4B 45 |ALFABET GEBRUIKE|
000004E0: 4E 2E 00 0C 0D 7C 01 99 22 11 99 20 12 45 45 4E |N....|..".. .EEN|
000004F0: 20 43 49 4A 46 45 52 20 49 53 20 4E 49 45 54 20 | CIJFER IS NIET |
00000500: 54 4F 45 4C 41 41 54 42 41 41 52 21 00 36 0D 86 |TOELAATBAAR!.6..|
00000510: 01 99 22 11 20 12 27 28 4C 45 54 29 20 39 3D 38 |..". .'(LET) 9=8|
00000520: 31 27 20 49 53 20 44 55 53 20 47 52 4F 54 45 20 |1' IS DUS GROTE |
00000530: 4F 4E 5A 49 4E 21 00 63 0D 90 01 99 22 11 1E 20 |ONZIN!.c....".. |
00000540: 56 41 52 49 41 42 45 4C 45 4E 20 4D 4F 47 45 4E |VARIABELEN MOGEN|
00000550: 20 57 45 4C 20 42 45 53 54 41 41 4E 20 55 49 54 | WEL BESTAAN UIT|
00000560: 20 27 4E 00 91 0D 9A 01 99 22 11 20 4C 45 54 54 | 'N......". LETT|
00000570: 45 52 20 47 45 56 4F 4C 47 44 20 44 4F 4F 52 20 |ER GEVOLGD DOOR |
00000580: 27 4E 20 43 49 4A 46 45 52 20 42 56 3A 20 12 41 |'N CIJFER BV: .A|
00000590: 31 00 B7 0D A4 01 99 22 11 20 4F 46 20 55 49 54 |1......". OF UIT|
000005A0: 20 54 57 45 45 20 4C 45 54 54 45 52 53 20 42 56 | TWEE LETTERS BV|
000005B0: 3A 20 12 50 45 92 2E 00 E3 0D AE 01 99 22 11 90 |: .PE........"..|
000005C0: 20 4D 2E 55 2E 56 2E 20 44 45 20 43 4F 4D 42 49 | M.U.V. DE COMBI|
000005D0: 4E 41 54 49 45 53 3A 20 54 49 20 45 4E 20 53 54 |NATIES: TI EN ST|
000005E0: 20 21 21 00 0D 0E B8 01 99 22 20 C5 C5 C5 C5 C5 | !!......" .....|
000005F0: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
00000600: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 00 3C 0E |..............<.|
00000610: C2 01 99 22 05 20 4A 45 20 4D 41 47 20 45 52 20 |...". JE MAG ER |
00000620: 57 45 4C 20 4D 45 45 52 20 4E 45 4D 45 4E 2C 20 |WEL MEER NEMEN, |
00000630: 4D 41 41 52 20 49 4B 20 4B 49 4A 4B 00 65 0E CC |MAAR IK KIJK.e..|
00000640: 01 99 22 11 20 41 4C 4C 45 45 4E 20 4D 41 41 52 |..". ALLEEN MAAR|
00000650: 20 4E 41 41 52 20 44 45 20 45 45 52 53 54 45 20 | NAAR DE EERSTE |
00000660: 54 57 45 45 21 00 97 0E D6 01 99 22 11 90 20 44 |TWEE!......".. D|
00000670: 55 53 20 27 43 42 4D 3D 36 34 27 20 4C 45 45 53 |US 'CBM=64' LEES|
00000680: 20 49 4B 20 41 4C 53 20 27 43 42 3D 36 34 27 2E | IK ALS 'CB=64'.|
00000690: 22 3A 8D 31 37 36 30 00 C3 0E E0 01 99 22 93 9A |":.1760......"..|
000006A0: 20 56 45 52 4D 49 4A 44 20 48 45 54 20 47 45 42 | VERMIJD HET GEB|
000006B0: 52 55 49 4B 20 56 41 4E 20 56 41 52 49 41 42 45 |RUIK VAN VARIABE|
000006C0: 4C 45 4E 00 F2 0E EA 01 99 22 11 20 57 41 41 52 |LEN......". WAAR|
000006D0: 56 41 4E 20 45 45 4E 20 44 45 45 4C 20 45 45 4E |VAN EEN DEEL EEN|
000006E0: 20 43 4F 4D 4D 41 4E 44 4F 57 4F 4F 52 44 20 49 | COMMANDOWOORD I|
000006F0: 53 21 00 1F 0F F4 01 99 22 11 11 90 20 27 4B 4C |S!......"... 'KL|
00000700: 45 54 53 27 20 49 53 20 44 55 53 20 4F 4E 54 4F |ETS' IS DUS ONTO|
00000710: 45 4C 41 41 54 42 41 41 52 20 4F 4D 44 41 54 00 |ELAATBAAR OMDAT.|
00000720: 47 0F FE 01 99 22 11 20 44 41 41 52 20 48 45 54 |G....". DAAR HET|
00000730: 20 43 4F 4D 4D 41 4E 44 4F 20 27 4C 45 54 27 20 | COMMANDO 'LET' |
00000740: 49 4E 20 5A 49 54 21 00 75 0F 08 02 99 22 11 11 |IN ZIT!.u...."..|
00000750: 9A 20 44 45 20 54 4F 54 41 4C 45 20 4C 49 4A 53 |. DE TOTALE LIJS|
00000760: 54 20 41 41 4E 20 43 4F 4D 4D 41 4E 44 4F 57 4F |T AAN COMMANDOWO|
00000770: 4F 52 44 45 4E 00 96 0F 12 02 99 22 11 20 53 54 |ORDEN......". ST|
00000780: 41 41 54 20 49 4E 20 44 45 20 48 41 4E 44 4C 45 |AAT IN DE HANDLE|
00000790: 49 44 49 4E 47 2E 00 C5 0F 1C 02 99 22 11 11 9E |IDING......."...|
000007A0: 20 48 45 54 20 49 53 20 4F 56 45 52 49 47 45 4E | HET IS OVERIGEN|
000007B0: 53 2C 20 4F 4D 20 56 45 52 47 49 53 53 49 4E 47 |S, OM VERGISSING|
000007C0: 45 4E 20 54 45 00 EF 0F 26 02 99 22 11 20 56 4F |EN TE...&..". VO|
000007D0: 4F 52 4B 4F 4D 45 4E 2C 20 42 45 54 45 52 20 4F |ORKOMEN, BETER O|
000007E0: 4D 20 56 41 52 49 41 42 45 4C 45 4E 20 54 45 00 |M VARIABELEN TE.|
000007F0: 1B 10 30 02 99 22 11 20 47 45 42 52 55 49 4B 45 |..0..". GEBRUIKE|
00000800: 4E 2C 20 44 49 45 20 4E 49 45 54 20 4C 41 4E 47 |N, DIE NIET LANG|
00000810: 45 52 20 5A 49 4A 4E 20 44 41 4E 00 3D 10 3A 02 |ER ZIJN DAN.=.:.|
00000820: 99 22 11 20 54 57 45 45 20 4C 45 54 54 45 52 54 |.". TWEE LETTERT|
00000830: 45 4B 45 4E 53 2E 22 3A 8D 31 37 36 30 00 73 10 |EKENS.":.1760.s.|
00000840: 44 02 99 22 93 11 11 11 11 11 11 11 11 90 20 45 |D..".......... E|
00000850: 45 4E 20 57 4F 4F 52 44 20 28 4B 45 54 45 4E 20 |EN WOORD (KETEN |
00000860: 56 41 4E 20 4C 45 54 54 45 52 53 29 20 4B 55 4E |VAN LETTERS) KUN|
00000870: 20 4A 45 00 9F 10 4E 02 99 22 11 20 49 4E 20 45 | JE...N..". IN E|
00000880: 45 4E 20 27 53 54 52 49 4E 47 20 56 41 52 49 41 |EN 'STRING VARIA|
00000890: 42 45 4C 45 27 20 4F 50 42 45 52 47 45 4E 2E 00 |BELE' OPBERGEN..|
000008A0: C3 10 58 02 85 22 11 11 20 54 59 50 20 45 45 4E |..X..".. TYP EEN|
000008B0: 53 20 56 49 45 52 20 4C 45 54 54 45 52 53 20 22 |S VIER LETTERS "|
000008C0: 3B 41 24 00 D9 10 59 02 41 24 B2 C8 28 41 24 AA |;A$...Y.A$..(A$.|
000008D0: 22 20 20 20 20 22 2C 34 29 00 04 11 62 02 99 22 |" ",4)...b.."|
000008E0: 13 9E 22 3B 3A 53 B2 34 3A 8D 31 37 32 30 3A 99 |..";:S.4:.1720:.|
000008F0: 22 9D 22 41 24 22 11 11 11 9D 9D 9D 9D 12 41 24 |"."A$"........A$|
00000900: 92 11 11 11 00 2A 11 6C 02 99 22 13 22 3B 3A 53 |.....*.l..".";:S|
00000910: B2 31 35 3A 8D 31 37 32 30 3A 99 22 31 31 11 11 |.15:.1720:."11..|
00000920: 11 9D 9D 9D 12 50 92 11 11 11 00 50 11 76 02 99 |.....P.....P.v..|
00000930: 22 13 22 3B 3A 53 B2 32 35 3A 8D 31 37 32 30 3A |".";:S.25:.1720:|
00000940: 99 22 35 35 11 11 11 9D 9D 9D 12 47 92 11 11 11 |."55.......G....|
00000950: 00 7B 11 80 02 99 22 11 11 11 11 11 11 99 20 4A |.{...."....... J|
00000960: 45 20 5A 49 45 54 2C 20 44 41 54 20 49 4B 20 44 |E ZIET, DAT IK D|
00000970: 45 5A 45 20 4C 45 54 54 45 52 53 00 A0 11 8A 02 |EZE LETTERS.....|
00000980: 99 22 11 20 48 45 42 20 4F 50 47 45 42 4F 52 47 |.". HEB OPGEBORG|
00000990: 45 4E 20 49 4E 20 27 44 4F 4F 53 27 20 41 24 2E |EN IN 'DOOS' A$.|
000009A0: 00 B2 11 94 02 8B 4A A7 8D 31 37 36 30 3A 89 39 |......J..1760:.9|
000009B0: 33 30 00 E1 11 9E 02 99 22 11 11 05 20 4A 45 20 |30......"... JE |
000009C0: 4D 4F 45 54 20 44 55 53 20 45 45 4E 20 12 24 92 |MOET DUS EEN .$.|
000009D0: 20 54 45 4B 45 4E 20 47 45 42 52 55 49 4B 45 4E | TEKEN GEBRUIKEN|
000009E0: 2E 00 1A 12 A8 02 97 51 31 2C 30 3A 99 22 11 90 |.......Q1,0:."..|
000009F0: 20 12 57 49 4C 20 4A 45 20 44 49 54 20 4E 4F 47 | .WIL JE DIT NOG|
00000A00: 20 45 45 4E 53 20 5A 49 45 4E 20 3F 92 20 28 54 | EENS ZIEN ?. (T|
00000A10: 59 50 20 4A 20 4F 46 20 4E 29 00 2D 12 B2 02 A1 |YP J OF N).-....|
00000A20: 41 24 3A 8B 41 24 B2 22 22 89 36 39 30 00 3E 12 |A$:.A$."".690.>.|
00000A30: BC 02 8B 41 24 B3 B1 22 4E 22 89 31 32 30 00 80 |...A$.."N".120..|
00000A40: 12 C6 02 99 22 93 1E 20 45 45 4E 20 50 41 41 52 |....".. EEN PAAR|
00000A50: 20 56 4F 4F 52 42 45 45 4C 44 45 4E 20 56 41 4E | VOORBEELDEN VAN|
00000A60: 20 50 52 4F 47 52 41 4D 4D 41 27 53 20 20 20 20 | PROGRAMMA'S |
00000A70: 11 4D 45 54 20 56 41 52 49 41 42 45 4C 45 4E 3A |.MET VARIABELEN:|
00000A80: 00 B4 12 D0 02 99 22 11 11 20 20 31 31 30 20 49 |......".. 110 I|
00000A90: 4E 50 55 54 20 22 C7 28 33 34 29 22 48 4F 45 20 |NPUT ".(34)"HOE |
00000AA0: 4F 55 44 20 42 45 4E 20 4A 45 20 22 C7 28 33 34 |OUD BEN JE ".(34|
00000AB0: 29 22 3B 4C 00 CF 12 DA 02 99 22 11 20 20 31 32 |)";L......". 12|
00000AC0: 30 20 28 4C 45 54 29 20 44 3D 4C 2A 33 36 35 00 |0 (LET) D=L*365.|
00000AD0: 0E 13 E4 02 99 22 11 20 20 31 33 30 20 50 52 49 |.....". 130 PRI|
00000AE0: 4E 54 20 22 C7 28 33 34 29 22 44 41 4E 20 42 45 |NT ".(34)"DAN BE|
00000AF0: 4E 20 4A 45 22 C7 28 33 34 29 22 20 44 20 22 C7 |N JE".(34)" D ".|
00000B00: 28 33 34 29 22 44 41 47 45 4E 20 4F 55 44 00 3F |(34)"DAGEN OUD.?|
00000B10: 13 EE 02 99 22 11 11 90 20 49 4E 20 52 45 47 45 |...."... IN REGE|
00000B20: 4C 20 31 31 30 20 56 52 41 41 47 20 49 4B 20 4F |L 110 VRAAG IK O|
00000B30: 4D 20 45 45 4E 20 4C 45 45 46 54 49 4A 44 2C 00 |M EEN LEEFTIJD,.|
00000B40: 6A 13 F8 02 99 22 11 20 44 49 45 20 49 4B 20 49 |j....". DIE IK I|
00000B50: 4E 20 27 4C 27 20 53 54 4F 50 20 45 4E 20 49 4E |N 'L' STOP EN IN|
00000B60: 20 52 45 47 45 4C 20 31 32 30 00 94 13 02 03 99 | REGEL 120......|
00000B70: 22 11 20 56 45 52 4D 45 4E 49 47 56 55 4C 44 49 |". VERMENIGVULDI|
00000B80: 47 20 45 4E 20 44 49 45 20 55 49 54 4B 4F 4D 53 |G EN DIE UITKOMS|
00000B90: 54 20 49 4E 00 C4 13 0C 03 99 22 11 20 27 44 27 |T IN......". 'D'|
00000BA0: 20 53 54 4F 50 2E 20 9E 49 4E 20 52 45 47 45 4C | STOP. .IN REGEL|
00000BB0: 20 31 33 30 20 50 52 49 4E 54 20 49 4B 20 54 55 | 130 PRINT IK TU|
00000BC0: 53 53 45 4E 00 ED 13 16 03 99 22 11 20 44 45 20 |SSEN......". DE |
00000BD0: 54 45 4B 53 54 20 44 45 20 55 49 54 4B 4F 4D 53 |TEKST DE UITKOMS|
00000BE0: 54 20 27 44 27 2E 22 3A 8D 31 37 36 30 00 1C 14 |T 'D'.":.1760...|
00000BF0: 20 03 99 22 93 9A 20 48 45 54 20 53 54 55 4B 4A | ..".. HET STUKJ|
00000C00: 45 20 50 52 4F 47 52 41 4D 4D 41 20 56 41 4E 20 |E PROGRAMMA VAN |
00000C10: 44 41 41 52 4E 45 54 20 57 41 41 52 00 4A 14 2A |DAARNET WAAR.J.*|
00000C20: 03 99 22 11 20 49 4B 20 4F 4D 20 56 49 45 52 20 |..". IK OM VIER |
00000C30: 4C 45 54 54 45 52 53 20 56 52 4F 45 47 20 5A 49 |LETTERS VROEG ZI|
00000C40: 45 54 20 5A 4F 20 55 49 54 3A 00 84 14 34 03 99 |ET ZO UIT:...4..|
00000C50: 22 11 11 20 20 33 31 30 20 49 4E 50 55 54 22 C7 |".. 310 INPUT".|
00000C60: 28 33 34 29 22 54 59 50 20 45 45 4E 53 20 56 49 |(34)"TYP EENS VI|
00000C70: 45 52 20 4C 45 54 54 45 52 53 22 C7 28 33 34 29 |ER LETTERS".(34)|
00000C80: 22 3B 41 24 00 BA 14 3E 03 99 22 11 20 20 33 33 |";A$...>..". 33|
00000C90: 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 4A 45 |0 PRINT".(34)"JE|
00000CA0: 20 5A 49 45 54 2C 20 44 41 54 20 49 4B 20 44 45 | ZIET, DAT IK DE|
00000CB0: 5A 45 20 4C 45 54 54 45 52 53 00 EE 14 48 03 99 |ZE LETTERS...H..|
00000CC0: 22 20 20 33 34 30 20 50 52 49 4E 54 22 C7 28 33 |" 340 PRINT".(3|
00000CD0: 34 29 22 48 45 42 20 4F 50 47 45 42 4F 52 47 45 |4)"HEB OPGEBORGE|
00000CE0: 4E 20 49 4E 20 27 44 4F 4F 53 27 20 41 24 00 1E |N IN 'DOOS' A$..|
00000CF0: 15 52 03 99 22 11 11 90 20 52 45 47 45 4C 20 33 |.R.."... REGEL 3|
00000D00: 31 30 20 50 52 49 4E 54 45 20 44 45 20 56 52 41 |10 PRINTE DE VRA|
00000D10: 41 47 20 45 4E 20 50 4C 41 41 54 53 54 45 00 4B |AG EN PLAATSTE.K|
00000D20: 15 5C 03 99 22 11 20 27 54 20 41 4E 54 57 4F 4F |.\..". 'T ANTWOO|
00000D30: 52 44 20 49 4E 20 41 24 2E 20 49 4E 20 44 45 20 |RD IN A$. IN DE |
00000D40: 4F 4E 54 42 52 45 4B 45 4E 44 45 00 78 15 66 03 |ONTBREKENDE.x.f.|
00000D50: 99 22 11 20 52 45 47 45 4C 20 33 32 30 20 57 45 |.". REGEL 320 WE|
00000D60: 52 44 20 48 45 54 20 50 4C 41 41 54 4A 45 20 47 |RD HET PLAATJE G|
00000D70: 45 54 45 4B 45 4E 44 2E 00 A3 15 70 03 99 22 11 |ETEKEND....p..".|
00000D80: 9A 20 44 45 20 52 45 47 45 4C 53 20 33 33 30 20 |. DE REGELS 330 |
00000D90: 45 4E 20 33 34 30 20 56 4F 4F 52 5A 41 47 45 4E |EN 340 VOORZAGEN|
00000DA0: 20 4A 45 00 CA 15 7A 03 99 22 11 20 56 41 4E 20 | JE...z..". VAN |
00000DB0: 43 4F 4D 4D 45 4E 54 41 41 52 20 4E 41 20 44 45 |COMMENTAAR NA DE|
00000DC0: 20 4F 50 44 52 41 43 48 54 2E 00 01 16 84 03 97 | OPDRACHT.......|
00000DD0: 51 31 2C 30 3A 99 22 11 90 20 12 57 49 4C 20 4A |Q1,0:.".. .WIL J|
00000DE0: 45 20 44 41 54 20 4E 4F 47 20 45 45 4E 53 20 5A |E DAT NOG EENS Z|
00000DF0: 49 45 4E 20 3F 92 20 28 4A 2F 4E 29 22 3A 4A B2 |IEN ?. (J/N)":J.|
00000E00: 31 00 14 16 8E 03 A1 51 24 3A 8B 51 24 B2 22 22 |1......Q$:.Q$.""|
00000E10: 89 39 31 30 00 25 16 98 03 8B 51 24 B3 B1 22 4E |.910.%....Q$.."N|
00000E20: 22 A7 35 38 30 00 50 16 A2 03 99 22 93 9E 20 41 |".580.P....".. A|
00000E30: 4C 53 20 4A 45 20 53 54 52 49 4E 47 20 56 41 52 |LS JE STRING VAR|
00000E40: 49 41 42 45 4C 45 4E 20 47 45 42 52 55 49 4B 54 |IABELEN GEBRUIKT|
00000E50: 00 7A 16 AC 03 99 22 11 20 56 45 52 47 45 45 54 |.z....". VERGEET|
00000E60: 20 44 41 4E 20 4E 49 45 54 20 48 45 54 20 27 24 | DAN NIET HET '$|
00000E70: 27 20 54 45 4B 45 4E 20 45 52 00 9F 16 B6 03 99 |' TEKEN ER......|
00000E80: 22 11 20 41 43 48 54 45 52 20 57 41 4E 54 20 41 |". ACHTER WANT A|
00000E90: 4E 44 45 52 53 20 5A 49 45 20 4A 45 3A 11 11 00 |NDERS ZIE JE:...|
00000EA0: BF 16 C0 03 99 22 90 3F 52 45 44 4F 20 46 52 4F |.....".?REDO FRO|
00000EB0: 4D 20 53 54 41 52 54 22 3A 99 22 3F 20 22 3B 00 |M START":."? ";.|
00000EC0: FA 16 CA 03 81 58 B2 31 A4 31 30 3A 99 22 12 20 |.....X.1.10:.". |
00000ED0: 92 22 3B 3A 81 50 B2 31 A4 32 30 30 3A 82 3A 99 |.";:.P.1.200:.:.|
00000EE0: 22 9D 20 9D 22 3B 3A 81 50 B2 31 A4 32 30 30 3A |". .";:.P.1.200:|
00000EF0: 82 50 2C 58 3A 99 22 12 20 22 00 22 17 D4 03 99 |.P,X:.". "."....|
00000F00: 22 11 11 11 05 20 57 41 4E 54 20 49 4B 20 56 45 |".... WANT IK VE|
00000F10: 52 57 41 43 48 54 20 44 41 4E 20 43 49 4A 46 45 |RWACHT DAN CIJFE|
00000F20: 52 53 00 41 17 DE 03 99 22 11 20 4D 41 41 52 20 |RS.A....". MAAR |
00000F30: 49 4B 20 4B 52 49 4A 47 20 4C 45 54 54 45 52 53 |IK KRIJG LETTERS|
00000F40: 21 00 77 17 E8 03 97 51 31 2C 30 3A 99 22 11 11 |!.w....Q1,0:."..|
00000F50: 90 20 12 48 45 42 20 4A 45 20 48 45 54 20 54 4F |. .HEB JE HET TO|
00000F60: 54 20 5A 4F 56 45 52 20 42 45 47 52 45 50 45 4E |T ZOVER BEGREPEN|
00000F70: 92 20 28 4A 2F 4E 29 00 8B 17 F2 03 A1 51 24 3A |. (J/N)......Q$:|
00000F80: 8B 51 24 B2 22 22 89 31 30 31 30 00 9C 17 FC 03 |.Q$."".1010.....|
00000F90: 8B 51 24 B3 B1 22 4A 22 89 37 31 30 00 C7 17 06 |.Q$.."J".710....|
00000FA0: 04 99 22 93 99 20 49 4E 20 45 45 4E 20 53 54 52 |..".. IN EEN STR|
00000FB0: 49 4E 47 20 50 41 53 53 45 4E 20 4D 41 58 49 4D |ING PASSEN MAXIM|
00000FC0: 41 41 4C 20 32 35 36 00 F5 17 10 04 99 22 11 20 |AAL 256......". |
00000FD0: 54 45 4B 45 4E 53 20 49 4E 43 4C 55 53 49 45 46 |TEKENS INCLUSIEF|
00000FE0: 20 41 4C 4C 45 20 53 50 41 54 49 45 53 20 45 4E | ALLE SPATIES EN|
00000FF0: 20 41 4C 4C 45 00 23 18 1A 04 99 22 11 20 4C 45 | ALLE.#....". LE|
00001000: 45 53 54 45 4B 45 4E 53 2E 20 20 44 45 20 49 4E |ESTEKENS. DE IN|
00001010: 48 4F 55 44 20 56 41 4E 20 45 45 4E 20 53 54 52 |HOUD VAN EEN STR|
00001020: 49 4E 47 00 4F 18 24 04 99 22 11 20 4D 4F 45 54 |ING.O.$..". MOET|
00001030: 20 41 4C 54 49 4A 44 20 54 55 53 53 45 4E 20 41 | ALTIJD TUSSEN A|
00001040: 41 4E 48 41 4C 49 4E 47 53 54 45 4B 45 4E 53 00 |ANHALINGSTEKENS.|
00001050: 6E 18 2E 04 99 22 11 20 57 4F 52 44 45 4E 20 47 |n....". WORDEN G|
00001060: 45 50 4C 41 41 54 53 54 2C 20 44 55 53 3A 00 9E |EPLAATST, DUS:..|
00001070: 18 38 04 99 22 11 11 90 20 20 35 30 20 57 24 20 |.8.."... 50 W$ |
00001080: 3D 20 22 C7 28 33 34 29 22 57 4F 4F 52 44 22 C7 |= ".(34)"WOORD".|
00001090: 28 33 34 29 22 3A 50 52 49 4E 54 20 57 24 00 CB |(34)":PRINT W$..|
000010A0: 18 42 04 99 22 11 11 99 20 4B 4F 4D 54 20 45 52 |.B.."... KOMT ER|
000010B0: 20 4E 49 45 54 53 20 4D 45 45 52 20 41 43 48 54 | NIETS MEER ACHT|
000010C0: 45 52 2C 20 44 55 53 20 42 56 3A 00 EB 18 4C 04 |ER, DUS BV:...L.|
000010D0: 99 22 11 11 90 20 20 38 30 20 57 24 20 3D 20 22 |."... 80 W$ = "|
000010E0: C7 28 33 34 29 22 57 4F 4F 52 44 00 2C 19 56 04 |.(34)"WOORD.,.V.|
000010F0: 99 22 11 11 99 20 44 41 4E 20 4D 41 47 20 48 45 |."... DAN MAG HE|
00001100: 54 20 4C 41 41 54 53 45 20 41 41 4E 48 41 4C 49 |T LAATSE AANHALI|
00001110: 4E 47 53 54 45 4B 45 4E 20 57 45 47 20 20 20 20 |NGSTEKEN WEG |
00001120: 20 20 C5 C5 C5 22 3A 8D 31 37 36 30 00 5A 19 60 | ...":.1760.Z.`|
00001130: 04 99 22 93 9A 20 48 45 54 20 49 53 20 45 43 48 |..".. HET IS ECH|
00001140: 54 45 52 20 4E 49 45 54 20 4E 4F 44 49 47 20 41 |TER NIET NODIG A|
00001150: 41 4E 48 41 4C 49 4E 47 53 2D 00 87 19 6A 04 99 |ANHALINGS-...j..|
00001160: 22 11 20 54 45 4B 45 4E 53 20 54 45 20 54 59 50 |". TEKENS TE TYP|
00001170: 45 4E 20 42 49 4A 20 48 45 54 20 42 45 41 4E 54 |EN BIJ HET BEANT|
00001180: 57 4F 4F 52 44 45 4E 00 BC 19 74 04 99 22 11 20 |WOORDEN...t..". |
00001190: 56 41 4E 20 45 45 4E 20 56 52 41 41 47 2C 20 47 |VAN EEN VRAAG, G|
000011A0: 45 53 54 45 4C 44 20 44 4F 4F 52 20 27 54 20 50 |ESTELD DOOR 'T P|
000011B0: 52 4F 47 52 41 4D 2D 11 20 4D 41 2E 00 EB 19 7E |ROGRAM-. MA....~|
000011C0: 04 99 22 11 05 20 42 49 4A 56 4F 4F 52 42 45 45 |..".. BIJVOORBEE|
000011D0: 4C 44 3A 20 20 20 20 28 4E 49 45 54 53 20 49 4E |LD: (NIETS IN|
000011E0: 54 4F 45 54 53 45 4E 20 21 29 22 00 02 1A 88 04 |TOETSEN !)".....|
000011F0: 99 22 11 11 20 20 48 4F 45 20 48 45 45 54 20 4A |.".. HOE HEET J|
00001200: 49 4A 00 14 1A 92 04 99 22 20 20 3F 20 22 3B 3A |IJ......" ? ";:|
00001210: 49 B2 31 35 00 48 1A 9C 04 81 58 B2 31 A4 49 3A |I.15.H....X.1.I:|
00001220: 99 22 12 20 92 22 3B 3A 81 50 B2 31 A4 32 30 30 |.". .";:.P.1.200|
00001230: 3A 82 3A 99 22 9D 20 9D 22 3B 3A 81 50 B2 31 A4 |:.:.". .";:.P.1.|
00001240: 32 30 30 3A 82 50 2C 58 00 56 1A A6 04 4E B2 4E |200:.P,X.V...N.N|
00001250: AA 31 3A 49 B2 31 00 76 1A B0 04 91 4E 89 31 32 |.1:I.1.v....N.12|
00001260: 31 30 2C 31 32 32 30 2C 31 32 32 30 2C 31 32 33 |10,1220,1220,123|
00001270: 30 2C 31 32 34 30 00 87 1A BA 04 99 22 9A 4E 22 |0,1240......".N"|
00001280: 3B 3A 89 31 31 38 30 00 97 1A C4 04 99 22 41 22 |;:.1180......"A"|
00001290: 3B 3A 89 31 31 38 30 00 A7 1A CE 04 99 22 4D 22 |;:.1180......"M"|
000012A0: 3B 3A 89 31 31 38 30 00 B7 1A D8 04 99 22 11 11 |;:.1180......"..|
000012B0: 22 3A 8D 31 37 36 30 00 E7 1A E2 04 99 22 93 9E |":.1760......"..|
000012C0: 20 4D 45 54 20 53 54 52 49 4E 47 53 20 4B 41 4E | MET STRINGS KAN|
000012D0: 20 49 4B 20 45 4E 4B 45 4C 45 20 46 41 4E 54 41 | IK ENKELE FANTA|
000012E0: 53 54 49 53 43 48 45 00 00 1B EC 04 99 22 11 20 |STISCHE......". |
000012F0: 44 49 4E 47 45 4E 20 55 49 54 48 41 4C 45 4E 2E |DINGEN UITHALEN.|
00001300: 00 2E 1B F6 04 99 22 11 11 20 49 4B 20 4B 45 4E |......".. IK KEN|
00001310: 20 45 52 20 53 50 45 43 49 41 4C 45 20 43 4F 4D | ER SPECIALE COM|
00001320: 4D 41 4E 44 4F 27 53 20 56 4F 4F 52 20 3A 00 64 |MANDO'S VOOR :.d|
00001330: 1B 00 05 99 22 11 11 9A 20 12 4C 45 46 54 24 92 |...."... .LEFT$.|
00001340: 28 41 24 2C 58 29 20 20 12 4D 49 44 24 92 28 41 |(A$,X) .MID$.(A|
00001350: 24 2C 58 2C 59 29 2C 20 12 52 49 47 48 54 24 92 |$,X,Y), .RIGHT$.|
00001360: 28 41 24 29 00 95 1B 0A 05 99 22 11 20 12 4C 45 |(A$)......". .LE|
00001370: 4E 92 28 41 24 29 20 20 20 20 20 20 12 56 41 4C |N.(A$) .VAL|
00001380: 92 28 41 24 29 20 20 20 20 20 20 20 12 53 54 52 |.(A$) .STR|
00001390: 24 92 28 41 29 00 C5 1B 14 05 99 22 11 9E 20 4C |$.(A)......".. L|
000013A0: 45 54 20 57 45 4C 3A 20 42 49 4A 20 44 45 20 4C |ET WEL: BIJ DE L|
000013B0: 41 41 54 53 54 45 20 53 54 41 41 54 20 47 45 45 |AATSTE STAAT GEE|
000013C0: 4E 20 24 20 21 00 F1 1B 1E 05 99 22 11 11 20 48 |N $ !......".. H|
000013D0: 45 54 20 4C 49 4A 4B 54 20 45 52 47 20 49 4E 47 |ET LIJKT ERG ING|
000013E0: 45 57 49 4B 4B 45 4C 44 2C 20 4D 41 41 52 20 49 |EWIKKELD, MAAR I|
000013F0: 53 00 1D 1C 28 05 99 22 11 20 54 4F 43 48 20 45 |S...(..". TOCH E|
00001400: 43 48 54 20 4E 49 45 54 20 5A 4F 20 4D 4F 45 49 |CHT NIET ZO MOEI|
00001410: 4C 49 4A 4B 2E 11 22 3A 8D 31 37 36 30 00 49 1C |LIJK..":.1760.I.|
00001420: 32 05 99 22 93 9A 20 4D 45 54 20 44 45 5A 45 20 |2..".. MET DEZE |
00001430: 43 4F 4D 4D 41 4E 44 4F 27 53 20 47 41 41 4E 20 |COMMANDO'S GAAN |
00001440: 57 45 20 4E 55 20 57 41 54 00 76 1C 3C 05 99 22 |WE NU WAT.v.<.."|
00001450: 20 4D 41 4E 49 50 55 4C 45 52 45 4E 3A 20 53 54 | MANIPULEREN: ST|
00001460: 45 4C 20 4E 24 3D 22 C7 28 33 34 29 22 43 42 4D |EL N$=".(34)"CBM|
00001470: 22 C7 28 33 34 29 00 A0 1C 46 05 99 22 11 20 44 |".(34)...F..". D|
00001480: 41 4E 20 5A 41 4C 20 45 52 20 48 45 54 20 56 4F |AN ZAL ER HET VO|
00001490: 4C 47 45 4E 44 45 20 47 45 42 45 55 52 45 4E 3A |LGENDE GEBEUREN:|
000014A0: 00 B7 1C 50 05 99 22 11 90 20 20 3F 4C 45 46 54 |...P..".. ?LEFT|
000014B0: 24 28 4E 24 2C 31 29 00 E6 1C 5A 05 99 22 11 20 |$(N$,1)...Z..". |
000014C0: 49 4B 20 47 45 45 46 20 12 31 92 20 4C 45 54 54 |IK GEEF .1. LETT|
000014D0: 45 52 20 56 41 4E 20 41 46 20 4C 49 4E 4B 53 20 |ER VAN AF LINKS |
000014E0: 44 55 53 20 12 43 00 FE 1C 64 05 99 22 11 05 20 |DUS .C...d..".. |
000014F0: 20 3F 52 49 47 48 54 24 28 4E 24 2C 31 29 00 2E | ?RIGHT$(N$,1)..|
00001500: 1D 6E 05 99 22 11 20 49 4B 20 47 45 45 46 20 12 |.n..". IK GEEF .|
00001510: 31 92 20 4C 45 54 54 45 52 20 56 41 4E 20 41 46 |1. LETTER VAN AF|
00001520: 20 52 45 43 48 54 53 20 44 55 53 20 12 4D 00 46 | RECHTS DUS .M.F|
00001530: 1D 78 05 99 22 11 90 20 20 3F 4D 49 44 24 28 4E |.x..".. ?MID$(N|
00001540: 24 2C 32 2C 31 29 00 73 1D 82 05 99 22 11 20 49 |$,2,1).s....". I|
00001550: 4B 20 47 45 45 46 20 12 31 92 20 4C 45 54 54 45 |K GEEF .1. LETTE|
00001560: 52 20 56 41 4E 20 41 46 20 12 44 45 20 54 57 45 |R VAN AF .DE TWE|
00001570: 45 44 45 00 8E 1D 8C 05 99 22 11 20 12 56 41 4E |EDE......". .VAN|
00001580: 20 4C 49 4E 4B 53 92 20 44 55 53 20 12 42 00 A1 | LINKS. DUS .B..|
00001590: 1D 96 05 99 22 11 05 20 20 3F 4C 45 4E 28 4E 24 |....".. ?LEN(N$|
000015A0: 29 00 D1 1D A0 05 99 22 11 20 49 4B 20 47 45 45 |)......". IK GEE|
000015B0: 46 20 48 45 54 20 41 41 4E 54 41 4C 20 4C 45 54 |F HET AANTAL LET|
000015C0: 54 45 52 53 20 49 4E 20 4E 24 20 44 55 53 20 12 |TERS IN N$ DUS .|
000015D0: 33 00 DC 1D AA 05 3A 8D 31 37 36 30 00 0C 1E B4 |3.....:.1760....|
000015E0: 05 99 22 93 9A 20 4D 45 54 20 47 45 54 41 4C 4C |..".. MET GETALL|
000015F0: 45 4E 20 49 4E 20 45 45 4E 20 53 54 52 49 4E 47 |EN IN EEN STRING|
00001600: 20 4B 55 4E 20 4A 45 20 4E 49 45 54 00 38 1E BE | KUN JE NIET.8..|
00001610: 05 99 22 11 20 52 45 4B 45 4E 45 4E 3B 20 4A 45 |..". REKENEN; JE|
00001620: 20 4D 4F 45 54 20 45 52 20 45 45 52 53 54 20 44 | MOET ER EERST D|
00001630: 45 20 57 41 41 52 44 45 00 60 1E C8 05 99 22 11 |E WAARDE.`....".|
00001640: 20 55 49 54 48 41 4C 45 4E 20 4D 45 54 3A 20 20 | UITHALEN MET: |
00001650: 90 12 56 41 4C 28 4E 24 29 92 9A 20 20 42 56 3A |..VAL(N$).. BV:|
00001660: 00 80 1E D2 05 99 22 11 05 20 20 20 20 35 30 20 |......".. 50 |
00001670: 41 24 3D 22 31 32 33 22 3A 42 24 3D 22 34 35 22 |A$="123":B$="45"|
00001680: 00 AD 1E DC 05 99 22 11 9A 20 57 49 4C 4C 45 4E |......".. WILLEN|
00001690: 20 57 45 20 57 45 54 45 4E 20 57 41 54 20 31 32 | WE WETEN WAT 12|
000016A0: 33 2B 34 35 20 49 53 2C 20 44 41 4E 3A 00 D0 1E |3+45 IS, DAN:...|
000016B0: E6 05 99 22 11 05 20 20 20 20 36 30 20 41 3D 56 |...".. 60 A=V|
000016C0: 41 4C 28 41 24 29 3A 42 3D 56 41 4C 28 42 24 29 |AL(A$):B=VAL(B$)|
000016D0: 00 EB 1E F0 05 99 22 20 20 20 20 37 30 20 43 3D |......" 70 C=|
000016E0: 41 2B 42 3A 50 52 49 4E 54 20 43 00 16 1F FA 05 |A+B:PRINT C.....|
000016F0: 99 22 11 9A 20 45 4E 20 4B 52 49 4A 47 45 4E 20 |.".. EN KRIJGEN |
00001700: 57 45 20 12 31 36 38 92 20 41 4C 53 20 55 49 54 |WE .168. ALS UIT|
00001710: 4B 4F 4D 53 54 2E 00 2F 1F 04 06 99 22 11 11 20 |KOMST../....".. |
00001720: 44 4F 45 4E 20 57 45 20 45 43 48 54 45 52 3A 00 |DOEN WE ECHTER:.|
00001730: 50 1F 0E 06 99 22 11 05 20 20 20 20 36 30 20 43 |P....".. 60 C|
00001740: 24 3D 41 24 2B 42 24 3A 50 52 49 4E 54 20 43 24 |$=A$+B$:PRINT C$|
00001750: 00 80 1F 18 06 99 22 11 9A 20 44 41 4E 20 4B 52 |......".. DAN KR|
00001760: 49 4A 47 45 4E 20 57 45 20 20 12 31 32 33 34 35 |IJGEN WE .12345|
00001770: 92 20 41 4C 53 20 55 49 54 4B 4F 4D 53 54 21 21 |. ALS UITKOMST!!|
00001780: 00 8B 1F 22 06 3A 8D 31 37 36 30 00 BC 1F 2C 06 |...".:.1760...,.|
00001790: 99 22 93 90 20 57 49 4C 20 4A 45 20 44 45 20 48 |.".. WIL JE DE H|
000017A0: 45 4C 45 20 4C 45 53 20 4E 4F 47 20 45 45 4E 53 |ELE LES NOG EENS|
000017B0: 20 44 4F 4F 52 4E 45 4D 45 4E 20 3F 00 D0 1F 36 | DOORNEMEN ?...6|
000017C0: 06 99 22 11 9A 20 54 59 50 20 4A 20 4F 46 20 4E |..".. TYP J OF N|
000017D0: 00 E4 1F 40 06 A1 51 24 3A 8B 51 24 B2 22 22 89 |...@..Q$:.Q$."".|
000017E0: 31 36 30 30 00 F7 1F 4A 06 8B 51 24 B2 C7 28 31 |1600...J..Q$..(1|
000017F0: 33 29 89 31 35 38 30 00 07 20 54 06 8B 51 24 B2 |3).1580.. T..Q$.|
00001800: 22 4A 22 89 31 32 30 00 39 20 5E 06 99 22 11 11 |"J".120.9 ^.."..|
00001810: 90 20 57 49 4C 20 4A 45 20 44 41 4E 20 48 45 54 |. WIL JE DAN HET|
00001820: 20 4C 41 41 54 53 54 45 20 44 45 45 4C 20 4E 4F | LAATSTE DEEL NO|
00001830: 47 20 54 45 52 55 47 20 3F 00 4D 20 68 06 99 22 |G TERUG ?.M h.."|
00001840: 11 9A 20 54 59 50 20 4A 20 4F 46 20 4E 00 61 20 |.. TYP J OF N.a |
00001850: 72 06 A1 51 24 3A 8B 51 24 B2 22 22 89 31 36 35 |r..Q$:.Q$."".165|
00001860: 30 00 7F 20 7C 06 8B 51 24 B2 C7 28 31 33 29 A7 |0.. |..Q$..(13).|
00001870: 99 22 91 91 91 91 91 91 22 3A 89 31 36 33 30 00 |."......":.1630.|
00001880: 90 20 86 06 8B 51 24 B2 22 4A 22 89 31 32 35 30 |. ...Q$."J".1250|
00001890: 00 BA 20 90 06 99 22 11 11 05 20 4D 45 45 52 20 |.. ..."... MEER |
000018A0: 48 49 45 52 4F 56 45 52 20 49 4E 20 44 45 20 4C |HIEROVER IN DE L|
000018B0: 41 41 54 53 54 45 20 4C 45 53 00 EA 20 9A 06 99 |AATSTE LES.. ...|
000018C0: 22 11 11 11 20 4C 41 41 44 20 4E 55 20 44 45 20 |"... LAAD NU DE |
000018D0: 56 4F 4C 47 45 4E 44 45 20 4C 45 53 2E 22 3A 81 |VOLGENDE LES.":.|
000018E0: 49 B2 31 A4 37 30 30 30 3A 82 00 F5 20 A4 06 99 |I.1.7000:... ...|
000018F0: 22 93 22 3A 80 00 28 21 B8 06 99 A6 53 AA 33 29 |".":..(!....S.3)|
00001900: 22 A4 A4 A4 A4 A4 22 3A 99 A6 53 AA 32 29 22 CE |".....":..S.2)".|
00001910: 20 20 20 20 CE A5 22 3A 99 A6 53 AA 31 29 22 CE | ..":..S.1)".|
00001920: 20 20 20 20 CE 20 A5 22 00 5A 21 C2 06 99 A6 53 | . .".Z!....S|
00001930: 29 22 CE 20 20 20 20 CE 20 20 A5 22 3A 99 A6 53 |)". . .":..S|
00001940: 29 22 CF A3 A3 A3 D0 20 20 CE 22 3A 99 A6 53 29 |)"..... .":..S)|
00001950: 22 A5 12 20 20 20 92 A7 20 CE 00 75 21 CC 06 99 |".. .. ..u!...|
00001960: A6 53 29 22 CC A4 A4 A4 BA CE 91 91 91 91 9D 9D |.S)"............|
00001970: 9D 22 3B 3A 8E 00 7C 21 D6 06 85 41 00 C6 21 E0 |.";:..|!...A..!.|
00001980: 06 97 51 31 2C 30 3A 99 22 13 11 11 11 11 11 11 |..Q1,0:.".......|
00001990: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000019A0: 11 20 20 20 20 20 20 9E 12 56 4F 4F 52 20 56 45 |. ..VOOR VE|
000019B0: 52 44 45 52 3A 20 44 52 55 4B 20 4F 50 20 27 53 |RDER: DRUK OP 'S|
000019C0: 50 41 43 45 27 92 00 DA 21 EA 06 A1 41 24 3A 8B |PACE'...!...A$:.|
000019D0: 41 24 B2 22 22 A7 31 37 37 30 00 E0 21 F4 06 8E |A$."".1770..!...|
000019E0: 00 00 00 3A |...: |
....D..G(142).*.N.Q1.198:.53280,2:.53281
,2.G.S..".********* BASIC CURSUS *** LES
3 *******":.I.1.7000:....X..".. *** VAR
IABELEN ***":." *** ---------- ***.I....
"... VARIABELEN ZIJN A.H.W KLEINE DOOSJE
S......". WAARIN WE GETALLEN ZOWEL ALS W
OORDEN,. ....". MAAR OOK EEN COMBINATIE
DAARVAN,.O. ..". TIJDELIJK KUNNEN OPBERG
EN, OM ZE LATER......". ER WEER UIT TE H
ALEN EN TE VERWERKEN.":.1760......".";:S
.4:.1720:."79.......A.....O....".";:S.15
:.1720:."11.......P.......H..".";:S.25:.
1720:."55.......G.....".R..".. DE VARIAB
ELEN, HIER 'A' 'P' EN 'G',.P....". IDENT
IFICEREN HET 'DOOSJE', WAARIN WE.U....".
EEN GETAL HEBBEN OPGEBORGEN.......".. M
ET: .LET A=79. (LET MAG JE OOK WEGLATEN)
.U...." STOPPEN WE HET GETAL 79 IN DE 'D
OOS'.......".. MET HET 'LABEL' 'A'...":.
1760."....".";:S.4:.1720:."79.......A%..
...I....".";:S.15:.1720:."11.......P%...
..P."..".";:S.25:.1720:."55.......G%....
...,..". HET PROCENTTEKEN .%. ACHTER 'N
NUMERIEKE.M.6..". VARIABELE BV. A%=79, S
PAART RUIMTE,...@..". MAAR LAAT GEEN DEC
IMALEN TOE!.#.J.."... A% IS NIET HET ZEL
FDE ALS A, DUS BEI-.S.T..". DEN MOGEN IN
HETZELFDE PROGR. VOORKOMEN...^..".. % N
OEMEN WE EEN 'INTEGER IDENTIFIER'":.1760
...H..".. ALS VARIABALE MAG JE ELKE WILL
EKEURIGE...R..". LETTER UIT HET ALFABET
GEBRUIKEN....|..".. .EEN CIJFER IS NIET
TOELAATBAAR!.6....". .'(LET) 9=81' IS DU
S GROTE ONZIN!.C....".. VARIABELEN MOGEN
WEL BESTAAN UIT 'N......". LETTER GEVOL
GD DOOR 'N CIJFER BV: .A1......". OF UIT
TWEE LETTERS BV: .PE........".. M.U.V.
DE COMBINATIES: TI EN ST !!......" EEEEE
EEEEEEEEEEEEEEEEEEEEEEEEEEEEE.<.B..". JE
MAG ER WEL MEER NEMEN, MAAR IK KIJK.E.L
..". ALLEEN MAAR NAAR DE EERSTE TWEE!...
V..".. DUS 'CBM=64' LEES IK ALS 'CB=64'.
":.1760.C....".. VERMIJD HET GEBRUIK VAN
VARIABELEN......". WAARVAN EEN DEEL EEN
COMMANDOWOORD IS!......"... 'KLETS' IS
DUS ONTOELAATBAAR OMDAT.G....". DAAR HET
COMMANDO 'LET' IN ZIT!.U...."... DE TOT
ALE LIJST AAN COMMANDOWOORDEN......". ST
AAT IN DE HANDLEIDING..E...."... HET IS
OVERIGENS, OM VERGISSINGEN TE...&..". VO
ORKOMEN, BETER OM VARIABELEN TE...0..".
GEBRUIKEN, DIE NIET LANGER ZIJN DAN.=.:.
.". TWEE LETTERTEKENS.":.1760.S.D.."....
...... EEN WOORD (KETEN VAN LETTERS) KUN
JE...N..". IN EEN 'STRING VARIABELE' OP
BERGEN..C.X..".. TYP EENS VIER LETTERS "
;A$.Y.Y.A$.H(A$." ",4)...B.."..";:S.4
:.1720:."."A$"........A$.....*.L..".";:S
.15:.1720:."11.......P.....P.V..".";:S.2
5:.1720:."55.......G.....{...."....... J
E ZIET, DAT IK DEZE LETTERS. ....". HEB
OPGEBORGEN IN 'DOOS' A$.......J..1760:.9
30......"... JE MOET DUS EEN .$. TEKEN G
EBRUIKEN.......Q1,0:.".. .WIL JE DIT NOG
EENS ZIEN ?. (TYP J OF N).-....A$:.A$."
".690.>....A$.."N".120...F..".. EEN PAAR
VOORBEELDEN VAN PROGRAMMA'S .MET VAR
IABELEN:...P..".. 110 INPUT "G(34)"HOE
OUD BEN JE "G(34)";L.O.Z..". 120 (LET)
D=L*365......". 130 PRINT "G(34)"DAN BE
N JE"G(34)" D "G(34)"DAGEN OUD.?...."...
IN REGEL 110 VRAAG IK OM EEN LEEFTIJD,.
J....". DIE IK IN 'L' STOP EN IN REGEL 1
20......". VERMENIGVULDIG EN DIE UITKOMS
T IN.D....". 'D' STOP. .IN REGEL 130 PRI
NT IK TUSSEN......". DE TEKST DE UITKOMS
T 'D'.":.1760... ..".. HET STUKJE PROGRA
MMA VAN DAARNET WAAR.J.*..". IK OM VIER
LETTERS VROEG ZIET ZO UIT:...4..".. 310
INPUT"G(34)"TYP EENS VIER LETTERS"G(34)
";A$...>..". 330 PRINT"G(34)"JE ZIET, D
AT IK DEZE LETTERS...H.." 340 PRINT"G(3
4)"HEB OPGEBORGEN IN 'DOOS' A$...R.."...
REGEL 310 PRINTE DE VRAAG EN PLAATSTE.K
.\..". 'T ANTWOORD IN A$. IN DE ONTBREKE
NDE.X.F..". REGEL 320 WERD HET PLAATJE G
ETEKEND....P..".. DE REGELS 330 EN 340 V
OORZAGEN JE.J.Z..". VAN COMMENTAAR NA DE
OPDRACHT.......Q1,0:.".. .WIL JE DAT NO
G EENS ZIEN ?. (J/N)":J.1......Q$:.Q$.""
.910.%....Q$.."N".580.P....".. ALS JE ST
RING VARIABELEN GEBRUIKT.Z....". VERGEET
DAN NIET HET '$' TEKEN ER......". ACHTE
R WANT ANDERS ZIE JE:........".?REDO FRO
M START":."? ";...J..X.1.10:.". .";:.P.1
.200:.:.". .";:.P.1.200:.P,X:.". ".".T..
".... WANT IK VERWACHT DAN CIJFERS.A....
". MAAR IK KRIJG LETTERS!.W....Q1,0:."..
. .HEB JE HET TOT ZOVER BEGREPEN. (J/N).
.....Q$:.Q$."".1010......Q$.."J".710.G..
..".. IN EEN STRING PASSEN MAXIMAAL 256.
.....". TEKENS INCLUSIEF ALLE SPATIES EN
ALLE.#....". LEESTEKENS. DE INHOUD VAN
EEN STRING.O.$..". MOET ALTIJD TUSSEN A
ANHALINGSTEKENS.N....". WORDEN GEPLAATST
, DUS:...8.."... 50 W$ = "G(34)"WOORD"G
(34)":PRINT W$.K.B.."... KOMT ER NIETS M
EER ACHTER, DUS BV:...L.."... 80 W$ = "
G(34)"WOORD.,.V.."... DAN MAG HET LAATSE
AANHALINGSTEKEN WEG EEE":.1760.Z.`
..".. HET IS ECHTER NIET NODIG AANHALING
S-...J..". TEKENS TE TYPEN BIJ HET BEANT
WOORDEN...T..". VAN EEN VRAAG, GESTELD D
OOR 'T PROGRAM-. MA....~..".. BIJVOORBEE
LD: (NIETS INTOETSEN !)"......".. HO
E HEET JIJ......" ? ";:I.15.H....X.1.I:
.". .";:.P.1.200:.:.". .";:.P.1.200:.P,X
.V...N.N.1:I.1.V....N.1210,1220,1220,123
0,1240......".N";:.1180...D.."A";:.1180.
..N.."M";:.1180...X.."..":.1760......"..
MET STRINGS KAN IK ENKELE FANTASTISCHE.
.....". DINGEN UITHALEN.......".. IK KEN
ER SPECIALE COMMANDO'S VOOR :.D...."...
.LEFT$.(A$,X) .MID$.(A$,X,Y), .RIGHT$.
(A$)......". .LEN.(A$) .VAL.(A$)
.STR$.(A).E....".. LET WEL: BIJ DE L
AATSTE STAAT GEEN $ !......".. HET LIJKT
ERG INGEWIKKELD, MAAR IS...(..". TOCH E
CHT NIET ZO MOEILIJK..":.1760.I.2..".. M
ET DEZE COMMANDO'S GAAN WE NU WAT.V.<.."
MANIPULEREN: STEL N$="G(34)"CBM"G(34).
.F..". DAN ZAL ER HET VOLGENDE GEBEUREN:
...P..".. ?LEFT$(N$,1)...Z..". IK GEEF
.1. LETTER VAN AF LINKS DUS .C...D.."..
?RIGHT$(N$,1)...N..". IK GEEF .1. LETTE
R VAN AF RECHTS DUS .M.F.X..".. ?MID$(N
$,2,1).S....". IK GEEF .1. LETTER VAN AF
.DE TWEEDE......". .VAN LINKS. DUS .B..
....".. ?LEN(N$).Q. ..". IK GEEF HET AA
NTAL LETTERS IN N$ DUS .3.....:.1760....
..".. MET GETALLEN IN EEN STRING KUN JE
NIET.8....". REKENEN; JE MOET ER EERST D
E WAARDE.`.H..". UITHALEN MET: ..VAL(N$
).. BV:...R..".. 50 A$="123":B$="45"
......".. WILLEN WE WETEN WAT 123+45 IS,
DAN:.P....".. 60 A=VAL(A$):B=VAL(B$)
......" 70 C=A+B:PRINT C......".. EN
KRIJGEN WE .168. ALS UITKOMST../...."..
DOEN WE ECHTER:.P....".. 60 C$=A$+B$:
PRINT C$......".. DAN KRIJGEN WE .12345
. ALS UITKOMST!!...".:.1760...,..".. WIL
JE DE HELE LES NOG EENS DOORNEMEN ?.P.6
..".. TYP J OF N...@..Q$:.Q$."".1600...J
..Q$.G(13).1580.. T..Q$."J".120.9 ^.."..
. WIL JE DAN HET LAATSTE DEEL NOG TERUG
?.M H..".. TYP J OF N.A R..Q$:.Q$."".165
0. |..Q$.G(13).."......":.1630.. ...Q$.
"J".1250.. ..."... MEER HIEROVER IN DE L
AATSTE LES.. ..."... LAAD NU DE VOLGENDE
LES.":.I.1.7000:... ...".":..(!....S.3)
".....":..S.2)"N N.":..S.1)"N N ."
.Z!B...S)"N N .":..S)"O...P N":..S)
".. .. N.U!L...S)"L....N.......";:..|!
V..A.F!...Q1,0:.".......................
. ..VOOR VERDER: DRUK OP 'SPACE'..Z
!...A$:.A$."".1770..!......:
> CLICK IMAGE PREVIEW FOR FULL MODAL