Multiple names: CBM BASIC LES 5, NED BASIC LES 5, BASICLES5
FILE INFORMATION
FILENAME(S):
• CBM BASIC LES 5<br>• NED BASIC LES 5<br>• BASICLES5
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 21:05:25
APPEARS ON: 4 disk(s)
FILE HASH
01fe4aa9cf4e95180c807ab24e4097fd528e91655e4a1660fe459a5fbd35ef38
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE BRUIN 59 | CBM BASIC LES 5 | PRG | DuncanTwain | 21 | 2 | DOWNLOAD FILE |
| 64 S01 S02 S03 | NED BASIC LES 5 | PRG | DuncanTwain | 22 | 2 | DOWNLOAD FILE |
| C64 HULP 22 2 | NED BASIC LES 5 | PRG | DuncanTwain | 22 | 5 | DOWNLOAD FILE |
| HENNIE | BASICLES5 | PRG | DuncanTwain | 5 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 64 00 51 31 B2 31 39 38 3A 99 C7 28 |....d.Q1.198:..(|
00000010: 31 34 32 29 00 34 08 6E 00 54 31 B2 31 30 30 30 |142).4.n.T1.1000|
00000020: 30 30 3A 54 32 B2 54 31 AD 35 30 3A 51 24 B2 C7 |00:T2.T1.50:Q$..|
00000030: 28 33 34 29 00 50 08 78 00 97 35 33 32 38 30 2C |(34).P.x..53280,|
00000040: 31 34 3A 97 35 33 32 38 31 2C 36 3A 89 32 31 30 |14:.53281,6:.210|
00000050: 00 6F 08 82 00 97 51 31 2C 30 3A 81 4E B2 31 A4 |.o....Q1,0:.N.1.|
00000060: 54 31 3A A1 43 24 3A 8B 43 24 B2 22 22 A7 82 00 |T1:.C$:.C$.""...|
00000070: 75 08 8C 00 8E 00 BF 08 96 00 99 22 13 11 11 11 |u.........."....|
00000080: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000090: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000B0: 1D 1D 1D 1D 1D 1D 1D 90 54 4F 45 54 53 13 22 00 |........TOETS.".|
000000C0: C8 08 9B 00 8D 31 33 30 00 DF 08 A0 00 99 22 93 |.....130......".|
000000D0: 22 3B 3A 81 4E B2 31 A4 32 30 30 3A 82 3A 8E 00 |";:.N.1.200:.:..|
000000E0: 02 09 AA 00 99 22 90 20 56 4F 4F 52 42 45 45 4C |.....". VOORBEEL|
000000F0: 44 22 3A 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 |D":." ........."|
00000100: 3A 8E 00 32 09 B4 00 99 22 11 05 3F 49 4C 4C 45 |:..2...."..?ILLE|
00000110: 47 41 4C 20 51 55 41 4E 54 49 54 59 20 45 52 52 |GAL QUANTITY ERR|
00000120: 4F 52 20 49 4E 20 31 30 22 3A 99 22 52 45 41 44 |OR IN 10":."READ|
00000130: 59 2E 00 68 09 BE 00 81 4E B2 31 A4 31 30 3A 81 |Y..h....N.1.10:.|
00000140: 4E 31 B2 31 A4 32 30 30 3A 82 3A 99 22 12 20 92 |N1.1.200:.:.". .|
00000150: 9D 22 3B 3A 81 4E 31 B2 31 A4 32 30 30 3A 82 3A |.";:.N1.1.200:.:|
00000160: 99 22 20 9D 22 3B 3A 82 00 72 09 C8 00 41 B2 30 |." .";:..r...A.0|
00000170: 3A 8E 00 A2 09 D2 00 99 22 93 11 9A 20 20 3D 3D |:......."... ==|
00000180: 3D 20 4E 4F 47 20 45 4E 4B 45 4C 45 20 53 54 52 |= NOG ENKELE STR|
00000190: 49 4E 47 20 53 54 41 54 45 4D 45 4E 54 53 20 3D |ING STATEMENTS =|
000001A0: 3D 3D 00 CF 09 DC 00 99 22 20 20 3D 3D 3D 3D 3D |==......" =====|
000001B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000001C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
000001D0: FE 09 E6 00 99 22 11 20 45 52 20 5A 49 4A 4E 20 |.....". ER ZIJN |
000001E0: 4E 4F 47 20 45 4E 4B 45 4C 45 20 27 53 54 52 49 |NOG ENKELE 'STRI|
000001F0: 4E 47 20 53 54 41 54 45 4D 45 4E 54 53 27 00 2D |NG STATEMENTS'.-|
00000200: 0A F0 00 99 22 11 20 44 49 45 20 49 4E 20 45 45 |....". DIE IN EE|
00000210: 52 53 54 45 20 49 4E 53 54 41 4E 54 49 45 20 4D |RSTE INSTANTIE M|
00000220: 49 53 53 43 48 49 45 4E 20 4E 49 45 54 00 64 0A |ISSCHIEN NIET.d.|
00000230: FA 00 99 22 11 20 5A 4F 20 42 45 4C 41 4E 47 52 |...". ZO BELANGR|
00000240: 49 4A 4B 20 4C 49 4A 4B 45 4E 2C 20 4D 41 41 52 |IJK LIJKEN, MAAR|
00000250: 20 48 45 54 20 54 4F 43 48 20 20 20 20 11 20 5A | HET TOCH . Z|
00000260: 49 4A 4E 2E 00 89 0A 04 01 99 22 11 11 90 20 44 |IJN......."... D|
00000270: 41 54 20 5A 49 4A 4E 3A 20 27 41 53 43 27 20 45 |AT ZIJN: 'ASC' E|
00000280: 4E 20 27 43 48 52 24 27 2E 00 AA 0A 0E 01 99 22 |N 'CHR$'......."|
00000290: 20 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 C5 C5 C5 C5 C5 | ...............|
000002A0: 20 20 20 20 C5 C5 C5 C5 C5 C5 00 D7 0A 18 01 99 | ............|
000002B0: 22 11 11 05 20 49 4B 20 4B 45 4E 20 5A 45 20 4F |"... IK KEN ZE O|
000002C0: 50 20 44 45 20 56 4F 4C 47 45 4E 44 45 20 4D 41 |P DE VOLGENDE MA|
000002D0: 4E 49 45 52 45 4E 3A 00 04 0B 22 01 99 22 11 20 |NIEREN:..."..". |
000002E0: 53 54 52 49 4E 47 20 56 41 52 49 41 42 45 4C 45 |STRING VARIABELE|
000002F0: 20 3D 20 43 48 52 24 20 28 4E 55 4D 4D 2E 20 56 | = CHR$ (NUMM. V|
00000300: 41 52 2E 29 00 32 0B 2C 01 99 22 11 20 4E 55 4D |AR.).2.,..". NUM|
00000310: 4D 2E 20 56 41 52 49 41 42 45 4C 45 20 20 3D 20 |M. VARIABELE = |
00000320: 41 53 43 20 20 28 53 54 52 49 4E 47 20 56 41 52 |ASC (STRING VAR|
00000330: 2E 29 00 3B 0B 36 01 8D 31 35 30 00 50 0B 40 01 |.).;.6..150.P.@.|
00000340: 99 22 93 11 9E 20 31 2D 41 53 43 20 28 41 24 29 |."... 1-ASC (A$)|
00000350: 00 62 0B 4A 01 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 |.b.J.." ........|
00000360: C5 C5 00 8F 0B 54 01 99 22 11 90 20 49 45 44 45 |.....T..".. IEDE|
00000370: 52 20 4B 41 52 41 4B 54 45 52 20 44 41 54 20 49 |R KARAKTER DAT I|
00000380: 4B 20 4B 45 4E 20 28 4F 4F 4B 20 41 4C 4C 45 00 |K KEN (OOK ALLE.|
00000390: BE 0B 5E 01 99 22 11 20 47 52 41 46 49 53 43 48 |..^..". GRAFISCH|
000003A0: 45 29 20 57 4F 52 44 54 20 49 4E 20 4D 49 4A 4E |E) WORDT IN MIJN|
000003B0: 20 47 45 48 45 55 47 45 4E 20 44 4F 4F 52 00 E6 | GEHEUGEN DOOR..|
000003C0: 0B 68 01 99 22 11 20 45 45 4E 20 42 45 50 41 41 |.h..". EEN BEPAA|
000003D0: 4C 44 45 20 43 4F 44 45 20 56 4F 4F 52 47 45 53 |LDE CODE VOORGES|
000003E0: 54 45 4C 44 2E 11 00 0F 0C 72 01 8D 31 37 30 3A |TELD.....r..170:|
000003F0: 99 22 11 05 20 20 31 20 20 41 53 43 20 20 28 22 |.".. 1 ASC ("|
00000400: 51 24 22 41 22 51 24 22 29 20 20 3D 20 36 35 00 |Q$"A"Q$") = 65.|
00000410: 32 0C 7C 01 99 22 11 20 20 32 20 20 41 53 43 20 |2.|..". 2 ASC |
00000420: 20 28 22 51 24 22 42 22 51 24 22 29 20 20 3D 20 | ("Q$"B"Q$") = |
00000430: 36 36 00 55 0C 86 01 99 22 11 20 20 33 20 20 41 |66.U....". 3 A|
00000440: 53 43 20 20 28 22 51 24 22 5A 22 51 24 22 29 20 |SC ("Q$"Z"Q$") |
00000450: 20 3D 20 39 30 00 7C 0C 90 01 99 22 11 20 20 34 | = 90.|....". 4|
00000460: 20 20 41 53 43 A0 28 22 51 24 22 42 43 44 22 51 | ASC.("Q$"BCD"Q|
00000470: 24 22 29 20 3D 20 36 36 20 21 21 21 00 A1 0C 9A |$") = 66 !!!....|
00000480: 01 99 22 11 11 9A 20 4C 45 54 20 4F 50 20 56 4F |.."... LET OP VO|
00000490: 4F 52 42 45 45 4C 44 20 34 20 21 22 3A 8D 31 35 |ORBEELD 4 !":.15|
000004A0: 30 00 C3 0C A4 01 8D 31 37 30 3A 99 22 11 9E 20 |0......170:.".. |
000004B0: 20 20 31 30 20 41 24 3D 20 22 51 24 22 41 42 43 | 10 A$= "Q$"ABC|
000004C0: 22 51 24 00 DF 0C AE 01 99 22 11 20 20 20 32 30 |"Q$......". 20|
000004D0: 20 50 52 49 4E 54 20 41 53 43 20 28 41 24 29 00 | PRINT ASC (A$).|
000004E0: 1A 0D B8 01 99 22 11 99 20 44 49 54 20 50 52 4F |.....".. DIT PRO|
000004F0: 47 52 41 4D 4D 41 20 5A 41 4C 20 48 45 54 20 47 |GRAMMA ZAL HET G|
00000500: 45 54 41 4C 20 27 36 35 27 20 20 20 20 20 20 20 |ETAL '65' |
00000510: 20 11 50 52 49 4E 54 45 4E 2E 00 4A 0D C2 01 99 | .PRINTEN..J....|
00000520: 22 11 20 48 45 54 20 41 53 43 20 53 54 41 54 45 |". HET ASC STATE|
00000530: 4D 45 4E 54 20 47 45 45 46 54 20 4D 49 4A 20 44 |MENT GEEFT MIJ D|
00000540: 45 20 4F 50 44 52 41 43 48 54 00 76 0D CC 01 99 |E OPDRACHT.v....|
00000550: 22 20 44 45 20 43 4F 44 45 20 56 41 4E 20 48 45 |" DE CODE VAN HE|
00000560: 54 20 45 45 52 53 54 45 20 4C 45 54 54 45 52 20 |T EERSTE LETTER |
00000570: 56 41 4E 20 44 45 00 A3 0D D6 01 99 22 11 20 53 |VAN DE......". S|
00000580: 54 52 49 4E 47 20 54 45 20 42 45 50 41 4C 45 4E |TRING TE BEPALEN|
00000590: 2E 20 44 49 45 20 43 4F 44 45 20 57 4F 52 44 54 |. DIE CODE WORDT|
000005A0: 20 44 45 00 C1 0D E0 01 99 22 11 20 27 41 53 43 | DE......". 'ASC|
000005B0: 49 49 27 20 43 4F 44 45 20 47 45 4E 4F 45 4D 44 |II' CODE GENOEMD|
000005C0: 2E 00 EA 0D EA 01 99 22 11 90 20 57 41 54 20 49 |.......".. WAT I|
000005D0: 53 20 48 45 54 20 4E 55 54 20 56 41 4E 20 44 45 |S HET NUT VAN DE|
000005E0: 5A 45 20 43 4F 44 45 53 20 3F 00 1F 0E F4 01 81 |ZE CODES ?......|
000005F0: 4E B2 31 A4 54 32 3A 82 3A 99 22 11 20 44 41 54 |N.1.T2:.:.". DAT|
00000600: 20 4B 41 4E 20 49 4B 20 48 45 54 20 4D 41 4B 4B | KAN IK HET MAKK|
00000610: 45 4C 49 4A 4B 53 54 20 4D 45 54 20 45 45 4E 00 |ELIJKST MET EEN.|
00000620: 42 0E FE 01 99 22 11 20 56 4F 4F 52 42 45 45 4C |B....". VOORBEEL|
00000630: 44 20 55 49 54 4C 45 47 47 45 4E 2E 22 3A 8D 31 |D UITLEGGEN.":.1|
00000640: 35 30 00 76 0E 08 02 8D 31 37 30 3A 99 22 11 90 |50.v....170:."..|
00000650: 20 20 20 31 30 20 47 45 54 20 43 24 20 3A 20 49 | 10 GET C$ : I|
00000660: 46 20 43 24 20 3D 20 22 51 24 3B 51 24 22 20 54 |F C$ = "Q$;Q$" T|
00000670: 48 45 4E 20 31 30 00 8F 0E 12 02 99 22 20 20 20 |HEN 10......" |
00000680: 32 30 20 43 20 3D 20 41 53 43 20 28 43 24 29 00 |20 C = ASC (C$).|
00000690: AD 0E 1C 02 99 22 20 20 20 33 30 20 49 46 20 43 |....." 30 IF C|
000006A0: 20 3C 20 36 35 20 54 48 45 4E 20 31 30 00 CB 0E | < 65 THEN 10...|
000006B0: 26 02 99 22 20 20 20 34 30 20 49 46 20 43 20 3E |&.." 40 IF C >|
000006C0: 20 37 30 20 54 48 45 4E 20 31 30 00 03 0F 30 02 | 70 THEN 10...0.|
000006D0: 99 22 20 20 20 35 30 20 4F 4E 20 43 2D 36 34 20 |." 50 ON C-64 |
000006E0: 47 4F 54 4F 20 31 30 30 2C 32 30 30 2C 33 30 30 |GOTO 100,200,300|
000006F0: 2C 34 30 30 2C 35 30 30 2C 20 20 20 20 20 20 20 |,400,500, |
00000700: 36 30 30 00 16 0F 3A 02 81 4E B2 31 A4 54 32 3A |600...:..N.1.T2:|
00000710: 41 B2 31 30 3A 82 00 46 0F 44 02 99 22 11 11 9F |A.10:..F.D.."...|
00000720: 20 52 45 47 45 4C 20 31 30 20 53 43 41 4E 54 20 | REGEL 10 SCANT |
00000730: 48 45 54 20 54 4F 45 54 53 45 4E 42 4F 52 44 20 |HET TOETSENBORD |
00000740: 54 4F 54 20 45 52 00 72 0F 4E 02 99 22 11 20 45 |TOT ER.r.N..". E|
00000750: 45 4E 20 54 4F 45 54 53 20 57 4F 52 44 54 20 49 |EN TOETS WORDT I|
00000760: 4E 47 45 44 52 55 4B 54 2E 20 52 45 47 45 4C 20 |NGEDRUKT. REGEL |
00000770: 32 30 00 A0 0F 58 02 99 22 11 20 4D 41 41 4B 54 |20...X..". MAAKT|
00000780: 20 44 45 20 41 53 43 49 49 20 43 4F 44 45 20 56 | DE ASCII CODE V|
00000790: 41 4E 20 44 45 20 49 4E 47 45 44 52 55 4B 54 45 |AN DE INGEDRUKTE|
000007A0: 00 CB 0F 62 02 99 22 11 20 54 4F 45 54 53 2E 20 |...b..". TOETS. |
000007B0: 41 4C 53 20 44 45 20 41 53 43 49 49 20 57 41 41 |ALS DE ASCII WAA|
000007C0: 52 44 45 20 56 41 4E 20 48 45 54 00 F9 0F 6C 02 |RDE VAN HET...l.|
000007D0: 99 22 11 20 4B 41 52 41 4B 54 45 52 20 4B 4C 45 |.". KARAKTER KLE|
000007E0: 49 4E 45 52 20 44 41 4E 20 36 35 20 4F 46 20 47 |INER DAN 65 OF G|
000007F0: 52 4F 54 45 52 20 44 41 4E 00 3E 10 76 02 99 22 |ROTER DAN.>.v.."|
00000800: 11 20 37 30 20 49 53 20 44 41 4E 20 57 4F 52 44 |. 70 IS DAN WORD|
00000810: 54 20 56 41 4E 20 52 45 47 45 4C 20 33 30 20 4F |T VAN REGEL 30 O|
00000820: 46 20 34 30 20 4E 41 41 52 11 20 31 30 20 54 45 |F 40 NAAR. 10 TE|
00000830: 52 55 47 47 45 53 50 52 4F 4E 47 45 4E 2E 00 47 |RUGGESPRONGEN..G|
00000840: 10 80 02 8D 31 33 30 00 61 10 8A 02 99 22 13 11 |....130.a...."..|
00000850: 11 11 11 11 11 11 11 11 22 3A 81 4E B2 31 A4 31 |........":.N.1.1|
00000860: 34 00 94 10 94 02 99 22 20 20 20 20 20 20 20 20 |4......" |
00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000890: 22 3B 3A 82 00 A6 10 9E 02 99 22 13 11 11 11 11 |";:.......".....|
000008A0: 11 11 11 11 11 22 00 D6 10 A8 02 99 22 90 20 41 |....."......". A|
000008B0: 4C 53 20 54 4F 45 54 53 20 43 20 57 4F 52 44 54 |LS TOETS C WORDT|
000008C0: 20 49 4E 47 45 44 52 55 4B 54 20 57 41 54 20 47 | INGEDRUKT WAT G|
000008D0: 45 42 45 55 52 44 00 F3 10 B2 02 99 22 20 45 52 |EBEURD......" ER|
000008E0: 20 44 41 4E 20 3F 20 20 20 20 20 9A 31 20 4E 49 | DAN ? .1 NI|
000008F0: 45 54 53 00 0F 11 BC 02 99 A3 31 34 29 22 32 20 |ETS.......14)"2 |
00000900: 53 50 52 4F 4E 47 20 4E 41 41 52 20 32 30 30 00 |SPRONG NAAR 200.|
00000910: 2B 11 C6 02 99 A3 31 34 29 22 33 20 53 50 52 4F |+.....14)"3 SPRO|
00000920: 4E 47 20 4E 41 41 52 20 33 30 30 00 46 11 D0 02 |NG NAAR 300.F...|
00000930: 99 A3 31 34 29 22 34 20 53 50 52 4F 4E 47 20 4E |..14)"4 SPRONG N|
00000940: 41 41 52 20 31 30 00 7A 11 DA 02 85 22 90 20 57 |AAR 10.z....". W|
00000950: 45 4C 4B 20 4E 55 4D 4D 45 52 20 28 31 2D 34 29 |ELK NUMMER (1-4)|
00000960: 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 22 3B | .......";|
00000970: 41 24 3A 41 B2 C5 28 41 24 29 00 94 11 E4 02 8B |A$:A..(A$)......|
00000980: 41 B3 31 B0 41 B1 34 A7 99 22 91 91 91 91 22 3A |A.1.A.4.."....":|
00000990: 89 37 33 30 00 A1 11 EE 02 8B 41 B2 33 A7 37 38 |.730......A.3.78|
000009A0: 30 00 D0 11 F8 02 99 22 05 20 4E 49 45 54 20 47 |0......". NIET G|
000009B0: 4F 45 44 20 50 52 4F 42 45 45 52 20 4F 50 20 4E |OED PROBEER OP N|
000009C0: 49 45 55 57 91 22 3A 81 4E B2 31 A4 54 32 3A 82 |IEUW.":.N.1.T2:.|
000009D0: 00 FC 11 02 03 99 22 20 20 20 20 20 20 20 20 20 |......" |
000009E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009F0: 20 20 91 91 91 91 22 3A 89 37 33 30 00 24 12 0C | ....":.730.$..|
00000A00: 03 8D 31 36 30 3A 99 22 05 20 44 41 54 20 49 53 |..160:.". DAT IS|
00000A10: 20 48 45 54 20 47 4F 45 44 45 20 41 4E 54 57 4F | HET GOEDE ANTWO|
00000A20: 4F 52 44 22 00 50 12 16 03 99 22 11 20 44 45 20 |ORD".P....". DE |
00000A30: 41 53 43 49 49 20 43 4F 44 45 20 56 41 4E 20 44 |ASCII CODE VAN D|
00000A40: 45 20 27 43 27 20 49 53 20 36 37 2C 20 44 41 4E |E 'C' IS 67, DAN|
00000A50: 00 7F 12 20 03 99 22 11 20 57 4F 52 44 54 20 4E |... ..". WORDT N|
00000A60: 41 41 52 20 48 45 54 20 44 45 52 44 45 20 41 44 |AAR HET DERDE AD|
00000A70: 52 45 53 20 49 4E 20 44 45 20 41 44 52 45 53 00 |RES IN DE ADRES.|
00000A80: A8 12 2A 03 99 22 11 20 4C 49 53 54 20 47 45 53 |..*..". LIST GES|
00000A90: 50 52 4F 4E 47 45 4E 20 20 28 20 36 37 A0 2D A0 |PRONGEN ( 67.-.|
00000AA0: 36 34 20 3D 20 33 20 29 00 CA 12 34 03 8D 31 35 |64 = 3 )...4..15|
00000AB0: 30 3A 99 22 1E 20 48 45 54 20 27 43 48 52 24 27 |0:.". HET 'CHR$'|
00000AC0: 20 53 54 41 54 45 4D 45 4E 54 00 E6 12 3E 03 99 | STATEMENT...>..|
00000AD0: 22 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |" ..............|
00000AE0: C5 C5 C5 C5 C5 C5 00 16 13 48 03 99 22 11 20 48 |.........H..". H|
00000AF0: 45 54 20 27 43 48 52 24 27 20 53 54 41 54 45 4D |ET 'CHR$' STATEM|
00000B00: 45 4E 54 20 44 4F 45 54 20 48 45 54 20 56 4F 4C |ENT DOET HET VOL|
00000B10: 47 45 4E 44 45 3A 00 41 13 52 03 99 22 20 48 45 |GENDE:.A.R.." HE|
00000B20: 54 20 4C 41 41 54 20 4D 49 4A 20 56 41 4E 20 45 |T LAAT MIJ VAN E|
00000B30: 45 4E 20 41 53 43 49 49 20 43 4F 44 45 20 45 45 |EN ASCII CODE EE|
00000B40: 4E 00 60 13 5C 03 99 22 11 20 4B 41 52 41 4B 54 |N.`.\..". KARAKT|
00000B50: 45 52 53 54 52 49 4E 47 20 4D 41 4B 45 4E 2E 11 |ERSTRING MAKEN..|
00000B60: 00 69 13 66 03 8D 31 37 30 00 7D 13 70 03 99 22 |.i.f..170.}.p.."|
00000B70: 9A 20 20 31 30 20 49 4E 50 55 54 20 41 00 96 13 |. 10 INPUT A...|
00000B80: 7A 03 99 22 20 20 32 30 20 50 52 49 4E 54 20 43 |z.." 20 PRINT C|
00000B90: 48 52 24 28 41 29 00 C2 13 84 03 99 22 11 1E 20 |HR$(A)......".. |
00000BA0: 48 45 54 20 47 45 54 41 4C 20 41 20 4D 4F 45 54 |HET GETAL A MOET|
00000BB0: 20 49 4E 20 48 45 54 20 42 45 52 45 49 4B 20 56 | IN HET BEREIK V|
00000BC0: 41 4E 00 FE 13 8E 03 99 22 20 11 30 2D 32 35 35 |AN......" .0-255|
00000BD0: 20 4C 49 47 47 45 4E 2E 20 57 45 20 47 41 41 4E | LIGGEN. WE GAAN|
00000BE0: 20 44 49 54 20 56 4F 4F 52 42 45 45 4C 44 20 20 | DIT VOORBEELD |
00000BF0: 20 20 11 20 47 45 42 52 55 49 4B 45 4E 2E 00 2D | . GEBRUIKEN..-|
00000C00: 14 98 03 85 22 11 05 20 47 45 45 46 20 41 22 3B |....".. GEEF A";|
00000C10: 41 24 3A 41 B2 B5 28 C5 28 41 24 29 29 3A 8B 41 |A$:A..(.(A$)):.A|
00000C20: B3 30 B0 41 B1 32 35 35 A7 8D 31 38 30 00 60 14 |.0.A.255..180.`.|
00000C30: A2 03 99 C7 28 41 29 3A 97 51 31 2C 30 3A 85 22 |....(A):.Q1,0:."|
00000C40: 20 4E 4F 47 20 45 45 4E 20 4B 45 45 52 22 3B 41 | NOG EEN KEER";A|
00000C50: 24 3A 8B C6 28 41 24 29 B3 B1 37 38 A7 39 32 30 |$:..(A$)..78.920|
00000C60: 00 93 14 AC 03 8D 31 36 30 3A 99 22 90 20 4A 45 |......160:.". JE|
00000C70: 20 48 45 42 54 20 4E 55 20 47 45 5A 49 45 4E 20 | HEBT NU GEZIEN |
00000C80: 57 41 54 20 4D 4F 47 45 4C 49 4A 4B 20 49 53 20 |WAT MOGELIJK IS |
00000C90: 4D 45 54 00 C2 14 B6 03 99 22 11 20 27 41 53 43 |MET......". 'ASC|
00000CA0: 27 20 45 4E 20 27 43 48 52 24 27 2E 20 49 53 20 |' EN 'CHR$'. IS |
00000CB0: 48 45 54 20 4A 45 20 4F 50 47 45 56 41 4C 4C 45 |HET JE OPGEVALLE|
00000CC0: 4E 2C 00 EF 14 C0 03 99 22 11 20 44 41 54 20 4A |N,......". DAT J|
00000CD0: 45 20 4D 45 54 20 27 43 48 52 24 27 20 4F 4F 4B |E MET 'CHR$' OOK|
00000CE0: 20 4D 49 4A 4E 20 47 52 41 46 49 53 43 48 45 00 | MIJN GRAFISCHE.|
00000CF0: 16 15 CA 03 99 22 11 20 4B 41 52 41 4B 54 45 52 |.....". KARAKTER|
00000D00: 53 20 4B 55 4E 54 20 4C 41 54 45 4E 20 50 52 49 |S KUNT LATEN PRI|
00000D10: 4E 54 45 4E 20 3F 00 44 15 D4 03 99 22 11 20 45 |NTEN ?.D....". E|
00000D20: 4E 20 48 45 42 20 4A 45 20 47 45 5A 49 45 4E 20 |N HEB JE GEZIEN |
00000D30: 57 41 54 20 45 52 20 47 45 42 45 55 52 44 20 41 |WAT ER GEBEURD A|
00000D40: 4C 53 20 41 00 6C 15 DE 03 99 22 11 20 4E 45 47 |LS A.l....". NEG|
00000D50: 41 54 49 45 46 20 4F 46 20 47 52 4F 54 45 52 20 |ATIEF OF GROTER |
00000D60: 44 41 4E 20 32 35 35 20 49 53 20 3F 00 90 15 E8 |DAN 255 IS ?....|
00000D70: 03 85 22 11 90 20 4A 41 2F 4E 45 45 20 22 3B 41 |..".. JA/NEE ";A|
00000D80: 24 3A 8B C6 28 41 24 29 B3 B1 37 34 A7 39 32 30 |$:..(A$)..74.920|
00000D90: 00 BE 15 F2 03 99 22 11 1E 20 44 41 54 20 47 45 |......".. DAT GE|
00000DA0: 45 46 54 20 4C 45 55 4B 45 20 4D 4F 47 45 4C 49 |EFT LEUKE MOGELI|
00000DB0: 4A 4B 48 45 44 45 4E 20 4F 4D 20 4D 49 4A 00 EA |JKHEDEN OM MIJ..|
00000DC0: 15 FC 03 99 22 11 20 41 4C 53 20 4A 45 20 57 41 |....". ALS JE WA|
00000DD0: 54 20 4D 45 45 52 20 50 52 4F 47 52 41 4D 4D 45 |T MEER PROGRAMME|
00000DE0: 45 52 45 52 56 41 52 49 4E 47 00 19 16 06 04 99 |ERERVARING......|
00000DF0: 22 11 20 48 45 42 54 20 42 2E 56 2E 20 47 52 41 |". HEBT B.V. GRA|
00000E00: 46 49 45 4B 45 4E 20 54 45 20 4C 41 54 45 4E 20 |FIEKEN TE LATEN |
00000E10: 42 45 52 45 4B 45 4E 45 4E 00 47 16 10 04 99 22 |BEREKENEN.G...."|
00000E20: 11 20 45 4E 20 4D 2E 42 2E 56 2E 20 4D 49 4A 4E |. EN M.B.V. MIJN|
00000E30: 20 47 52 41 46 49 53 43 48 45 20 4B 41 52 41 4B | GRAFISCHE KARAK|
00000E40: 54 45 52 53 20 54 45 00 5E 16 1A 04 99 22 11 20 |TERS TE.^....". |
00000E50: 4C 41 54 45 4E 20 54 45 4B 45 4E 45 4E 2E 00 67 |LATEN TEKENEN..g|
00000E60: 16 24 04 8D 31 35 30 00 95 16 2E 04 99 22 93 9E |.$..150......"..|
00000E70: 20 20 3D 3D 3D 20 4E 4F 47 20 45 4E 4B 45 4C 45 | === NOG ENKELE|
00000E80: 20 4C 45 55 4B 45 20 43 4F 4D 4D 41 4E 44 4F 27 | LEUKE COMMANDO'|
00000E90: 53 20 3D 3D 3D 00 C1 16 38 04 99 22 20 20 3D 3D |S ===...8.." ==|
00000EA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000EB0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000EC0: 3D 00 0A 17 42 04 99 22 11 9A 20 4C 49 53 54 20 |=...B..".. LIST |
00000ED0: 31 30 22 3A 99 22 20 C5 C5 C5 C5 C5 C5 C5 22 3A |10":." .......":|
00000EE0: 99 22 20 4D 45 54 20 44 49 54 20 43 4F 4D 4D 41 |." MET DIT COMMA|
00000EF0: 4E 44 4F 20 4B 55 4E 20 4A 45 20 52 45 47 45 4C |NDO KUN JE REGEL|
00000F00: 20 31 30 20 4C 49 53 54 45 4E 00 4F 17 4C 04 99 | 10 LISTEN.O.L..|
00000F10: 22 11 20 4C 49 53 54 20 31 30 2D 22 3A 99 22 20 |". LIST 10-":." |
00000F20: C5 C5 C5 C5 C5 C5 C5 C5 22 3A 99 22 20 48 49 45 |........":." HIE|
00000F30: 52 4D 45 45 20 4B 55 4E 20 4A 45 20 45 45 4E 20 |RMEE KUN JE EEN |
00000F40: 4C 49 53 54 49 4E 47 20 4B 52 49 4A 47 45 4E 00 |LISTING KRIJGEN.|
00000F50: 66 17 56 04 99 22 11 20 56 41 4E 41 46 20 52 45 |f.V..". VANAF RE|
00000F60: 47 45 4C 20 31 30 00 AE 17 60 04 99 22 11 11 20 |GEL 10...`..".. |
00000F70: 4C 49 53 54 20 2D 31 30 22 3A 99 22 20 C5 C5 C5 |LIST -10":." ...|
00000F80: C5 C5 C5 C5 C5 22 3A 99 22 20 4E 55 20 4C 49 53 |.....":." NU LIS|
00000F90: 54 20 49 4B 20 41 4C 4C 45 20 52 45 47 45 4C 53 |T IK ALLE REGELS|
00000FA0: 20 54 4F 54 20 45 4E 20 4D 45 54 20 31 30 00 F9 | TOT EN MET 10..|
00000FB0: 17 6A 04 99 22 11 11 20 4C 49 53 54 20 31 30 2D |.j..".. LIST 10-|
00000FC0: 32 30 22 3A 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 |20":." .........|
00000FD0: C5 22 3A 99 22 20 44 49 54 20 47 45 45 46 54 20 |.":." DIT GEEFT |
00000FE0: 45 45 4E 20 4C 49 53 54 49 4E 47 20 56 41 4E 20 |EEN LISTING VAN |
00000FF0: 31 30 20 54 2F 4D 20 32 30 00 02 18 74 04 8D 31 |10 T/M 20...t..1|
00001000: 35 30 00 1E 18 7E 04 99 22 93 1E 20 52 55 4E 20 |50...~..".. RUN |
00001010: 31 30 22 3A 99 22 20 C5 C5 C5 C5 C5 C5 22 00 4D |10":." ......".M|
00001020: 18 88 04 99 22 11 20 41 4C 53 20 4A 45 20 4D 49 |....". ALS JE MI|
00001030: 4A 20 4E 49 45 54 20 4F 50 20 44 45 20 45 45 52 |J NIET OP DE EER|
00001040: 53 54 45 20 52 45 47 45 4C 20 56 41 4E 00 7B 18 |STE REGEL VAN.{.|
00001050: 92 04 99 22 11 20 45 45 4E 20 50 52 4F 47 52 41 |...". EEN PROGRA|
00001060: 4D 4D 41 20 57 49 4C 54 20 4C 41 54 45 4E 20 42 |MMA WILT LATEN B|
00001070: 45 47 49 4E 4E 45 4E 2C 44 41 4E 00 AB 18 9C 04 |EGINNEN,DAN.....|
00001080: 99 22 11 20 4B 55 4E 20 4A 45 20 4D 49 4A 20 4F |.". KUN JE MIJ O|
00001090: 50 20 42 4F 56 45 4E 53 54 41 41 4E 44 45 20 57 |P BOVENSTAANDE W|
000010A0: 49 4A 5A 45 20 4F 50 20 45 4C 4B 00 D7 18 A6 04 |IJZE OP ELK.....|
000010B0: 99 22 20 42 45 53 54 41 41 4E 44 20 52 45 47 45 |." BESTAAND REGE|
000010C0: 4C 4E 55 4D 4D 45 52 20 4C 41 54 45 4E 20 42 45 |LNUMMER LATEN BE|
000010D0: 47 49 4E 4E 45 4E 2E 00 07 19 B0 04 99 22 11 90 |GINNEN......."..|
000010E0: 20 45 45 4E 20 4E 49 45 54 20 42 45 53 54 41 41 | EEN NIET BESTAA|
000010F0: 4E 44 20 52 45 47 45 4C 4E 55 4D 4D 45 52 20 47 |ND REGELNUMMER G|
00001100: 45 45 46 54 20 44 45 00 25 19 BA 04 99 22 11 20 |EEFT DE.%....". |
00001110: 56 4F 4C 47 45 4E 44 45 20 46 4F 55 54 4D 45 4C |VOLGENDE FOUTMEL|
00001120: 44 49 4E 47 3A 00 35 19 C4 04 81 4E B2 31 A4 54 |DING:.5....N.1.T|
00001130: 32 AC 32 3A 82 00 65 19 CE 04 99 22 11 05 3F 55 |2.2:..e...."..?U|
00001140: 4E 44 45 46 27 44 20 53 54 41 54 45 4D 45 4E 54 |NDEF'D STATEMENT|
00001150: 20 45 52 52 4F 52 22 3A 99 22 52 45 41 44 59 22 | ERROR":."READY"|
00001160: 3A 8D 31 39 30 00 91 19 D8 04 99 22 11 1E 20 44 |:.190......".. D|
00001170: 45 5A 45 20 46 4F 55 54 4D 45 4C 44 49 4E 47 20 |EZE FOUTMELDING |
00001180: 47 45 4C 44 54 20 56 4F 4F 52 20 49 45 44 45 52 |GELDT VOOR IEDER|
00001190: 45 00 CB 19 E2 04 99 22 11 20 56 45 52 57 49 4A |E......". VERWIJ|
000011A0: 5A 49 4E 47 20 4E 41 41 52 20 45 45 4E 20 4E 49 |ZING NAAR EEN NI|
000011B0: 45 54 20 42 45 53 54 41 41 4E 44 45 20 20 20 20 |ET BESTAANDE |
000011C0: 20 20 11 52 45 47 45 4C 2E 22 3B 00 D9 19 EC 04 | .REGEL.";.....|
000011D0: 99 22 13 22 3A 8D 31 35 30 00 0D 1A F6 04 99 22 |.".":.150......"|
000011E0: 90 93 11 11 11 11 11 11 20 57 49 4C 20 4A 45 20 |........ WIL JE |
000011F0: 44 45 5A 45 20 4C 45 53 20 4E 4F 47 20 45 45 4E |DEZE LES NOG EEN|
00001200: 53 20 44 4F 4F 52 4E 45 4D 45 4E 20 3F 00 21 1A |S DOORNEMEN ?.!.|
00001210: 00 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 32 38 |...A$:.A$."".128|
00001220: 30 00 30 1A 01 05 8B 41 24 B3 B1 22 4E 22 A7 8A |0.0....A$.."N"..|
00001230: 00 4F 1A 0A 05 99 22 11 99 20 49 4B 20 4C 41 41 |.O....".. IK LAA|
00001240: 44 20 44 41 4E 20 4E 55 20 4C 45 53 20 36 2E 00 |D DAN NU LES 6..|
00001250: 65 1A 14 05 97 31 39 38 2C 31 3A 97 36 33 31 2C |e....198,1:.631,|
00001260: 31 33 31 3A 80 00 00 00 |131:.... |
....D.Q1.198:.G(142).4.N.T1.100000:T2.T1
.50:Q$.G(34).P.X..53280,14:.53281,6:.210
.O....Q1,0:.N.1.T1:.C$:.C$.""...U.......
..."....................................
........................TOETS.".H....130
... ..".";:.N.1.200:.:.......". VOORBEEL
D":." EEEEEEEEE":..2...."..?ILLEGAL QUAN
TITY ERROR IN 10":."READY..H....N.1.10:.
N1.1.200:.:.". ..";:.N1.1.200:.:." .";:.
.R.H.A.0:....R.."... === NOG ENKELE STR
ING STATEMENTS ===.O...." =============
=======================......". ER ZIJN
NOG ENKELE 'STRING STATEMENTS'.-....". D
IE IN EERSTE INSTANTIE MISSCHIEN NIET.D.
...". ZO BELANGRIJK LIJKEN, MAAR HET TOC
H . ZIJN......."... DAT ZIJN: 'ASC' E
N 'CHR$'......." EEEEE EEEE
EE.W...."... IK KEN ZE OP DE VOLGENDE MA
NIEREN:..."..". STRING VARIABELE = CHR$
(NUMM. VAR.).2.,..". NUMM. VARIABELE =
ASC (STRING VAR.).;.6..150.P.@.."... 1-
ASC (A$).B.J.." EEEEEEEEEE...T..".. IEDE
R KARAKTER DAT IK KEN (OOK ALLE...^..".
GRAFISCHE) WORDT IN MIJN GEHEUGEN DOOR..
.H..". EEN BEPAALDE CODE VOORGESTELD....
.R..170:.".. 1 ASC ("Q$"A"Q$") = 65.
2.|..". 2 ASC ("Q$"B"Q$") = 66.U....
". 3 ASC ("Q$"Z"Q$") = 90.|....". 4
ASC ("Q$"BCD"Q$") = 66 !!!......"... L
ET OP VOORBEELD 4 !":.150.C....170:."..
10 A$= "Q$"ABC"Q$......". 20 PRINT A
SC (A$)......".. DIT PROGRAMMA ZAL HET G
ETAL '65' .PRINTEN..J.B..". HET A
SC STATEMENT GEEFT MIJ DE OPDRACHT.V.L..
" DE CODE VAN HET EERSTE LETTER VAN DE..
.V..". STRING TE BEPALEN. DIE CODE WORDT
DE.A....". 'ASCII' CODE GENOEMD......."
.. WAT IS HET NUT VAN DEZE CODES ?......
N.1.T2:.:.". DAT KAN IK HET MAKKELIJKST
MET EEN.B....". VOORBEELD UITLEGGEN.":.1
50.V....170:.".. 10 GET C$ : IF C$ = "
Q$;Q$" THEN 10......" 20 C = ASC (C$).
....." 30 IF C < 65 THEN 10.K.&.." 4
0 IF C > 70 THEN 10...0.." 50 ON C-64
GOTO 100,200,300,400,500, 600...:.
.N.1.T2:A.10:..F.D.."... REGEL 10 SCANT
HET TOETSENBORD TOT ER.R.N..". EEN TOETS
WORDT INGEDRUKT. REGEL 20. .X..". MAAKT
DE ASCII CODE VAN DE INGEDRUKTE.K.B..".
TOETS. ALS DE ASCII WAARDE VAN HET...L.
.". KARAKTER KLEINER DAN 65 OF GROTER DA
N.>.V..". 70 IS DAN WORDT VAN REGEL 30 O
F 40 NAAR. 10 TERUGGESPRONGEN..G....130.
A...."..........":.N.1.14......"
";:.....
.."..........".V....". ALS TOETS C WORDT
INGEDRUKT WAT GEBEURD......" ER DAN ?
.1 NIETS.......14)"2 SPRONG NAAR 200.
+.F...14)"3 SPRONG NAAR 300.F.P...14)"4
SPRONG NAAR 10.Z.Z..". WELK NUMMER (1-4)
.......";A$:A.E(A$)......A.1.A.4.
."....":.730......A.3.780.P....". NIET G
OED PROBEER OP NIEUW.":.N.1.T2:......."
....":.730.$..
..160:.". DAT IS HET GOEDE ANTWOORD".P..
..". DE ASCII CODE VAN DE 'C' IS 67, DAN
.. ..". WORDT NAAR HET DERDE ADRES IN D
E ADRES...*..". LIST GESPRONGEN ( 67 -
64 = 3 ).J.4..150:.". HET 'CHR$' STATEME
NT...>.." EEEEEEEEEEEEEEEEEEEE...H..". H
ET 'CHR$' STATEMENT DOET HET VOLGENDE:.A
.R.." HET LAAT MIJ VAN EEN ASCII CODE EE
N.`.\..". KARAKTERSTRING MAKEN...I.F..17
0.}.P..". 10 INPUT A...Z.." 20 PRINT C
HR$(A).B....".. HET GETAL A MOET IN HET
BEREIK VAN......" .0-255 LIGGEN. WE GAAN
DIT VOORBEELD . GEBRUIKEN..-...."..
GEEF A";A$:A..(E(A$)):.A.0.A.255..180.`.
...G(A):.Q1,0:." NOG EEN KEER";A$:.F(A$)
..78.920......160:.". JE HEBT NU GEZIEN
WAT MOGELIJK IS MET.B....". 'ASC' EN 'CH
R$'. IS HET JE OPGEVALLEN,......". DAT J
E MET 'CHR$' OOK MIJN GRAFISCHE...J..".
KARAKTERS KUNT LATEN PRINTEN ?.D.T..". E
N HEB JE GEZIEN WAT ER GEBEURD ALS A.L..
..". NEGATIEF OF GROTER DAN 255 IS ?....
..".. JA/NEE ";A$:.F(A$)..74.920......".
. DAT GEEFT LEUKE MOGELIJKHEDEN OM MIJ..
....". ALS JE WAT MEER PROGRAMMEERERVARI
NG......". HEBT B.V. GRAFIEKEN TE LATEN
BEREKENEN.G....". EN M.B.V. MIJN GRAFISC
HE KARAKTERS TE.^....". LATEN TEKENEN..G
.$..150......".. === NOG ENKELE LEUKE C
OMMANDO'S ===.A.8.." ==================
=================...B..".. LIST 10":." E
EEEEEE":." MET DIT COMMANDO KUN JE REGEL
10 LISTEN.O.L..". LIST 10-":." EEEEEEEE
":." HIERMEE KUN JE EEN LISTING KRIJGEN.
F.V..". VANAF REGEL 10...`..".. LIST -10
":." EEEEEEEE":." NU LIST IK ALLE REGELS
TOT EN MET 10...J..".. LIST 10-20":." E
EEEEEEEEE":." DIT GEEFT EEN LISTING VAN
10 T/M 20...T..150...~..".. RUN 10":." E
EEEEE".M....". ALS JE MIJ NIET OP DE EER
STE REGEL VAN.{....". EEN PROGRAMMA WILT
LATEN BEGINNEN,DAN......". KUN JE MIJ O
P BOVENSTAANDE WIJZE OP ELK.W...." BESTA
AND REGELNUMMER LATEN BEGINNEN......."..
EEN NIET BESTAAND REGELNUMMER GEEFT DE.
%....". VOLGENDE FOUTMELDING:.5.D..N.1.T
2.2:..E.N.."..?UNDEF'D STATEMENT ERROR":
."READY":.190...X..".. DEZE FOUTMELDING
GELDT VOOR IEDERE.K....". VERWIJZING NAA
R EEN NIET BESTAANDE .REGEL.";.Y...
.".":.150......"........ WIL JE DEZE LES
NOG EENS DOORNEMEN ?.!....A$:.A$."".128
0.0....A$.."N"...O....".. IK LAAD DAN NU
LES 6..E....198,1:.631,131:....
> CLICK IMAGE PREVIEW FOR FULL MODAL