BASIC LES 5
FILE INFORMATION
FILENAME(S): BASIC LES 5
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-12-01 20:43:42
APPEARS ON: 1 disk(s)
FILE HASH
24db4e185794c024d1f2a84c7a1c747c3ea3f7f45723614b0e06c43f784525ac
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC | BASIC LES 5 | PRG | mace | 15 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 01 00 8F 20 42 41 53 49 43 20 4C 45 |....... BASIC LE|
00000010: 53 20 35 00 25 08 02 00 97 34 39 31 35 32 2C C2 |S 5.%....49152,.|
00000020: 28 31 38 36 29 00 38 08 03 00 51 31 B2 31 39 38 |(186).8...Q1.198|
00000030: 3A 99 C7 28 31 34 32 29 00 56 08 04 00 54 31 B2 |:..(142).V...T1.|
00000040: 31 30 30 30 30 3A 54 32 B2 54 31 AD 35 3A 51 24 |10000:T2.T1.5:Q$|
00000050: B2 C7 28 33 34 29 00 71 08 05 00 97 35 33 32 38 |..(34).q....5328|
00000060: 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 3A 89 31 |0,14:.53281,6:.1|
00000070: 35 00 90 08 06 00 97 51 31 2C 30 3A 81 4E B2 31 |5......Q1,0:.N.1|
00000080: A4 54 31 3A A1 43 24 3A 8B 43 24 B2 22 22 A7 82 |.T1:.C$:.C$.""..|
00000090: 00 96 08 07 00 8E 00 E0 08 08 00 99 22 13 11 11 |............"...|
000000A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000B0: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000D0: 1D 1D 1D 1D 1D 1D 1D 1D 90 54 4F 45 54 53 13 22 |.........TOETS."|
000000E0: 00 E7 08 09 00 8D 36 00 FE 08 0A 00 99 22 93 22 |......6......"."|
000000F0: 3B 3A 81 4E B2 31 A4 32 30 30 3A 82 3A 8E 00 21 |;:.N.1.200:.:..!|
00000100: 09 0B 00 99 22 90 20 56 4F 4F 52 42 45 45 4C 44 |....". VOORBEELD|
00000110: 22 3A 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 3A |":." .........":|
00000120: 8E 00 51 09 0C 00 99 22 11 05 3F 49 4C 4C 45 47 |..Q...."..?ILLEG|
00000130: 41 4C 20 51 55 41 4E 54 49 54 59 20 45 52 52 4F |AL QUANTITY ERRO|
00000140: 52 20 49 4E 20 31 30 22 3A 99 22 52 45 41 44 59 |R IN 10":."READY|
00000150: 2E 00 87 09 0D 00 81 4E B2 31 A4 31 30 3A 81 4E |.......N.1.10:.N|
00000160: 31 B2 31 A4 32 30 30 3A 82 3A 99 22 12 20 92 9D |1.1.200:.:.". ..|
00000170: 22 3B 3A 81 4E 31 B2 31 A4 32 30 30 3A 82 3A 99 |";:.N1.1.200:.:.|
00000180: 22 20 9D 22 3B 3A 82 00 91 09 0E 00 41 B2 30 3A |" .";:......A.0:|
00000190: 8E 00 C1 09 0F 00 99 22 93 11 9A 20 20 3D 3D 3D |......."... ===|
000001A0: 20 4E 4F 47 20 45 4E 4B 45 4C 45 20 53 54 52 49 | NOG ENKELE STRI|
000001B0: 4E 47 20 53 54 41 54 45 4D 45 4E 54 53 20 3D 3D |NG STATEMENTS ==|
000001C0: 3D 00 EE 09 10 00 99 22 20 20 3D 3D 3D 3D 3D 3D |=......" ======|
000001D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000001E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 1D |==============..|
000001F0: 0A 11 00 99 22 11 20 45 52 20 5A 49 4A 4E 20 4E |....". ER ZIJN N|
00000200: 4F 47 20 45 4E 4B 45 4C 45 20 27 53 54 52 49 4E |OG ENKELE 'STRIN|
00000210: 47 20 53 54 41 54 45 4D 45 4E 54 53 27 00 4C 0A |G STATEMENTS'.L.|
00000220: 12 00 99 22 11 20 44 49 45 20 49 4E 20 45 45 52 |...". DIE IN EER|
00000230: 53 54 45 20 49 4E 53 54 41 4E 54 49 45 20 4D 49 |STE INSTANTIE MI|
00000240: 53 53 43 48 49 45 4E 20 4E 49 45 54 00 83 0A 13 |SSCHIEN NIET....|
00000250: 00 99 22 11 20 5A 4F 20 42 45 4C 41 4E 47 52 49 |..". ZO BELANGRI|
00000260: 4A 4B 20 4C 49 4A 4B 45 4E 2C 20 4D 41 41 52 20 |JK LIJKEN, MAAR |
00000270: 48 45 54 20 54 4F 43 48 20 20 20 20 11 20 5A 49 |HET TOCH . ZI|
00000280: 4A 4E 2E 00 A8 0A 14 00 99 22 11 11 90 20 44 41 |JN......."... DA|
00000290: 54 20 5A 49 4A 4E 3A 20 27 41 53 43 27 20 45 4E |T ZIJN: 'ASC' EN|
000002A0: 20 27 43 48 52 24 27 2E 00 C9 0A 15 00 99 22 20 | 'CHR$'......." |
000002B0: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 C5 C5 C5 C5 C5 20 |............... |
000002C0: 20 20 20 C5 C5 C5 C5 C5 C5 00 F6 0A 16 00 99 22 | ............"|
000002D0: 11 11 05 20 49 4B 20 4B 45 4E 20 5A 45 20 4F 50 |... IK KEN ZE OP|
000002E0: 20 44 45 20 56 4F 4C 47 45 4E 44 45 20 4D 41 4E | DE VOLGENDE MAN|
000002F0: 49 45 52 45 4E 3A 00 23 0B 17 00 99 22 11 20 53 |IEREN:.#....". S|
00000300: 54 52 49 4E 47 20 56 41 52 49 41 42 45 4C 45 20 |TRING VARIABELE |
00000310: 3D 20 43 48 52 24 20 28 4E 55 4D 4D 2E 20 56 41 |= CHR$ (NUMM. VA|
00000320: 52 2E 29 00 51 0B 18 00 99 22 11 20 4E 55 4D 4D |R.).Q....". NUMM|
00000330: 2E 20 56 41 52 49 41 42 45 4C 45 20 20 3D 20 41 |. VARIABELE = A|
00000340: 53 43 20 20 28 53 54 52 49 4E 47 20 56 41 52 2E |SC (STRING VAR.|
00000350: 29 00 58 0B 19 00 8D 38 00 6D 0B 1A 00 99 22 93 |).X....8.m....".|
00000360: 11 9E 20 31 2D 41 53 43 20 28 41 24 29 00 7F 0B |.. 1-ASC (A$)...|
00000370: 1B 00 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 00 |..." ...........|
00000380: AC 0B 1C 00 99 22 11 90 20 49 45 44 45 52 20 4B |.....".. IEDER K|
00000390: 41 52 41 4B 54 45 52 20 44 41 54 20 49 4B 20 4B |ARAKTER DAT IK K|
000003A0: 45 4E 20 28 4F 4F 4B 20 41 4C 4C 45 00 DB 0B 1D |EN (OOK ALLE....|
000003B0: 00 99 22 11 20 47 52 41 46 49 53 43 48 45 29 20 |..". GRAFISCHE) |
000003C0: 57 4F 52 44 54 20 49 4E 20 4D 49 4A 4E 20 47 45 |WORDT IN MIJN GE|
000003D0: 48 45 55 47 45 4E 20 44 4F 4F 52 00 03 0C 1E 00 |HEUGEN DOOR.....|
000003E0: 99 22 11 20 45 45 4E 20 42 45 50 41 41 4C 44 45 |.". EEN BEPAALDE|
000003F0: 20 43 4F 44 45 20 56 4F 4F 52 47 45 53 54 45 4C | CODE VOORGESTEL|
00000400: 44 2E 11 00 2B 0C 1F 00 8D 31 31 3A 99 22 11 05 |D...+....11:."..|
00000410: 20 20 31 20 20 41 53 43 20 20 28 22 51 24 22 41 | 1 ASC ("Q$"A|
00000420: 22 51 24 22 29 20 20 3D 20 36 35 00 4E 0C 20 00 |"Q$") = 65.N. .|
00000430: 99 22 11 20 20 32 20 20 41 53 43 20 20 28 22 51 |.". 2 ASC ("Q|
00000440: 24 22 42 22 51 24 22 29 20 20 3D 20 36 36 00 71 |$"B"Q$") = 66.q|
00000450: 0C 21 00 99 22 11 20 20 33 20 20 41 53 43 20 20 |.!..". 3 ASC |
00000460: 28 22 51 24 22 5A 22 51 24 22 29 20 20 3D 20 39 |("Q$"Z"Q$") = 9|
00000470: 30 00 98 0C 22 00 99 22 11 20 20 34 20 20 41 53 |0..."..". 4 AS|
00000480: 43 A0 28 22 51 24 22 42 43 44 22 51 24 22 29 20 |C.("Q$"BCD"Q$") |
00000490: 3D 20 36 36 20 21 21 21 00 BB 0C 23 00 99 22 11 |= 66 !!!...#..".|
000004A0: 11 9A 20 4C 45 54 20 4F 50 20 56 4F 4F 52 42 45 |.. LET OP VOORBE|
000004B0: 45 4C 44 20 34 20 21 22 3A 8D 38 00 DC 0C 24 00 |ELD 4 !":.8...$.|
000004C0: 8D 31 31 3A 99 22 11 9E 20 20 20 31 30 20 41 24 |.11:.".. 10 A$|
000004D0: 3D 20 22 51 24 22 41 42 43 22 51 24 00 F8 0C 25 |= "Q$"ABC"Q$...%|
000004E0: 00 99 22 11 20 20 20 32 30 20 50 52 49 4E 54 20 |..". 20 PRINT |
000004F0: 41 53 43 20 28 41 24 29 00 33 0D 26 00 99 22 11 |ASC (A$).3.&..".|
00000500: 99 20 44 49 54 20 50 52 4F 47 52 41 4D 4D 41 20 |. DIT PROGRAMMA |
00000510: 5A 41 4C 20 48 45 54 20 47 45 54 41 4C 20 27 36 |ZAL HET GETAL '6|
00000520: 35 27 20 20 20 20 20 20 20 20 11 50 52 49 4E 54 |5' .PRINT|
00000530: 45 4E 2E 00 63 0D 27 00 99 22 11 20 48 45 54 20 |EN..c.'..". HET |
00000540: 41 53 43 20 53 54 41 54 45 4D 45 4E 54 20 47 45 |ASC STATEMENT GE|
00000550: 45 46 54 20 4D 49 4A 20 44 45 20 4F 50 44 52 41 |EFT MIJ DE OPDRA|
00000560: 43 48 54 00 8F 0D 28 00 99 22 20 44 45 20 43 4F |CHT...(.." DE CO|
00000570: 44 45 20 56 41 4E 20 48 45 54 20 45 45 52 53 54 |DE VAN HET EERST|
00000580: 45 20 4C 45 54 54 45 52 20 56 41 4E 20 44 45 00 |E LETTER VAN DE.|
00000590: BC 0D 29 00 99 22 11 20 53 54 52 49 4E 47 20 54 |..)..". STRING T|
000005A0: 45 20 42 45 50 41 4C 45 4E 2E 20 44 49 45 20 43 |E BEPALEN. DIE C|
000005B0: 4F 44 45 20 57 4F 52 44 54 20 44 45 00 DA 0D 2A |ODE WORDT DE...*|
000005C0: 00 99 22 11 20 27 41 53 43 49 49 27 20 43 4F 44 |..". 'ASCII' COD|
000005D0: 45 20 47 45 4E 4F 45 4D 44 2E 00 03 0E 2B 00 99 |E GENOEMD....+..|
000005E0: 22 11 90 20 57 41 54 20 49 53 20 48 45 54 20 4E |".. WAT IS HET N|
000005F0: 55 54 20 56 41 4E 20 44 45 5A 45 20 43 4F 44 45 |UT VAN DEZE CODE|
00000600: 53 20 3F 00 38 0E 2C 00 81 4E B2 31 A4 54 32 3A |S ?.8.,..N.1.T2:|
00000610: 82 3A 99 22 11 20 44 41 54 20 4B 41 4E 20 49 4B |.:.". DAT KAN IK|
00000620: 20 48 45 54 20 4D 41 4B 4B 45 4C 49 4A 4B 53 54 | HET MAKKELIJKST|
00000630: 20 4D 45 54 20 45 45 4E 00 59 0E 2D 00 99 22 11 | MET EEN.Y.-..".|
00000640: 20 56 4F 4F 52 42 45 45 4C 44 20 55 49 54 4C 45 | VOORBEELD UITLE|
00000650: 47 47 45 4E 2E 22 3A 8D 38 00 8C 0E 2E 00 8D 31 |GGEN.":.8......1|
00000660: 31 3A 99 22 11 90 20 20 20 31 30 20 47 45 54 20 |1:.".. 10 GET |
00000670: 43 24 20 3A 20 49 46 20 43 24 20 3D 20 22 51 24 |C$ : IF C$ = "Q$|
00000680: 3B 51 24 22 20 54 48 45 4E 20 31 30 00 A5 0E 2F |;Q$" THEN 10.../|
00000690: 00 99 22 20 20 20 32 30 20 43 20 3D 20 41 53 43 |.." 20 C = ASC|
000006A0: 20 28 43 24 29 00 C3 0E 30 00 99 22 20 20 20 33 | (C$)...0.." 3|
000006B0: 30 20 49 46 20 43 20 3C 20 36 35 20 54 48 45 4E |0 IF C < 65 THEN|
000006C0: 20 31 30 00 E1 0E 31 00 99 22 20 20 20 34 30 20 | 10...1.." 40 |
000006D0: 49 46 20 43 20 3E 20 37 30 20 54 48 45 4E 20 31 |IF C > 70 THEN 1|
000006E0: 30 00 19 0F 32 00 99 22 20 20 20 35 30 20 4F 4E |0...2.." 50 ON|
000006F0: 20 43 2D 36 34 20 47 4F 54 4F 20 31 30 30 2C 32 | C-64 GOTO 100,2|
00000700: 30 30 2C 33 30 30 2C 34 30 30 2C 35 30 30 2C 20 |00,300,400,500, |
00000710: 20 20 20 20 20 20 36 30 30 00 2C 0F 33 00 81 4E | 600.,.3..N|
00000720: B2 31 A4 54 32 3A 41 B2 31 30 3A 82 00 5C 0F 34 |.1.T2:A.10:..\.4|
00000730: 00 99 22 11 11 9F 20 52 45 47 45 4C 20 31 30 20 |.."... REGEL 10 |
00000740: 53 43 41 4E 54 20 48 45 54 20 54 4F 45 54 53 45 |SCANT HET TOETSE|
00000750: 4E 42 4F 52 44 20 54 4F 54 20 45 52 00 88 0F 35 |NBORD TOT ER...5|
00000760: 00 99 22 11 20 45 45 4E 20 54 4F 45 54 53 20 57 |..". EEN TOETS W|
00000770: 4F 52 44 54 20 49 4E 47 45 44 52 55 4B 54 2E 20 |ORDT INGEDRUKT. |
00000780: 52 45 47 45 4C 20 32 30 00 B6 0F 36 00 99 22 11 |REGEL 20...6..".|
00000790: 20 4D 41 41 4B 54 20 44 45 20 41 53 43 49 49 20 | MAAKT DE ASCII |
000007A0: 43 4F 44 45 20 56 41 4E 20 44 45 20 49 4E 47 45 |CODE VAN DE INGE|
000007B0: 44 52 55 4B 54 45 00 E1 0F 37 00 99 22 11 20 54 |DRUKTE...7..". T|
000007C0: 4F 45 54 53 2E 20 41 4C 53 20 44 45 20 41 53 43 |OETS. ALS DE ASC|
000007D0: 49 49 20 57 41 41 52 44 45 20 56 41 4E 20 48 45 |II WAARDE VAN HE|
000007E0: 54 00 0F 10 38 00 99 22 11 20 4B 41 52 41 4B 54 |T...8..". KARAKT|
000007F0: 45 52 20 4B 4C 45 49 4E 45 52 20 44 41 4E 20 36 |ER KLEINER DAN 6|
00000800: 35 20 4F 46 20 47 52 4F 54 45 52 20 44 41 4E 00 |5 OF GROTER DAN.|
00000810: 54 10 39 00 99 22 11 20 37 30 20 49 53 20 44 41 |T.9..". 70 IS DA|
00000820: 4E 20 57 4F 52 44 54 20 56 41 4E 20 52 45 47 45 |N WORDT VAN REGE|
00000830: 4C 20 33 30 20 4F 46 20 34 30 20 4E 41 41 52 11 |L 30 OF 40 NAAR.|
00000840: 20 31 30 20 54 45 52 55 47 47 45 53 50 52 4F 4E | 10 TERUGGESPRON|
00000850: 47 45 4E 2E 00 5B 10 3A 00 8D 36 00 75 10 3B 00 |GEN..[.:..6.u.;.|
00000860: 99 22 13 11 11 11 11 11 11 11 11 11 22 3A 81 4E |."..........":.N|
00000870: B2 31 A4 31 34 00 A8 10 3C 00 99 22 20 20 20 20 |.1.14...<.." |
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008A0: 20 20 20 20 22 3B 3A 82 00 BA 10 3D 00 99 22 13 | ";:....=..".|
000008B0: 11 11 11 11 11 11 11 11 11 22 00 EA 10 3E 00 99 |........."...>..|
000008C0: 22 90 20 41 4C 53 20 54 4F 45 54 53 20 43 20 57 |". ALS TOETS C W|
000008D0: 4F 52 44 54 20 49 4E 47 45 44 52 55 4B 54 20 57 |ORDT INGEDRUKT W|
000008E0: 41 54 20 47 45 42 45 55 52 44 00 07 11 3F 00 99 |AT GEBEURD...?..|
000008F0: 22 20 45 52 20 44 41 4E 20 3F 20 20 20 20 20 9A |" ER DAN ? .|
00000900: 31 20 4E 49 45 54 53 00 23 11 40 00 99 A3 31 34 |1 NIETS.#.@...14|
00000910: 29 22 32 20 53 50 52 4F 4E 47 20 4E 41 41 52 20 |)"2 SPRONG NAAR |
00000920: 32 30 30 00 3F 11 41 00 99 A3 31 34 29 22 33 20 |200.?.A...14)"3 |
00000930: 53 50 52 4F 4E 47 20 4E 41 41 52 20 33 30 30 00 |SPRONG NAAR 300.|
00000940: 5A 11 42 00 99 A3 31 34 29 22 34 20 53 50 52 4F |Z.B...14)"4 SPRO|
00000950: 4E 47 20 4E 41 41 52 20 31 30 00 8E 11 43 00 85 |NG NAAR 10...C..|
00000960: 22 90 20 57 45 4C 4B 20 4E 55 4D 4D 45 52 20 28 |". WELK NUMMER (|
00000970: 31 2D 34 29 20 20 20 20 20 20 20 9D 9D 9D 9D 9D |1-4) .....|
00000980: 9D 9D 22 3B 41 24 3A 41 B2 C5 28 41 24 29 00 A7 |..";A$:A..(A$)..|
00000990: 11 44 00 8B 41 B3 31 B0 41 B1 34 A7 99 22 91 91 |.D..A.1.A.4.."..|
000009A0: 91 91 22 3A 89 36 37 00 B3 11 45 00 8B 41 B2 33 |..":.67...E..A.3|
000009B0: A7 37 32 00 E2 11 46 00 99 22 05 20 4E 49 45 54 |.72...F..". NIET|
000009C0: 20 47 4F 45 44 20 50 52 4F 42 45 45 52 20 4F 50 | GOED PROBEER OP|
000009D0: 20 4E 49 45 55 57 91 22 3A 81 4E B2 31 A4 54 32 | NIEUW.":.N.1.T2|
000009E0: 3A 82 00 0D 12 47 00 99 22 20 20 20 20 20 20 20 |:....G.." |
000009F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A00: 20 20 20 20 91 91 91 91 22 3A 89 36 37 00 34 12 | ....":.67.4.|
00000A10: 48 00 8D 31 30 3A 99 22 05 20 44 41 54 20 49 53 |H..10:.". DAT IS|
00000A20: 20 48 45 54 20 47 4F 45 44 45 20 41 4E 54 57 4F | HET GOEDE ANTWO|
00000A30: 4F 52 44 22 00 60 12 49 00 99 22 11 20 44 45 20 |ORD".`.I..". DE |
00000A40: 41 53 43 49 49 20 43 4F 44 45 20 56 41 4E 20 44 |ASCII CODE VAN D|
00000A50: 45 20 27 43 27 20 49 53 20 36 37 2C 20 44 41 4E |E 'C' IS 67, DAN|
00000A60: 00 8F 12 4A 00 99 22 11 20 57 4F 52 44 54 20 4E |...J..". WORDT N|
00000A70: 41 41 52 20 48 45 54 20 44 45 52 44 45 20 41 44 |AAR HET DERDE AD|
00000A80: 52 45 53 20 49 4E 20 44 45 20 41 44 52 45 53 00 |RES IN DE ADRES.|
00000A90: B8 12 4B 00 99 22 11 20 4C 49 53 54 20 47 45 53 |..K..". LIST GES|
00000AA0: 50 52 4F 4E 47 45 4E 20 20 28 20 36 37 A0 2D A0 |PRONGEN ( 67.-.|
00000AB0: 36 34 20 3D 20 33 20 29 00 D8 12 4C 00 8D 38 3A |64 = 3 )...L..8:|
00000AC0: 99 22 1E 20 48 45 54 20 27 43 48 52 24 27 20 53 |.". HET 'CHR$' S|
00000AD0: 54 41 54 45 4D 45 4E 54 00 F4 12 4D 00 99 22 20 |TATEMENT...M.." |
00000AE0: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
00000AF0: C5 C5 C5 C5 00 24 13 4E 00 99 22 11 20 48 45 54 |.....$.N..". HET|
00000B00: 20 27 43 48 52 24 27 20 53 54 41 54 45 4D 45 4E | 'CHR$' STATEMEN|
00000B10: 54 20 44 4F 45 54 20 48 45 54 20 56 4F 4C 47 45 |T DOET HET VOLGE|
00000B20: 4E 44 45 3A 00 4F 13 4F 00 99 22 20 48 45 54 20 |NDE:.O.O.." HET |
00000B30: 4C 41 41 54 20 4D 49 4A 20 56 41 4E 20 45 45 4E |LAAT MIJ VAN EEN|
00000B40: 20 41 53 43 49 49 20 43 4F 44 45 20 45 45 4E 00 | ASCII CODE EEN.|
00000B50: 6E 13 50 00 99 22 11 20 4B 41 52 41 4B 54 45 52 |n.P..". KARAKTER|
00000B60: 53 54 52 49 4E 47 20 4D 41 4B 45 4E 2E 11 00 76 |STRING MAKEN...v|
00000B70: 13 51 00 8D 31 31 00 8A 13 52 00 99 22 9A 20 20 |.Q..11...R..". |
00000B80: 31 30 20 49 4E 50 55 54 20 41 00 A3 13 53 00 99 |10 INPUT A...S..|
00000B90: 22 20 20 32 30 20 50 52 49 4E 54 20 43 48 52 24 |" 20 PRINT CHR$|
00000BA0: 28 41 29 00 CF 13 54 00 99 22 11 1E 20 48 45 54 |(A)...T..".. HET|
00000BB0: 20 47 45 54 41 4C 20 41 20 4D 4F 45 54 20 49 4E | GETAL A MOET IN|
00000BC0: 20 48 45 54 20 42 45 52 45 49 4B 20 56 41 4E 00 | HET BEREIK VAN.|
00000BD0: 0B 14 55 00 99 22 20 11 30 2D 32 35 35 20 4C 49 |..U.." .0-255 LI|
00000BE0: 47 47 45 4E 2E 20 57 45 20 47 41 41 4E 20 44 49 |GGEN. WE GAAN DI|
00000BF0: 54 20 56 4F 4F 52 42 45 45 4C 44 20 20 20 20 11 |T VOORBEELD .|
00000C00: 20 47 45 42 52 55 49 4B 45 4E 2E 00 39 14 56 00 | GEBRUIKEN..9.V.|
00000C10: 85 22 11 05 20 47 45 45 46 20 41 22 3B 41 24 3A |.".. GEEF A";A$:|
00000C20: 41 B2 B5 28 C5 28 41 24 29 29 3A 8B 41 B3 30 B0 |A..(.(A$)):.A.0.|
00000C30: 41 B1 32 35 35 A7 8D 31 32 00 6B 14 57 00 99 C7 |A.255..12.k.W...|
00000C40: 28 41 29 3A 97 51 31 2C 30 3A 85 22 20 4E 4F 47 |(A):.Q1,0:." NOG|
00000C50: 20 45 45 4E 20 4B 45 45 52 22 3B 41 24 3A 8B C6 | EEN KEER";A$:..|
00000C60: 28 41 24 29 B3 B1 37 38 A7 38 36 00 9D 14 58 00 |(A$)..78.86...X.|
00000C70: 8D 31 30 3A 99 22 90 20 4A 45 20 48 45 42 54 20 |.10:.". JE HEBT |
00000C80: 4E 55 20 47 45 5A 49 45 4E 20 57 41 54 20 4D 4F |NU GEZIEN WAT MO|
00000C90: 47 45 4C 49 4A 4B 20 49 53 20 4D 45 54 00 CC 14 |GELIJK IS MET...|
00000CA0: 59 00 99 22 11 20 27 41 53 43 27 20 45 4E 20 27 |Y..". 'ASC' EN '|
00000CB0: 43 48 52 24 27 2E 20 49 53 20 48 45 54 20 4A 45 |CHR$'. IS HET JE|
00000CC0: 20 4F 50 47 45 56 41 4C 4C 45 4E 2C 00 F9 14 5A | OPGEVALLEN,...Z|
00000CD0: 00 99 22 11 20 44 41 54 20 4A 45 20 4D 45 54 20 |..". DAT JE MET |
00000CE0: 27 43 48 52 24 27 20 4F 4F 4B 20 4D 49 4A 4E 20 |'CHR$' OOK MIJN |
00000CF0: 47 52 41 46 49 53 43 48 45 00 20 15 5B 00 99 22 |GRAFISCHE. .[.."|
00000D00: 11 20 4B 41 52 41 4B 54 45 52 53 20 4B 55 4E 54 |. KARAKTERS KUNT|
00000D10: 20 4C 41 54 45 4E 20 50 52 49 4E 54 45 4E 20 3F | LATEN PRINTEN ?|
00000D20: 00 4E 15 5C 00 99 22 11 20 45 4E 20 48 45 42 20 |.N.\..". EN HEB |
00000D30: 4A 45 20 47 45 5A 49 45 4E 20 57 41 54 20 45 52 |JE GEZIEN WAT ER|
00000D40: 20 47 45 42 45 55 52 44 20 41 4C 53 20 41 00 76 | GEBEURD ALS A.v|
00000D50: 15 5D 00 99 22 11 20 4E 45 47 41 54 49 45 46 20 |.]..". NEGATIEF |
00000D60: 4F 46 20 47 52 4F 54 45 52 20 44 41 4E 20 32 35 |OF GROTER DAN 25|
00000D70: 35 20 49 53 20 3F 00 99 15 5E 00 85 22 11 90 20 |5 IS ?...^..".. |
00000D80: 4A 41 2F 4E 45 45 20 22 3B 41 24 3A 8B C6 28 41 |JA/NEE ";A$:..(A|
00000D90: 24 29 B3 B1 37 34 A7 38 36 00 C7 15 5F 00 99 22 |$)..74.86..._.."|
00000DA0: 11 1E 20 44 41 54 20 47 45 45 46 54 20 4C 45 55 |.. DAT GEEFT LEU|
00000DB0: 4B 45 20 4D 4F 47 45 4C 49 4A 4B 48 45 44 45 4E |KE MOGELIJKHEDEN|
00000DC0: 20 4F 4D 20 4D 49 4A 00 F3 15 60 00 99 22 11 20 | OM MIJ...`..". |
00000DD0: 41 4C 53 20 4A 45 20 57 41 54 20 4D 45 45 52 20 |ALS JE WAT MEER |
00000DE0: 50 52 4F 47 52 41 4D 4D 45 45 52 45 52 56 41 52 |PROGRAMMEERERVAR|
00000DF0: 49 4E 47 00 22 16 61 00 99 22 11 20 48 45 42 54 |ING.".a..". HEBT|
00000E00: 20 42 2E 56 2E 20 47 52 41 46 49 45 4B 45 4E 20 | B.V. GRAFIEKEN |
00000E10: 54 45 20 4C 41 54 45 4E 20 42 45 52 45 4B 45 4E |TE LATEN BEREKEN|
00000E20: 45 4E 00 50 16 62 00 99 22 11 20 45 4E 20 4D 2E |EN.P.b..". EN M.|
00000E30: 42 2E 56 2E 20 4D 49 4A 4E 20 47 52 41 46 49 53 |B.V. MIJN GRAFIS|
00000E40: 43 48 45 20 4B 41 52 41 4B 54 45 52 53 20 54 45 |CHE KARAKTERS TE|
00000E50: 00 67 16 63 00 99 22 11 20 4C 41 54 45 4E 20 54 |.g.c..". LATEN T|
00000E60: 45 4B 45 4E 45 4E 2E 00 6E 16 64 00 8D 38 00 9C |EKENEN..n.d..8..|
00000E70: 16 65 00 99 22 93 9E 20 20 3D 3D 3D 20 4E 4F 47 |.e..".. === NOG|
00000E80: 20 45 4E 4B 45 4C 45 20 4C 45 55 4B 45 20 43 4F | ENKELE LEUKE CO|
00000E90: 4D 4D 41 4E 44 4F 27 53 20 3D 3D 3D 00 C8 16 66 |MMANDO'S ===...f|
00000EA0: 00 99 22 20 20 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 3D 3D 3D 3D 00 11 17 67 00 99 22 11 |========...g..".|
00000ED0: 9A 20 4C 49 53 54 20 31 30 22 3A 99 22 20 C5 C5 |. LIST 10":." ..|
00000EE0: C5 C5 C5 C5 C5 22 3A 99 22 20 4D 45 54 20 44 49 |.....":." MET DI|
00000EF0: 54 20 43 4F 4D 4D 41 4E 44 4F 20 4B 55 4E 20 4A |T COMMANDO KUN J|
00000F00: 45 20 52 45 47 45 4C 20 31 30 20 4C 49 53 54 45 |E REGEL 10 LISTE|
00000F10: 4E 00 56 17 68 00 99 22 11 20 4C 49 53 54 20 31 |N.V.h..". LIST 1|
00000F20: 30 2D 22 3A 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 22 |0-":." ........"|
00000F30: 3A 99 22 20 48 49 45 52 4D 45 45 20 4B 55 4E 20 |:." HIERMEE KUN |
00000F40: 4A 45 20 45 45 4E 20 4C 49 53 54 49 4E 47 20 4B |JE EEN LISTING K|
00000F50: 52 49 4A 47 45 4E 00 6D 17 69 00 99 22 11 20 56 |RIJGEN.m.i..". V|
00000F60: 41 4E 41 46 20 52 45 47 45 4C 20 31 30 00 B5 17 |ANAF REGEL 10...|
00000F70: 6A 00 99 22 11 11 20 4C 49 53 54 20 2D 31 30 22 |j..".. LIST -10"|
00000F80: 3A 99 22 20 C5 C5 C5 C5 C5 C5 C5 C5 22 3A 99 22 |:." ........":."|
00000F90: 20 4E 55 20 4C 49 53 54 20 49 4B 20 41 4C 4C 45 | NU LIST IK ALLE|
00000FA0: 20 52 45 47 45 4C 53 20 54 4F 54 20 45 4E 20 4D | REGELS TOT EN M|
00000FB0: 45 54 20 31 30 00 00 18 6B 00 99 22 11 11 20 4C |ET 10...k..".. L|
00000FC0: 49 53 54 20 31 30 2D 32 30 22 3A 99 22 20 C5 C5 |IST 10-20":." ..|
00000FD0: C5 C5 C5 C5 C5 C5 C5 C5 22 3A 99 22 20 44 49 54 |........":." DIT|
00000FE0: 20 47 45 45 46 54 20 45 45 4E 20 4C 49 53 54 49 | GEEFT EEN LISTI|
00000FF0: 4E 47 20 56 41 4E 20 31 30 20 54 2F 4D 20 32 30 |NG VAN 10 T/M 20|
00001000: 00 07 18 6C 00 8D 38 00 23 18 6D 00 99 22 93 1E |...l..8.#.m.."..|
00001010: 20 52 55 4E 20 31 30 22 3A 99 22 20 C5 C5 C5 C5 | RUN 10":." ....|
00001020: C5 C5 22 00 52 18 6E 00 99 22 11 20 41 4C 53 20 |..".R.n..". ALS |
00001030: 4A 45 20 4D 49 4A 20 4E 49 45 54 20 4F 50 20 44 |JE MIJ NIET OP D|
00001040: 45 20 45 45 52 53 54 45 20 52 45 47 45 4C 20 56 |E EERSTE REGEL V|
00001050: 41 4E 00 80 18 6F 00 99 22 11 20 45 45 4E 20 50 |AN...o..". EEN P|
00001060: 52 4F 47 52 41 4D 4D 41 20 57 49 4C 54 20 4C 41 |ROGRAMMA WILT LA|
00001070: 54 45 4E 20 42 45 47 49 4E 4E 45 4E 2C 44 41 4E |TEN BEGINNEN,DAN|
00001080: 00 B0 18 70 00 99 22 11 20 4B 55 4E 20 4A 45 20 |...p..". KUN JE |
00001090: 4D 49 4A 20 4F 50 20 42 4F 56 45 4E 53 54 41 41 |MIJ OP BOVENSTAA|
000010A0: 4E 44 45 20 57 49 4A 5A 45 20 4F 50 20 45 4C 4B |NDE WIJZE OP ELK|
000010B0: 00 DC 18 71 00 99 22 20 42 45 53 54 41 41 4E 44 |...q.." BESTAAND|
000010C0: 20 52 45 47 45 4C 4E 55 4D 4D 45 52 20 4C 41 54 | REGELNUMMER LAT|
000010D0: 45 4E 20 42 45 47 49 4E 4E 45 4E 2E 00 0C 19 72 |EN BEGINNEN....r|
000010E0: 00 99 22 11 90 20 45 45 4E 20 4E 49 45 54 20 42 |..".. EEN NIET B|
000010F0: 45 53 54 41 41 4E 44 20 52 45 47 45 4C 4E 55 4D |ESTAAND REGELNUM|
00001100: 4D 45 52 20 47 45 45 46 54 20 44 45 00 2A 19 73 |MER GEEFT DE.*.s|
00001110: 00 99 22 11 20 56 4F 4C 47 45 4E 44 45 20 46 4F |..". VOLGENDE FO|
00001120: 55 54 4D 45 4C 44 49 4E 47 3A 00 3A 19 74 00 81 |UTMELDING:.:.t..|
00001130: 4E B2 31 A4 54 32 AC 32 3A 82 00 69 19 75 00 99 |N.1.T2.2:..i.u..|
00001140: 22 11 05 3F 55 4E 44 45 46 27 44 20 53 54 41 54 |"..?UNDEF'D STAT|
00001150: 45 4D 45 4E 54 20 45 52 52 4F 52 22 3A 99 22 52 |EMENT ERROR":."R|
00001160: 45 41 44 59 22 3A 8D 31 33 00 95 19 76 00 99 22 |EADY":.13...v.."|
00001170: 11 1E 20 44 45 5A 45 20 46 4F 55 54 4D 45 4C 44 |.. DEZE FOUTMELD|
00001180: 49 4E 47 20 47 45 4C 44 54 20 56 4F 4F 52 20 49 |ING GELDT VOOR I|
00001190: 45 44 45 52 45 00 CF 19 77 00 99 22 11 20 56 45 |EDERE...w..". VE|
000011A0: 52 57 49 4A 5A 49 4E 47 20 4E 41 41 52 20 45 45 |RWIJZING NAAR EE|
000011B0: 4E 20 4E 49 45 54 20 42 45 53 54 41 41 4E 44 45 |N NIET BESTAANDE|
000011C0: 20 20 20 20 20 20 11 52 45 47 45 4C 2E 22 3B 00 | .REGEL.";.|
000011D0: DB 19 78 00 99 22 13 22 3A 8D 38 00 0F 1A 79 00 |..x..".":.8...y.|
000011E0: 99 22 90 93 11 11 11 11 11 11 20 57 49 4C 20 4A |."........ WIL J|
000011F0: 45 20 44 45 5A 45 20 4C 45 53 20 4E 4F 47 20 45 |E DEZE LES NOG E|
00001200: 45 4E 53 20 44 4F 4F 52 4E 45 4D 45 4E 20 3F 00 |ENS DOORNEMEN ?.|
00001210: 22 1A 7A 00 A1 41 24 3A 8B 41 24 B2 22 4A 22 A7 |".z..A$:.A$."J".|
00001220: 8A 33 00 33 1A 7B 00 8B 41 24 B3 B1 22 4E 22 A7 |.3.3.{..A$.."N".|
00001230: 31 32 32 00 52 1A 7C 00 99 22 11 99 20 49 4B 20 |122.R.|..".. IK |
00001240: 4C 41 41 44 20 44 41 4E 20 4E 55 20 4C 45 53 20 |LAAD DAN NU LES |
00001250: 36 2E 00 6E 1A 7D 00 93 22 42 41 53 49 43 20 4C |6..n.}.."BASIC L|
00001260: 45 53 20 36 22 2C C2 28 34 39 31 35 32 29 00 00 |ES 6",.(49152)..|
00001270: 00 |. |
....... BASIC LES 5.%....49152,B(186).8.
..Q1.198:.G(142).V...T1.10000:T2.T1.5:Q$
.G(34).Q....53280,14:.53281,6:.15......Q
1,0:.N.1.T1:.C$:.C$."".............."...
........................................
.................TOETS."......6......"."
;:.N.1.200:.:..!....". VOORBEELD":." EEE
EEEEEE":..Q...."..?ILLEGAL QUANTITY ERRO
R IN 10":."READY.......N.1.10:.N1.1.200:
.:.". ..";:.N1.1.200:.:." .";:......A.0:
..A...."... === NOG ENKELE STRING STATE
MENTS ===......" ======================
==============......". ER ZIJN NOG ENKEL
E 'STRING STATEMENTS'.L....". DIE IN EER
STE INSTANTIE MISSCHIEN NIET......". ZO
BELANGRIJK LIJKEN, MAAR HET TOCH . ZI
JN......."... DAT ZIJN: 'ASC' EN 'CHR$'.
.I...." EEEEE EEEEEE......"
... IK KEN ZE OP DE VOLGENDE MANIEREN:.#
....". STRING VARIABELE = CHR$ (NUMM. VA
R.).Q....". NUMM. VARIABELE = ASC (STR
ING VAR.).X....8.M...."... 1-ASC (A$)..
..." EEEEEEEEEE......".. IEDER KARAKTER
DAT IK KEN (OOK ALLE......". GRAFISCHE)
WORDT IN MIJN GEHEUGEN DOOR......". EEN
BEPAALDE CODE VOORGESTELD...+....11:."..
1 ASC ("Q$"A"Q$") = 65.N. ..". 2
ASC ("Q$"B"Q$") = 66.Q.!..". 3 ASC
("Q$"Z"Q$") = 90..."..". 4 ASC ("Q$"B
CD"Q$") = 66 !!!...#.."... LET OP VOORBE
ELD 4 !":.8...$..11:.".. 10 A$= "Q$"AB
C"Q$...%..". 20 PRINT ASC (A$).3.&..".
. DIT PROGRAMMA ZAL HET GETAL '65'
.PRINTEN..C.'..". HET ASC STATEMENT GE
EFT MIJ DE OPDRACHT...(.." DE CODE VAN H
ET EERSTE LETTER VAN DE...)..". STRING T
E BEPALEN. DIE CODE WORDT DE.Z.*..". 'AS
CII' CODE GENOEMD....+..".. WAT IS HET N
UT VAN DEZE CODES ?.8.,..N.1.T2:.:.". DA
T KAN IK HET MAKKELIJKST MET EEN.Y.-..".
VOORBEELD UITLEGGEN.":.8......11:."..
10 GET C$ : IF C$ = "Q$;Q$" THEN 10.../
.." 20 C = ASC (C$).C.0.." 30 IF C <
65 THEN 10...1.." 40 IF C > 70 THEN 1
0...2.." 50 ON C-64 GOTO 100,200,300,4
00,500, 600.,.3..N.1.T2:A.10:..\.4
.."... REGEL 10 SCANT HET TOETSENBORD TO
T ER...5..". EEN TOETS WORDT INGEDRUKT.
REGEL 20...6..". MAAKT DE ASCII CODE VAN
DE INGEDRUKTE...7..". TOETS. ALS DE ASC
II WAARDE VAN HET...8..". KARAKTER KLEIN
ER DAN 65 OF GROTER DAN.T.9..". 70 IS DA
N WORDT VAN REGEL 30 OF 40 NAAR. 10 TERU
GGESPRONGEN..[.:..6.U.;.."..........":.N
.1.14...<.."
";:....=..".........."...>..
". ALS TOETS C WORDT INGEDRUKT WAT GEBEU
RD...?.." ER DAN ? .1 NIETS.#.@...14
)"2 SPRONG NAAR 200.?.A...14)"3 SPRONG N
AAR 300.Z.B...14)"4 SPRONG NAAR 10...C..
". WELK NUMMER (1-4) .......";A$:A
.E(A$)...D..A.1.A.4.."....":.67...E..A.3
.72...F..". NIET GOED PROBEER OP NIEUW."
:.N.1.T2:....G.."
....":.67.4.H..10:.". DAT IS HET GOE
DE ANTWOORD".`.I..". DE ASCII CODE VAN D
E 'C' IS 67, DAN...J..". WORDT NAAR HET
DERDE ADRES IN DE ADRES...K..". LIST GES
PRONGEN ( 67 - 64 = 3 ).X.L..8:.". HET
'CHR$' STATEMENT...M.." EEEEEEEEEEEEEEEE
EEEE.$.N..". HET 'CHR$' STATEMENT DOET H
ET VOLGENDE:.O.O.." HET LAAT MIJ VAN EEN
ASCII CODE EEN.N.P..". KARAKTERSTRING M
AKEN...V.Q..11...R..". 10 INPUT A...S..
" 20 PRINT CHR$(A).O.T..".. HET GETAL A
MOET IN HET BEREIK VAN...U.." .0-255 LI
GGEN. WE GAAN DIT VOORBEELD . GEBRUIK
EN..9.V..".. GEEF A";A$:A..(E(A$)):.A.0.
A.255..12.K.W..G(A):.Q1,0:." NOG EEN KEE
R";A$:.F(A$)..78.86...X..10:.". JE HEBT
NU GEZIEN WAT MOGELIJK IS MET.L.Y..". 'A
SC' EN 'CHR$'. IS HET JE OPGEVALLEN,...Z
..". DAT JE MET 'CHR$' OOK MIJN GRAFISCH
E. .[..". KARAKTERS KUNT LATEN PRINTEN ?
.N.\..". EN HEB JE GEZIEN WAT ER GEBEURD
ALS A.V.]..". NEGATIEF OF GROTER DAN 25
5 IS ?...^..".. JA/NEE ";A$:.F(A$)..74.8
6.G._..".. DAT GEEFT LEUKE MOGELIJKHEDEN
OM MIJ...`..". ALS JE WAT MEER PROGRAMM
EERERVARING.".A..". HEBT B.V. GRAFIEKEN
TE LATEN BEREKENEN.P.B..". EN M.B.V. MIJ
N GRAFISCHE KARAKTERS TE.G.C..". LATEN T
EKENEN..N.D..8...E..".. === NOG ENKELE
LEUKE COMMANDO'S ===.H.F.." ===========
========================...G..".. LIST 1
0":." EEEEEEE":." MET DIT COMMANDO KUN J
E REGEL 10 LISTEN.V.H..". LIST 10-":." E
EEEEEEE":." HIERMEE KUN JE EEN LISTING K
RIJGEN.M.I..". VANAF REGEL 10...J..".. L
IST -10":." EEEEEEEE":." NU LIST IK ALLE
REGELS TOT EN MET 10...K..".. LIST 10-2
0":." EEEEEEEEEE":." DIT GEEFT EEN LISTI
NG VAN 10 T/M 20...L..8.#.M..".. RUN 10"
:." EEEEEE".R.N..". ALS JE MIJ NIET OP D
E EERSTE REGEL VAN...O..". EEN PROGRAMMA
WILT LATEN BEGINNEN,DAN...P..". KUN JE
MIJ OP BOVENSTAANDE WIJZE OP ELK...Q.."
BESTAAND REGELNUMMER LATEN BEGINNEN....R
..".. EEN NIET BESTAAND REGELNUMMER GEEF
T DE.*.S..". VOLGENDE FOUTMELDING:.:.T..
N.1.T2.2:..I.U.."..?UNDEF'D STATEMENT ER
ROR":."READY":.13...V..".. DEZE FOUTMELD
ING GELDT VOOR IEDERE.O.W..". VERWIJZING
NAAR EEN NIET BESTAANDE .REGEL.";.
..X..".":.8...Y.."........ WIL JE DEZE L
ES NOG EENS DOORNEMEN ?.".Z..A$:.A$."J".
.3.3.{..A$.."N".122.R.|..".. IK LAAD DAN
NU LES 6..N.}.."BASIC LES 6",B(49152)..
.
> CLICK IMAGE PREVIEW FOR FULL MODAL