NED BASIC LES 5
FILE INFORMATION
FILENAME(S): NED BASIC LES 5
FILE TYPE(S): PRG
FILE SIZE: 6.9K
FIRST SEEN: 2025-12-02 02:07:08
APPEARS ON: 1 disk(s)
FILE HASH
c9b217a206519e44764dc11e2adb562ec7a326bdc5e8230f96bfbd5cf41860ed
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HW 06 OXF PASCAL | NED BASIC LES 5 | PRG | Shocktrooper | 14 | 0 | 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: 68 1A 14 05 93 22 4E 45 44 20 42 41 53 49 43 20 |h...."NED BASIC |
00001260: 4C 45 53 20 36 22 2C 38 00 00 00 22 93 9E 20 4D |LES 6",8...".. M|
00001270: 45 54 20 53 54 52 49 4E 47 53 20 4B 41 4E 20 49 |ET STRINGS KAN I|
00001280: 4B 20 45 4E 4B 45 4C 45 20 46 41 4E 54 41 53 54 |K ENKELE FANTAST|
00001290: 49 53 43 48 45 00 AB 1A EC 04 99 22 11 20 44 49 |ISCHE......". DI|
000012A0: 4E 47 45 4E 20 55 49 54 48 41 4C 45 4E 2E 00 D9 |NGEN UITHALEN...|
000012B0: 1A F6 04 99 22 11 11 20 49 4B 20 4B 45 4E 20 45 |....".. IK KEN E|
000012C0: 52 20 53 50 45 43 49 41 4C 45 20 43 4F 4D 4D 41 |R SPECIALE COMMA|
000012D0: 4E 44 4F 27 53 20 56 4F 4F 52 20 3A 00 0F 1B 00 |NDO'S VOOR :....|
000012E0: 05 99 22 11 11 9A 20 12 4C 45 46 54 24 92 28 41 |.."... .LEFT$.(A|
000012F0: 24 2C 58 29 20 20 12 4D 49 44 24 92 28 41 24 2C |$,X) .MID$.(A$,|
00001300: 58 2C 59 29 2C 20 12 52 49 47 48 54 24 92 28 41 |X,Y), .RIGHT$.(A|
00001310: 24 29 00 40 1B 0A 05 99 22 11 20 12 4C 45 4E 92 |$).@....". .LEN.|
00001320: 28 41 24 29 20 20 20 20 20 20 12 56 41 4C 92 28 |(A$) .VAL.(|
00001330: 41 24 29 20 20 20 20 20 20 20 12 53 54 52 24 92 |A$) .STR$.|
00001340: 28 41 29 00 70 1B 14 05 99 22 11 9E 20 4C 45 54 |(A).p....".. LET|
00001350: 20 57 45 4C 3A 20 42 49 4A 20 44 45 20 4C 41 41 | WEL: BIJ DE LAA|
00001360: 54 53 54 45 20 53 54 41 41 54 20 47 45 45 4E 20 |TSTE STAAT GEEN |
00001370: 24 20 21 00 9C 1B 1E 05 99 22 11 11 20 48 45 54 |$ !......".. HET|
00001380: 20 4C 49 4A 4B 54 20 45 52 47 20 49 4E 47 45 57 | LIJKT ERG INGEW|
00001390: 49 4B 4B 45 4C 44 2C 20 4D 41 41 52 20 49 53 00 |IKKELD, MAAR IS.|
000013A0: C8 1B 28 05 99 22 11 20 54 4F 43 48 20 45 43 48 |..(..". TOCH ECH|
000013B0: 54 20 4E 49 45 54 20 5A 4F 20 4D 4F 45 49 4C 49 |T NIET ZO MOEILI|
000013C0: 4A 4B 2E 11 22 3A 8D 31 37 36 30 00 F4 1B 32 05 |JK..":.1760...2.|
000013D0: 99 22 93 9A 20 4D 45 54 20 44 45 5A 45 20 43 4F |.".. MET DEZE CO|
000013E0: 4D 4D 41 4E 44 4F 27 53 20 47 41 41 4E 20 57 45 |MMANDO'S GAAN WE|
000013F0: 20 4E 55 20 57 41 54 00 21 1C 3C 05 99 22 20 4D | NU WAT.!.<.." M|
00001400: 41 4E 49 50 55 4C 45 52 45 4E 3A 20 53 54 45 4C |ANIPULEREN: STEL|
00001410: 20 4E 24 3D 22 C7 28 33 34 29 22 43 42 4D 22 C7 | N$=".(34)"CBM".|
00001420: 28 33 34 29 00 4B 1C 46 05 99 22 11 20 44 41 4E |(34).K.F..". DAN|
00001430: 20 5A 41 4C 20 45 52 20 48 45 54 20 56 4F 4C 47 | ZAL ER HET VOLG|
00001440: 45 4E 44 45 20 47 45 42 45 55 52 45 4E 3A 00 62 |ENDE GEBEUREN:.b|
00001450: 1C 50 05 99 22 11 90 20 20 3F 4C 45 46 54 24 28 |.P..".. ?LEFT$(|
00001460: 4E 24 2C 31 29 00 91 1C 5A 05 99 22 11 20 49 4B |N$,1)...Z..". IK|
00001470: 20 47 45 45 46 20 12 31 92 20 4C 45 54 54 45 52 | GEEF .1. LETTER|
00001480: 20 56 41 4E 20 41 46 20 4C 49 4E 4B 53 20 44 55 | VAN AF LINKS DU|
00001490: 53 20 12 43 00 A9 1C 64 05 99 22 11 05 20 20 3F |S .C...d..".. ?|
000014A0: 52 49 47 48 54 24 28 4E 24 2C 31 29 00 D9 1C 6E |RIGHT$(N$,1)...n|
000014B0: 05 99 22 11 20 49 4B 20 47 45 45 46 20 12 31 92 |..". IK GEEF .1.|
000014C0: 20 4C 45 54 54 45 52 20 56 41 4E 20 41 46 20 52 | LETTER VAN AF R|
000014D0: 45 43 48 54 53 20 44 55 53 20 12 4D 00 F1 1C 78 |ECHTS DUS .M...x|
000014E0: 05 99 22 11 90 20 20 3F 4D 49 44 24 28 4E 24 2C |..".. ?MID$(N$,|
000014F0: 32 2C 31 29 00 1E 1D 82 05 99 22 11 20 49 4B 20 |2,1)......". IK |
00001500: 47 45 45 46 20 12 31 92 20 4C 45 54 54 45 52 20 |GEEF .1. LETTER |
00001510: 56 41 4E 20 41 46 20 12 44 45 20 54 57 45 45 44 |VAN AF .DE TWEED|
00001520: 45 00 39 1D 8C 05 99 22 11 20 12 56 41 4E 20 4C |E.9....". .VAN L|
00001530: 49 4E 4B 53 92 20 44 55 53 20 12 42 00 4C 1D 96 |INKS. DUS .B.L..|
00001540: 05 99 22 11 05 20 20 3F 4C 45 4E 28 4E 24 29 00 |..".. ?LEN(N$).|
00001550: 7C 1D A0 05 99 22 11 20 49 4B 20 47 45 45 46 20 ||....". IK GEEF |
00001560: 48 45 54 20 41 41 4E 54 41 4C 20 4C 45 54 54 45 |HET AANTAL LETTE|
00001570: 52 53 20 49 4E 20 4E 24 20 44 55 53 20 12 33 00 |RS IN N$ DUS .3.|
00001580: 87 1D AA 05 3A 8D 31 37 36 30 00 B7 1D B4 05 99 |....:.1760......|
00001590: 22 93 9A 20 4D 45 54 20 47 45 54 41 4C 4C 45 4E |".. MET GETALLEN|
000015A0: 20 49 4E 20 45 45 4E 20 53 54 52 49 4E 47 20 4B | IN EEN STRING K|
000015B0: 55 4E 20 4A 45 20 4E 49 45 54 00 E3 1D BE 05 99 |UN JE NIET......|
000015C0: 22 11 20 52 45 4B 45 4E 45 4E 3B 20 4A 45 20 4D |". REKENEN; JE M|
000015D0: 4F 45 54 20 45 52 20 45 45 52 53 54 20 44 45 20 |OET ER EERST DE |
000015E0: 57 41 41 52 44 45 00 0B 1E C8 05 99 22 11 20 55 |WAARDE......". U|
000015F0: 49 54 48 41 4C 45 4E 20 4D 45 54 3A 20 20 90 12 |ITHALEN MET: ..|
00001600: 56 41 4C 28 4E 24 29 92 9A 20 20 42 56 3A 00 2B |VAL(N$).. BV:.+|
00001610: 1E D2 05 99 22 11 05 20 20 20 20 35 30 20 41 24 |....".. 50 A$|
00001620: 3D 22 31 32 33 22 3A 42 24 3D 22 34 35 22 00 58 |="123":B$="45".X|
00001630: 1E DC 05 99 22 11 9A 20 57 49 4C 4C 45 4E 20 57 |....".. WILLEN W|
00001640: 45 20 57 45 54 45 4E 20 57 41 54 20 31 32 33 2B |E WETEN WAT 123+|
00001650: 34 35 20 49 53 2C 20 44 41 4E 3A 00 7B 1E E6 05 |45 IS, DAN:.{...|
00001660: 99 22 11 05 20 20 20 20 36 30 20 41 3D 56 41 4C |.".. 60 A=VAL|
00001670: 28 41 24 29 3A 42 3D 56 41 4C 28 42 24 29 00 96 |(A$):B=VAL(B$)..|
00001680: 1E F0 05 99 22 20 20 20 20 37 30 20 43 3D 41 2B |...." 70 C=A+|
00001690: 42 3A 50 52 49 4E 54 20 43 00 C1 1E FA 05 99 22 |B:PRINT C......"|
000016A0: 11 9A 20 45 4E 20 4B 52 49 4A 47 45 4E 20 57 45 |.. EN KRIJGEN WE|
000016B0: 20 12 31 36 38 92 20 41 4C 53 20 55 49 54 4B 4F | .168. ALS UITKO|
000016C0: 4D 53 54 2E 00 DA 1E 04 06 99 22 11 11 20 44 4F |MST.......".. DO|
000016D0: 45 4E 20 57 45 20 45 43 48 54 45 52 3A 00 FB 1E |EN WE ECHTER:...|
000016E0: 0E 06 99 22 11 05 20 20 20 20 36 30 20 43 24 3D |...".. 60 C$=|
000016F0: 41 24 2B 42 24 3A 50 52 49 4E 54 20 43 24 00 2B |A$+B$:PRINT C$.+|
00001700: 1F 18 06 99 22 11 9A 20 44 41 4E 20 4B 52 49 4A |....".. DAN KRIJ|
00001710: 47 45 4E 20 57 45 20 20 12 31 32 33 34 35 92 20 |GEN WE .12345. |
00001720: 41 4C 53 20 55 49 54 4B 4F 4D 53 54 21 21 00 36 |ALS UITKOMST!!.6|
00001730: 1F 22 06 3A 8D 31 37 36 30 00 67 1F 2C 06 99 22 |.".:.1760.g.,.."|
00001740: 93 90 20 57 49 4C 20 4A 45 20 44 45 20 48 45 4C |.. WIL JE DE HEL|
00001750: 45 20 4C 45 53 20 4E 4F 47 20 45 45 4E 53 20 44 |E LES NOG EENS D|
00001760: 4F 4F 52 4E 45 4D 45 4E 20 3F 00 7B 1F 36 06 99 |OORNEMEN ?.{.6..|
00001770: 22 11 9A 20 54 59 50 20 4A 20 4F 46 20 4E 00 8F |".. TYP J OF N..|
00001780: 1F 40 06 A1 51 24 3A 8B 51 24 B2 22 22 89 31 36 |.@..Q$:.Q$."".16|
00001790: 30 30 00 A2 1F 4A 06 8B 51 24 B2 C7 28 31 33 29 |00...J..Q$..(13)|
000017A0: 89 31 35 38 30 00 B2 1F 54 06 8B 51 24 B2 22 4A |.1580...T..Q$."J|
000017B0: 22 89 31 32 30 00 E4 1F 5E 06 99 22 11 11 90 20 |".120...^.."... |
000017C0: 57 49 4C 20 4A 45 20 44 41 4E 20 48 45 54 20 4C |WIL JE DAN HET L|
000017D0: 41 41 54 53 54 45 20 44 45 45 4C 20 4E 4F 47 20 |AATSTE DEEL NOG |
000017E0: 54 45 52 55 47 20 3F 00 F8 1F 68 06 99 22 11 9A |TERUG ?...h.."..|
000017F0: 20 54 59 50 20 4A 20 4F 46 20 4E 00 0C 20 72 06 | TYP J OF N.. r.|
00001800: A1 51 24 3A 8B 51 24 B2 22 22 89 31 36 35 30 00 |.Q$:.Q$."".1650.|
00001810: 2A 20 7C 06 8B 51 24 B2 C7 28 31 33 29 A7 99 22 |* |..Q$..(13).."|
00001820: 91 91 91 91 91 91 22 3A 89 31 36 33 30 00 3B 20 |......":.1630.; |
00001830: 86 06 8B 51 24 B2 22 4A 22 89 31 32 35 30 00 65 |...Q$."J".1250.e|
00001840: 20 90 06 99 22 11 11 05 20 4D 45 45 52 20 48 49 | ..."... MEER HI|
00001850: 45 52 4F 56 45 52 20 49 4E 20 44 45 20 4C 41 41 |EROVER IN DE LAA|
00001860: 54 53 54 45 20 4C 45 53 00 8B 20 9A 06 99 22 11 |TSTE LES.. ...".|
00001870: 11 11 20 49 4B 20 4C 41 41 44 20 4E 55 20 44 45 |.. IK LAAD NU DE|
00001880: 20 56 4F 4C 47 45 4E 44 45 20 4C 45 53 2E 00 A4 | VOLGENDE LES...|
00001890: 20 A4 06 93 22 4E 45 44 20 42 41 53 49 43 20 4C | ..."NED BASIC L|
000018A0: 45 53 20 35 22 2C 38 00 D7 20 B8 06 99 A6 53 AA |ES 5",8.. ....S.|
000018B0: 33 29 22 A4 A4 A4 A4 A4 22 3A 99 A6 53 AA 32 29 |3)".....":..S.2)|
000018C0: 22 CE 20 20 20 20 CE A5 22 3A 99 A6 53 AA 31 29 |". ..":..S.1)|
000018D0: 22 CE 20 20 20 20 CE 20 A5 22 00 09 21 C2 06 99 |". . ."..!...|
000018E0: A6 53 29 22 CE 20 20 20 20 CE 20 20 A5 22 3A 99 |.S)". . .":.|
000018F0: A6 53 29 22 CF A3 A3 A3 D0 20 20 CE 22 3A 99 A6 |.S)"..... .":..|
00001900: 53 29 22 A5 12 20 20 20 92 A7 20 CE 00 24 21 CC |S)".. .. ..$!.|
00001910: 06 99 A6 53 29 22 CC A4 A4 A4 BA CE 91 91 91 91 |...S)"..........|
00001920: 9D 9D 9D 22 3B 3A 8E 00 2B 21 D6 06 85 41 00 75 |...";:..+!...A.u|
00001930: 21 E0 06 97 51 31 2C 30 3A 99 22 13 11 11 11 11 |!...Q1,0:.".....|
00001940: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001950: 11 11 11 20 20 20 20 20 20 9E 12 56 4F 4F 52 20 |... ..VOOR |
00001960: 56 45 52 44 45 52 3A 20 44 52 55 4B 20 4F 50 20 |VERDER: DRUK OP |
00001970: 27 53 50 41 43 45 27 92 00 89 21 EA 06 A1 41 24 |'SPACE'...!...A$|
00001980: 3A 8B 41 24 B2 22 22 A7 31 37 37 30 00 8F 21 F4 |:.A$."".1770..!.|
00001990: 06 8E 00 00 00 4E 44 45 52 20 48 45 54 20 3F 2E |.....NDER HET ?.|
000019A0: 00 D4 21 78 05 99 22 11 11 20 48 4F 55 20 4A 45 |..!x..".. HOU JE|
000019B0: 20 41 41 4E 20 44 45 20 41 46 53 50 52 41 41 4B | AAN DE AFSPRAAK|
000019C0: 20 31 30 22 3A 99 22 11 20 52 45 47 45 4C 53 20 | 10":.". REGELS |
000019D0: 4F 56 45 52 20 54 45 20 53 4C 41 41 4E 20 45 4E |OVER TE SLAAN EN|
000019E0: 00 13 22 82 05 99 22 11 20 42 45 47 49 4E 20 4E |.."...". BEGIN N|
000019F0: 49 45 54 20 4D 45 54 20 30 20 4F 46 20 31 2C 20 |IET MET 0 OF 1, |
00001A00: 4D 41 41 52 20 4D 45 54 22 3A 99 22 11 20 31 30 |MAAR MET":.". 10|
00001A10: 20 4F 46 20 4E 4F 47 20 48 4F 47 45 52 21 11 00 | OF NOG HOGER!..|
00001A20: 3B 22 8C 05 8D 32 30 30 3A 4B 24 B2 22 2A 22 3A |;"...200:K$."*":|
00001A30: 8D 31 33 30 3A 54 58 B2 54 58 AA 31 3A 8B 54 58 |.130:TX.TX.1:.TX|
00001A40: B2 32 A7 31 35 31 30 00 53 22 96 05 99 22 11 11 |.2.1510.S"..."..|
00001A50: 11 1D 1D 1D 1C 20 5A 4F 21 20 22 4E 24 22 2C 00 |..... ZO! "N$",.|
00001A60: 73 22 A0 05 99 22 11 11 1D 1D 1D 48 45 42 20 4A |s"...".....HEB J|
00001A70: 45 20 48 45 54 20 54 4F 54 20 5A 4F 56 45 52 00 |E HET TOT ZOVER.|
00001A80: 91 22 AA 05 99 22 11 1D 1D 1D 4B 55 4E 4E 45 4E |."..."....KUNNEN|
00001A90: 20 56 4F 4C 47 45 4E 20 28 4A 2F 4E 29 00 A5 22 | VOLGEN (J/N).."|
00001AA0: B4 05 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 34 36 |...Q$:.Q$."".146|
00001AB0: 30 00 CF 22 BE 05 99 22 11 11 1D 1D 1D 1F 57 49 |0.."..."......WI|
00001AC0: 4C 20 4A 45 20 48 45 54 20 4E 4F 47 20 45 45 4E |L JE HET NOG EEN|
00001AD0: 53 20 44 4F 4F 52 4E 45 4D 45 4E 00 E3 22 C8 05 |S DOORNEMEN.."..|
00001AE0: A1 51 24 3A 8B 51 24 B2 22 22 A7 31 34 38 30 00 |.Q$:.Q$."".1480.|
00001AF0: FA 22 D2 05 8B 51 24 B2 22 4A 22 A7 3A 8D 31 39 |."...Q$."J".:.19|
00001B00: 30 3A 89 33 30 30 00 15 23 DC 05 8B 51 24 B3 B1 |0:.300..#...Q$..|
00001B10: 22 4E 22 A7 99 22 91 91 91 91 22 3A 89 31 34 37 |"N".."....":.147|
00001B20: 30 00 5B 23 E6 05 99 22 11 11 1D 1D 1D 44 41 54 |0.[#...".....DAT|
00001B30: 20 57 41 53 20 44 41 4E 20 44 45 20 45 45 52 53 | WAS DAN DE EERS|
00001B40: 54 45 20 4C 45 53 22 3A 99 22 11 1D 1D 1D 49 4B |TE LES":."....IK|
00001B50: 20 4C 41 41 44 20 4E 55 20 44 45 20 54 57 45 45 | LAAD NU DE TWEE|
00001B60: 44 45 20 4C 45 53 2E 00 74 23 F0 05 93 22 4E 45 |DE LES..t#..."NE|
00001B70: 44 20 42 41 53 49 43 20 4C 45 53 20 32 22 2C 38 |D BASIC LES 2",8|
00001B80: 00 00 00 C2 |.... |
....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..H...."NED BASIC LES 6",8...".. M
ET STRINGS KAN IK ENKELE FANTASTISCHE...
...". DINGEN UITHALEN..Y....".. IK KEN E
R SPECIALE COMMANDO'S VOOR :......"... .
LEFT$.(A$,X) .MID$.(A$,X,Y), .RIGHT$.(A
$).@....". .LEN.(A$) .VAL.(A$)
.STR$.(A).P....".. LET WEL: BIJ DE LAA
TSTE STAAT GEEN $ !......".. HET LIJKT E
RG INGEWIKKELD, MAAR IS.H.(..". TOCH ECH
T NIET ZO MOEILIJK..":.1760...2..".. MET
DEZE COMMANDO'S GAAN WE NU WAT.!.<.." M
ANIPULEREN: STEL N$="G(34)"CBM"G(34).K.F
..". DAN ZAL ER HET VOLGENDE GEBEUREN:.B
.P..".. ?LEFT$(N$,1)...Z..". IK GEEF .1
. LETTER VAN AF LINKS DUS .C...D..".. ?
RIGHT$(N$,1).Y.N..". IK GEEF .1. LETTER
VAN AF RECHTS DUS .M...X..".. ?MID$(N$,
2,1)......". IK GEEF .1. LETTER VAN AF .
DE TWEEDE.9....". .VAN LINKS. DUS .B.L..
..".. ?LEN(N$).|. ..". IK GEEF HET AANT
AL LETTERS IN N$ DUS .3.....:.1760......
".. MET GETALLEN IN EEN STRING KUN JE NI
ET......". REKENEN; JE MOET ER EERST DE
WAARDE...H..". UITHALEN MET: ..VAL(N$).
. BV:.+.R..".. 50 A$="123":B$="45".X
....".. WILLEN WE WETEN WAT 123+45 IS, D
AN:.{....".. 60 A=VAL(A$):B=VAL(B$)..
...." 70 C=A+B:PRINT C.A....".. EN KR
IJGEN WE .168. ALS UITKOMST..Z....".. DO
EN WE ECHTER:......".. 60 C$=A$+B$:PR
INT C$.+....".. DAN KRIJGEN WE .12345.
ALS UITKOMST!!.6.".:.1760.G.,..".. WIL J
E DE HELE LES NOG EENS DOORNEMEN ?.{.6..
".. TYP J OF N...@..Q$:.Q$."".1600...J..
Q$.G(13).1580...T..Q$."J".120...^.."...
WIL JE DAN HET LAATSTE DEEL NOG TERUG ?.
..H..".. TYP J OF N.. R..Q$:.Q$."".1650.
* |..Q$.G(13).."......":.1630.; ...Q$."J
".1250.E ..."... MEER HIEROVER IN DE LAA
TSTE LES.. ..."... IK LAAD NU DE VOLGEND
E LES... ..."NED BASIC LES 5",8.W ....S.
3)".....":..S.2)"N N.":..S.1)"N N
."..!B...S)"N N .":..S)"O...P N":..
S)".. .. N.$!L...S)"L....N.......";:..
+!V..A.U!...Q1,0:.".....................
... ..VOOR VERDER: DRUK OP 'SPACE'.
..!...A$:.A$."".1770..!......NDER HET ?.
.T!X..".. HOU JE AAN DE AFSPRAAK 10":.".
REGELS OVER TE SLAAN EN.."...". BEGIN N
IET MET 0 OF 1, MAAR MET":.". 10 OF NOG
HOGER!..;"...200:K$."*":.130:TX.TX.1:.TX
.2.1510.S"..."....... ZO! "N$",.S" .."..
...HEB JE HET TOT ZOVER.."..."....KUNNEN
VOLGEN (J/N).."...Q$:.Q$."".1460.O"..."
......WIL JE HET NOG EENS DOORNEMEN.."H.
.Q$:.Q$."".1480.."R..Q$."J".:.190:.300..
#...Q$.."N".."....":.1470.[#...".....DAT
WAS DAN DE EERSTE LES":."....IK LAAD NU
DE TWEEDE LES..T#..."NED BASIC LES 2",8
...B
> CLICK IMAGE PREVIEW FOR FULL MODAL