BASICLES 4
FILE INFORMATION
FILENAME(S): BASICLES 4
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-30 21:05:33
APPEARS ON: 1 disk(s)
FILE HASH
9f08c96e0c4e1c72d9d69ef9013d09bc03a8ce4f8f05a004102864f4efc23cfa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RTYUI | BASICLES 4 | PRG | DuncanTwain | 20 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 5A 00 97 35 33 32 38 30 2C 36 3A 97 |....Z..53280,6:.|
00000010: 35 33 32 38 31 2C 36 3A 99 C7 28 31 34 29 00 29 |53281,6:..(14).)|
00000020: 08 64 00 8D 20 35 30 30 30 00 48 08 65 00 54 31 |.d.. 5000.H.e.T1|
00000030: B2 31 30 30 30 30 3A 54 32 B2 54 31 AD 35 30 3A |.10000:T2.T1.50:|
00000040: 51 24 B2 C7 28 33 34 29 00 51 08 66 00 89 31 31 |Q$..(34).Q.f..11|
00000050: 38 00 6A 08 67 00 81 4E B2 31 A4 54 31 3A A1 43 |8.j.g..N.1.T1:.C|
00000060: 24 3A 8B 43 24 B2 22 22 A7 82 00 70 08 68 00 8E |$:.C$.""...p.h..|
00000070: 00 79 08 69 00 8D 31 30 33 00 90 08 6A 00 99 22 |.y.i..103...j.."|
00000080: 93 22 3B 3A 81 4E B2 31 A4 32 30 30 3A 82 3A 8E |.";:.N.1.200:.:.|
00000090: 00 B0 08 6B 00 99 22 56 4F 4F 52 42 45 45 4C 44 |...k.."VOORBEELD|
000000A0: 22 3A 99 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 3A 8E |":.".........":.|
000000B0: 00 DF 08 6C 00 99 22 11 3F 49 4C 4C 45 47 41 4C |...l..".?ILLEGAL|
000000C0: 20 51 55 41 4E 54 49 54 59 20 45 52 52 4F 52 20 | QUANTITY ERROR |
000000D0: 49 4E 20 31 30 22 3A 99 22 52 45 41 44 59 2E 00 |IN 10":."READY..|
000000E0: 15 09 6D 00 81 4E B2 31 A4 31 30 3A 81 4E 31 B2 |..m..N.1.10:.N1.|
000000F0: 31 A4 32 30 30 3A 82 3A 99 22 12 20 92 9D 22 3B |1.200:.:.". ..";|
00000100: 3A 81 4E 31 B2 31 A4 32 30 30 3A 82 3A 99 22 20 |:.N1.1.200:.:." |
00000110: 9D 22 3B 3A 82 00 1F 09 6E 00 41 B2 30 3A 8E 00 |.";:....n.A.0:..|
00000120: 4F 09 76 00 99 22 93 11 11 20 20 3D 3D 3D 20 4E |O.v.."... === N|
00000130: 4F 47 20 45 4E 4B 45 4C 45 20 53 54 52 49 4E 47 |OG ENKELE STRING|
00000140: 20 53 54 41 54 45 4D 45 4E 54 53 20 3D 3D 3D 00 | STATEMENTS ===.|
00000150: 7C 09 77 00 99 22 20 20 3D 3D 3D 3D 3D 3D 3D 3D ||.w.." ========|
00000160: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000170: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 AB 09 78 |============...x|
00000180: 00 99 22 11 20 45 52 20 5A 49 4A 4E 20 4E 4F 47 |..". ER ZIJN NOG|
00000190: 20 45 4E 4B 45 4C 45 20 27 53 54 52 49 4E 47 20 | ENKELE 'STRING |
000001A0: 53 54 41 54 45 4D 45 4E 54 53 27 00 D9 09 82 00 |STATEMENTS'.....|
000001B0: 99 22 11 44 49 45 20 49 4E 20 45 45 52 53 54 45 |.".DIE IN EERSTE|
000001C0: 20 49 4E 53 54 41 4E 54 49 45 20 4D 49 53 53 43 | INSTANTIE MISSC|
000001D0: 48 49 45 4E 20 4E 49 45 54 00 09 0A 8C 00 99 22 |HIEN NIET......"|
000001E0: 11 5A 4F 20 42 45 4C 41 4E 47 52 49 4A 4B 20 4C |.ZO BELANGRIJK L|
000001F0: 49 4A 4B 45 4E 2C 20 4D 41 41 52 20 48 45 54 20 |IJKEN, MAAR HET |
00000200: 54 4F 43 48 20 5A 49 4A 4E 00 2A 0A 96 00 99 22 |TOCH ZIJN.*...."|
00000210: 11 44 41 54 20 5A 49 4A 4E 3A 20 27 41 53 43 27 |.DAT ZIJN: 'ASC'|
00000220: 20 45 4E 20 27 43 48 52 24 27 00 4A 0A 9B 00 99 | EN 'CHR$'.J....|
00000230: 22 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 B7 B7 B7 B7 B7 |"...............|
00000240: 20 20 20 20 B7 B7 B7 B7 B7 B7 00 75 0A A0 00 99 | .......u....|
00000250: 22 11 11 49 4B 20 4B 45 4E 20 5A 45 20 4F 50 20 |"..IK KEN ZE OP |
00000260: 44 45 20 56 4F 4C 47 45 4E 44 45 20 4D 41 4E 49 |DE VOLGENDE MANI|
00000270: 45 52 45 4E 3A 00 A1 0A AA 00 99 22 11 53 54 52 |EREN:......".STR|
00000280: 49 4E 47 20 56 41 52 49 41 42 45 4C 45 20 3D 20 |ING VARIABELE = |
00000290: 43 48 52 24 20 28 4E 55 4D 4D 2E 20 56 41 52 2E |CHR$ (NUMM. VAR.|
000002A0: 29 00 CE 0A B4 00 99 22 11 4E 55 4D 4D 2E 20 56 |)......".NUMM. V|
000002B0: 41 52 49 41 42 45 4C 45 20 20 3D 20 41 53 43 20 |ARIABELE = ASC |
000002C0: 20 28 53 54 52 49 4E 47 20 56 41 52 2E 29 00 D7 | (STRING VAR.)..|
000002D0: 0A BE 00 8D 31 30 35 00 E8 0A C8 00 99 22 31 2D |....105......"1-|
000002E0: 41 53 43 20 28 41 24 29 00 F9 0A D2 00 99 22 B7 |ASC (A$)......".|
000002F0: B7 B7 B7 B7 B7 B7 B7 B7 B7 00 24 0B DC 00 99 22 |..........$...."|
00000300: 11 49 45 44 45 52 20 4B 41 52 41 4B 54 45 52 20 |.IEDER KARAKTER |
00000310: 44 41 54 20 49 4B 20 4B 45 4E 20 28 4F 4F 4B 20 |DAT IK KEN (OOK |
00000320: 41 4C 4C 45 00 52 0B E6 00 99 22 11 47 52 41 46 |ALLE.R....".GRAF|
00000330: 49 53 43 48 45 29 20 57 4F 52 44 54 20 49 4E 20 |ISCHE) WORDT IN |
00000340: 4D 49 4A 4E 20 47 45 48 45 55 47 45 4E 20 44 4F |MIJN GEHEUGEN DO|
00000350: 4F 52 00 79 0B F0 00 99 22 11 45 45 4E 20 42 45 |OR.y....".EEN BE|
00000360: 50 41 41 4C 44 45 20 43 4F 44 45 20 56 4F 4F 52 |PAALDE CODE VOOR|
00000370: 47 45 53 54 45 4C 44 2E 11 00 A1 0B FA 00 8D 31 |GESTELD........1|
00000380: 30 37 3A 99 22 11 20 20 31 20 20 41 53 43 20 20 |07:.". 1 ASC |
00000390: 28 22 51 24 22 41 22 51 24 22 29 20 20 3D 20 36 |("Q$"A"Q$") = 6|
000003A0: 35 00 C4 0B 04 01 99 22 11 20 20 32 20 20 41 53 |5......". 2 AS|
000003B0: 43 20 20 28 22 51 24 22 42 22 51 24 22 29 20 20 |C ("Q$"B"Q$") |
000003C0: 3D 20 36 36 00 E7 0B 0E 01 99 22 11 20 20 33 20 |= 66......". 3 |
000003D0: 20 41 53 43 20 20 28 22 51 24 22 5A 22 51 24 22 | ASC ("Q$"Z"Q$"|
000003E0: 29 20 20 3D 20 39 30 00 0E 0C 18 01 99 22 11 20 |) = 90......". |
000003F0: 20 34 20 20 41 53 43 A0 28 22 51 24 22 42 43 44 | 4 ASC.("Q$"BCD|
00000400: 22 51 24 22 29 20 3D 20 36 36 20 21 21 21 00 31 |"Q$") = 66 !!!.1|
00000410: 0C 22 01 99 22 11 11 4C 45 54 20 4F 50 20 56 4F |.".."..LET OP VO|
00000420: 4F 52 42 45 45 4C 44 20 34 20 21 22 3A 8D 31 30 |ORBEELD 4 !":.10|
00000430: 35 00 52 0C 2C 01 8D 31 30 37 3A 99 22 11 20 20 |5.R.,..107:.". |
00000440: 20 31 30 20 41 24 3D 20 22 51 24 22 41 42 43 22 | 10 A$= "Q$"ABC"|
00000450: 51 24 00 6E 0C 36 01 99 22 11 20 20 20 32 30 20 |Q$.n.6..". 20 |
00000460: 50 52 49 4E 54 20 41 53 43 20 28 41 24 29 00 9F |PRINT ASC (A$)..|
00000470: 0C 40 01 99 22 11 11 44 49 54 20 50 52 4F 47 52 |.@.."..DIT PROGR|
00000480: 41 4D 4D 41 20 5A 41 4C 20 48 45 54 20 47 45 54 |AMMA ZAL HET GET|
00000490: 41 4C 20 27 36 35 27 20 50 52 49 4E 54 45 4E 00 |AL '65' PRINTEN.|
000004A0: CD 0C 4A 01 99 22 48 45 54 20 41 53 43 20 53 54 |..J.."HET ASC ST|
000004B0: 41 54 45 4D 45 4E 54 20 47 45 45 46 54 20 4D 49 |ATEMENT GEEFT MI|
000004C0: 4A 20 44 45 20 4F 50 44 52 41 43 48 54 00 F9 0C |J DE OPDRACHT...|
000004D0: 54 01 99 22 11 44 45 20 43 4F 44 45 20 56 41 4E |T..".DE CODE VAN|
000004E0: 20 48 45 54 20 45 45 52 53 54 45 20 4C 45 54 54 | HET EERSTE LETT|
000004F0: 45 52 20 56 41 4E 20 44 45 00 25 0D 5E 01 99 22 |ER VAN DE.%.^.."|
00000500: 11 53 54 52 49 4E 47 20 54 45 20 42 45 50 41 4C |.STRING TE BEPAL|
00000510: 45 4E 2E 20 44 49 45 20 43 4F 44 45 20 57 4F 52 |EN. DIE CODE WOR|
00000520: 44 54 20 44 45 00 42 0D 68 01 99 22 11 27 41 53 |DT DE.B.h..".'AS|
00000530: 43 49 49 27 20 43 4F 44 45 20 47 45 4E 4F 45 4D |CII' CODE GENOEM|
00000540: 44 2E 00 69 0D 72 01 99 22 11 57 41 54 20 49 53 |D..i.r..".WAT IS|
00000550: 20 48 45 54 20 4E 55 54 20 56 41 4E 20 44 45 5A | HET NUT VAN DEZ|
00000560: 45 20 43 4F 44 45 53 20 3F 00 9D 0D 7C 01 81 4E |E CODES ?...|..N|
00000570: B2 31 A4 54 32 3A 82 3A 99 22 11 44 41 54 20 4B |.1.T2:.:.".DAT K|
00000580: 41 4E 20 49 4B 20 48 45 54 20 4D 41 4B 4B 45 4C |AN IK HET MAKKEL|
00000590: 49 4A 4B 53 54 20 4D 45 54 20 45 45 4E 00 BE 0D |IJKST MET EEN...|
000005A0: 86 01 99 22 11 56 4F 4F 52 42 45 45 4C 44 20 55 |...".VOORBEELD U|
000005B0: 49 54 4C 45 47 47 45 4E 22 3A 8D 31 30 35 00 F1 |ITLEGGEN":.105..|
000005C0: 0D 90 01 8D 31 30 37 3A 99 22 11 20 20 20 31 30 |....107:.". 10|
000005D0: 20 47 45 54 20 43 24 20 3A 20 49 46 20 43 24 20 | GET C$ : IF C$ |
000005E0: 3D 20 22 51 24 3B 51 24 22 20 54 48 45 4E 20 31 |= "Q$;Q$" THEN 1|
000005F0: 30 00 0A 0E 9A 01 99 22 20 20 20 32 30 20 43 20 |0......" 20 C |
00000600: 3D 20 41 53 43 20 28 43 24 29 00 28 0E 9F 01 99 |= ASC (C$).(....|
00000610: 22 20 20 20 33 30 20 49 46 20 43 20 3C 20 36 35 |" 30 IF C < 65|
00000620: 20 54 48 45 4E 20 31 30 00 46 0E A4 01 99 22 20 | THEN 10.F...." |
00000630: 20 20 34 30 20 49 46 20 43 20 3E 20 37 30 20 54 | 40 IF C > 70 T|
00000640: 48 45 4E 20 31 30 00 7E 0E AE 01 99 22 20 20 20 |HEN 10.~...." |
00000650: 35 30 20 4F 4E 20 43 2D 36 34 20 47 4F 54 4F 20 |50 ON C-64 GOTO |
00000660: 31 31 38 2C 32 30 30 2C 33 30 30 2C 34 30 30 2C |118,200,300,400,|
00000670: 35 30 30 2C 20 20 20 20 20 20 20 36 30 30 00 91 |500, 600..|
00000680: 0E B8 01 81 4E B2 31 A4 54 32 3A 41 B2 31 30 3A |....N.1.T2:A.10:|
00000690: 82 00 BF 0E C2 01 99 22 11 11 52 45 47 45 4C 20 |......."..REGEL |
000006A0: 31 30 20 53 43 41 4E 54 20 48 45 54 20 54 4F 45 |10 SCANT HET TOE|
000006B0: 54 53 45 4E 42 4F 52 44 20 54 4F 54 20 45 52 00 |TSENBORD TOT ER.|
000006C0: EA 0E CC 01 99 22 11 45 45 4E 20 54 4F 45 54 53 |.....".EEN TOETS|
000006D0: 20 57 4F 52 44 54 20 49 4E 47 45 44 52 55 4B 54 | WORDT INGEDRUKT|
000006E0: 2E 20 52 45 47 45 4C 20 32 30 00 17 0F D6 01 99 |. REGEL 20......|
000006F0: 22 11 4D 41 41 4B 54 20 44 45 20 41 53 43 49 49 |".MAAKT DE ASCII|
00000700: 20 43 4F 44 45 20 56 41 4E 20 44 45 20 49 4E 47 | CODE VAN DE ING|
00000710: 45 44 52 55 4B 54 45 00 41 0F E0 01 99 22 11 54 |EDRUKTE.A....".T|
00000720: 4F 45 54 53 2E 20 41 4C 53 20 44 45 20 41 53 43 |OETS. ALS DE ASC|
00000730: 49 49 20 57 41 41 52 44 45 20 56 41 4E 20 48 45 |II WAARDE VAN HE|
00000740: 54 00 71 0F EA 01 99 22 11 4B 41 52 41 4B 54 45 |T.q....".KARAKTE|
00000750: 52 20 4B 4C 45 49 4E 45 52 20 44 41 4E 20 36 35 |R KLEINER DAN 65|
00000760: 20 4F 46 20 47 52 4F 54 45 52 20 44 41 4E 20 37 | OF GROTER DAN 7|
00000770: 30 00 B3 0F F4 01 99 22 49 53 20 44 41 4E 20 57 |0......"IS DAN W|
00000780: 4F 52 44 54 20 56 41 4E 20 52 45 47 45 4C 20 33 |ORDT VAN REGEL 3|
00000790: 30 20 4F 46 20 34 30 20 4E 41 41 52 20 20 20 20 |0 OF 40 NAAR |
000007A0: 11 31 30 20 54 45 52 55 47 47 45 53 50 52 4F 4E |.10 TERUGGESPRON|
000007B0: 47 45 4E 00 BC 0F FE 01 8D 31 30 33 00 D6 0F 08 |GEN......103....|
000007C0: 02 99 22 13 11 11 11 11 11 11 11 11 11 22 3A 81 |.."..........":.|
000007D0: 4E B2 31 A4 31 34 00 09 10 12 02 99 22 20 20 20 |N.1.14......" |
000007E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000800: 20 20 20 20 20 22 3B 3A 82 00 1B 10 1C 02 99 22 | ";:......."|
00000810: 13 11 11 11 11 11 11 11 11 11 22 00 49 10 26 02 |..........".I.&.|
00000820: 99 22 41 4C 53 20 54 4F 45 54 53 20 43 20 57 4F |."ALS TOETS C WO|
00000830: 52 44 54 20 49 4E 47 45 44 52 55 4B 54 20 57 41 |RDT INGEDRUKT WA|
00000840: 54 20 47 45 42 45 55 52 44 00 65 10 30 02 99 22 |T GEBEURD.e.0.."|
00000850: 45 52 20 44 41 4E 20 3F 20 20 20 20 20 20 31 20 |ER DAN ? 1 |
00000860: 4E 49 45 54 53 00 81 10 3A 02 99 A3 31 34 29 22 |NIETS...:...14)"|
00000870: 32 20 53 50 52 4F 4E 47 20 4E 41 41 52 20 32 30 |2 SPRONG NAAR 20|
00000880: 30 00 9D 10 44 02 99 A3 31 34 29 22 33 20 53 50 |0...D...14)"3 SP|
00000890: 52 4F 4E 47 20 4E 41 41 52 20 33 30 30 00 B8 10 |RONG NAAR 300...|
000008A0: 4E 02 99 A3 31 34 29 22 34 20 53 50 52 4F 4E 47 |N...14)"4 SPRONG|
000008B0: 20 4E 41 41 52 20 31 30 00 EA 10 58 02 85 22 57 | NAAR 10...X.."W|
000008C0: 45 4C 4B 20 4E 55 4D 4D 45 52 20 28 31 2D 34 29 |ELK NUMMER (1-4)|
000008D0: 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 22 3B | .......";|
000008E0: 41 24 3A 41 B2 C5 28 41 24 29 00 04 11 62 02 8B |A$:A..(A$)...b..|
000008F0: 41 B3 31 B0 41 B1 34 A7 99 22 91 91 91 91 22 3A |A.1.A.4.."....":|
00000900: 89 36 30 30 00 11 11 6C 02 8B 41 B2 33 A7 37 30 |.600...l..A.3.70|
00000910: 30 00 3E 11 76 02 99 22 4E 49 45 54 20 47 4F 45 |0.>.v.."NIET GOE|
00000920: 44 20 50 52 4F 42 45 45 52 20 4F 50 20 4E 49 45 |D PROBEER OP NIE|
00000930: 55 57 91 22 3A 81 4E B2 31 A4 54 32 3A 82 00 69 |UW.":.N.1.T2:..i|
00000940: 11 80 02 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
00000950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 | .|
00000960: 91 91 91 22 3A 89 36 30 30 00 8F 11 BC 02 8D 31 |...":.600......1|
00000970: 30 36 3A 99 22 44 41 54 20 49 53 20 48 45 54 20 |06:."DAT IS HET |
00000980: 47 4F 45 44 45 20 41 4E 54 57 4F 4F 52 44 22 00 |GOEDE ANTWOORD".|
00000990: BA 11 C6 02 99 22 11 44 45 20 41 53 43 49 49 20 |.....".DE ASCII |
000009A0: 43 4F 44 45 20 56 41 4E 20 44 45 20 27 43 27 20 |CODE VAN DE 'C' |
000009B0: 49 53 20 36 37 2C 20 44 41 4E 00 E8 11 D0 02 99 |IS 67, DAN......|
000009C0: 22 11 57 4F 52 44 54 20 4E 41 41 52 20 48 45 54 |".WORDT NAAR HET|
000009D0: 20 44 45 52 44 45 20 41 44 52 45 53 20 49 4E 20 | DERDE ADRES IN |
000009E0: 44 45 20 41 44 52 45 53 00 10 12 DA 02 99 22 11 |DE ADRES......".|
000009F0: 4C 49 53 54 20 47 45 53 50 52 4F 4E 47 45 4E 20 |LIST GESPRONGEN |
00000A00: 20 28 20 36 37 A0 2D A0 36 34 20 3D 20 33 20 29 | ( 67.-.64 = 3 )|
00000A10: 00 30 12 E4 02 8D 31 30 35 3A 99 22 48 45 54 20 |.0....105:."HET |
00000A20: 27 43 48 52 24 27 20 53 54 41 54 45 4D 45 4E 54 |'CHR$' STATEMENT|
00000A30: 00 4B 12 EE 02 99 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 |.K....".........|
00000A40: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 00 7A 12 F8 02 |............z...|
00000A50: 99 22 11 48 45 54 20 27 43 48 52 24 27 20 53 54 |.".HET 'CHR$' ST|
00000A60: 41 54 45 4D 45 4E 54 20 44 4F 45 54 20 48 45 54 |ATEMENT DOET HET|
00000A70: 20 56 4F 4C 47 45 4E 44 45 3A 00 A5 12 02 03 99 | VOLGENDE:......|
00000A80: 22 11 48 45 54 20 4C 41 41 54 20 4D 49 4A 20 56 |".HET LAAT MIJ V|
00000A90: 41 4E 20 45 45 4E 20 41 53 43 49 49 20 43 4F 44 |AN EEN ASCII COD|
00000AA0: 45 20 45 45 4E 00 C2 12 0C 03 99 22 11 4B 41 52 |E EEN......".KAR|
00000AB0: 41 4B 54 45 52 53 54 52 49 4E 47 20 4D 41 4B 45 |AKTERSTRING MAKE|
00000AC0: 4E 11 00 CB 12 16 03 8D 31 30 37 00 DE 12 20 03 |N.......107... .|
00000AD0: 99 22 20 20 31 30 20 49 4E 50 55 54 20 41 00 F7 |." 10 INPUT A..|
00000AE0: 12 2A 03 99 22 20 20 32 30 20 50 52 49 4E 54 20 |.*.." 20 PRINT |
00000AF0: 43 48 52 24 28 41 29 00 27 13 3E 03 99 22 11 48 |CHR$(A).'.>..".H|
00000B00: 45 54 20 47 45 54 41 4C 20 41 20 4D 4F 45 54 20 |ET GETAL A MOET |
00000B10: 49 4E 20 48 45 54 20 42 45 52 45 49 4B 20 56 41 |IN HET BEREIK VA|
00000B20: 4E 20 30 2D 32 35 35 00 55 13 48 03 99 22 4C 49 |N 0-255.U.H.."LI|
00000B30: 47 47 45 4E 2E 20 57 45 20 47 41 41 4E 20 44 49 |GGEN. WE GAAN DI|
00000B40: 54 20 56 4F 4F 52 42 45 45 4C 44 20 47 45 42 52 |T VOORBEELD GEBR|
00000B50: 55 49 4B 45 4E 00 82 13 52 03 85 22 11 47 45 45 |UIKEN...R..".GEE|
00000B60: 46 20 41 22 3B 41 24 3A 41 B2 B5 28 C5 28 41 24 |F A";A$:A..(.(A$|
00000B70: 29 29 3A 8B 41 B3 30 B0 41 B1 32 35 35 A7 8D 31 |)):.A.0.A.255..1|
00000B80: 30 38 00 B5 13 5C 03 99 C7 28 41 29 3A 97 35 32 |08...\...(A):.52|
00000B90: 35 2C 30 3A 85 22 4E 4F 47 20 45 45 4E 20 4B 45 |5,0:."NOG EEN KE|
00000BA0: 45 52 22 3B 41 24 3A 8B C6 28 41 24 29 B3 B1 37 |ER";A$:..(A$)..7|
00000BB0: 38 A7 38 35 30 00 E6 13 66 03 8D 31 30 36 3A 99 |8.850...f..106:.|
00000BC0: 22 4A 45 20 48 45 42 54 20 4E 55 20 47 45 5A 49 |"JE HEBT NU GEZI|
00000BD0: 45 4E 20 57 41 54 20 4D 4F 47 45 4C 49 4A 4B 20 |EN WAT MOGELIJK |
00000BE0: 49 53 20 4D 45 54 00 14 14 70 03 99 22 11 27 41 |IS MET...p..".'A|
00000BF0: 53 43 27 20 45 4E 20 27 43 48 52 24 27 2E 20 49 |SC' EN 'CHR$'. I|
00000C00: 53 20 48 45 54 20 4A 45 20 4F 50 47 45 56 41 4C |S HET JE OPGEVAL|
00000C10: 4C 45 4E 2C 00 40 14 7A 03 99 22 11 44 41 54 20 |LEN,.@.z..".DAT |
00000C20: 4A 45 20 4D 45 54 20 27 43 48 52 24 27 20 4F 4F |JE MET 'CHR$' OO|
00000C30: 4B 20 4D 49 4A 4E 20 47 52 41 46 49 53 43 48 45 |K MIJN GRAFISCHE|
00000C40: 00 66 14 84 03 99 22 11 4B 41 52 41 4B 54 45 52 |.f....".KARAKTER|
00000C50: 53 20 4B 55 4E 54 20 4C 41 54 45 4E 20 50 52 49 |S KUNT LATEN PRI|
00000C60: 4E 54 45 4E 20 3F 00 93 14 89 03 99 22 11 45 4E |NTEN ?......".EN|
00000C70: 20 48 45 42 20 4A 45 20 47 45 5A 49 45 4E 20 57 | HEB JE GEZIEN W|
00000C80: 41 54 20 45 52 20 47 45 42 45 55 52 44 20 41 4C |AT ER GEBEURD AL|
00000C90: 53 20 41 00 BA 14 8A 03 99 22 11 4E 45 47 41 54 |S A......".NEGAT|
00000CA0: 49 45 46 20 4F 46 20 47 52 4F 54 45 52 20 44 41 |IEF OF GROTER DA|
00000CB0: 4E 20 32 35 35 20 49 53 20 3F 00 DD 14 8E 03 85 |N 255 IS ?......|
00000CC0: 22 11 20 4A 41 2F 4E 45 45 20 22 3B 41 24 3A 8B |". JA/NEE ";A$:.|
00000CD0: C6 28 41 24 29 B3 B1 37 34 A7 38 35 30 00 09 15 |.(A$)..74.850...|
00000CE0: 98 03 99 22 11 44 41 54 20 47 45 45 46 54 20 4C |...".DAT GEEFT L|
00000CF0: 45 55 4B 45 20 4D 4F 47 45 4C 49 4A 4B 48 45 44 |EUKE MOGELIJKHED|
00000D00: 45 4E 20 4F 4D 20 4D 49 4A 00 34 15 A2 03 99 22 |EN OM MIJ.4...."|
00000D10: 11 41 4C 53 20 4A 45 20 57 41 54 20 4D 45 45 52 |.ALS JE WAT MEER|
00000D20: 20 50 52 4F 47 52 41 4D 4D 45 45 52 45 52 56 41 | PROGRAMMEERERVA|
00000D30: 52 49 4E 47 00 62 15 AC 03 99 22 11 48 45 42 54 |RING.b....".HEBT|
00000D40: 20 42 2E 56 2E 20 47 52 41 46 49 45 4B 45 4E 20 | B.V. GRAFIEKEN |
00000D50: 54 45 20 4C 41 54 45 4E 20 42 45 52 45 4B 45 4E |TE LATEN BEREKEN|
00000D60: 45 4E 00 8F 15 B6 03 99 22 11 45 4E 20 4D 2E 42 |EN......".EN M.B|
00000D70: 2E 56 2E 20 4D 49 4A 4E 20 47 52 41 46 49 53 43 |.V. MIJN GRAFISC|
00000D80: 48 45 20 4B 41 52 41 4B 54 45 52 53 20 54 45 00 |HE KARAKTERS TE.|
00000D90: A5 15 C0 03 99 22 11 4C 41 54 45 4E 20 54 45 4B |.....".LATEN TEK|
00000DA0: 45 4E 45 4E 2E 00 AE 15 CA 03 8D 31 30 35 00 DB |ENEN.......105..|
00000DB0: 15 E8 03 99 22 93 20 20 3D 3D 3D 20 4E 4F 47 20 |....". === NOG |
00000DC0: 45 4E 4B 45 4C 45 20 4C 45 55 4B 45 20 43 4F 4D |ENKELE LEUKE COM|
00000DD0: 4D 41 4E 44 4F 27 53 20 3D 3D 3D 00 07 16 F2 03 |MANDO'S ===.....|
00000DE0: 99 22 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |." ============|
00000DF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000E00: 3D 3D 3D 3D 3D 3D 3D 00 4B 16 FC 03 99 22 11 4C |=======.K....".L|
00000E10: 49 53 54 20 31 30 22 3A 99 22 B7 B7 B7 B7 B7 B7 |IST 10":."......|
00000E20: B7 22 3A 99 22 4D 45 54 20 44 49 54 20 43 4F 4D |.":."MET DIT COM|
00000E30: 4D 41 4E 44 4F 20 4B 55 4E 20 4A 45 20 52 45 47 |MANDO KUN JE REG|
00000E40: 45 4C 20 31 30 20 4C 49 53 54 45 00 8D 16 06 04 |EL 10 LISTE.....|
00000E50: 99 22 11 4C 49 53 54 20 31 30 2D 22 3A 99 22 B7 |.".LIST 10-":.".|
00000E60: B7 B7 B7 B7 B7 B7 B7 22 3A 99 22 48 49 45 52 4D |.......":."HIERM|
00000E70: 45 45 20 4B 55 4E 20 4A 45 20 45 45 4E 20 4C 49 |EE KUN JE EEN LI|
00000E80: 53 54 49 4E 47 20 4B 52 49 4A 47 45 4E 00 A4 16 |STING KRIJGEN...|
00000E90: 10 04 99 22 11 56 41 4E 41 46 20 52 45 47 45 4C |...".VANAF REGEL|
00000EA0: 20 31 30 2E 00 E8 16 1A 04 99 22 11 11 4C 49 53 | 10......."..LIS|
00000EB0: 54 20 2D 31 30 22 3A 99 22 B7 B7 B7 B7 B7 B7 B7 |T -10":.".......|
00000EC0: B7 22 3A 99 22 4E 55 20 4C 49 53 54 20 49 4B 20 |.":."NU LIST IK |
00000ED0: 41 4C 4C 45 20 52 45 47 45 4C 53 20 54 4F 54 20 |ALLE REGELS TOT |
00000EE0: 45 4E 20 4D 45 54 20 31 00 30 17 24 04 99 22 11 |EN MET 1.0.$..".|
00000EF0: 11 4C 49 53 54 20 31 30 2D 32 30 22 3A 99 22 B7 |.LIST 10-20":.".|
00000F00: B7 B7 B7 B7 B7 B7 B7 B7 B7 22 3A 99 22 44 49 54 |.........":."DIT|
00000F10: 20 47 45 45 46 54 20 45 45 4E 20 4C 49 53 54 49 | GEEFT EEN LISTI|
00000F20: 4E 47 20 56 41 4E 20 31 30 20 54 2F 4D 20 32 30 |NG VAN 10 T/M 20|
00000F30: 00 39 17 2E 04 8D 31 30 35 00 52 17 38 04 99 22 |.9....105.R.8.."|
00000F40: 93 52 55 4E 20 31 30 22 3A 99 22 B7 B7 B7 B7 B7 |.RUN 10":.".....|
00000F50: B7 22 00 80 17 42 04 99 22 11 41 4C 53 20 4A 45 |."...B..".ALS JE|
00000F60: 20 4D 49 4A 20 4E 49 45 54 20 4F 50 20 44 45 20 | MIJ NIET OP DE |
00000F70: 45 45 52 53 54 45 20 52 45 47 45 4C 20 56 41 4E |EERSTE REGEL VAN|
00000F80: 00 AD 17 4C 04 99 22 11 45 45 4E 20 50 52 4F 47 |...L..".EEN PROG|
00000F90: 52 41 4D 4D 41 20 57 49 4C 54 20 4C 41 54 45 4E |RAMMA WILT LATEN|
00000FA0: 20 42 45 47 49 4E 4E 45 4E 2C 44 41 4E 00 DC 17 | BEGINNEN,DAN...|
00000FB0: 56 04 99 22 11 4B 55 4E 20 4A 45 20 4D 49 4A 20 |V..".KUN JE MIJ |
00000FC0: 4F 50 20 42 4F 56 45 4E 53 54 41 41 4E 44 45 20 |OP BOVENSTAANDE |
00000FD0: 57 49 4A 5A 45 20 4F 50 20 45 4C 4B 00 08 18 60 |WIJZE OP ELK...`|
00000FE0: 04 99 22 11 42 45 53 54 41 41 4E 44 20 52 45 47 |..".BESTAAND REG|
00000FF0: 45 4C 4E 55 4D 4D 45 52 20 4C 41 54 45 4E 20 42 |ELNUMMER LATEN B|
00001000: 45 47 49 4E 4E 45 4E 2E 00 36 18 6A 04 99 22 11 |EGINNEN..6.j..".|
00001010: 45 45 4E 20 4E 49 45 54 20 42 45 53 54 41 41 4E |EEN NIET BESTAAN|
00001020: 44 20 52 45 47 45 4C 4E 55 4D 4D 45 52 20 47 45 |D REGELNUMMER GE|
00001030: 45 46 54 20 44 45 00 53 18 74 04 99 22 11 56 4F |EFT DE.S.t..".VO|
00001040: 4C 47 45 4E 44 45 20 46 4F 55 54 4D 45 4C 44 49 |LGENDE FOUTMELDI|
00001050: 4E 47 3A 00 63 18 79 04 81 4E B2 31 A4 54 32 AC |NG:.c.y..N.1.T2.|
00001060: 32 3A 82 00 92 18 7E 04 99 22 11 3F 55 4E 44 45 |2:....~..".?UNDE|
00001070: 46 27 44 20 53 54 41 54 45 4D 45 4E 54 20 45 52 |F'D STATEMENT ER|
00001080: 52 4F 52 22 3A 99 22 52 45 41 44 59 22 3A 8D 31 |ROR":."READY":.1|
00001090: 30 39 00 BC 18 88 04 99 22 11 44 45 5A 45 20 46 |09......".DEZE F|
000010A0: 4F 55 54 4D 45 4C 44 49 4E 47 20 47 45 4C 44 54 |OUTMELDING GELDT|
000010B0: 20 56 4F 4F 52 20 49 45 44 45 52 45 00 EE 18 92 | VOOR IEDERE....|
000010C0: 04 99 22 11 56 45 52 57 49 4A 5A 49 4E 47 20 4E |..".VERWIJZING N|
000010D0: 41 41 52 20 45 45 4E 20 4E 49 45 54 20 42 45 53 |AAR EEN NIET BES|
000010E0: 54 41 41 4E 44 45 20 52 45 47 45 4C 22 3B 00 FC |TAANDE REGEL";..|
000010F0: 18 A0 0F 99 22 13 22 3A 8D 31 30 35 00 34 19 A1 |....".":.105.4..|
00001100: 0F 85 22 93 11 11 11 11 11 11 20 20 57 49 4C 20 |.."....... WIL |
00001110: 4A 45 20 44 45 5A 45 20 4C 45 53 20 4E 4F 47 20 |JE DEZE LES NOG |
00001120: 45 45 4E 53 20 44 4F 4F 52 4E 45 4D 45 4E 20 3F |EENS DOORNEMEN ?|
00001130: 22 3B 41 24 00 45 19 A2 0F 8B C6 28 41 24 29 B3 |";A$.E.....(A$).|
00001140: B1 37 38 A7 8A 00 7F 19 A3 0F 85 22 93 11 11 11 |.78........"....|
00001150: 11 11 11 20 20 57 49 4C 20 4A 45 20 44 41 4E 20 |... WIL JE DAN |
00001160: 44 45 20 56 4F 4C 47 45 4E 44 45 20 4C 45 53 20 |DE VOLGENDE LES |
00001170: 44 4F 4F 52 4E 45 4D 45 4E 20 3F 22 3B 41 24 00 |DOORNEMEN ?";A$.|
00001180: A3 19 A4 0F 8B C6 28 41 24 29 B2 37 34 A7 5F 4C |......(A$).74._L|
00001190: 22 42 41 53 49 43 4C 45 53 20 35 22 2C 28 C2 28 |"BASICLES 5",(.(|
000011A0: 32 29 29 00 A9 19 A5 0F 80 00 CC 19 88 13 8F 20 |2))............ |
000011B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EB 19 92 |************....|
000011D0: 13 8F 20 54 45 53 54 20 4F 50 20 44 49 53 4B 20 |.. TEST OP DISK |
000011E0: 4F 46 20 43 41 53 53 45 54 54 45 00 05 1A 9C 13 |OF CASSETTE.....|
000011F0: 58 B2 C2 28 32 29 3A 8B 58 B2 31 B0 58 B2 38 B0 |X..(2):.X.1.X.8.|
00001200: 58 B2 38 A7 8E 00 2B 1A A6 13 99 22 93 11 11 11 |X.8...+...."....|
00001210: 11 11 C8 45 45 46 54 20 55 20 45 45 4E 20 43 41 |...EEFT U EEN CA|
00001220: 53 53 45 54 54 45 20 28 31 29 22 00 54 1A B0 13 |SSETTE (1)".T...|
00001230: 99 22 11 4F 46 20 45 45 4E 20 44 52 49 56 45 20 |.".OF EEN DRIVE |
00001240: 28 38 29 20 4D 45 54 20 44 45 5A 45 20 4C 45 53 |(8) MET DEZE LES|
00001250: 53 45 4E 22 00 6E 1A BA 13 85 22 11 11 47 45 45 |SEN".n...."..GEE|
00001260: 46 20 31 20 4F 46 20 38 22 3B 41 3A 99 41 00 8A |F 1 OF 8";A:.A..|
00001270: 1A C4 13 8B 41 B3 B1 31 AF 41 B3 B1 38 A7 99 22 |....A..1.A..8.."|
00001280: 91 91 22 3B 3A 89 35 30 35 30 00 93 1A CE 13 97 |..";:.5050......|
00001290: 32 2C 41 00 99 1A D8 13 8E 00 BC 1A E2 13 8F 20 |2,A............ |
000012A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 00 00 24 |************...$|
000012C0: 8D 49 00 |.I. |
....Z..53280,6:.53281,6:.G(14).).D.. 500
0.H.E.T1.10000:T2.T1.50:Q$.G(34).Q.F..11
8.J.G..N.1.T1:.C$:.C$.""...P.H...Y.I..10
3...J..".";:.N.1.200:.:....K.."VOORBEELD
":.".........":....L..".?ILLEGAL QUANTIT
Y ERROR IN 10":."READY....M..N.1.10:.N1.
1.200:.:.". ..";:.N1.1.200:.:." .";:....
N.A.0:..O.V.."... === NOG ENKELE STRING
STATEMENTS ===.|.W.." ================
====================...X..". ER ZIJN NOG
ENKELE 'STRING STATEMENTS'.Y....".DIE I
N EERSTE INSTANTIE MISSCHIEN NIET......"
.ZO BELANGRIJK LIJKEN, MAAR HET TOCH ZIJ
N.*....".DAT ZIJN: 'ASC' EN 'CHR$'.J....
" ..... .......U. .."..IK KE
N ZE OP DE VOLGENDE MANIEREN:......".STR
ING VARIABELE = CHR$ (NUMM. VAR.).N...."
.NUMM. VARIABELE = ASC (STRING VAR.).W
....105...H.."1-ASC (A$)...R..".........
..$....".IEDER KARAKTER DAT IK KEN (OOK
ALLE.R....".GRAFISCHE) WORDT IN MIJN GEH
EUGEN DOOR.Y....".EEN BEPAALDE CODE VOOR
GESTELD........107:.". 1 ASC ("Q$"A"Q
$") = 65.D....". 2 ASC ("Q$"B"Q$")
= 66......". 3 ASC ("Q$"Z"Q$") = 90.
.....". 4 ASC ("Q$"BCD"Q$") = 66 !!!.1
.".."..LET OP VOORBEELD 4 !":.105.R.,..1
07:.". 10 A$= "Q$"ABC"Q$.N.6..". 20
PRINT ASC (A$)...@.."..DIT PROGRAMMA ZAL
HET GETAL '65' PRINTEN.M.J.."HET ASC ST
ATEMENT GEEFT MIJ DE OPDRACHT...T..".DE
CODE VAN HET EERSTE LETTER VAN DE.%.^.."
.STRING TE BEPALEN. DIE CODE WORDT DE.B.
H..".'ASCII' CODE GENOEMD..I.R..".WAT IS
HET NUT VAN DEZE CODES ?...|..N.1.T2:.:
.".DAT KAN IK HET MAKKELIJKST MET EEN...
...".VOORBEELD UITLEGGEN":.105......107:
.". 10 GET C$ : IF C$ = "Q$;Q$" THEN 1
0......" 20 C = ASC (C$).(...." 30 I
F C < 65 THEN 10.F...." 40 IF C > 70 T
HEN 10.~...." 50 ON C-64 GOTO 118,200,
300,400,500, 600......N.1.T2:A.10:
....B.."..REGEL 10 SCANT HET TOETSENBORD
TOT ER...L..".EEN TOETS WORDT INGEDRUKT
. REGEL 20...V..".MAAKT DE ASCII CODE VA
N DE INGEDRUKTE.A....".TOETS. ALS DE ASC
II WAARDE VAN HET.Q....".KARAKTER KLEINE
R DAN 65 OF GROTER DAN 70......"IS DAN W
ORDT VAN REGEL 30 OF 40 NAAR .10 TERU
GGESPRONGEN......103.V...."..........":.
N.1.14......"
";:......."..........".I.&.
."ALS TOETS C WORDT INGEDRUKT WAT GEBEUR
D.E.0.."ER DAN ? 1 NIETS...:...14)"
2 SPRONG NAAR 200...D...14)"3 SPRONG NAA
R 300...N...14)"4 SPRONG NAAR 10...X.."W
ELK NUMMER (1-4) .......";A$:A.E(A
$)...B..A.1.A.4.."....":.600...L..A.3.70
0.>.V.."NIET GOED PROBEER OP NIEUW.":.N.
1.T2:..I...." .
...":.600......106:."DAT IS HET GOEDE AN
TWOORD"...F..".DE ASCII CODE VAN DE 'C'
IS 67, DAN...P..".WORDT NAAR HET DERDE A
DRES IN DE ADRES...Z..".LIST GESPRONGEN
( 67 - 64 = 3 ).0....105:."HET 'CHR$' S
TATEMENT.K....".....................Z...
.".HET 'CHR$' STATEMENT DOET HET VOLGEND
E:......".HET LAAT MIJ VAN EEN ASCII COD
E EEN.B....".KARAKTERSTRING MAKEN..K....
107... .." 10 INPUT A...*.." 20 PRINT
CHR$(A).'.>..".HET GETAL A MOET IN HET B
EREIK VAN 0-255.U.H.."LIGGEN. WE GAAN DI
T VOORBEELD GEBRUIKEN...R..".GEEF A";A$:
A..(E(A$)):.A.0.A.255..108...\..G(A):.52
5,0:."NOG EEN KEER";A$:.F(A$)..78.850...
F..106:."JE HEBT NU GEZIEN WAT MOGELIJK
IS MET...P..".'ASC' EN 'CHR$'. IS HET JE
OPGEVALLEN,.@.Z..".DAT JE MET 'CHR$' OO
K MIJN GRAFISCHE.F....".KARAKTERS KUNT L
ATEN PRINTEN ?......".EN HEB JE GEZIEN W
AT ER GEBEURD ALS A......".NEGATIEF OF G
ROTER DAN 255 IS ?......". JA/NEE ";A$:.
F(A$)..74.850......".DAT GEEFT LEUKE MOG
ELIJKHEDEN OM MIJ.4....".ALS JE WAT MEER
PROGRAMMEERERVARING.B....".HEBT B.V. GR
AFIEKEN TE LATEN BEREKENEN......".EN M.B
.V. MIJN GRAFISCHE KARAKTERS TE......".L
ATEN TEKENEN....J..105......". === NOG
ENKELE LEUKE COMMANDO'S ===......" ====
===============================.K....".L
IST 10":.".......":."MET DIT COMMANDO KU
N JE REGEL 10 LISTE......".LIST 10-":.".
.......":."HIERMEE KUN JE EEN LISTING KR
IJGEN......".VANAF REGEL 10......."..LIS
T -10":."........":."NU LIST IK ALLE REG
ELS TOT EN MET 1.0.$.."..LIST 10-20":.".
.........":."DIT GEEFT EEN LISTING VAN 1
0 T/M 20.9....105.R.8..".RUN 10":.".....
."...B..".ALS JE MIJ NIET OP DE EERSTE R
EGEL VAN...L..".EEN PROGRAMMA WILT LATEN
BEGINNEN,DAN...V..".KUN JE MIJ OP BOVEN
STAANDE WIJZE OP ELK...`..".BESTAAND REG
ELNUMMER LATEN BEGINNEN..6.J..".EEN NIET
BESTAAND REGELNUMMER GEEFT DE.S.T..".VO
LGENDE FOUTMELDING:.C.Y..N.1.T2.2:....~.
.".?UNDEF'D STATEMENT ERROR":."READY":.1
09......".DEZE FOUTMELDING GELDT VOOR IE
DERE......".VERWIJZING NAAR EEN NIET BES
TAANDE REGEL";... ..".":.105.4....".....
.. WIL JE DEZE LES NOG EENS DOORNEMEN ?
";A$.E....F(A$)..78......."....... WIL
JE DAN DE VOLGENDE LES DOORNEMEN ?";A$.
.....F(A$).74._L"BASICLES 5",(B(2)).....
..L.... ****************************....
.. TEST OP DISK OF CASSETTE.....X.B(2):.
X.1.X.8.X.8...+...."......HEEFT U EEN CA
SSETTE (1)".T....".OF EEN DRIVE (8) MET
DEZE LESSEN".N...."..GEEF 1 OF 8";A:.A..
.D..A..1.A..8.."..";:.5050...N..2,A...X.
....... ****************************...$
.I.
> CLICK IMAGE PREVIEW FOR FULL MODAL