BASIC LES 6
FILE INFORMATION
FILENAME(S): BASIC LES 6
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 21:27:55
APPEARS ON: 1 disk(s)
FILE HASH
ce07f4211ca5d17a1b3368b92a542a4362001b7b3f0617f532cbad1933fa4d21
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASICCURSUS SPEL | BASIC LES 6 | PRG | DuncanTwain | 14 | 3 | 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 32 08 78 00 54 31 B2 31 30 30 30 |142).2.x.T1.1000|
00000020: 3A 54 32 B2 54 31 AD 35 30 3A 51 24 B2 C7 28 33 |:T2.T1.50:Q$..(3|
00000030: 34 29 00 4E 08 8C 00 97 35 33 32 38 30 2C 31 34 |4).N....53280,14|
00000040: 3A 97 35 33 32 38 31 2C 36 3A 89 33 34 30 00 6D |:.53281,6:.340.m|
00000050: 08 A0 00 97 51 31 2C 30 3A 81 4E B2 31 A4 54 31 |....Q1,0:.N.1.T1|
00000060: 3A A1 43 24 3A 8B 43 24 B2 22 22 A7 82 00 73 08 |:.C$:.C$.""...s.|
00000070: B4 00 8E 00 BD 08 C8 00 99 22 13 11 11 11 11 11 |........."......|
00000080: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000090: 11 11 11 1D 1D 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 98 54 4F 45 54 53 13 22 00 C6 08 |......TOETS."...|
000000C0: DC 00 8D 31 36 30 00 DD 08 F0 00 99 22 93 22 3B |...160......".";|
000000D0: 3A 81 4E B2 31 A4 32 30 30 3A 82 3A 8E 00 00 09 |:.N.1.200:.:....|
000000E0: 04 01 99 22 98 20 56 4F 4F 52 42 45 45 4C 44 22 |...". VOORBEELD"|
000000F0: 3A 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 3A 8E |:." .........":.|
00000100: 00 30 09 18 01 99 22 11 05 3F 49 4C 4C 45 47 41 |.0...."..?ILLEGA|
00000110: 4C 20 51 55 41 4E 54 49 54 59 20 45 52 52 4F 52 |L QUANTITY ERROR|
00000120: 20 49 4E 20 31 30 22 3A 99 22 52 45 41 44 59 2E | IN 10":."READY.|
00000130: 00 66 09 2C 01 81 4E B2 31 A4 31 30 3A 81 4E 31 |.f.,..N.1.10:.N1|
00000140: B2 31 A4 32 30 30 3A 82 3A 99 22 12 20 92 9D 22 |.1.200:.:.". .."|
00000150: 3B 3A 81 4E 31 B2 31 A4 32 30 30 3A 82 3A 99 22 |;:.N1.1.200:.:."|
00000160: 20 9D 22 3B 3A 82 00 70 09 40 01 41 B2 30 3A 8E | .";:..p.@.A.0:.|
00000170: 00 A0 09 54 01 99 22 93 11 9A 20 20 3D 3D 3D 20 |...T.."... === |
00000180: 4E 4F 47 20 45 4E 4B 45 4C 45 20 53 54 52 49 4E |NOG ENKELE STRIN|
00000190: 47 20 53 54 41 54 45 4D 45 4E 54 53 20 3D 3D 3D |G STATEMENTS ===|
000001A0: 00 CD 09 68 01 99 22 20 20 3D 3D 3D 3D 3D 3D 3D |...h.." =======|
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 00 FC 09 |=============...|
000001D0: 7C 01 99 22 11 20 45 52 20 5A 49 4A 4E 20 4E 4F ||..". ER ZIJN NO|
000001E0: 47 20 45 4E 4B 45 4C 45 20 27 53 54 52 49 4E 47 |G ENKELE 'STRING|
000001F0: 20 53 54 41 54 45 4D 45 4E 54 53 27 00 2B 0A 90 | STATEMENTS'.+..|
00000200: 01 99 22 11 20 44 49 45 20 49 4E 20 45 45 52 53 |..". DIE IN EERS|
00000210: 54 45 20 49 4E 53 54 41 4E 54 49 45 20 4D 49 53 |TE INSTANTIE MIS|
00000220: 53 43 48 49 45 4E 20 4E 49 45 54 00 62 0A A4 01 |SCHIEN NIET.b...|
00000230: 99 22 11 20 5A 4F 20 42 45 4C 41 4E 47 52 49 4A |.". ZO BELANGRIJ|
00000240: 4B 20 4C 49 4A 4B 45 4E 2C 20 4D 41 41 52 20 48 |K LIJKEN, MAAR H|
00000250: 45 54 20 54 4F 43 48 20 20 20 20 11 20 5A 49 4A |ET TOCH . ZIJ|
00000260: 4E 2E 00 87 0A B8 01 99 22 11 11 98 20 44 41 54 |N......."... DAT|
00000270: 20 5A 49 4A 4E 3A 20 27 41 53 43 27 20 45 4E 20 | ZIJN: 'ASC' EN |
00000280: 27 43 48 52 24 27 2E 00 A8 0A CC 01 99 22 20 A0 |'CHR$'......." .|
00000290: A0 A0 A0 A0 A0 A0 A0 A0 A0 C5 C5 C5 C5 C5 20 20 |.............. |
000002A0: 20 20 C5 C5 C5 C5 C5 C5 00 D5 0A E0 01 99 22 11 | ............".|
000002B0: 11 05 20 49 4B 20 4B 45 4E 20 5A 45 20 4F 50 20 |.. IK KEN ZE OP |
000002C0: 44 45 20 56 4F 4C 47 45 4E 44 45 20 4D 41 4E 49 |DE VOLGENDE MANI|
000002D0: 45 52 45 4E 3A 00 02 0B F4 01 99 22 11 20 53 54 |EREN:......". ST|
000002E0: 52 49 4E 47 20 56 41 52 49 41 42 45 4C 45 20 3D |RING VARIABELE =|
000002F0: 20 43 48 52 24 20 28 4E 55 4D 4D 2E 20 56 41 52 | CHR$ (NUMM. VAR|
00000300: 2E 29 00 30 0B 08 02 99 22 11 20 4E 55 4D 4D 2E |.).0....". NUMM.|
00000310: 20 56 41 52 49 41 42 45 4C 45 20 20 3D 20 41 53 | VARIABELE = AS|
00000320: 43 20 20 28 53 54 52 49 4E 47 20 56 41 52 2E 29 |C (STRING VAR.)|
00000330: 00 39 0B 1C 02 8D 32 30 30 00 4E 0B 30 02 99 22 |.9....200.N.0.."|
00000340: 93 11 9E 20 31 2D 41 53 43 20 28 41 24 29 00 60 |... 1-ASC (A$).`|
00000350: 0B 44 02 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |.D.." ..........|
00000360: 00 8D 0B 58 02 99 22 11 98 20 49 45 44 45 52 20 |...X..".. IEDER |
00000370: 4B 41 52 41 4B 54 45 52 20 44 41 54 20 49 4B 20 |KARAKTER DAT IK |
00000380: 4B 45 4E 20 28 4F 4F 4B 20 41 4C 4C 45 00 BC 0B |KEN (OOK ALLE...|
00000390: 6C 02 99 22 11 20 47 52 41 46 49 53 43 48 45 29 |l..". GRAFISCHE)|
000003A0: 20 57 4F 52 44 54 20 49 4E 20 4D 49 4A 4E 20 47 | WORDT IN MIJN G|
000003B0: 45 48 45 55 47 45 4E 20 44 4F 4F 52 00 E4 0B 80 |EHEUGEN DOOR....|
000003C0: 02 99 22 11 20 45 45 4E 20 42 45 50 41 41 4C 44 |..". EEN BEPAALD|
000003D0: 45 20 43 4F 44 45 20 56 4F 4F 52 47 45 53 54 45 |E CODE VOORGESTE|
000003E0: 4C 44 2E 11 00 0D 0C 94 02 8D 32 36 30 3A 99 22 |LD........260:."|
000003F0: 11 05 20 20 31 20 20 41 53 43 20 20 28 22 51 24 |.. 1 ASC ("Q$|
00000400: 22 41 22 51 24 22 29 20 20 3D 20 36 35 00 30 0C |"A"Q$") = 65.0.|
00000410: A8 02 99 22 11 20 20 32 20 20 41 53 43 20 20 28 |...". 2 ASC (|
00000420: 22 51 24 22 42 22 51 24 22 29 20 20 3D 20 36 36 |"Q$"B"Q$") = 66|
00000430: 00 53 0C BC 02 99 22 11 20 20 33 20 20 41 53 43 |.S....". 3 ASC|
00000440: 20 20 28 22 51 24 22 5A 22 51 24 22 29 20 20 3D | ("Q$"Z"Q$") =|
00000450: 20 39 30 00 7A 0C D0 02 99 22 11 20 20 34 20 20 | 90.z....". 4 |
00000460: 41 53 43 A0 28 22 51 24 22 42 43 44 22 51 24 22 |ASC.("Q$"BCD"Q$"|
00000470: 29 20 3D 20 36 36 20 21 21 21 00 9F 0C E4 02 99 |) = 66 !!!......|
00000480: 22 11 11 9A 20 4C 45 54 20 4F 50 20 56 4F 4F 52 |"... LET OP VOOR|
00000490: 42 45 45 4C 44 20 34 20 21 22 3A 8D 32 30 30 00 |BEELD 4 !":.200.|
000004A0: C1 0C F8 02 8D 32 36 30 3A 99 22 11 9E 20 20 20 |.....260:.".. |
000004B0: 31 30 20 41 24 3D 20 22 51 24 22 41 42 43 22 51 |10 A$= "Q$"ABC"Q|
000004C0: 24 00 DD 0C 0C 03 99 22 11 20 20 20 32 30 20 50 |$......". 20 P|
000004D0: 52 49 4E 54 20 41 53 43 20 28 41 24 29 00 18 0D |RINT ASC (A$)...|
000004E0: 20 03 99 22 11 99 20 44 49 54 20 50 52 4F 47 52 | ..".. DIT PROGR|
000004F0: 41 4D 4D 41 20 5A 41 4C 20 48 45 54 20 47 45 54 |AMMA ZAL HET GET|
00000500: 41 4C 20 27 36 35 27 20 20 20 20 20 20 20 20 11 |AL '65' .|
00000510: 50 52 49 4E 54 45 4E 2E 00 48 0D 34 03 99 22 11 |PRINTEN..H.4..".|
00000520: 20 48 45 54 20 41 53 43 20 53 54 41 54 45 4D 45 | HET ASC STATEME|
00000530: 4E 54 20 47 45 45 46 54 20 4D 49 4A 20 44 45 20 |NT GEEFT MIJ DE |
00000540: 4F 50 44 52 41 43 48 54 00 74 0D 48 03 99 22 20 |OPDRACHT.t.H.." |
00000550: 44 45 20 43 4F 44 45 20 56 41 4E 20 48 45 54 20 |DE CODE VAN HET |
00000560: 45 45 52 53 54 45 20 4C 45 54 54 45 52 20 56 41 |EERSTE LETTER VA|
00000570: 4E 20 44 45 00 A1 0D 5C 03 99 22 11 20 53 54 52 |N DE...\..". STR|
00000580: 49 4E 47 20 54 45 20 42 45 50 41 4C 45 4E 2E 20 |ING TE BEPALEN. |
00000590: 44 49 45 20 43 4F 44 45 20 57 4F 52 44 54 20 44 |DIE CODE WORDT D|
000005A0: 45 00 BF 0D 70 03 99 22 11 20 27 41 53 43 49 49 |E...p..". 'ASCII|
000005B0: 27 20 43 4F 44 45 20 47 45 4E 4F 45 4D 44 2E 00 |' CODE GENOEMD..|
000005C0: E8 0D 84 03 99 22 11 98 20 57 41 54 20 49 53 20 |.....".. WAT IS |
000005D0: 48 45 54 20 4E 55 54 20 56 41 4E 20 44 45 5A 45 |HET NUT VAN DEZE|
000005E0: 20 43 4F 44 45 53 20 3F 00 1D 0E 98 03 81 4E B2 | CODES ?......N.|
000005F0: 31 A4 54 32 3A 82 3A 99 22 11 20 44 41 54 20 4B |1.T2:.:.". DAT K|
00000600: 41 4E 20 49 4B 20 48 45 54 20 4D 41 4B 4B 45 4C |AN IK HET MAKKEL|
00000610: 49 4A 4B 53 54 20 4D 45 54 20 45 45 4E 00 40 0E |IJKST MET EEN.@.|
00000620: AC 03 99 22 11 20 56 4F 4F 52 42 45 45 4C 44 20 |...". VOORBEELD |
00000630: 55 49 54 4C 45 47 47 45 4E 2E 22 3A 8D 32 30 30 |UITLEGGEN.":.200|
00000640: 00 74 0E C0 03 8D 32 36 30 3A 99 22 11 98 20 20 |.t....260:.".. |
00000650: 20 31 30 20 47 45 54 20 43 24 20 3A 20 49 46 20 | 10 GET C$ : IF |
00000660: 43 24 20 3D 20 22 51 24 3B 51 24 22 20 54 48 45 |C$ = "Q$;Q$" THE|
00000670: 4E 20 31 30 00 8D 0E D4 03 99 22 20 20 20 32 30 |N 10......" 20|
00000680: 20 43 20 3D 20 41 53 43 20 28 43 24 29 00 AB 0E | C = ASC (C$)...|
00000690: E8 03 99 22 20 20 20 33 30 20 49 46 20 43 20 3C |..." 30 IF C <|
000006A0: 20 36 35 20 54 48 45 4E 20 31 30 00 C9 0E FC 03 | 65 THEN 10.....|
000006B0: 99 22 20 20 20 34 30 20 49 46 20 43 20 3E 20 37 |." 40 IF C > 7|
000006C0: 30 20 54 48 45 4E 20 31 30 00 01 0F 10 04 99 22 |0 THEN 10......"|
000006D0: 20 20 20 35 30 20 4F 4E 20 43 2D 36 34 20 47 4F | 50 ON C-64 GO|
000006E0: 54 4F 20 31 30 30 2C 32 30 30 2C 33 30 30 2C 34 |TO 100,200,300,4|
000006F0: 30 30 2C 35 30 30 2C 20 20 20 20 20 20 20 36 30 |00,500, 60|
00000700: 30 00 14 0F 24 04 81 4E B2 31 A4 54 32 3A 41 B2 |0...$..N.1.T2:A.|
00000710: 31 30 3A 82 00 44 0F 38 04 99 22 11 11 9F 20 52 |10:..D.8.."... R|
00000720: 45 47 45 4C 20 31 30 20 53 43 41 4E 54 20 48 45 |EGEL 10 SCANT HE|
00000730: 54 20 54 4F 45 54 53 45 4E 42 4F 52 44 20 54 4F |T TOETSENBORD TO|
00000740: 54 20 45 52 00 70 0F 4C 04 99 22 11 20 45 45 4E |T ER.p.L..". EEN|
00000750: 20 54 4F 45 54 53 20 57 4F 52 44 54 20 49 4E 47 | TOETS WORDT ING|
00000760: 45 44 52 55 4B 54 2E 20 52 45 47 45 4C 20 32 30 |EDRUKT. REGEL 20|
00000770: 00 9E 0F 60 04 99 22 11 20 4D 41 41 4B 54 20 44 |...`..". MAAKT D|
00000780: 45 20 41 53 43 49 49 20 43 4F 44 45 20 56 41 4E |E ASCII CODE VAN|
00000790: 20 44 45 20 49 4E 47 45 44 52 55 4B 54 45 00 C9 | DE INGEDRUKTE..|
000007A0: 0F 74 04 99 22 11 20 54 4F 45 54 53 2E 20 41 4C |.t..". TOETS. AL|
000007B0: 53 20 44 45 20 41 53 43 49 49 20 57 41 41 52 44 |S DE ASCII WAARD|
000007C0: 45 20 56 41 4E 20 48 45 54 00 F7 0F 88 04 99 22 |E VAN HET......"|
000007D0: 11 20 4B 41 52 41 4B 54 45 52 20 4B 4C 45 49 4E |. KARAKTER KLEIN|
000007E0: 45 52 20 44 41 4E 20 36 35 20 4F 46 20 47 52 4F |ER DAN 65 OF GRO|
000007F0: 54 45 52 20 44 41 4E 00 3C 10 9C 04 99 22 11 20 |TER DAN.<....". |
00000800: 37 30 20 49 53 20 44 41 4E 20 57 4F 52 44 54 20 |70 IS DAN WORDT |
00000810: 56 41 4E 20 52 45 47 45 4C 20 33 30 20 4F 46 20 |VAN REGEL 30 OF |
00000820: 34 30 20 4E 41 41 52 11 20 31 30 20 54 45 52 55 |40 NAAR. 10 TERU|
00000830: 47 47 45 53 50 52 4F 4E 47 45 4E 2E 00 45 10 B0 |GGESPRONGEN..E..|
00000840: 04 8D 31 36 30 00 5F 10 C4 04 99 22 13 11 11 11 |..160._...."....|
00000850: 11 11 11 11 11 11 22 3A 81 4E B2 31 A4 31 34 00 |......":.N.1.14.|
00000860: 92 10 D8 04 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
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 22 3B | ";|
00000890: 3A 82 00 A4 10 EC 04 99 22 13 11 11 11 11 11 11 |:.......".......|
000008A0: 11 11 11 22 00 D4 10 00 05 99 22 98 20 41 4C 53 |..."......". ALS|
000008B0: 20 54 4F 45 54 53 20 43 20 57 4F 52 44 54 20 49 | TOETS C WORDT I|
000008C0: 4E 47 45 44 52 55 4B 54 20 57 41 54 20 47 45 42 |NGEDRUKT WAT GEB|
000008D0: 45 55 52 44 00 F1 10 14 05 99 22 20 45 52 20 44 |EURD......" ER D|
000008E0: 41 4E 20 3F 20 20 20 20 20 9A 31 20 4E 49 45 54 |AN ? .1 NIET|
000008F0: 53 00 0D 11 28 05 99 A3 31 34 29 22 32 20 53 50 |S...(...14)"2 SP|
00000900: 52 4F 4E 47 20 4E 41 41 52 20 32 30 30 00 29 11 |RONG NAAR 200.).|
00000910: 3C 05 99 A3 31 34 29 22 33 20 53 50 52 4F 4E 47 |<...14)"3 SPRONG|
00000920: 20 4E 41 41 52 20 33 30 30 00 44 11 50 05 99 A3 | NAAR 300.D.P...|
00000930: 31 34 29 22 34 20 53 50 52 4F 4E 47 20 4E 41 41 |14)"4 SPRONG NAA|
00000940: 52 20 31 30 00 78 11 64 05 85 22 98 20 57 45 4C |R 10.x.d..". WEL|
00000950: 4B 20 4E 55 4D 4D 45 52 20 28 31 2D 34 29 20 20 |K NUMMER (1-4) |
00000960: 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 22 3B 41 24 | .......";A$|
00000970: 3A 41 B2 C5 28 41 24 29 00 93 11 78 05 8B 41 B3 |:A..(A$)...x..A.|
00000980: 31 B0 41 B1 34 A7 99 22 91 91 91 91 22 3A 89 31 |1.A.4.."....":.1|
00000990: 33 38 30 00 A1 11 8C 05 8B 41 B2 33 A7 31 34 38 |380......A.3.148|
000009A0: 30 00 D0 11 A0 05 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 FD 11 B4 05 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 31 33 38 30 00 25 12 | ....":.1380.%.|
00000A00: C8 05 8D 32 34 30 3A 99 22 05 20 44 41 54 20 49 |...240:.". DAT I|
00000A10: 53 20 48 45 54 20 47 4F 45 44 45 20 41 4E 54 57 |S HET GOEDE ANTW|
00000A20: 4F 4F 52 44 22 00 51 12 DC 05 99 22 11 20 44 45 |OORD".Q....". DE|
00000A30: 20 41 53 43 49 49 20 43 4F 44 45 20 56 41 4E 20 | ASCII CODE VAN |
00000A40: 44 45 20 27 43 27 20 49 53 20 36 37 2C 20 44 41 |DE 'C' IS 67, DA|
00000A50: 4E 00 80 12 F0 05 99 22 11 20 57 4F 52 44 54 20 |N......". WORDT |
00000A60: 4E 41 41 52 20 48 45 54 20 44 45 52 44 45 20 41 |NAAR HET DERDE A|
00000A70: 44 52 45 53 20 49 4E 20 44 45 20 41 44 52 45 53 |DRES IN DE ADRES|
00000A80: 00 A9 12 04 06 99 22 11 20 4C 49 53 54 20 47 45 |......". LIST GE|
00000A90: 53 50 52 4F 4E 47 45 4E 20 20 28 20 36 37 A0 2D |SPRONGEN ( 67.-|
00000AA0: A0 36 34 20 3D 20 33 20 29 00 CB 12 18 06 8D 32 |.64 = 3 )......2|
00000AB0: 30 30 3A 99 22 1E 20 48 45 54 20 27 43 48 52 24 |00:.". HET 'CHR$|
00000AC0: 27 20 53 54 41 54 45 4D 45 4E 54 00 E7 12 2C 06 |' STATEMENT...,.|
00000AD0: 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |." .............|
00000AE0: C5 C5 C5 C5 C5 C5 C5 00 17 13 40 06 99 22 11 20 |..........@..". |
00000AF0: 48 45 54 20 27 43 48 52 24 27 20 53 54 41 54 45 |HET 'CHR$' STATE|
00000B00: 4D 45 4E 54 20 44 4F 45 54 20 48 45 54 20 56 4F |MENT DOET HET VO|
00000B10: 4C 47 45 4E 44 45 3A 00 42 13 54 06 99 22 20 48 |LGENDE:.B.T.." H|
00000B20: 45 54 20 4C 41 41 54 20 4D 49 4A 20 56 41 4E 20 |ET LAAT MIJ VAN |
00000B30: 45 45 4E 20 41 53 43 49 49 20 43 4F 44 45 20 45 |EEN ASCII CODE E|
00000B40: 45 4E 00 61 13 68 06 99 22 11 20 4B 41 52 41 4B |EN.a.h..". KARAK|
00000B50: 54 45 52 53 54 52 49 4E 47 20 4D 41 4B 45 4E 2E |TERSTRING MAKEN.|
00000B60: 11 00 6A 13 7C 06 8D 32 36 30 00 7E 13 90 06 99 |..j.|..260.~....|
00000B70: 22 9A 20 20 31 30 20 49 4E 50 55 54 20 41 00 97 |". 10 INPUT A..|
00000B80: 13 A4 06 99 22 20 20 32 30 20 50 52 49 4E 54 20 |...." 20 PRINT |
00000B90: 43 48 52 24 28 41 29 00 C3 13 B8 06 99 22 11 1E |CHR$(A)......"..|
00000BA0: 20 48 45 54 20 47 45 54 41 4C 20 41 20 4D 4F 45 | HET GETAL A MOE|
00000BB0: 54 20 49 4E 20 48 45 54 20 42 45 52 45 49 4B 20 |T IN HET BEREIK |
00000BC0: 56 41 4E 00 FF 13 CC 06 99 22 20 11 30 2D 32 35 |VAN......" .0-25|
00000BD0: 35 20 4C 49 47 47 45 4E 2E 20 57 45 20 47 41 41 |5 LIGGEN. WE GAA|
00000BE0: 4E 20 44 49 54 20 56 4F 4F 52 42 45 45 4C 44 20 |N DIT VOORBEELD |
00000BF0: 20 20 20 11 20 47 45 42 52 55 49 4B 45 4E 2E 00 | . GEBRUIKEN..|
00000C00: 2E 14 E0 06 85 22 11 05 20 47 45 45 46 20 41 22 |.....".. GEEF A"|
00000C10: 3B 41 24 3A 41 B2 B5 28 C5 28 41 24 29 29 3A 8B |;A$:A..(.(A$)):.|
00000C20: 41 B3 30 B0 41 B1 32 35 35 A7 8D 32 38 30 00 62 |A.0.A.255..280.b|
00000C30: 14 F4 06 99 C7 28 41 29 3A 97 51 31 2C 30 3A 85 |.....(A):.Q1,0:.|
00000C40: 22 20 4E 4F 47 20 45 45 4E 20 4B 45 45 52 22 3B |" NOG EEN KEER";|
00000C50: 41 24 3A 8B C6 28 41 24 29 B3 B1 37 38 A7 31 37 |A$:..(A$)..78.17|
00000C60: 36 30 00 95 14 08 07 8D 32 34 30 3A 99 22 98 20 |60......240:.". |
00000C70: 4A 45 20 48 45 42 54 20 4E 55 20 47 45 5A 49 45 |JE HEBT NU GEZIE|
00000C80: 4E 20 57 41 54 20 4D 4F 47 45 4C 49 4A 4B 20 49 |N WAT MOGELIJK I|
00000C90: 53 20 4D 45 54 00 C4 14 1C 07 99 22 11 20 27 41 |S MET......". 'A|
00000CA0: 53 43 27 20 45 4E 20 27 43 48 52 24 27 2E 20 49 |SC' EN 'CHR$'. I|
00000CB0: 53 20 48 45 54 20 4A 45 20 4F 50 47 45 56 41 4C |S HET JE OPGEVAL|
00000CC0: 4C 45 4E 2C 00 F1 14 30 07 99 22 11 20 44 41 54 |LEN,...0..". DAT|
00000CD0: 20 4A 45 20 4D 45 54 20 27 43 48 52 24 27 20 4F | JE MET 'CHR$' O|
00000CE0: 4F 4B 20 4D 49 4A 4E 20 47 52 41 46 49 53 43 48 |OK MIJN GRAFISCH|
00000CF0: 45 00 18 15 44 07 99 22 11 20 4B 41 52 41 4B 54 |E...D..". KARAKT|
00000D00: 45 52 53 20 4B 55 4E 54 20 4C 41 54 45 4E 20 50 |ERS KUNT LATEN P|
00000D10: 52 49 4E 54 45 4E 20 3F 00 46 15 58 07 99 22 11 |RINTEN ?.F.X..".|
00000D20: 20 45 4E 20 48 45 42 20 4A 45 20 47 45 5A 49 45 | EN HEB JE GEZIE|
00000D30: 4E 20 57 41 54 20 45 52 20 47 45 42 45 55 52 44 |N WAT ER GEBEURD|
00000D40: 20 41 4C 53 20 41 00 6E 15 6C 07 99 22 11 20 4E | ALS A.n.l..". N|
00000D50: 45 47 41 54 49 45 46 20 4F 46 20 47 52 4F 54 45 |EGATIEF OF GROTE|
00000D60: 52 20 44 41 4E 20 32 35 35 20 49 53 20 3F 00 93 |R DAN 255 IS ?..|
00000D70: 15 80 07 85 22 11 98 20 4A 41 2F 4E 45 45 20 22 |....".. JA/NEE "|
00000D80: 3B 41 24 3A 8B C6 28 41 24 29 B3 B1 37 34 A7 31 |;A$:..(A$)..74.1|
00000D90: 37 36 30 00 C1 15 94 07 99 22 11 1E 20 44 41 54 |760......".. DAT|
00000DA0: 20 47 45 45 46 54 20 4C 45 55 4B 45 20 4D 4F 47 | GEEFT LEUKE MOG|
00000DB0: 45 4C 49 4A 4B 48 45 44 45 4E 20 4F 4D 20 4D 49 |ELIJKHEDEN OM MI|
00000DC0: 4A 00 ED 15 A8 07 99 22 11 20 41 4C 53 20 4A 45 |J......". ALS JE|
00000DD0: 20 57 41 54 20 4D 45 45 52 20 50 52 4F 47 52 41 | WAT MEER PROGRA|
00000DE0: 4D 4D 45 45 52 45 52 56 41 52 49 4E 47 00 1C 16 |MMEERERVARING...|
00000DF0: BC 07 99 22 11 20 48 45 42 54 20 42 2E 56 2E 20 |...". HEBT B.V. |
00000E00: 47 52 41 46 49 45 4B 45 4E 20 54 45 20 4C 41 54 |GRAFIEKEN TE LAT|
00000E10: 45 4E 20 42 45 52 45 4B 45 4E 45 4E 00 4A 16 D0 |EN BEREKENEN.J..|
00000E20: 07 99 22 11 20 45 4E 20 4D 2E 42 2E 56 2E 20 4D |..". EN M.B.V. M|
00000E30: 49 4A 4E 20 47 52 41 46 49 53 43 48 45 20 4B 41 |IJN GRAFISCHE KA|
00000E40: 52 41 4B 54 45 52 53 20 54 45 00 61 16 E4 07 99 |RAKTERS TE.a....|
00000E50: 22 11 20 4C 41 54 45 4E 20 54 45 4B 45 4E 45 4E |". LATEN TEKENEN|
00000E60: 2E 00 6A 16 F8 07 8D 32 30 30 00 98 16 0C 08 99 |..j....200......|
00000E70: 22 93 9E 20 20 3D 3D 3D 20 4E 4F 47 20 45 4E 4B |".. === NOG ENK|
00000E80: 45 4C 45 20 4C 45 55 4B 45 20 43 4F 4D 4D 41 4E |ELE LEUKE COMMAN|
00000E90: 44 4F 27 53 20 3D 3D 3D 00 C4 16 20 08 99 22 20 |DO'S ===... .." |
00000EA0: 20 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 3D 3D 3D 00 0D 17 34 08 99 22 11 9A 20 4C 49 |====...4..".. LI|
00000ED0: 53 54 20 31 30 22 3A 99 22 20 C5 C5 C5 C5 C5 C5 |ST 10":." ......|
00000EE0: C5 22 3A 99 22 20 4D 45 54 20 44 49 54 20 43 4F |.":." MET DIT CO|
00000EF0: 4D 4D 41 4E 44 4F 20 4B 55 4E 20 4A 45 20 52 45 |MMANDO KUN JE RE|
00000F00: 47 45 4C 20 31 30 20 4C 49 53 54 45 4E 00 52 17 |GEL 10 LISTEN.R.|
00000F10: 48 08 99 22 11 20 4C 49 53 54 20 31 30 2D 22 3A |H..". LIST 10-":|
00000F20: 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 22 3A 99 22 20 |." ........":." |
00000F30: 48 49 45 52 4D 45 45 20 4B 55 4E 20 4A 45 20 45 |HIERMEE KUN JE E|
00000F40: 45 4E 20 4C 49 53 54 49 4E 47 20 4B 52 49 4A 47 |EN LISTING KRIJG|
00000F50: 45 4E 00 69 17 5C 08 99 22 11 20 56 41 4E 41 46 |EN.i.\..". VANAF|
00000F60: 20 52 45 47 45 4C 20 31 30 00 B1 17 70 08 99 22 | REGEL 10...p.."|
00000F70: 11 11 20 4C 49 53 54 20 2D 31 30 22 3A 99 22 20 |.. LIST -10":." |
00000F80: C5 C5 C5 C5 C5 C5 C5 C5 22 3A 99 22 20 4E 55 20 |........":." NU |
00000F90: 4C 49 53 54 20 49 4B 20 41 4C 4C 45 20 52 45 47 |LIST IK ALLE REG|
00000FA0: 45 4C 53 20 54 4F 54 20 45 4E 20 4D 45 54 20 31 |ELS TOT EN MET 1|
00000FB0: 30 00 FC 17 84 08 99 22 11 11 20 4C 49 53 54 20 |0......".. LIST |
00000FC0: 31 30 2D 32 30 22 3A 99 22 20 C5 C5 C5 C5 C5 C5 |10-20":." ......|
00000FD0: C5 C5 C5 C5 22 3A 99 22 20 44 49 54 20 47 45 45 |....":." DIT GEE|
00000FE0: 46 54 20 45 45 4E 20 4C 49 53 54 49 4E 47 20 56 |FT EEN LISTING V|
00000FF0: 41 4E 20 31 30 20 54 2F 4D 20 32 30 00 05 18 98 |AN 10 T/M 20....|
00001000: 08 8D 32 30 30 00 21 18 AC 08 99 22 93 1E 20 52 |..200.!....".. R|
00001010: 55 4E 20 31 30 22 3A 99 22 20 C5 C5 C5 C5 C5 C5 |UN 10":." ......|
00001020: 22 00 50 18 C0 08 99 22 11 20 41 4C 53 20 4A 45 |".P....". ALS JE|
00001030: 20 4D 49 4A 20 4E 49 45 54 20 4F 50 20 44 45 20 | MIJ NIET OP DE |
00001040: 45 45 52 53 54 45 20 52 45 47 45 4C 20 56 41 4E |EERSTE REGEL VAN|
00001050: 00 7E 18 D4 08 99 22 11 20 45 45 4E 20 50 52 4F |.~....". EEN PRO|
00001060: 47 52 41 4D 4D 41 20 57 49 4C 54 20 4C 41 54 45 |GRAMMA WILT LATE|
00001070: 4E 20 42 45 47 49 4E 4E 45 4E 2C 44 41 4E 00 AE |N BEGINNEN,DAN..|
00001080: 18 E8 08 99 22 11 20 4B 55 4E 20 4A 45 20 4D 49 |....". KUN JE MI|
00001090: 4A 20 4F 50 20 42 4F 56 45 4E 53 54 41 41 4E 44 |J OP BOVENSTAAND|
000010A0: 45 20 57 49 4A 5A 45 20 4F 50 20 45 4C 4B 00 DA |E WIJZE OP ELK..|
000010B0: 18 FC 08 99 22 20 42 45 53 54 41 41 4E 44 20 52 |...." BESTAAND R|
000010C0: 45 47 45 4C 4E 55 4D 4D 45 52 20 4C 41 54 45 4E |EGELNUMMER LATEN|
000010D0: 20 42 45 47 49 4E 4E 45 4E 2E 00 0A 19 10 09 99 | BEGINNEN.......|
000010E0: 22 11 98 20 45 45 4E 20 4E 49 45 54 20 42 45 53 |".. EEN NIET BES|
000010F0: 54 41 41 4E 44 20 52 45 47 45 4C 4E 55 4D 4D 45 |TAAND REGELNUMME|
00001100: 52 20 47 45 45 46 54 20 44 45 00 28 19 24 09 99 |R GEEFT DE.(.$..|
00001110: 22 11 20 56 4F 4C 47 45 4E 44 45 20 46 4F 55 54 |". VOLGENDE FOUT|
00001120: 4D 45 4C 44 49 4E 47 3A 00 38 19 38 09 81 4E B2 |MELDING:.8.8..N.|
00001130: 31 A4 54 32 AC 32 3A 82 00 68 19 4C 09 99 22 11 |1.T2.2:..h.L..".|
00001140: 05 3F 55 4E 44 45 46 27 44 20 53 54 41 54 45 4D |.?UNDEF'D STATEM|
00001150: 45 4E 54 20 45 52 52 4F 52 22 3A 99 22 52 45 41 |ENT ERROR":."REA|
00001160: 44 59 22 3A 8D 33 30 30 00 94 19 60 09 99 22 11 |DY":.300...`..".|
00001170: 1E 20 44 45 5A 45 20 46 4F 55 54 4D 45 4C 44 49 |. DEZE FOUTMELDI|
00001180: 4E 47 20 47 45 4C 44 54 20 56 4F 4F 52 20 49 45 |NG GELDT VOOR IE|
00001190: 44 45 52 45 00 CE 19 74 09 99 22 11 20 56 45 52 |DERE...t..". VER|
000011A0: 57 49 4A 5A 49 4E 47 20 4E 41 41 52 20 45 45 4E |WIJZING NAAR EEN|
000011B0: 20 4E 49 45 54 20 42 45 53 54 41 41 4E 44 45 20 | NIET BESTAANDE |
000011C0: 20 20 20 20 20 11 52 45 47 45 4C 2E 22 3B 00 DC | .REGEL.";..|
000011D0: 19 88 09 99 22 13 22 3A 8D 32 30 30 00 10 1A 9C |....".":.200....|
000011E0: 09 99 22 98 93 11 11 11 11 11 11 20 57 49 4C 20 |.."........ WIL |
000011F0: 4A 45 20 44 45 5A 45 20 4C 45 53 20 4E 4F 47 20 |JE DEZE LES NOG |
00001200: 45 45 4E 53 20 44 4F 4F 52 4E 45 4D 45 4E 20 3F |EENS DOORNEMEN ?|
00001210: 00 24 1A B0 09 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.$....A$:.A$."".|
00001220: 32 34 38 30 00 33 1A C4 09 8B 41 24 B3 B1 22 4E |2480.3....A$.."N|
00001230: 22 A7 8A 00 56 1A D8 09 8F 20 50 52 49 4E 54 22 |"...V.... PRINT"|
00001240: 11 99 20 43 4C 4F 41 44 20 44 41 4E 20 4E 55 20 |.. CLOAD DAN NU |
00001250: 4C 45 53 20 36 2E 00 5C 1A EC 09 80 00 00 00 |LES 6..\....... |
....D.Q1.198:.G(142).2.X.T1.1000:T2.T1.5
0:Q$.G(34).N....53280,14:.53281,6:.340.M
. ..Q1,0:.N.1.T1:.C$:.C$.""...S.......H.
."......................................
......................TOETS.".F....160..
....".";:.N.1.200:.:.......". VOORBEELD"
:." EEEEEEEEE":..0...."..?ILLEGAL QUANTI
TY ERROR IN 10":."READY..F.,..N.1.10:.N1
.1.200:.:.". ..";:.N1.1.200:.:." .";:..P
.@.A.0:.. .T.."... === NOG ENKELE STRIN
G STATEMENTS ===.M.H.." ===============
=====================...|..". ER ZIJN NO
G ENKELE 'STRING STATEMENTS'.+....". DIE
IN EERSTE INSTANTIE MISSCHIEN NIET.B...
.". ZO BELANGRIJK LIJKEN, MAAR HET TOCH
. ZIJN......."... DAT ZIJN: 'ASC' EN
'CHR$'....L.." EEEEE EEEEEE
.U...."... IK KEN ZE OP DE VOLGENDE MANI
EREN:......". STRING VARIABELE = CHR$ (N
UMM. VAR.).0....". NUMM. VARIABELE = AS
C (STRING VAR.).9....200.N.0.."... 1-AS
C (A$).`.D.." EEEEEEEEEE...X..".. IEDER
KARAKTER DAT IK KEN (OOK ALLE...L..". GR
AFISCHE) WORDT IN MIJN GEHEUGEN DOOR....
..". EEN BEPAALDE CODE VOORGESTELD......
..260:.".. 1 ASC ("Q$"A"Q$") = 65.0.
...". 2 ASC ("Q$"B"Q$") = 66.S....".
3 ASC ("Q$"Z"Q$") = 90.Z.P..". 4
ASC ("Q$"BCD"Q$") = 66 !!!......"... LET
OP VOORBEELD 4 !":.200.A....260:."..
10 A$= "Q$"ABC"Q$......". 20 PRINT ASC
(A$)... ..".. DIT PROGRAMMA ZAL HET GET
AL '65' .PRINTEN..H.4..". HET ASC
STATEMENT GEEFT MIJ DE OPDRACHT.T.H.."
DE CODE VAN HET EERSTE LETTER VAN DE...\
..". STRING TE BEPALEN. DIE CODE WORDT D
E...P..". 'ASCII' CODE GENOEMD......."..
WAT IS HET NUT VAN DEZE CODES ?......N.
1.T2:.:.". DAT KAN IK HET MAKKELIJKST ME
T EEN.@....". VOORBEELD UITLEGGEN.":.200
.T....260:.".. 10 GET C$ : IF C$ = "Q$
;Q$" THEN 10...T.." 20 C = ASC (C$)...
..." 30 IF C < 65 THEN 10.I...." 40
IF C > 70 THEN 10......" 50 ON C-64 GO
TO 100,200,300,400,500, 600...$..N
.1.T2:A.10:..D.8.."... REGEL 10 SCANT HE
T TOETSENBORD TOT ER.P.L..". EEN TOETS W
ORDT INGEDRUKT. REGEL 20...`..". MAAKT D
E ASCII CODE VAN DE INGEDRUKTE.I.T..". T
OETS. ALS DE ASCII WAARDE VAN HET......"
. KARAKTER KLEINER DAN 65 OF GROTER DAN.
<....". 70 IS DAN WORDT VAN REGEL 30 OF
40 NAAR. 10 TERUGGESPRONGEN..E....160._.
D.."..........":.N.1.14...X.."
";:.......
"..........".T....". ALS TOETS C WORDT I
NGEDRUKT WAT GEBEURD......" ER DAN ?
.1 NIETS...(...14)"2 SPRONG NAAR 200.).
<...14)"3 SPRONG NAAR 300.D.P...14)"4 SP
RONG NAAR 10.X.D..". WELK NUMMER (1-4)
.......";A$:A.E(A$)...X..A.1.A.4.."
....":.1380......A.3.1480.P. ..". NIET G
OED PROBEER OP NIEUW.":.N.1.T2:......."
....":.1380.%.
H..240:.". DAT IS HET GOEDE ANTWOORD".Q.
...". DE ASCII CODE VAN DE 'C' IS 67, DA
N......". WORDT NAAR HET DERDE ADRES IN
DE ADRES......". LIST GESPRONGEN ( 67 -
64 = 3 ).K....200:.". HET 'CHR$' STATEM
ENT...,.." EEEEEEEEEEEEEEEEEEEE...@..".
HET 'CHR$' STATEMENT DOET HET VOLGENDE:.
B.T.." HET LAAT MIJ VAN EEN ASCII CODE E
EN.A.H..". KARAKTERSTRING MAKEN...J.|..2
60.~....". 10 INPUT A......" 20 PRINT
CHR$(A).C....".. HET GETAL A MOET IN HET
BEREIK VAN...L.." .0-255 LIGGEN. WE GAA
N DIT VOORBEELD . GEBRUIKEN......."..
GEEF A";A$:A..(E(A$)):.A.0.A.255..280.B
....G(A):.Q1,0:." NOG EEN KEER";A$:.F(A$
)..78.1760......240:.". JE HEBT NU GEZIE
N WAT MOGELIJK IS MET.D....". 'ASC' EN '
CHR$'. IS HET JE OPGEVALLEN,...0..". DAT
JE MET 'CHR$' OOK MIJN GRAFISCHE...D.."
. KARAKTERS KUNT LATEN PRINTEN ?.F.X..".
EN HEB JE GEZIEN WAT ER GEBEURD ALS A.N
.L..". NEGATIEF OF GROTER DAN 255 IS ?..
....".. JA/NEE ";A$:.F(A$)..74.1760.A...
.".. DAT GEEFT LEUKE MOGELIJKHEDEN OM MI
J......". ALS JE WAT MEER PROGRAMMEERERV
ARING......". HEBT B.V. GRAFIEKEN TE LAT
EN BEREKENEN.J.P..". EN M.B.V. MIJN GRAF
ISCHE KARAKTERS TE.A....". LATEN TEKENEN
..J....200......".. === NOG ENKELE LEUK
E COMMANDO'S ===.D. .." ===============
====================...4..".. LIST 10":.
" EEEEEEE":." MET DIT COMMANDO KUN JE RE
GEL 10 LISTEN.R.H..". LIST 10-":." EEEEE
EEE":." HIERMEE KUN JE EEN LISTING KRIJG
EN.I.\..". VANAF REGEL 10...P..".. LIST
-10":." EEEEEEEE":." NU LIST IK ALLE REG
ELS TOT EN MET 10......".. LIST 10-20":.
" EEEEEEEEEE":." DIT GEEFT EEN LISTING V
AN 10 T/M 20......200.!....".. RUN 10":.
" EEEEEE".P....". ALS JE MIJ NIET OP DE
EERSTE REGEL VAN.~.T..". EEN PROGRAMMA W
ILT LATEN BEGINNEN,DAN......". KUN JE MI
J OP BOVENSTAANDE WIJZE OP ELK.Z...." BE
STAAND REGELNUMMER LATEN BEGINNEN.......
".. EEN NIET BESTAAND REGELNUMMER GEEFT
DE.(.$..". VOLGENDE FOUTMELDING:.8.8..N.
1.T2.2:..H.L.."..?UNDEF'D STATEMENT ERRO
R":."READY":.300...`..".. DEZE FOUTMELDI
NG GELDT VOOR IEDERE.N.T..". VERWIJZING
NAAR EEN NIET BESTAANDE .REGEL.";..
....".":.200......"........ WIL JE DEZE
LES NOG EENS DOORNEMEN ?.$....A$:.A$."".
2480.3.D..A$.."N"...V.X.. PRINT".. CLOAD
DAN NU LES 6..\.......
> CLICK IMAGE PREVIEW FOR FULL MODAL