BASIC 5
FILE INFORMATION
FILENAME(S): BASIC 5
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-30 21:07:01
APPEARS ON: 1 disk(s)
FILE HASH
d60174ef2b47242e22f34b553763111fbcc8438fb2fb7464d4f4a738840a8c2c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HBMD OSS 01 | BASIC 5 | PRG | DuncanTwain | 6 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3E 08 0A 00 99 22 93 2A 2A 2A 2A 2A 2A 2A |..>....".*******|
00000010: 2A 20 42 41 53 49 43 20 43 55 52 53 55 53 20 2A |* BASIC CURSUS *|
00000020: 2A 2A 20 4C 45 53 20 35 20 2A 2A 2A 2A 2A 2A 2A |** LES 5 *******|
00000030: 2A 22 3A 81 49 B2 31 A4 35 30 30 30 3A 82 00 51 |*":.I.1.5000:..Q|
00000040: 08 64 00 51 31 B2 31 39 38 3A 99 C7 28 31 34 32 |.d.Q1.198:..(142|
00000050: 29 00 71 08 6E 00 54 31 B2 31 30 30 30 30 30 3A |).q.n.T1.100000:|
00000060: 54 32 B2 54 31 AD 35 30 3A 51 24 B2 C7 28 33 34 |T2.T1.50:Q$..(34|
00000070: 29 00 8D 08 78 00 97 35 33 32 38 30 2C 31 34 3A |)...x..53280,14:|
00000080: 97 35 33 32 38 31 2C 36 3A 89 32 31 30 00 AC 08 |.53281,6:.210...|
00000090: 82 00 97 51 31 2C 30 3A 81 4E B2 31 A4 54 31 3A |...Q1,0:.N.1.T1:|
000000A0: A1 43 24 3A 8B 43 24 B2 22 22 A7 82 00 B2 08 8C |.C$:.C$.""......|
000000B0: 00 8E 00 FC 08 96 00 99 22 13 11 11 11 11 11 11 |........".......|
000000C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000D0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000F0: 1D 1D 1D 1D 90 54 4F 45 54 53 13 22 00 05 09 9B |.....TOETS."....|
00000100: 00 8D 31 33 30 00 1C 09 A0 00 99 22 93 22 3B 3A |..130......".";:|
00000110: 81 4E B2 31 A4 32 30 30 3A 82 3A 8E 00 3F 09 AA |.N.1.200:.:..?..|
00000120: 00 99 22 90 20 56 4F 4F 52 42 45 45 4C 44 22 3A |..". VOORBEELD":|
00000130: 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 3A 8E 00 |." .........":..|
00000140: 6F 09 B4 00 99 22 11 05 3F 49 4C 4C 45 47 41 4C |o...."..?ILLEGAL|
00000150: 20 51 55 41 4E 54 49 54 59 20 45 52 52 4F 52 20 | QUANTITY ERROR |
00000160: 49 4E 20 31 30 22 3A 99 22 52 45 41 44 59 2E 00 |IN 10":."READY..|
00000170: A5 09 BE 00 81 4E B2 31 A4 31 30 3A 81 4E 31 B2 |.....N.1.10:.N1.|
00000180: 31 A4 32 30 30 3A 82 3A 99 22 12 20 92 9D 22 3B |1.200:.:.". ..";|
00000190: 3A 81 4E 31 B2 31 A4 32 30 30 3A 82 3A 99 22 20 |:.N1.1.200:.:." |
000001A0: 9D 22 3B 3A 82 00 AF 09 C8 00 41 B2 30 3A 8E 00 |.";:......A.0:..|
000001B0: DF 09 D2 00 99 22 93 11 9A 20 20 3D 3D 3D 20 4E |....."... === N|
000001C0: 4F 47 20 45 4E 4B 45 4C 45 20 53 54 52 49 4E 47 |OG ENKELE STRING|
000001D0: 20 53 54 41 54 45 4D 45 4E 54 53 20 3D 3D 3D 00 | STATEMENTS ===.|
000001E0: 0C 0A DC 00 99 22 20 20 3D 3D 3D 3D 3D 3D 3D 3D |....." ========|
000001F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000200: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 3B 0A E6 |============.;..|
00000210: 00 99 22 11 20 45 52 20 5A 49 4A 4E 20 4E 4F 47 |..". ER ZIJN NOG|
00000220: 20 45 4E 4B 45 4C 45 20 27 53 54 52 49 4E 47 20 | ENKELE 'STRING |
00000230: 53 54 41 54 45 4D 45 4E 54 53 27 00 6A 0A F0 00 |STATEMENTS'.j...|
00000240: 99 22 11 20 44 49 45 20 49 4E 20 45 45 52 53 54 |.". DIE IN EERST|
00000250: 45 20 49 4E 53 54 41 4E 54 49 45 20 4D 49 53 53 |E INSTANTIE MISS|
00000260: 43 48 49 45 4E 20 4E 49 45 54 00 A1 0A FA 00 99 |CHIEN NIET......|
00000270: 22 11 20 5A 4F 20 42 45 4C 41 4E 47 52 49 4A 4B |". ZO BELANGRIJK|
00000280: 20 4C 49 4A 4B 45 4E 2C 20 4D 41 41 52 20 48 45 | LIJKEN, MAAR HE|
00000290: 54 20 54 4F 43 48 20 20 20 20 11 20 5A 49 4A 4E |T TOCH . ZIJN|
000002A0: 2E 00 C6 0A 04 01 99 22 11 11 90 20 44 41 54 20 |......."... DAT |
000002B0: 5A 49 4A 4E 3A 20 27 41 53 43 27 20 45 4E 20 27 |ZIJN: 'ASC' EN '|
000002C0: 43 48 52 24 27 2E 00 E7 0A 0E 01 99 22 20 A0 A0 |CHR$'......." ..|
000002D0: A0 A0 A0 A0 A0 A0 A0 A0 C5 C5 C5 C5 C5 20 20 20 |............. |
000002E0: 20 C5 C5 C5 C5 C5 C5 00 14 0B 18 01 99 22 11 11 | ............"..|
000002F0: 05 20 49 4B 20 4B 45 4E 20 5A 45 20 4F 50 20 44 |. IK KEN ZE OP D|
00000300: 45 20 56 4F 4C 47 45 4E 44 45 20 4D 41 4E 49 45 |E VOLGENDE MANIE|
00000310: 52 45 4E 3A 00 41 0B 22 01 99 22 11 20 53 54 52 |REN:.A."..". STR|
00000320: 49 4E 47 20 56 41 52 49 41 42 45 4C 45 20 3D 20 |ING VARIABELE = |
00000330: 43 48 52 24 20 28 4E 55 4D 4D 2E 20 56 41 52 2E |CHR$ (NUMM. VAR.|
00000340: 29 00 6F 0B 2C 01 99 22 11 20 4E 55 4D 4D 2E 20 |).o.,..". NUMM. |
00000350: 56 41 52 49 41 42 45 4C 45 20 20 3D 20 41 53 43 |VARIABELE = ASC|
00000360: 20 20 28 53 54 52 49 4E 47 20 56 41 52 2E 29 00 | (STRING VAR.).|
00000370: 78 0B 36 01 8D 31 35 30 00 8D 0B 40 01 99 22 93 |x.6..150...@..".|
00000380: 11 9E 20 31 2D 41 53 43 20 28 41 24 29 00 9F 0B |.. 1-ASC (A$)...|
00000390: 4A 01 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 00 |J.." ...........|
000003A0: CC 0B 54 01 99 22 11 90 20 49 45 44 45 52 20 4B |..T..".. IEDER K|
000003B0: 41 52 41 4B 54 45 52 20 44 41 54 20 49 4B 20 4B |ARAKTER DAT IK K|
000003C0: 45 4E 20 28 4F 4F 4B 20 41 4C 4C 45 00 FB 0B 5E |EN (OOK ALLE...^|
000003D0: 01 99 22 11 20 47 52 41 46 49 53 43 48 45 29 20 |..". GRAFISCHE) |
000003E0: 57 4F 52 44 54 20 49 4E 20 4D 49 4A 4E 20 47 45 |WORDT IN MIJN GE|
000003F0: 48 45 55 47 45 4E 20 44 4F 4F 52 00 23 0C 68 01 |HEUGEN DOOR.#.h.|
00000400: 99 22 11 20 45 45 4E 20 42 45 50 41 41 4C 44 45 |.". EEN BEPAALDE|
00000410: 20 43 4F 44 45 20 56 4F 4F 52 47 45 53 54 45 4C | CODE VOORGESTEL|
00000420: 44 2E 11 00 4C 0C 72 01 8D 31 37 30 3A 99 22 11 |D...L.r..170:.".|
00000430: 05 20 20 31 20 20 41 53 43 20 20 28 22 51 24 22 |. 1 ASC ("Q$"|
00000440: 41 22 51 24 22 29 20 20 3D 20 36 35 00 6F 0C 7C |A"Q$") = 65.o.||
00000450: 01 99 22 11 20 20 32 20 20 41 53 43 20 20 28 22 |..". 2 ASC ("|
00000460: 51 24 22 42 22 51 24 22 29 20 20 3D 20 36 36 00 |Q$"B"Q$") = 66.|
00000470: 92 0C 86 01 99 22 11 20 20 33 20 20 41 53 43 20 |.....". 3 ASC |
00000480: 20 28 22 51 24 22 5A 22 51 24 22 29 20 20 3D 20 | ("Q$"Z"Q$") = |
00000490: 39 30 00 B9 0C 90 01 99 22 11 20 20 34 20 20 41 |90......". 4 A|
000004A0: 53 43 A0 28 22 51 24 22 42 43 44 22 51 24 22 29 |SC.("Q$"BCD"Q$")|
000004B0: 20 3D 20 36 36 20 21 21 21 00 DE 0C 9A 01 99 22 | = 66 !!!......"|
000004C0: 11 11 9A 20 4C 45 54 20 4F 50 20 56 4F 4F 52 42 |... LET OP VOORB|
000004D0: 45 45 4C 44 20 34 20 21 22 3A 8D 31 35 30 00 00 |EELD 4 !":.150..|
000004E0: 0D A4 01 8D 31 37 30 3A 99 22 11 9E 20 20 20 31 |....170:.".. 1|
000004F0: 30 20 41 24 3D 20 22 51 24 22 41 42 43 22 51 24 |0 A$= "Q$"ABC"Q$|
00000500: 00 1C 0D AE 01 99 22 11 20 20 20 32 30 20 50 52 |......". 20 PR|
00000510: 49 4E 54 20 41 53 43 20 28 41 24 29 00 57 0D B8 |INT ASC (A$).W..|
00000520: 01 99 22 11 99 20 44 49 54 20 50 52 4F 47 52 41 |..".. DIT PROGRA|
00000530: 4D 4D 41 20 5A 41 4C 20 48 45 54 20 47 45 54 41 |MMA ZAL HET GETA|
00000540: 4C 20 27 36 35 27 20 20 20 20 20 20 20 20 11 50 |L '65' .P|
00000550: 52 49 4E 54 45 4E 2E 00 87 0D C2 01 99 22 11 20 |RINTEN.......". |
00000560: 48 45 54 20 41 53 43 20 53 54 41 54 45 4D 45 4E |HET ASC STATEMEN|
00000570: 54 20 47 45 45 46 54 20 4D 49 4A 20 44 45 20 4F |T GEEFT MIJ DE O|
00000580: 50 44 52 41 43 48 54 00 B3 0D CC 01 99 22 20 44 |PDRACHT......" D|
00000590: 45 20 43 4F 44 45 20 56 41 4E 20 48 45 54 20 45 |E CODE VAN HET E|
000005A0: 45 52 53 54 45 20 4C 45 54 54 45 52 20 56 41 4E |ERSTE LETTER VAN|
000005B0: 20 44 45 00 E0 0D D6 01 99 22 11 20 53 54 52 49 | DE......". STRI|
000005C0: 4E 47 20 54 45 20 42 45 50 41 4C 45 4E 2E 20 44 |NG TE BEPALEN. D|
000005D0: 49 45 20 43 4F 44 45 20 57 4F 52 44 54 20 44 45 |IE CODE WORDT DE|
000005E0: 00 FE 0D E0 01 99 22 11 20 27 41 53 43 49 49 27 |......". 'ASCII'|
000005F0: 20 43 4F 44 45 20 47 45 4E 4F 45 4D 44 2E 00 27 | CODE GENOEMD..'|
00000600: 0E EA 01 99 22 11 90 20 57 41 54 20 49 53 20 48 |....".. WAT IS H|
00000610: 45 54 20 4E 55 54 20 56 41 4E 20 44 45 5A 45 20 |ET NUT VAN DEZE |
00000620: 43 4F 44 45 53 20 3F 00 5C 0E F4 01 81 4E B2 31 |CODES ?.\....N.1|
00000630: A4 54 32 3A 82 3A 99 22 11 20 44 41 54 20 4B 41 |.T2:.:.". DAT KA|
00000640: 4E 20 49 4B 20 48 45 54 20 4D 41 4B 4B 45 4C 49 |N IK HET MAKKELI|
00000650: 4A 4B 53 54 20 4D 45 54 20 45 45 4E 00 7F 0E FE |JKST MET EEN....|
00000660: 01 99 22 11 20 56 4F 4F 52 42 45 45 4C 44 20 55 |..". VOORBEELD U|
00000670: 49 54 4C 45 47 47 45 4E 2E 22 3A 8D 31 35 30 00 |ITLEGGEN.":.150.|
00000680: B3 0E 08 02 8D 31 37 30 3A 99 22 11 90 20 20 20 |.....170:.".. |
00000690: 31 30 20 47 45 54 20 43 24 20 3A 20 49 46 20 43 |10 GET C$ : IF C|
000006A0: 24 20 3D 20 22 51 24 3B 51 24 22 20 54 48 45 4E |$ = "Q$;Q$" THEN|
000006B0: 20 31 30 00 CC 0E 12 02 99 22 20 20 20 32 30 20 | 10......" 20 |
000006C0: 43 20 3D 20 41 53 43 20 28 43 24 29 00 EA 0E 1C |C = ASC (C$)....|
000006D0: 02 99 22 20 20 20 33 30 20 49 46 20 43 20 3C 20 |.." 30 IF C < |
000006E0: 36 35 20 54 48 45 4E 20 31 30 00 08 0F 26 02 99 |65 THEN 10...&..|
000006F0: 22 20 20 20 34 30 20 49 46 20 43 20 3E 20 37 30 |" 40 IF C > 70|
00000700: 20 54 48 45 4E 20 31 30 00 40 0F 30 02 99 22 20 | THEN 10.@.0.." |
00000710: 20 20 35 30 20 4F 4E 20 43 2D 36 34 20 47 4F 54 | 50 ON C-64 GOT|
00000720: 4F 20 31 30 30 2C 32 30 30 2C 33 30 30 2C 34 30 |O 100,200,300,40|
00000730: 30 2C 35 30 30 2C 20 20 20 20 20 20 20 36 30 30 |0,500, 600|
00000740: 00 53 0F 3A 02 81 4E B2 31 A4 54 32 3A 41 B2 31 |.S.:..N.1.T2:A.1|
00000750: 30 3A 82 00 83 0F 44 02 99 22 11 11 9F 20 52 45 |0:....D.."... RE|
00000760: 47 45 4C 20 31 30 20 53 43 41 4E 54 20 48 45 54 |GEL 10 SCANT HET|
00000770: 20 54 4F 45 54 53 45 4E 42 4F 52 44 20 54 4F 54 | TOETSENBORD TOT|
00000780: 20 45 52 00 AF 0F 4E 02 99 22 11 20 45 45 4E 20 | ER...N..". EEN |
00000790: 54 4F 45 54 53 20 57 4F 52 44 54 20 49 4E 47 45 |TOETS WORDT INGE|
000007A0: 44 52 55 4B 54 2E 20 52 45 47 45 4C 20 32 30 00 |DRUKT. REGEL 20.|
000007B0: DD 0F 58 02 99 22 11 20 4D 41 41 4B 54 20 44 45 |..X..". MAAKT DE|
000007C0: 20 41 53 43 49 49 20 43 4F 44 45 20 56 41 4E 20 | ASCII CODE VAN |
000007D0: 44 45 20 49 4E 47 45 44 52 55 4B 54 45 00 08 10 |DE INGEDRUKTE...|
000007E0: 62 02 99 22 11 20 54 4F 45 54 53 2E 20 41 4C 53 |b..". TOETS. ALS|
000007F0: 20 44 45 20 41 53 43 49 49 20 57 41 41 52 44 45 | DE ASCII WAARDE|
00000800: 20 56 41 4E 20 48 45 54 00 36 10 6C 02 99 22 11 | VAN HET.6.l..".|
00000810: 20 4B 41 52 41 4B 54 45 52 20 4B 4C 45 49 4E 45 | KARAKTER KLEINE|
00000820: 52 20 44 41 4E 20 36 35 20 4F 46 20 47 52 4F 54 |R DAN 65 OF GROT|
00000830: 45 52 20 44 41 4E 00 7B 10 76 02 99 22 11 20 37 |ER DAN.{.v..". 7|
00000840: 30 20 49 53 20 44 41 4E 20 57 4F 52 44 54 20 56 |0 IS DAN WORDT V|
00000850: 41 4E 20 52 45 47 45 4C 20 33 30 20 4F 46 20 34 |AN REGEL 30 OF 4|
00000860: 30 20 4E 41 41 52 11 20 31 30 20 54 45 52 55 47 |0 NAAR. 10 TERUG|
00000870: 47 45 53 50 52 4F 4E 47 45 4E 2E 00 84 10 80 02 |GESPRONGEN......|
00000880: 8D 31 33 30 00 9E 10 8A 02 99 22 13 11 11 11 11 |.130......".....|
00000890: 11 11 11 11 11 22 3A 81 4E B2 31 A4 31 34 00 D1 |.....":.N.1.14..|
000008A0: 10 94 02 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 3A | ";:|
000008D0: 82 00 E3 10 9E 02 99 22 13 11 11 11 11 11 11 11 |......."........|
000008E0: 11 11 22 00 13 11 A8 02 99 22 90 20 41 4C 53 20 |.."......". ALS |
000008F0: 54 4F 45 54 53 20 43 20 57 4F 52 44 54 20 49 4E |TOETS C WORDT IN|
00000900: 47 45 44 52 55 4B 54 20 57 41 54 20 47 45 42 45 |GEDRUKT WAT GEBE|
00000910: 55 52 44 00 30 11 B2 02 99 22 20 45 52 20 44 41 |URD.0...." ER DA|
00000920: 4E 20 3F 20 20 20 20 20 9A 31 20 4E 49 45 54 53 |N ? .1 NIETS|
00000930: 00 4C 11 BC 02 99 A3 31 34 29 22 32 20 53 50 52 |.L.....14)"2 SPR|
00000940: 4F 4E 47 20 4E 41 41 52 20 32 30 30 00 68 11 C6 |ONG NAAR 200.h..|
00000950: 02 99 A3 31 34 29 22 33 20 53 50 52 4F 4E 47 20 |...14)"3 SPRONG |
00000960: 4E 41 41 52 20 33 30 30 00 83 11 D0 02 99 A3 31 |NAAR 300.......1|
00000970: 34 29 22 34 20 53 50 52 4F 4E 47 20 4E 41 41 52 |4)"4 SPRONG NAAR|
00000980: 20 31 30 00 B7 11 DA 02 85 22 90 20 57 45 4C 4B | 10......". WELK|
00000990: 20 4E 55 4D 4D 45 52 20 28 31 2D 34 29 20 20 20 | NUMMER (1-4) |
000009A0: 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 22 3B 41 24 3A | .......";A$:|
000009B0: 41 B2 C5 28 41 24 29 00 D1 11 E4 02 8B 41 B3 31 |A..(A$)......A.1|
000009C0: B0 41 B1 34 A7 99 22 91 91 91 91 22 3A 89 37 33 |.A.4.."....":.73|
000009D0: 30 00 DE 11 EE 02 8B 41 B2 33 A7 37 38 30 00 0D |0......A.3.780..|
000009E0: 12 F8 02 99 22 05 20 4E 49 45 54 20 47 4F 45 44 |....". NIET GOED|
000009F0: 3B 20 50 52 4F 42 45 45 52 20 4F 50 4E 49 45 55 |; PROBEER OPNIEU|
00000A00: 57 91 22 3A 81 4E B2 31 A4 54 32 3A 82 00 39 12 |W.":.N.1.T2:..9.|
00000A10: 02 03 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00000A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 | .|
00000A30: 91 91 91 22 3A 89 37 33 30 00 61 12 0C 03 8D 31 |...":.730.a....1|
00000A40: 36 30 3A 99 22 05 20 44 41 54 20 49 53 20 48 45 |60:.". DAT IS HE|
00000A50: 54 20 47 4F 45 44 45 20 41 4E 54 57 4F 4F 52 44 |T GOEDE ANTWOORD|
00000A60: 22 00 8D 12 16 03 99 22 11 20 44 45 20 41 53 43 |"......". DE ASC|
00000A70: 49 49 20 43 4F 44 45 20 56 41 4E 20 44 45 20 27 |II CODE VAN DE '|
00000A80: 43 27 20 49 53 20 36 37 2C 20 44 41 4E 00 BC 12 |C' IS 67, DAN...|
00000A90: 20 03 99 22 11 20 57 4F 52 44 54 20 4E 41 41 52 | ..". WORDT NAAR|
00000AA0: 20 48 45 54 20 44 45 52 44 45 20 41 44 52 45 53 | HET DERDE ADRES|
00000AB0: 20 49 4E 20 44 45 20 41 44 52 45 53 00 E5 12 2A | IN DE ADRES...*|
00000AC0: 03 99 22 11 20 4C 49 53 54 20 47 45 53 50 52 4F |..". LIST GESPRO|
00000AD0: 4E 47 45 4E 20 20 28 20 36 37 A0 2D A0 36 34 20 |NGEN ( 67.-.64 |
00000AE0: 3D 20 33 20 29 00 07 13 34 03 8D 31 35 30 3A 99 |= 3 )...4..150:.|
00000AF0: 22 1E 20 48 45 54 20 27 43 48 52 24 27 20 53 54 |". HET 'CHR$' ST|
00000B00: 41 54 45 4D 45 4E 54 00 23 13 3E 03 99 22 20 C5 |ATEMENT.#.>.." .|
00000B10: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
00000B20: C5 C5 C5 00 53 13 48 03 99 22 11 20 48 45 54 20 |....S.H..". HET |
00000B30: 27 43 48 52 24 27 20 53 54 41 54 45 4D 45 4E 54 |'CHR$' STATEMENT|
00000B40: 20 44 4F 45 54 20 48 45 54 20 56 4F 4C 47 45 4E | DOET HET VOLGEN|
00000B50: 44 45 3A 00 7E 13 52 03 99 22 20 48 45 54 20 4C |DE:.~.R.." HET L|
00000B60: 41 41 54 20 4D 49 4A 20 56 41 4E 20 45 45 4E 20 |AAT MIJ VAN EEN |
00000B70: 41 53 43 49 49 20 43 4F 44 45 20 45 45 4E 00 9D |ASCII CODE EEN..|
00000B80: 13 5C 03 99 22 11 20 4B 41 52 41 4B 54 45 52 53 |.\..". KARAKTERS|
00000B90: 54 52 49 4E 47 20 4D 41 4B 45 4E 2E 11 00 A6 13 |TRING MAKEN.....|
00000BA0: 66 03 8D 31 37 30 00 BA 13 70 03 99 22 9A 20 20 |f..170...p..". |
00000BB0: 31 30 20 49 4E 50 55 54 20 41 00 D3 13 7A 03 99 |10 INPUT A...z..|
00000BC0: 22 20 20 32 30 20 50 52 49 4E 54 20 43 48 52 24 |" 20 PRINT CHR$|
00000BD0: 28 41 29 00 FF 13 84 03 99 22 11 1E 20 48 45 54 |(A)......".. HET|
00000BE0: 20 47 45 54 41 4C 20 41 20 4D 4F 45 54 20 49 4E | GETAL A MOET IN|
00000BF0: 20 48 45 54 20 42 45 52 45 49 4B 20 56 41 4E 00 | HET BEREIK VAN.|
00000C00: 3B 14 8E 03 99 22 20 11 30 2D 32 35 35 20 4C 49 |;...." .0-255 LI|
00000C10: 47 47 45 4E 2E 20 57 45 20 47 41 41 4E 20 44 49 |GGEN. WE GAAN DI|
00000C20: 54 20 56 4F 4F 52 42 45 45 4C 44 20 20 20 20 11 |T VOORBEELD .|
00000C30: 20 47 45 42 52 55 49 4B 45 4E 2E 00 6A 14 98 03 | GEBRUIKEN..j...|
00000C40: 85 22 11 05 20 47 45 45 46 20 41 22 3B 41 24 3A |.".. GEEF A";A$:|
00000C50: 41 B2 B5 28 C5 28 41 24 29 29 3A 8B 41 B3 30 B0 |A..(.(A$)):.A.0.|
00000C60: 41 B1 32 35 35 A7 8D 31 38 30 00 A3 14 A2 03 99 |A.255..180......|
00000C70: C7 28 41 29 3A 97 51 31 2C 30 3A 85 22 20 4E 4F |.(A):.Q1,0:." NO|
00000C80: 47 20 45 45 4E 20 4B 45 45 52 20 28 4A 2F 4E 29 |G EEN KEER (J/N)|
00000C90: 22 3B 41 24 3A 8B C6 28 41 24 29 B3 B1 37 38 A7 |";A$:..(A$)..78.|
00000CA0: 39 32 30 00 D6 14 AC 03 8D 31 36 30 3A 99 22 90 |920......160:.".|
00000CB0: 20 4A 45 20 48 45 42 54 20 4E 55 20 47 45 5A 49 | JE HEBT NU GEZI|
00000CC0: 45 4E 20 57 41 54 20 4D 4F 47 45 4C 49 4A 4B 20 |EN WAT MOGELIJK |
00000CD0: 49 53 20 4D 45 54 00 05 15 B6 03 99 22 11 20 27 |IS MET......". '|
00000CE0: 41 53 43 27 20 45 4E 20 27 43 48 52 24 27 2E 20 |ASC' EN 'CHR$'. |
00000CF0: 49 53 20 48 45 54 20 4A 45 20 4F 50 47 45 56 41 |IS HET JE OPGEVA|
00000D00: 4C 4C 45 4E 2C 00 32 15 C0 03 99 22 11 20 44 41 |LLEN,.2....". DA|
00000D10: 54 20 4A 45 20 4D 45 54 20 27 43 48 52 24 27 20 |T JE MET 'CHR$' |
00000D20: 4F 4F 4B 20 4D 49 4A 4E 20 47 52 41 46 49 53 43 |OOK MIJN GRAFISC|
00000D30: 48 45 00 59 15 CA 03 99 22 11 20 4B 41 52 41 4B |HE.Y....". KARAK|
00000D40: 54 45 52 53 20 4B 55 4E 54 20 4C 41 54 45 4E 20 |TERS KUNT LATEN |
00000D50: 50 52 49 4E 54 45 4E 20 3F 00 87 15 D4 03 99 22 |PRINTEN ?......"|
00000D60: 11 20 45 4E 20 48 45 42 20 4A 45 20 47 45 5A 49 |. EN HEB JE GEZI|
00000D70: 45 4E 20 57 41 54 20 45 52 20 47 45 42 45 55 52 |EN WAT ER GEBEUR|
00000D80: 44 20 41 4C 53 20 41 00 AF 15 DE 03 99 22 11 20 |D ALS A......". |
00000D90: 4E 45 47 41 54 49 45 46 20 4F 46 20 47 52 4F 54 |NEGATIEF OF GROT|
00000DA0: 45 52 20 44 41 4E 20 32 35 35 20 49 53 20 3F 00 |ER DAN 255 IS ?.|
00000DB0: D3 15 E8 03 85 22 11 90 20 4A 41 2F 4E 45 45 20 |.....".. JA/NEE |
00000DC0: 22 3B 41 24 3A 8B C6 28 41 24 29 B3 B1 37 34 A7 |";A$:..(A$)..74.|
00000DD0: 39 32 30 00 01 16 F2 03 99 22 11 1E 20 44 41 54 |920......".. DAT|
00000DE0: 20 47 45 45 46 54 20 4C 45 55 4B 45 20 4D 4F 47 | GEEFT LEUKE MOG|
00000DF0: 45 4C 49 4A 4B 48 45 44 45 4E 20 4F 4D 20 4D 49 |ELIJKHEDEN OM MI|
00000E00: 4A 00 2D 16 FC 03 99 22 11 20 41 4C 53 20 4A 45 |J.-....". ALS JE|
00000E10: 20 57 41 54 20 4D 45 45 52 20 50 52 4F 47 52 41 | WAT MEER PROGRA|
00000E20: 4D 4D 45 45 52 45 52 56 41 52 49 4E 47 00 5C 16 |MMEERERVARING.\.|
00000E30: 06 04 99 22 11 20 48 45 42 54 20 42 2E 56 2E 20 |...". HEBT B.V. |
00000E40: 47 52 41 46 49 45 4B 45 4E 20 54 45 20 4C 41 54 |GRAFIEKEN TE LAT|
00000E50: 45 4E 20 42 45 52 45 4B 45 4E 45 4E 00 8A 16 10 |EN BEREKENEN....|
00000E60: 04 99 22 11 20 45 4E 20 4D 2E 42 2E 56 2E 20 4D |..". EN M.B.V. M|
00000E70: 49 4A 4E 20 47 52 41 46 49 53 43 48 45 20 4B 41 |IJN GRAFISCHE KA|
00000E80: 52 41 4B 54 45 52 53 20 54 45 00 A1 16 1A 04 99 |RAKTERS TE......|
00000E90: 22 11 20 4C 41 54 45 4E 20 54 45 4B 45 4E 45 4E |". LATEN TEKENEN|
00000EA0: 2E 00 AA 16 24 04 8D 31 35 30 00 D8 16 2E 04 99 |....$..150......|
00000EB0: 22 93 9E 20 20 3D 3D 3D 20 4E 4F 47 20 45 4E 4B |".. === NOG ENK|
00000EC0: 45 4C 45 20 4C 45 55 4B 45 20 43 4F 4D 4D 41 4E |ELE LEUKE COMMAN|
00000ED0: 44 4F 27 53 20 3D 3D 3D 00 04 17 38 04 99 22 20 |DO'S ===...8.." |
00000EE0: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ===============|
00000EF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000F00: 3D 3D 3D 3D 00 4D 17 42 04 99 22 11 9A 20 4C 49 |====.M.B..".. LI|
00000F10: 53 54 20 31 30 22 3A 99 22 20 C5 C5 C5 C5 C5 C5 |ST 10":." ......|
00000F20: C5 22 3A 99 22 20 4D 45 54 20 44 49 54 20 43 4F |.":." MET DIT CO|
00000F30: 4D 4D 41 4E 44 4F 20 4B 55 4E 20 4A 45 20 52 45 |MMANDO KUN JE RE|
00000F40: 47 45 4C 20 31 30 20 4C 49 53 54 45 4E 00 92 17 |GEL 10 LISTEN...|
00000F50: 4C 04 99 22 11 20 4C 49 53 54 20 31 30 2D 22 3A |L..". LIST 10-":|
00000F60: 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 22 3A 99 22 20 |." ........":." |
00000F70: 48 49 45 52 4D 45 45 20 4B 55 4E 20 4A 45 20 45 |HIERMEE KUN JE E|
00000F80: 45 4E 20 4C 49 53 54 49 4E 47 20 4B 52 49 4A 47 |EN LISTING KRIJG|
00000F90: 45 4E 00 A9 17 56 04 99 22 11 20 56 41 4E 41 46 |EN...V..". VANAF|
00000FA0: 20 52 45 47 45 4C 20 31 30 00 F1 17 60 04 99 22 | REGEL 10...`.."|
00000FB0: 11 11 20 4C 49 53 54 20 2D 31 30 22 3A 99 22 20 |.. LIST -10":." |
00000FC0: C5 C5 C5 C5 C5 C5 C5 C5 22 3A 99 22 20 4E 55 20 |........":." NU |
00000FD0: 4C 49 53 54 20 49 4B 20 41 4C 4C 45 20 52 45 47 |LIST IK ALLE REG|
00000FE0: 45 4C 53 20 54 4F 54 20 45 4E 20 4D 45 54 20 31 |ELS TOT EN MET 1|
00000FF0: 30 00 3C 18 6A 04 99 22 11 11 20 4C 49 53 54 20 |0.<.j..".. LIST |
00001000: 31 30 2D 32 30 22 3A 99 22 20 C5 C5 C5 C5 C5 C5 |10-20":." ......|
00001010: C5 C5 C5 C5 22 3A 99 22 20 44 49 54 20 47 45 45 |....":." DIT GEE|
00001020: 46 54 20 45 45 4E 20 4C 49 53 54 49 4E 47 20 56 |FT EEN LISTING V|
00001030: 41 4E 20 31 30 20 54 2F 4D 20 32 30 00 45 18 74 |AN 10 T/M 20.E.t|
00001040: 04 8D 31 35 30 00 61 18 7E 04 99 22 93 1E 20 52 |..150.a.~..".. R|
00001050: 55 4E 20 31 30 22 3A 99 22 20 C5 C5 C5 C5 C5 C5 |UN 10":." ......|
00001060: 22 00 90 18 88 04 99 22 11 20 41 4C 53 20 4A 45 |"......". ALS JE|
00001070: 20 4D 49 4A 20 4E 49 45 54 20 4F 50 20 44 45 20 | MIJ NIET OP DE |
00001080: 45 45 52 53 54 45 20 52 45 47 45 4C 20 56 41 4E |EERSTE REGEL VAN|
00001090: 00 BE 18 92 04 99 22 11 20 45 45 4E 20 50 52 4F |......". EEN PRO|
000010A0: 47 52 41 4D 4D 41 20 57 49 4C 54 20 4C 41 54 45 |GRAMMA WILT LATE|
000010B0: 4E 20 42 45 47 49 4E 4E 45 4E 2C 44 41 4E 00 EE |N BEGINNEN,DAN..|
000010C0: 18 9C 04 99 22 11 20 4B 55 4E 20 4A 45 20 4D 49 |....". KUN JE MI|
000010D0: 4A 20 4F 50 20 42 4F 56 45 4E 53 54 41 41 4E 44 |J OP BOVENSTAAND|
000010E0: 45 20 57 49 4A 5A 45 20 4F 50 20 45 4C 4B 00 1A |E WIJZE OP ELK..|
000010F0: 19 A6 04 99 22 20 42 45 53 54 41 41 4E 44 20 52 |...." BESTAAND R|
00001100: 45 47 45 4C 4E 55 4D 4D 45 52 20 4C 41 54 45 4E |EGELNUMMER LATEN|
00001110: 20 42 45 47 49 4E 4E 45 4E 2E 00 4A 19 B0 04 99 | BEGINNEN..J....|
00001120: 22 11 90 20 45 45 4E 20 4E 49 45 54 20 42 45 53 |".. EEN NIET BES|
00001130: 54 41 41 4E 44 20 52 45 47 45 4C 4E 55 4D 4D 45 |TAAND REGELNUMME|
00001140: 52 20 47 45 45 46 54 20 44 45 00 68 19 BA 04 99 |R GEEFT DE.h....|
00001150: 22 11 20 56 4F 4C 47 45 4E 44 45 20 46 4F 55 54 |". VOLGENDE FOUT|
00001160: 4D 45 4C 44 49 4E 47 3A 00 78 19 C4 04 81 4E B2 |MELDING:.x....N.|
00001170: 31 A4 54 32 AC 32 3A 82 00 A8 19 CE 04 99 22 11 |1.T2.2:.......".|
00001180: 05 3F 55 4E 44 45 46 27 44 20 53 54 41 54 45 4D |.?UNDEF'D STATEM|
00001190: 45 4E 54 20 45 52 52 4F 52 22 3A 99 22 52 45 41 |ENT ERROR":."REA|
000011A0: 44 59 22 3A 8D 31 39 30 00 D4 19 D8 04 99 22 11 |DY":.190......".|
000011B0: 1E 20 44 45 5A 45 20 46 4F 55 54 4D 45 4C 44 49 |. DEZE FOUTMELDI|
000011C0: 4E 47 20 47 45 4C 44 54 20 56 4F 4F 52 20 49 45 |NG GELDT VOOR IE|
000011D0: 44 45 52 45 00 0E 1A E2 04 99 22 11 20 56 45 52 |DERE......". VER|
000011E0: 57 49 4A 5A 49 4E 47 20 4E 41 41 52 20 45 45 4E |WIJZING NAAR EEN|
000011F0: 20 4E 49 45 54 20 42 45 53 54 41 41 4E 44 45 20 | NIET BESTAANDE |
00001200: 20 20 20 20 20 11 52 45 47 45 4C 2E 22 3B 00 1C | .REGEL.";..|
00001210: 1A EC 04 99 22 13 22 3A 8D 31 35 30 00 50 1A F6 |....".":.150.P..|
00001220: 04 99 22 90 93 11 11 11 11 11 11 20 57 49 4C 20 |.."........ WIL |
00001230: 4A 45 20 44 45 5A 45 20 4C 45 53 20 4E 4F 47 20 |JE DEZE LES NOG |
00001240: 45 45 4E 53 20 44 4F 4F 52 4E 45 4D 45 4E 20 3F |EENS DOORNEMEN ?|
00001250: 00 64 1A 00 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.d....A$:.A$."".|
00001260: 31 32 38 30 00 73 1A 01 05 8B 41 24 B3 B1 22 4E |1280.s....A$.."N|
00001270: 22 A7 8A 00 9C 1A 0A 05 99 22 11 99 20 4C 41 41 |"........".. LAA|
00001280: 44 20 44 41 4E 20 4E 55 20 4C 45 53 20 36 2E 22 |D DAN NU LES 6."|
00001290: 3A 81 49 B2 31 A4 37 30 30 30 3A 82 00 A7 1A 14 |:.I.1.7000:.....|
000012A0: 05 99 22 93 22 3A 80 00 00 00 60 |..".":....` |
..>....".******** BASIC CURSUS *** LES 5
********":.I.1.5000:..Q.D.Q1.198:.G(142
).Q.N.T1.100000:T2.T1.50:Q$.G(34)...X..5
3280,14:.53281,6:.210......Q1,0:.N.1.T1:
.C$:.C$."".............."...............
........................................
.....TOETS."......130... ..".";:.N.1.200
:.:..?....". VOORBEELD":." EEEEEEEEE":..
O...."..?ILLEGAL QUANTITY ERROR IN 10":.
"READY.......N.1.10:.N1.1.200:.:.". ..";
:.N1.1.200:.:." .";:....H.A.0:....R.."..
. === NOG ENKELE STRING STATEMENTS ===.
....." ================================
====.;....". ER ZIJN NOG ENKELE 'STRING
STATEMENTS'.J....". DIE IN EERSTE INSTAN
TIE MISSCHIEN NIET......". ZO BELANGRIJK
LIJKEN, MAAR HET TOCH . ZIJN..F...."
... DAT ZIJN: 'ASC' EN 'CHR$'......."
EEEEE EEEEEE......"... IK KEN
ZE OP DE VOLGENDE MANIEREN:.A."..". STR
ING VARIABELE = CHR$ (NUMM. VAR.).O.,.."
. NUMM. VARIABELE = ASC (STRING VAR.).
X.6..150...@.."... 1-ASC (A$)...J.." EEE
EEEEEEE.L.T..".. IEDER KARAKTER DAT IK K
EN (OOK ALLE...^..". GRAFISCHE) WORDT IN
MIJN GEHEUGEN DOOR.#.H..". EEN BEPAALDE
CODE VOORGESTELD...L.R..170:.".. 1 AS
C ("Q$"A"Q$") = 65.O.|..". 2 ASC ("
Q$"B"Q$") = 66......". 3 ASC ("Q$"Z"
Q$") = 90......". 4 ASC ("Q$"BCD"Q$")
= 66 !!!......"... LET OP VOORBEELD 4 !
":.150......170:.".. 10 A$= "Q$"ABC"Q$
......". 20 PRINT ASC (A$).W....".. DI
T PROGRAMMA ZAL HET GETAL '65' .P
RINTEN....B..". HET ASC STATEMENT GEEFT
MIJ DE OPDRACHT...L.." DE CODE VAN HET E
ERSTE LETTER VAN DE...V..". STRING TE BE
PALEN. DIE CODE WORDT DE......". 'ASCII'
CODE GENOEMD..'....".. WAT IS HET NUT V
AN DEZE CODES ?.\....N.1.T2:.:.". DAT KA
N IK HET MAKKELIJKST MET EEN.....". VOO
RBEELD UITLEGGEN.":.150......170:."..
10 GET C$ : IF C$ = "Q$;Q$" THEN 10.L...
." 20 C = ASC (C$)......" 30 IF C <
65 THEN 10...&.." 40 IF C > 70 THEN 10
.@.0.." 50 ON C-64 GOTO 100,200,300,40
0,500, 600.S.:..N.1.T2:A.10:....D.
."... REGEL 10 SCANT HET TOETSENBORD TOT
ER...N..". EEN TOETS WORDT INGEDRUKT. R
EGEL 20...X..". MAAKT DE ASCII CODE VAN
DE INGEDRUKTE...B..". TOETS. ALS DE ASCI
I WAARDE VAN HET.6.L..". KARAKTER KLEINE
R DAN 65 OF GROTER DAN.{.V..". 70 IS DAN
WORDT VAN REGEL 30 OF 40 NAAR. 10 TERUG
GESPRONGEN.......130......"..........":.
N.1.14.Q...."
";:......."..........".....
.". ALS TOETS C WORDT INGEDRUKT WAT GEBE
URD.0...." ER DAN ? .1 NIETS.L.....1
4)"2 SPRONG NAAR 200.H.F...14)"3 SPRONG
NAAR 300...P...14)"4 SPRONG NAAR 10...Z.
.". WELK NUMMER (1-4) .......";A$:
A.E(A$).Q....A.1.A.4.."....":.730......A
.3.780......". NIET GOED; PROBEER OPNIEU
W.":.N.1.T2:..9...."
....":.730.A....160:.". DAT IS HE
T GOEDE ANTWOORD"......". DE ASCII CODE
VAN DE 'C' IS 67, DAN... ..". WORDT NAAR
HET DERDE ADRES IN DE ADRES...*..". LIS
T GESPRONGEN ( 67 - 64 = 3 )...4..150:.
". HET 'CHR$' STATEMENT.#.>.." EEEEEEEEE
EEEEEEEEEEE.S.H..". HET 'CHR$' STATEMENT
DOET HET VOLGENDE:.~.R.." HET LAAT MIJ
VAN EEN ASCII CODE EEN...\..". KARAKTERS
TRING MAKEN.....F..170...P..". 10 INPUT
A.S.Z.." 20 PRINT CHR$(A)......".. HET
GETAL A MOET IN HET BEREIK VAN.;...." .
0-255 LIGGEN. WE GAAN DIT VOORBEELD .
GEBRUIKEN..J....".. GEEF A";A$:A..(E(A$
)):.A.0.A.255..180......G(A):.Q1,0:." NO
G EEN KEER (J/N)";A$:.F(A$)..78.920.V...
.160:.". JE HEBT NU GEZIEN WAT MOGELIJK
IS MET......". 'ASC' EN 'CHR$'. IS HET J
E OPGEVALLEN,.2....". DAT JE MET 'CHR$'
OOK MIJN GRAFISCHE.Y.J..". KARAKTERS KUN
T LATEN PRINTEN ?...T..". EN HEB JE GEZI
EN WAT ER GEBEURD ALS A......". NEGATIEF
OF GROTER DAN 255 IS ?.S....".. JA/NEE
";A$:.F(A$)..74.920......".. DAT GEEFT L
EUKE MOGELIJKHEDEN OM MIJ.-....". ALS JE
WAT MEER PROGRAMMEERERVARING.\....". HE
BT B.V. GRAFIEKEN TE LATEN BEREKENEN....
..". EN M.B.V. MIJN GRAFISCHE KARAKTERS
TE......". LATEN TEKENEN....$..150.X....
".. === NOG ENKELE LEUKE COMMANDO'S ===
...8.." ===============================
====.M.B..".. LIST 10":." EEEEEEE":." ME
T DIT COMMANDO KUN JE REGEL 10 LISTEN...
L..". LIST 10-":." EEEEEEEE":." HIERMEE
KUN JE EEN LISTING KRIJGEN...V..". VANAF
REGEL 10...`..".. LIST -10":." EEEEEEEE
":." NU LIST IK ALLE REGELS TOT EN MET 1
0.<.J..".. LIST 10-20":." EEEEEEEEEE":."
DIT GEEFT EEN LISTING VAN 10 T/M 20.E.T
..150.A.~..".. RUN 10":." EEEEEE"......"
. ALS JE MIJ NIET OP DE EERSTE REGEL VAN
......". EEN PROGRAMMA WILT LATEN BEGINN
EN,DAN......". KUN JE MIJ OP BOVENSTAAND
E WIJZE OP ELK......" BESTAAND REGELNUMM
ER LATEN BEGINNEN..J....".. EEN NIET BES
TAAND REGELNUMMER GEEFT DE.H....". VOLGE
NDE FOUTMELDING:.X.D..N.1.T2.2:....N..".
.?UNDEF'D STATEMENT ERROR":."READY":.190
.T.X..".. DEZE FOUTMELDING GELDT VOOR IE
DERE......". VERWIJZING NAAR EEN NIET BE
STAANDE .REGEL.";......".":.150.P..
.."........ WIL JE DEZE LES NOG EENS DOO
RNEMEN ?.D....A$:.A$."".1280.S....A$.."N
"........".. LAAD DAN NU LES 6.":.I.1.70
00:.......".":....`
> CLICK IMAGE PREVIEW FOR FULL MODAL