NED BASIC LES 5
FILE INFORMATION
FILENAME(S): NED BASIC LES 5
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-12-01 02:26:04
APPEARS ON: 1 disk(s)
FILE HASH
d4150e13c573b6999ff0364453f8b37fb790bfbfa5209ced7a68d26161f0b462
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MACHINETAAL | NED BASIC LES 5 | PRG | hedning, shine | 27 | 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: 6A 1A 14 05 93 22 4E 45 44 20 42 41 53 49 43 20 |j...."NED BASIC |
00001260: 4C 45 53 20 36 22 2C 38 3A 80 00 00 00 |LES 6",8:.... |
....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..J...."NED BASIC LES 6",8:....
> CLICK IMAGE PREVIEW FOR FULL MODAL