NED BASIC LES 8
FILE INFORMATION
FILENAME(S): NED BASIC LES 8
FILE TYPE(S): PRG
FILE SIZE: 6.9K
FIRST SEEN: 2025-12-02 02:07:08
APPEARS ON: 1 disk(s)
FILE HASH
c4cfad2b0edc743df28e301fdbcd7e8d5f82e884eac33e541fdeeab6931b2449
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HW 06 OXF PASCAL | NED BASIC LES 8 | PRG | Shocktrooper | 12 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 64 00 99 C7 28 31 34 29 3A 97 35 33 |....d...(14):.53|
00000010: 32 38 30 2C 35 3A 97 35 33 32 38 31 2C 35 00 4B |280,5:.53281,5.K|
00000020: 08 6E 00 99 22 93 1F 20 C2 45 48 41 4C 56 45 20 |.n..".. .EHALVE |
00000030: 44 45 20 42 41 53 49 43 2D 57 4F 4F 52 44 45 4E |DE BASIC-WOORDEN|
00000040: 20 4B 55 4E 20 4A 45 20 4D 45 54 00 76 08 78 00 | KUN JE MET.v.x.|
00000050: 99 22 20 4D 49 4A 20 4E 4F 47 20 56 45 45 4C 20 |." MIJ NOG VEEL |
00000060: 4C 45 55 4B 45 20 44 49 4E 47 45 4E 20 55 49 54 |LEUKE DINGEN UIT|
00000070: 48 41 4C 45 4E 2E 00 9F 08 82 00 99 22 11 20 C9 |HALEN.......". .|
00000080: 4B 20 47 45 45 46 20 45 52 20 57 41 54 20 56 4F |K GEEF ER WAT VO|
00000090: 4F 52 42 45 45 4C 44 45 4E 20 56 41 4E 20 3A 00 |ORBEELDEN VAN :.|
000000A0: CD 08 8C 00 99 22 11 11 90 20 31 2E 20 C9 4B 20 |....."... 1. .K |
000000B0: 42 45 4E 20 45 45 4E 20 4B 4C 45 55 52 45 4E 2D |BEN EEN KLEUREN-|
000000C0: 43 4F 4D 50 55 54 45 52 2E 20 C4 55 53 00 F8 08 |COMPUTER. .US...|
000000D0: 96 00 99 22 20 20 20 20 4D 4F 45 54 45 4E 20 4D |..." MOETEN M|
000000E0: 49 4A 4E 20 4B 4C 45 55 52 45 4E 20 54 45 20 47 |IJN KLEUREN TE G|
000000F0: 45 42 52 55 49 4B 45 4E 00 19 09 A0 00 99 22 20 |EBRUIKEN......" |
00000100: 20 20 20 5A 49 4A 4E 20 49 4E 20 45 45 4E 20 50 | ZIJN IN EEN P|
00000110: 52 4F 47 52 41 4D 4D 41 2E 00 48 09 AA 00 99 22 |ROGRAMMA..H...."|
00000120: 11 11 9E 20 32 2E 20 C9 4B 20 4B 41 4E 20 4F 4F |... 2. .K KAN OO|
00000130: 4B 20 47 45 4C 55 49 44 20 4D 41 4B 45 4E 2E 20 |K GELUID MAKEN. |
00000140: C4 41 54 20 4D 4F 45 54 00 73 09 B4 00 99 22 20 |.AT MOET.s...." |
00000150: 20 20 20 44 55 53 20 4F 4F 4B 20 49 4E 20 45 45 | DUS OOK IN EE|
00000160: 4E 20 50 52 4F 47 52 41 4D 4D 41 20 4B 55 4E 4E |N PROGRAMMA KUNN|
00000170: 45 4E 2E 00 C5 09 D2 00 99 22 11 11 11 1C 20 D6 |EN.......".... .|
00000180: 41 4E 20 44 45 5A 45 20 54 57 45 45 20 47 45 45 |AN DEZE TWEE GEE|
00000190: 46 20 49 4B 20 45 45 4E 20 4B 4C 45 49 4E 20 20 |F IK EEN KLEIN |
000001A0: 20 20 20 20 20 20 20 56 4F 4F 52 42 45 45 4C 44 | VOORBEELD|
000001B0: 20 49 4E 20 44 45 5A 45 20 4C 41 41 54 53 54 45 | IN DEZE LAATSTE|
000001C0: 20 4C 45 53 2E 00 CF 09 DC 00 8D 32 30 30 30 00 | LES.......2000.|
000001D0: 17 0A 2C 01 99 22 93 1F 20 C9 4B 20 4B 41 4E 20 |..,..".. .K KAN |
000001E0: 44 45 20 4B 4C 45 55 52 20 56 41 4E 20 48 45 54 |DE KLEUR VAN HET|
000001F0: 20 53 43 48 45 52 4D 20 20 20 20 20 20 20 20 20 | SCHERM |
00000200: 20 45 45 4E 56 4F 55 44 49 47 20 56 45 52 41 4E | EENVOUDIG VERAN|
00000210: 44 45 52 45 4E 20 3A 00 3B 0A 36 01 99 22 11 90 |DEREN :.;.6.."..|
00000220: 20 D0 CF CB C5 20 35 33 32 38 31 2C D8 20 5A 45 | .... 53281,. ZE|
00000230: 54 20 44 45 20 4B 4C 45 55 52 2E 00 53 0A 40 01 |T DE KLEUR..S.@.|
00000240: 99 22 1F 20 11 11 CB 49 4A 4B 20 4D 41 41 52 20 |.". ...IJK MAAR |
00000250: 3A 11 11 00 5F 0A 4A 01 81 49 B2 30 A4 31 35 00 |:..._.J..I.0.15.|
00000260: 71 0A 54 01 99 22 91 20 D8 20 49 53 20 4E 55 22 |q.T..". . IS NU"|
00000270: 49 00 7E 0A 5E 01 97 35 33 32 38 31 2C 49 00 90 |I.~.^..53281,I..|
00000280: 0A 68 01 81 4A B2 31 A4 31 30 30 30 3A 82 3A 82 |.h..J.1.1000:.:.|
00000290: 00 BC 0A 72 01 99 22 11 11 11 20 C5 4E 20 4F 4F |...r.."... .N OO|
000002A0: 4B 20 44 45 20 52 41 4E 44 20 4D 45 54 20 D0 CF |K DE RAND MET ..|
000002B0: CB C5 20 35 33 32 38 30 2C D8 11 11 00 C8 0A 7C |.. 53280,......||
000002C0: 01 81 49 B2 30 A4 31 35 00 DA 0A 86 01 99 22 91 |..I.0.15......".|
000002D0: 20 D8 20 49 53 20 4E 55 22 49 00 E7 0A 90 01 97 | . IS NU"I......|
000002E0: 35 33 32 38 30 2C 49 00 F9 0A 9A 01 81 4A B2 31 |53280,I......J.1|
000002F0: A4 31 30 30 30 3A 82 3A 82 00 03 0B A4 01 8D 32 |.1000:.:.......2|
00000300: 30 30 30 00 19 0B AE 01 97 35 33 32 38 30 2C 36 |000......53280,6|
00000310: 3A 97 35 33 32 38 31 2C 36 00 39 0B B8 01 99 22 |:.53281,6.9...."|
00000320: 93 9A 20 C8 49 45 52 42 49 4A 20 47 45 4C 44 54 |.. .IERBIJ GELDT|
00000330: 20 56 4F 4F 52 20 D8 20 3A 00 5B 0B C2 01 99 22 | VOOR . :.[...."|
00000340: 11 11 9A 20 20 30 20 3D 20 12 90 20 20 20 20 20 |... 0 = .. |
00000350: 20 20 20 20 20 20 20 20 20 20 92 00 7B 0B CC 01 | ..{...|
00000360: 99 22 9A 20 A0 31 20 3D 20 12 05 20 20 20 20 20 |.". .1 = .. |
00000370: 20 20 20 20 20 20 20 20 20 20 92 00 9B 0B D6 01 | ......|
00000380: 99 22 9A 20 20 32 20 3D 20 12 1C 20 20 20 20 20 |.". 2 = .. |
00000390: 20 20 20 20 20 20 20 20 20 20 92 00 BB 0B E0 01 | ......|
000003A0: 99 22 9A 20 20 33 20 3D 20 12 9F 20 20 20 20 20 |.". 3 = .. |
000003B0: 20 20 20 20 20 20 20 20 20 20 92 00 DB 0B EA 01 | ......|
000003C0: 99 22 9A 20 20 34 20 3D 20 12 9C 20 20 20 20 20 |.". 4 = .. |
000003D0: 20 20 20 20 20 20 20 20 20 20 92 00 FB 0B F4 01 | ......|
000003E0: 99 22 9A 20 20 35 20 3D 20 12 1E 20 20 20 20 20 |.". 5 = .. |
000003F0: 20 20 20 20 20 20 20 20 20 20 92 00 1B 0C FE 01 | ......|
00000400: 99 22 9A 20 20 36 20 3D 20 12 1F 20 20 20 20 20 |.". 6 = .. |
00000410: 20 20 20 20 20 20 20 20 20 20 92 00 3B 0C 08 02 | ..;...|
00000420: 99 22 9A 20 20 37 20 3D 20 12 9E 20 20 20 20 20 |.". 7 = .. |
00000430: 20 20 20 20 20 20 20 20 20 20 92 00 5B 0C 12 02 | ..[...|
00000440: 99 22 9A 20 20 38 20 3D 20 12 81 20 20 20 20 20 |.". 8 = .. |
00000450: 20 20 20 20 20 20 20 20 20 20 92 00 7B 0C 1C 02 | ..{...|
00000460: 99 22 9A 20 20 39 20 3D 20 12 95 20 20 20 20 20 |.". 9 = .. |
00000470: 20 20 20 20 20 20 20 20 20 20 92 00 9B 0C 26 02 | ....&.|
00000480: 99 22 9A 20 31 30 20 3D 20 12 96 20 20 20 20 20 |.". 10 = .. |
00000490: 20 20 20 20 20 20 20 20 20 20 92 00 BB 0C 30 02 | ....0.|
000004A0: 99 22 9A 20 31 31 20 3D 20 12 97 20 20 20 20 20 |.". 11 = .. |
000004B0: 20 20 20 20 20 20 20 20 20 20 92 00 DB 0C 3A 02 | ....:.|
000004C0: 99 22 9A 20 31 32 20 3D 20 12 98 20 20 20 20 20 |.". 12 = .. |
000004D0: 20 20 20 20 20 20 20 20 20 20 92 00 FB 0C 44 02 | ....D.|
000004E0: 99 22 9A 20 31 33 20 3D 20 12 99 20 20 20 20 20 |.". 13 = .. |
000004F0: 20 20 20 20 20 20 20 20 20 20 92 00 1B 0D 4E 02 | ....N.|
00000500: 99 22 9A 20 31 34 20 3D 20 12 9A 20 20 20 20 20 |.". 14 = .. |
00000510: 20 20 20 20 20 20 20 20 20 20 92 00 3B 0D 58 02 | ..;.X.|
00000520: 99 22 9A 20 31 35 20 3D 20 12 9B 20 20 20 20 20 |.". 15 = .. |
00000530: 20 20 20 20 20 20 20 20 20 20 92 00 45 0D 62 02 | ..E.b.|
00000540: 8D 32 30 30 30 00 74 0D 6C 02 99 22 93 90 20 CA |.2000.t.l..".. .|
00000550: 45 20 4B 55 4E 54 20 5A 45 4C 46 20 42 49 4A 20 |E KUNT ZELF BIJ |
00000560: 48 45 54 20 49 4E 54 49 4B 4B 45 4E 20 56 41 4E |HET INTIKKEN VAN|
00000570: 20 45 45 4E 00 9F 0D 76 02 99 22 20 50 52 4F 47 | EEN...v.." PROG|
00000580: 52 41 4D 4D 41 20 44 49 45 20 4B 4C 45 55 52 45 |RAMMA DIE KLEURE|
00000590: 4E 20 47 45 42 52 55 49 4B 45 4E 2E 20 CA 45 00 |N GEBRUIKEN. .E.|
000005A0: CA 0D 80 02 99 22 20 4B 52 49 4A 47 54 20 44 45 |....." KRIJGT DE|
000005B0: 20 45 45 52 53 54 45 20 38 20 4B 4C 45 55 52 45 | EERSTE 8 KLEURE|
000005C0: 4E 20 44 4F 4F 52 20 48 45 54 00 EA 0D 8A 02 99 |N DOOR HET......|
000005D0: 22 20 54 45 47 45 4C 49 4A 4B 20 49 4E 44 52 55 |" TEGELIJK INDRU|
000005E0: 4B 4B 45 4E 20 56 41 4E 20 3A 00 07 0E 94 02 99 |KKEN VAN :......|
000005F0: 22 11 05 20 C3 D4 D2 CC 20 45 4E 20 45 45 4E 20 |".. .... EN EEN |
00000600: 43 49 4A 46 45 52 2E 00 32 0E 9E 02 99 22 90 11 |CIJFER..2...."..|
00000610: 20 C4 45 20 54 57 45 45 44 45 20 53 45 52 49 45 | .E TWEEDE SERIE|
00000620: 20 44 4F 4F 52 20 48 45 54 20 54 45 47 45 4C 49 | DOOR HET TEGELI|
00000630: 4A 4B 00 54 0E A8 02 99 22 11 05 20 C3 CF CD CD |JK.T....".. ....|
00000640: CF C4 CF D2 C5 20 45 4E 20 45 45 4E 20 43 49 4A |..... EN EEN CIJ|
00000650: 46 45 52 2E 00 5E 0E B2 02 8D 32 30 30 30 00 77 |FER..^....2000.w|
00000660: 0E BC 02 99 22 93 90 C7 C5 CC D5 C9 C4 20 21 21 |...."........ !!|
00000670: 21 21 21 21 21 21 21 00 9F 0E C6 02 99 22 11 9A |!!!!!!!......"..|
00000680: 20 C7 45 4C 55 49 44 20 4F 50 20 44 45 5A 45 20 | .ELUID OP DEZE |
00000690: 43 4F 4D 50 55 54 45 52 20 49 53 20 45 52 47 00 |COMPUTER IS ERG.|
000006A0: CD 0E D0 02 99 22 20 49 4E 47 45 57 49 4B 4B 45 |....." INGEWIKKE|
000006B0: 4C 44 2E 20 D3 4C 41 20 44 41 41 52 56 4F 4F 52 |LD. .LA DAARVOOR|
000006C0: 20 44 45 20 52 45 46 45 52 45 4E 43 45 00 F6 0E | DE REFERENCE...|
000006D0: DA 02 99 22 20 47 55 49 44 45 20 4F 50 20 4E 41 |..." GUIDE OP NA|
000006E0: 2E 20 CE 55 20 53 4C 45 43 48 54 53 20 45 45 4E |. .U SLECHTS EEN|
000006F0: 20 4B 4C 45 49 4E 00 0F 0F E4 02 99 22 20 56 4F | KLEIN......" VO|
00000700: 4F 52 42 45 45 4C 44 2E 22 3A 8D 32 30 30 30 00 |ORBEELD.":.2000.|
00000710: 51 0F EE 02 99 22 93 05 31 30 30 20 53 49 44 20 |Q...."..100 SID |
00000720: 3D 20 35 34 32 37 32 20 20 20 20 20 20 20 20 3A |= 54272 :|
00000730: 52 45 4D 20 41 44 52 45 53 20 56 41 4E 20 20 20 |REM ADRES VAN |
00000740: 20 20 20 20 44 45 20 47 45 4C 55 49 44 43 48 49 | DE GELUIDCHI|
00000750: 50 00 78 0F F8 02 99 22 31 31 30 20 46 4F 52 49 |P.x...."110 FORI|
00000760: 3D 30 54 4F 32 38 20 20 20 20 20 20 20 20 20 3A |=0TO28 :|
00000770: 52 45 4D 20 4C 4F 4F 50 00 AF 0F 02 03 99 22 31 |REM LOOP......"1|
00000780: 32 30 20 50 4F 4B 45 20 53 49 44 2B 49 2C 30 20 |20 POKE SID+I,0 |
00000790: 20 20 20 20 20 20 3A 52 45 4D 20 5A 45 54 20 44 | :REM ZET D|
000007A0: 45 20 43 48 49 50 20 20 20 20 20 4F 50 20 30 00 |E CHIP OP 0.|
000007B0: DC 0F 0C 03 99 22 31 33 30 20 4E 45 58 54 20 20 |....."130 NEXT |
000007C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 52 45 | :RE|
000007D0: 4D 20 45 49 4E 44 45 20 4C 4F 4F 50 00 0A 10 16 |M EINDE LOOP....|
000007E0: 03 99 22 31 34 30 20 50 4F 4B 45 20 53 49 44 2B |.."140 POKE SID+|
000007F0: 32 34 2C 31 35 20 20 20 20 20 3A 52 45 4D 20 56 |24,15 :REM V|
00000800: 4F 4C 55 4D 45 20 48 41 52 44 00 37 10 20 03 99 |OLUME HARD.7. ..|
00000810: 22 31 35 30 20 50 4F 4B 45 20 53 49 44 2B 31 2C |"150 POKE SID+1,|
00000820: 58 20 20 20 20 20 20 20 3A 52 45 4D 20 46 52 45 |X :REM FRE|
00000830: 51 55 45 4E 54 49 45 00 61 10 2A 03 99 22 31 36 |QUENTIE.a.*.."16|
00000840: 30 20 50 4F 4B 45 20 53 49 44 2B 35 2C 41 2A 32 |0 POKE SID+5,A*2|
00000850: 36 2B 42 20 20 3A 52 45 4D 20 41 20 49 53 20 44 |6+B :REM A IS D|
00000860: 45 00 AE 10 34 03 99 22 20 20 20 20 54 49 4A 44 |E...4.." TIJD|
00000870: 20 56 4F 4F 52 44 41 54 20 4D 41 58 49 4D 55 4D | VOORDAT MAXIMUM|
00000880: 20 56 4F 4C 55 4D 45 20 57 4F 52 44 54 20 20 20 | VOLUME WORDT |
00000890: 20 20 20 20 42 45 52 45 49 4B 54 20 30 3D 53 4E | BEREIKT 0=SN|
000008A0: 45 4C 20 31 35 3D 4C 41 4E 47 5A 41 41 4D 00 F3 |EL 15=LANGZAAM..|
000008B0: 10 3E 03 99 22 20 20 20 20 42 20 49 53 20 44 45 |.>.." B IS DE|
000008C0: 20 54 49 4A 44 20 56 4F 4F 52 44 41 54 20 48 45 | TIJD VOORDAT HE|
000008D0: 54 20 41 41 4E 48 4F 55 44 2D 20 20 20 20 20 20 |T AANHOUD- |
000008E0: 20 56 4F 4C 55 4D 45 20 49 53 20 42 45 52 45 49 | VOLUME IS BEREI|
000008F0: 4B 54 2E 00 1E 11 48 03 99 22 31 37 30 20 50 4F |KT....H.."170 PO|
00000900: 4B 45 20 53 49 44 2B 36 2C 43 2A 31 36 2B 44 20 |KE SID+6,C*16+D |
00000910: 20 3A 52 45 4D 20 43 20 49 53 20 48 45 54 00 45 | :REM C IS HET.E|
00000920: 11 52 03 99 22 20 20 20 20 56 4F 4C 55 4D 45 20 |.R.." VOLUME |
00000930: 54 49 4A 44 45 4E 53 20 48 45 54 20 41 41 4E 48 |TIJDENS HET AANH|
00000940: 4F 55 44 45 4E 00 71 11 5C 03 99 22 20 20 20 20 |OUDEN.q.\.." |
00000950: 44 20 49 53 20 44 45 20 54 49 4A 44 20 44 41 54 |D IS DE TIJD DAT|
00000960: 20 44 45 20 54 4F 4F 4E 20 41 46 53 54 45 52 46 | DE TOON AFSTERF|
00000970: 44 00 9C 11 66 03 99 22 31 38 30 20 50 4F 4B 45 |D...f.."180 POKE|
00000980: 20 53 49 44 2B 34 2C 31 37 20 20 20 20 20 20 3A | SID+4,17 :|
00000990: 52 45 4D 20 54 4F 4F 4E 20 41 41 4E 00 C7 11 67 |REM TOON AAN...g|
000009A0: 03 99 22 31 39 30 20 46 4F 52 49 3D 31 54 4F 31 |.."190 FORI=1TO1|
000009B0: 30 30 3A 4E 45 58 54 20 20 20 3A 52 45 4D 20 57 |00:NEXT :REM W|
000009C0: 41 43 48 54 4C 55 53 00 F2 11 70 03 99 22 32 30 |ACHTLUS...p.."20|
000009D0: 30 20 50 4F 4B 45 20 53 49 44 2B 34 2C 31 36 20 |0 POKE SID+4,16 |
000009E0: 20 20 20 20 20 3A 52 45 4D 20 54 4F 4F 4E 20 55 | :REM TOON U|
000009F0: 49 54 00 0E 12 7A 03 99 22 11 11 90 20 C5 45 4E |IT...z.."... .EN|
00000A00: 20 44 45 4D 4F 20 2E 2E 2E 2E 2E 2E 2E 2E 00 18 | DEMO ..........|
00000A10: 12 84 03 8D 32 31 30 30 00 3C 12 8E 03 97 53 49 |....2100.<....SI|
00000A20: 44 AA 34 2C 31 37 3A 81 49 B2 31 A4 32 35 30 30 |D.4,17:.I.1.2500|
00000A30: 3A 82 3A 97 53 49 44 AA 34 2C 31 36 00 46 12 98 |:.:.SID.4,16.F..|
00000A40: 03 8D 32 30 30 30 00 8F 12 A2 03 99 22 13 11 11 |..2000......"...|
00000A50: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000A60: 11 11 90 20 D6 45 52 41 4E 44 45 52 20 31 39 30 |... .ERANDER 190|
00000A70: 20 3A 22 3A 99 22 20 20 20 20 20 20 20 20 20 20 | :":." |
00000A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000A90: B6 12 AC 03 99 22 31 39 30 20 46 4F 52 49 3D 30 |....."190 FORI=0|
00000AA0: 54 4F 32 35 35 3A 50 4F 4B 45 53 49 44 2B 31 2C |TO255:POKESID+1,|
00000AB0: 49 3A 4E 45 58 54 00 CA 12 B6 03 8D 32 30 30 30 |I:NEXT......2000|
00000AC0: 3A 97 53 49 44 AA 34 2C 31 37 00 F6 12 C0 03 81 |:.SID.4,17......|
00000AD0: 49 B2 30 A4 32 35 35 3A 97 53 49 44 AA 31 2C 49 |I.0.255:.SID.1,I|
00000AE0: 3A 81 4A B2 31 A4 35 30 3A 82 3A 82 3A 97 53 49 |:.J.1.50:.:.:.SI|
00000AF0: 44 AA 34 2C 31 36 00 00 13 CA 03 8D 32 30 30 30 |D.4,16......2000|
00000B00: 00 0E 13 DE 03 97 53 49 44 AA 34 2C 31 37 00 41 |......SID.4,17.A|
00000B10: 13 DF 03 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
00000B20: 11 11 11 11 11 11 11 11 11 90 20 D6 45 52 41 4E |.......... .ERAN|
00000B30: 44 45 52 20 45 4E 20 56 4F 45 47 20 54 4F 45 20 |DER EN VOEG TOE |
00000B40: 3A 00 5F 13 E0 03 99 22 05 31 39 30 20 46 4F 52 |:._....".190 FOR|
00000B50: 49 3D 31 30 30 54 4F 32 30 30 53 54 45 50 35 00 |I=100TO200STEP5.|
00000B60: 74 13 E1 03 99 22 31 39 31 20 46 4F 52 4A 3D 30 |t...."191 FORJ=0|
00000B70: 54 4F 33 30 00 A1 13 E2 03 99 22 31 39 32 20 50 |TO30......"192 P|
00000B80: 4F 4B 45 53 49 44 2B 31 2C 49 2B 4A 20 20 20 20 |OKESID+1,I+J |
00000B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BA0: 22 00 B7 13 E3 03 99 22 31 39 33 20 4E 45 58 54 |"......"193 NEXT|
00000BB0: 4A 3A 4E 45 58 54 49 00 C8 13 E8 03 81 49 B2 31 |J:NEXTI......I.1|
00000BC0: 30 30 A4 32 30 30 A9 35 00 D4 13 F2 03 81 4A B2 |00.200.5......J.|
00000BD0: 30 A4 33 30 00 E3 13 FC 03 97 53 49 44 AA 31 2C |0.30......SID.1,|
00000BE0: 49 AA 4A 00 00 14 06 04 82 3A 82 3A 97 53 49 44 |I.J......:.:.SID|
00000BF0: AA 34 2C 31 36 3A 97 53 49 44 AA 31 2C 32 35 35 |.4,16:.SID.1,255|
00000C00: 00 14 14 10 04 8D 32 30 30 30 3A 97 53 49 44 AA |......2000:.SID.|
00000C10: 32 34 2C 30 00 1E 14 1A 04 89 33 30 30 30 00 24 |24,0......3000.$|
00000C20: 14 CF 07 90 00 6D 14 D0 07 99 22 13 11 11 11 11 |.....m....".....|
00000C30: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000C40: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000C50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000C60: 1D 1D 1D 1D 90 5B 54 4F 45 54 53 5D 13 00 81 14 |.....[TOETS]....|
00000C70: DA 07 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 30 31 |...A$:.A$."".201|
00000C80: 30 00 87 14 E4 07 8E 00 C1 14 34 08 53 49 44 B2 |0.........4.SID.|
00000C90: 35 34 32 37 32 3A 81 49 B2 30 A4 32 38 3A 97 53 |54272:.I.0.28:.S|
00000CA0: 49 44 AA 49 2C 30 3A 82 3A 97 53 49 44 AA 31 2C |ID.I,0:.:.SID.1,|
00000CB0: 32 30 3A 97 53 49 44 AA 36 2C 31 35 AC 31 36 AA |20:.SID.6,15.16.|
00000CC0: 33 00 D2 14 3E 08 97 53 49 44 AA 32 34 2C 31 35 |3...>..SID.24,15|
00000CD0: 3A 8E 00 E8 14 B8 0B 97 35 33 32 38 30 2C 32 3A |:.......53280,2:|
00000CE0: 97 35 33 32 38 31 2C 32 00 13 15 C2 0B 99 22 93 |.53281,2......".|
00000CF0: 05 20 C1 4C 53 20 4C 41 41 54 53 54 45 20 50 52 |. .LS LAATSTE PR|
00000D00: 4F 47 52 41 4D 4D 41 20 4B 4F 4D 54 20 4E 55 20 |OGRAMMA KOMT NU |
00000D10: 45 45 4E 00 32 15 CC 0B 99 22 20 47 52 41 46 49 |EEN.2...." GRAFI|
00000D20: 53 43 48 20 45 4E 20 47 45 4C 55 49 44 44 45 4D |SCH EN GELUIDDEM|
00000D30: 4F 2E 00 4A 15 D6 0B 93 22 4E 45 44 20 42 41 53 |O..J...."NED BAS|
00000D40: 49 43 20 44 45 4D 4F 22 2C 38 00 00 00 45 2D 44 |IC DEMO",8...E-D|
00000D50: 45 56 49 43 45 2E 00 8B 15 7A 03 99 22 11 1F 20 |EVICE....z..".. |
00000D60: 44 45 20 30 20 57 49 4C 20 5A 45 47 47 45 4E 20 |DE 0 WIL ZEGGEN |
00000D70: 27 4C 45 5A 45 4E 27 2C 20 31 3D 20 53 43 48 52 |'LEZEN', 1= SCHR|
00000D80: 49 4A 56 45 4E 2E 22 3A 8D 31 33 31 30 00 BB 15 |IJVEN.":.1310...|
00000D90: 84 03 99 22 93 1F 20 45 45 4E 20 56 4F 4F 52 42 |...".. EEN VOORB|
00000DA0: 45 45 4C 44 20 56 41 4E 20 45 45 4E 20 46 49 4C |EELD VAN EEN FIL|
00000DB0: 45 20 50 52 4F 47 52 41 4D 4D 41 3A 11 00 F8 15 |E PROGRAMMA:....|
00000DC0: 8E 03 99 22 05 20 31 30 20 50 52 49 4E 54 20 22 |...". 10 PRINT "|
00000DD0: C7 28 33 34 29 22 44 4F 45 20 45 45 4E 20 44 41 |.(34)"DOE EEN DA|
00000DE0: 54 41 20 43 41 53 53 45 54 54 45 20 49 4E 20 44 |TA CASSETTE IN D|
00000DF0: 45 20 52 45 43 4F 52 44 45 52 00 2E 16 98 03 99 |E RECORDER......|
00000E00: 22 20 32 30 20 50 52 49 4E 54 20 22 C7 28 33 34 |" 20 PRINT ".(34|
00000E10: 29 22 44 52 55 4B 20 4F 50 20 27 4E 20 54 4F 45 |)"DRUK OP 'N TOE|
00000E20: 54 53 20 4F 4D 20 54 45 20 53 54 41 52 54 45 4E |TS OM TE STARTEN|
00000E30: 00 57 16 A2 03 99 22 20 33 30 20 47 45 54 20 41 |.W...." 30 GET A|
00000E40: 24 3A 49 46 41 24 3D 22 C7 28 33 34 29 C7 28 33 |$:IFA$=".(34).(3|
00000E50: 34 29 22 47 4F 54 4F 33 30 00 94 16 AC 03 99 22 |4)"GOTO30......"|
00000E60: 20 34 30 20 4F 50 45 4E 20 31 2C 31 2C 31 22 3A | 40 OPEN 1,1,1":|
00000E70: 99 22 20 35 30 20 49 4E 50 55 54 22 C7 28 33 34 |." 50 INPUT".(34|
00000E80: 29 22 57 45 4C 4B 45 20 4E 41 41 4D 22 C7 28 33 |)"WELKE NAAM".(3|
00000E90: 34 29 22 3B 4E 24 00 BD 16 B6 03 99 22 20 35 35 |4)";N$......" 55|
00000EA0: 20 49 46 20 4E 24 3D 22 C7 28 33 34 29 22 53 54 | IF N$=".(34)"ST|
00000EB0: 4F 50 22 C7 28 33 34 29 22 47 4F 54 4F 38 30 00 |OP".(34)"GOTO80.|
00000EC0: FC 16 C0 03 99 22 20 36 30 20 49 46 20 4C 45 4E |....." 60 IF LEN|
00000ED0: 28 4E 24 29 3E 37 39 54 48 45 4E 20 50 52 49 4E |(N$)>79THEN PRIN|
00000EE0: 54 22 C7 28 33 34 29 22 54 45 20 4C 41 4E 47 21 |T".(34)"TE LANG!|
00000EF0: 22 C7 28 33 34 29 22 3A 47 4F 54 4F 35 30 00 18 |".(34)":GOTO50..|
00000F00: 17 CA 03 99 22 20 37 30 20 50 52 49 4E 54 23 31 |...." 70 PRINT#1|
00000F10: 2C 4E 24 3A 47 4F 54 4F 35 30 00 2A 17 D4 03 99 |,N$:GOTO50.*....|
00000F20: 22 20 38 30 20 43 4C 4F 53 45 20 31 00 66 17 DE |" 80 CLOSE 1.f..|
00000F30: 03 99 22 20 39 30 20 50 52 49 4E 54 22 C7 28 33 |.." 90 PRINT".(3|
00000F40: 34 29 22 46 49 4C 45 20 47 45 52 45 45 44 2C 20 |4)"FILE GEREED, |
00000F50: 41 55 42 2E 20 54 45 52 55 47 20 53 50 4F 45 4C |AUB. TERUG SPOEL|
00000F60: 45 4E 22 C7 28 33 34 29 00 9C 17 E8 03 99 22 11 |EN".(34)......".|
00000F70: 1F 20 44 45 20 44 45 52 44 45 20 31 20 28 34 30 |. DE DERDE 1 (40|
00000F80: 29 20 5A 45 47 54 20 44 55 53 20 27 53 43 48 52 |) ZEGT DUS 'SCHR|
00000F90: 49 4A 56 45 4E 27 2E 22 3A 8D 31 33 31 30 00 D7 |IJVEN'.":.1310..|
00000FA0: 17 F2 03 99 22 90 11 11 91 91 91 91 91 91 91 91 |...."...........|
00000FB0: 91 20 27 50 52 49 4E 54 23 31 2C 4E 24 27 20 42 |. 'PRINT#1,N$' B|
00000FC0: 45 54 45 4B 45 4E 44 20 50 52 49 4E 54 20 4F 50 |ETEKEND PRINT OP|
00000FD0: 20 43 41 53 53 45 54 54 45 00 05 18 FC 03 99 22 | CASSETTE......"|
00000FE0: 20 49 4E 20 46 49 4C 45 20 4E 55 4D 4D 45 52 20 | IN FILE NUMMER |
00000FF0: 31 2E 20 20 4E 24 20 49 53 20 27 4E 20 56 41 52 |1. N$ IS 'N VAR|
00001000: 49 41 42 45 4C 45 2E 00 33 18 06 04 99 22 11 20 |IABELE..3....". |
00001010: 52 45 47 45 4C 20 36 30 20 4B 49 4A 4B 54 20 4F |REGEL 60 KIJKT O|
00001020: 46 20 4E 24 20 4E 49 45 54 20 54 45 20 4C 41 4E |F N$ NIET TE LAN|
00001030: 47 20 49 53 2E 00 65 18 10 04 99 22 11 20 52 45 |G IS..e....". RE|
00001040: 47 45 4C 20 39 30 20 4D 45 4C 44 54 20 44 41 54 |GEL 90 MELDT DAT|
00001050: 20 49 4B 20 4B 4C 41 41 52 20 42 45 4E 2E 20 20 | IK KLAAR BEN. |
00001060: 22 3A 8D 31 33 31 30 00 A0 18 1A 04 99 22 91 91 |":.1310......"..|
00001070: 91 91 91 91 91 91 91 1C 20 4A 45 20 4D 4F 45 54 |........ JE MOET|
00001080: 20 41 4C 54 49 4A 44 20 27 54 20 48 45 4C 45 20 | ALTIJD 'T HELE |
00001090: 57 4F 4F 52 44 20 27 50 52 49 4E 54 27 20 20 20 |WOORD 'PRINT' |
000010A0: 22 3B 00 D0 18 24 04 99 22 11 20 54 59 50 45 4E |";...$..". TYPEN|
000010B0: 20 41 4C 53 20 4A 45 20 23 20 47 45 42 52 55 49 | ALS JE # GEBRUI|
000010C0: 4B 54 3B 20 54 59 50 20 4E 4F 4F 49 54 20 27 3F |KT; TYP NOOIT '?|
000010D0: 23 27 00 FE 18 2E 04 81 58 58 B2 31 A4 32 3A 81 |#'......XX.1.2:.|
000010E0: 58 B2 31 A4 34 30 3A 99 22 20 22 3B 3A 82 58 3A |X.1.40:." ";:.X:|
000010F0: 99 3A 82 58 58 3A 99 22 91 22 3A 8D 31 33 32 30 |.:.XX:.".":.1320|
00001100: 00 28 19 38 04 99 22 93 1F 20 4F 4D 20 44 45 20 |.(.8..".. OM DE |
00001110: 49 4E 48 4F 55 44 20 57 45 45 52 20 54 45 52 55 |INHOUD WEER TERU|
00001120: 47 20 54 45 20 5A 49 45 4E 3A 00 64 19 42 04 99 |G TE ZIEN:.d.B..|
00001130: 22 11 11 05 20 31 30 20 50 52 49 4E 54 22 C7 28 |"... 10 PRINT".(|
00001140: 33 34 29 22 44 4F 45 20 44 45 20 44 41 54 41 43 |34)"DOE DE DATAC|
00001150: 41 53 53 45 54 54 45 20 49 4E 20 44 45 20 52 45 |ASSETTE IN DE RE|
00001160: 43 4F 52 44 45 52 00 99 19 4C 04 99 22 20 32 30 |CORDER...L.." 20|
00001170: 20 50 52 49 4E 54 22 C7 28 33 34 29 22 44 52 55 | PRINT".(34)"DRU|
00001180: 4B 20 4F 50 20 27 4E 20 54 4F 45 54 53 20 4F 4D |K OP 'N TOETS OM|
00001190: 20 54 45 20 53 54 41 52 54 45 4E 00 C3 19 56 04 | TE STARTEN...V.|
000011A0: 99 22 20 33 30 20 47 45 54 20 41 24 3A 49 46 41 |." 30 GET A$:IFA|
000011B0: 24 3D 22 C7 28 33 34 29 C7 28 33 34 29 22 47 4F |$=".(34).(34)"GO|
000011C0: 54 4F 20 33 30 00 D8 19 60 04 99 22 20 34 30 20 |TO 30...`.." 40 |
000011D0: 4F 50 45 4E 20 31 2C 31 2C 30 00 14 1A 6A 04 99 |OPEN 1,1,0...j..|
000011E0: 22 20 35 30 20 49 4E 50 55 54 23 31 2C 4E 24 22 |" 50 INPUT#1,N$"|
000011F0: 3A 99 22 20 36 30 20 49 46 28 53 54 29 3E 30 47 |:." 60 IF(ST)>0G|
00001200: 4F 54 4F 38 30 22 3A 99 22 20 36 35 20 50 52 49 |OTO80":." 65 PRI|
00001210: 4E 54 20 4E 24 3B 00 35 1A 74 04 99 22 20 37 30 |NT N$;.5.t.." 70|
00001220: 20 47 4F 54 4F 20 35 30 22 3A 99 22 20 38 30 20 | GOTO 50":." 80 |
00001230: 43 4C 4F 53 45 20 31 00 6B 1A 7E 04 99 22 20 39 |CLOSE 1.k.~.." 9|
00001240: 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 4B 4C |0 PRINT".(34)"KL|
00001250: 41 41 52 2C 20 41 55 42 2E 20 54 45 52 55 47 20 |AAR, AUB. TERUG |
00001260: 53 50 4F 45 4C 45 4E 22 C7 28 33 34 29 00 9B 1A |SPOELEN".(34)...|
00001270: 88 04 99 22 11 11 1C 20 27 49 4E 50 55 54 20 23 |..."... 'INPUT #|
00001280: 31 2C 4E 24 27 20 48 41 41 4C 54 20 44 45 20 53 |1,N$' HAALT DE S|
00001290: 54 52 49 4E 47 53 20 56 41 4E 20 44 45 00 D1 1A |TRINGS VAN DE...|
000012A0: 92 04 99 22 11 20 43 41 53 53 45 54 54 45 2C 20 |...". CASSETTE, |
000012B0: 52 45 47 45 4C 20 36 35 20 50 52 49 4E 54 20 4F |REGEL 65 PRINT O|
000012C0: 50 20 27 54 20 53 43 48 45 52 4D 2E 22 3A 8D 31 |P 'T SCHERM.":.1|
000012D0: 33 31 30 00 08 1B 9C 04 99 22 90 91 91 91 91 91 |310......"......|
000012E0: 91 91 20 27 28 53 54 29 3E 30 27 20 54 45 53 54 |.. '(ST)>0' TEST|
000012F0: 20 4F 50 20 48 45 54 20 45 49 4E 44 20 56 41 4E | OP HET EIND VAN|
00001300: 20 48 45 54 20 46 49 4C 45 22 00 39 1B A6 04 99 | HET FILE".9....|
00001310: 22 11 20 4F 4D 20 45 45 4E 20 46 4F 55 54 20 54 |". OM EEN FOUT T|
00001320: 45 20 56 4F 4F 52 4B 4F 4D 45 4E 2E 20 20 20 20 |E VOORKOMEN. |
00001330: 20 20 20 20 20 20 20 20 20 20 22 00 71 1B B0 04 | ".q...|
00001340: 97 51 31 2C 30 3A 99 22 11 11 20 12 4B 55 4E 20 |.Q1,0:.".. .KUN |
00001350: 4A 45 20 48 45 54 20 27 4E 20 42 45 45 54 4A 45 |JE HET 'N BEETJE|
00001360: 20 56 4F 4C 47 45 4E 20 3F 92 20 20 20 20 20 20 | VOLGEN ?. |
00001370: 20 20 22 00 85 1B BA 04 A1 51 24 3A 8B 51 24 B2 | "......Q$:.Q$.|
00001380: 22 22 A7 31 32 31 30 00 96 1B C4 04 8B 51 24 B3 |"".1210......Q$.|
00001390: B1 22 4A 22 89 38 33 30 00 C3 1B CE 04 99 22 93 |."J".830......".|
000013A0: 11 11 11 11 11 1F 20 57 49 4C 20 4A 45 20 44 45 |...... WIL JE DE|
000013B0: 20 48 45 4C 45 20 4C 45 53 20 4E 4F 47 20 27 4E | HELE LES NOG 'N|
000013C0: 20 4B 45 45 52 00 D7 1B D8 04 99 22 11 20 44 4F | KEER......". DO|
000013D0: 4F 52 4E 45 4D 45 4E 20 3F 00 EB 1B E2 04 A1 51 |ORNEMEN ?......Q|
000013E0: 24 3A 8B 51 24 B2 22 22 A7 31 32 35 30 00 FC 1B |$:.Q$."".1250...|
000013F0: EC 04 8B 51 24 B2 22 4E 22 A7 31 32 38 30 00 02 |...Q$."N".1280..|
00001400: 1C F6 04 8A 00 3F 1C 00 05 99 22 93 11 11 11 20 |.....?....".... |
00001410: 49 4B 20 4C 41 41 44 20 4E 55 20 44 45 20 56 4F |IK LAAD NU DE VO|
00001420: 4C 47 45 4E 44 45 20 4C 45 53 20 56 4F 4F 52 20 |LGENDE LES VOOR |
00001430: 4A 45 2C 22 3A 99 22 11 20 20 20 4C 45 53 20 38 |JE,":.". LES 8|
00001440: 2E 00 58 1C 0A 05 93 22 4E 45 44 20 42 41 53 49 |..X...."NED BASI|
00001450: 43 20 4C 45 53 20 38 22 2C 38 00 A1 1C 1E 05 97 |C LES 8",8......|
00001460: 51 31 2C 30 3A 99 22 13 11 11 11 11 11 11 11 11 |Q1,0:.".........|
00001470: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 |............... |
00001480: 20 20 20 20 20 90 12 56 4F 4F 52 20 56 45 52 44 | ..VOOR VERD|
00001490: 45 52 3A 20 20 44 52 55 4B 20 4F 50 20 52 45 54 |ER: DRUK OP RET|
000014A0: 55 52 4E 00 B5 1C 28 05 A1 51 24 3A 8B 51 24 B2 |URN...(..Q$:.Q$.|
000014B0: 22 22 A7 31 33 32 30 00 BB 1C 32 05 8E 00 00 00 |"".1320...2.....|
000014C0: 52 4F 55 54 49 4E 45 00 EE 1C B4 05 99 22 20 49 |ROUTINE......" I|
000014D0: 53 20 41 4C 54 49 4A 44 20 27 52 45 54 55 52 4E |S ALTIJD 'RETURN|
000014E0: 27 2C 20 57 41 41 52 44 4F 4F 52 20 49 4B 20 57 |', WAARDOOR IK W|
000014F0: 45 45 54 00 29 1D BE 05 99 22 11 20 44 41 54 20 |EET.)....". DAT |
00001500: 49 4B 20 54 45 52 55 47 20 4D 4F 45 54 20 4E 41 |IK TERUG MOET NA|
00001510: 41 52 20 57 41 41 52 20 49 4B 20 57 41 53 20 20 |AR WAAR IK WAS |
00001520: 20 20 20 20 11 47 45 42 4C 45 56 45 4E 2E 00 57 | .GEBLEVEN..W|
00001530: 1D C8 05 99 22 11 05 20 47 45 45 46 20 4E 4F 4F |....".. GEEF NOO|
00001540: 49 54 20 48 45 54 20 27 43 4C 52 27 20 43 4F 4D |IT HET 'CLR' COM|
00001550: 4D 41 4E 44 4F 20 49 4E 20 45 45 4E 00 86 1D D2 |MANDO IN EEN....|
00001560: 05 99 22 11 20 53 55 42 52 4F 55 54 49 4E 45 2C |..". SUBROUTINE,|
00001570: 20 57 41 4E 54 20 44 41 4E 20 57 45 45 54 20 49 | WANT DAN WEET I|
00001580: 4B 20 4E 49 45 54 20 4D 45 45 52 00 AE 1D DC 05 |K NIET MEER.....|
00001590: 99 22 11 20 57 41 41 52 20 49 4B 20 56 41 4E 44 |.". WAAR IK VAND|
000015A0: 41 41 4E 20 4B 57 41 4D 20 45 4E 20 5A 45 47 20 |AAN KWAM EN ZEG |
000015B0: 49 4B 3A 00 DB 1D E6 05 99 22 11 90 20 27 52 45 |IK:......".. 'RE|
000015C0: 54 55 52 4E 20 57 49 54 48 4F 55 54 20 47 4F 53 |TURN WITHOUT GOS|
000015D0: 55 42 27 20 45 52 52 4F 52 22 3A 8D 31 37 36 30 |UB' ERROR":.1760|
000015E0: 00 0B 1E F0 05 99 22 93 95 20 56 4F 4F 52 57 41 |......".. VOORWA|
000015F0: 41 52 44 45 4E 20 49 4E 20 45 45 4E 20 27 49 46 |ARDEN IN EEN 'IF|
00001600: 2D 54 48 45 4E 27 20 53 54 41 54 45 4D 45 4E 54 |-THEN' STATEMENT|
00001610: 00 3D 1E FA 05 99 22 11 11 20 20 49 46 20 41 3C |.=....".. IF A<|
00001620: 35 20 05 42 45 54 45 4B 45 4E 54 20 41 4C 53 20 |5 .BETEKENT ALS |
00001630: 41 20 4B 4C 45 49 4E 45 52 20 44 41 4E 20 35 20 |A KLEINER DAN 5 |
00001640: 49 53 00 6E 1E 04 06 99 22 11 95 20 20 49 46 20 |IS.n....".. IF |
00001650: 51 3E 31 20 05 42 45 54 45 4B 45 4E 54 20 41 4C |Q>1 .BETEKENT AL|
00001660: 53 20 51 20 47 52 4F 54 45 52 20 44 41 4E 20 31 |S Q GROTER DAN 1|
00001670: 20 49 53 00 9E 1E 0E 06 99 22 11 11 95 20 20 3C | IS......"... <|
00001680: 3D 20 05 57 49 4C 20 5A 45 47 47 45 4E 20 47 45 |= .WIL ZEGGEN GE|
00001690: 4C 49 4A 4B 20 4F 46 20 4B 4C 45 49 4E 45 52 20 |LIJK OF KLEINER |
000016A0: 44 41 4E 00 CD 1E 18 06 99 22 11 11 95 20 20 3D |DAN......"... =|
000016B0: 3E 20 05 57 49 4C 20 5A 45 47 47 45 4E 20 47 45 |> .WIL ZEGGEN GE|
000016C0: 4C 49 4A 4B 20 4F 46 20 47 52 4F 54 45 52 20 44 |LIJK OF GROTER D|
000016D0: 41 4E 00 FE 1E 22 06 99 22 11 11 95 20 20 3C 3E |AN...".."... <>|
000016E0: 20 05 57 49 4C 20 5A 45 47 47 45 4E 20 4E 49 45 | .WIL ZEGGEN NIE|
000016F0: 54 20 47 45 4C 49 4A 4B 20 41 41 4E 22 3A 8D 31 |T GELIJK AAN":.1|
00001700: 37 36 30 00 3E 1F 2C 06 99 22 93 1F 20 12 4E 4F |760.>.,..".. .NO|
00001710: 54 92 20 20 4D 45 54 20 45 45 4E 20 56 41 52 49 |T. MET EEN VARI|
00001720: 41 42 45 4C 45 20 57 49 4C 20 5A 45 47 45 4E 20 |ABELE WIL ZEGEN |
00001730: 49 4E 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 |IN: |
00001740: C5 C5 C5 00 5E 1F 36 06 99 22 11 05 20 20 20 20 |....^.6..".. |
00001750: 31 30 20 49 46 20 4E 4F 54 20 58 20 54 48 45 4E |10 IF NOT X THEN|
00001760: 20 32 30 00 8C 1F 40 06 99 22 11 11 1F 20 41 4C | 20...@.."... AL|
00001770: 53 20 58 20 49 53 20 4E 49 45 54 20 47 52 4F 54 |S X IS NIET GROT|
00001780: 45 52 20 44 41 20 4E 55 4C 20 49 53 20 44 41 4E |ER DA NUL IS DAN|
00001790: 3A 00 AC 1F 4A 06 99 22 11 20 47 41 20 4E 41 41 |:...J..". GA NAA|
000017A0: 52 20 52 45 47 45 4C 20 32 30 22 3A 8D 31 37 36 |R REGEL 20":.176|
000017B0: 30 00 DD 1F 54 06 99 22 93 90 20 57 49 4C 20 4A |0...T..".. WIL J|
000017C0: 45 20 44 45 20 48 45 4C 45 20 4C 45 53 20 4E 4F |E DE HELE LES NO|
000017D0: 47 20 45 45 4E 20 4B 45 45 52 4A 45 20 4A 2F 4E |G EEN KEERJE J/N|
000017E0: 20 3F 00 F1 1F 5E 06 A1 51 24 3A 8B 51 24 B2 22 | ?...^..Q$:.Q$."|
000017F0: 22 A7 31 36 33 30 00 04 20 68 06 8B 51 24 B2 C7 |".1630.. h..Q$..|
00001800: 28 31 33 29 89 31 36 33 30 00 29 20 72 06 99 22 |(13).1630.) r.."|
00001810: 93 90 20 49 4B 20 4C 41 41 44 20 4E 55 20 44 45 |.. IK LAAD NU DE|
00001820: 20 56 4F 4C 47 45 4E 44 45 20 4C 45 53 2C 00 39 | VOLGENDE LES,.9|
00001830: 20 7C 06 99 22 11 20 44 45 45 4C 20 37 2E 00 52 | |..". DEEL 7..R|
00001840: 20 86 06 93 22 4E 45 44 20 42 41 53 49 43 20 4C | ..."NED BASIC L|
00001850: 45 53 20 37 22 2C 38 00 8C 20 9A 06 99 22 13 11 |ES 7",8.. ..."..|
00001860: 11 11 11 11 11 11 11 11 1C 20 49 4E 20 44 49 54 |......... IN DIT|
00001870: 20 56 4F 4F 52 42 45 45 4C 44 20 44 4F 45 54 20 | VOORBEELD DOET |
00001880: 44 45 20 27 50 27 20 4C 4F 4F 50 20 20 20 20 20 |DE 'P' LOOP |
00001890: 22 00 BB 20 A4 06 99 22 11 20 38 20 53 54 41 50 |".. ...". 8 STAP|
000018A0: 50 45 4E 20 28 30 20 54 4F 54 20 37 20 5A 49 4A |PEN (0 TOT 7 ZIJ|
000018B0: 4E 20 38 20 43 49 4A 46 45 52 53 21 29 20 20 22 |N 8 CIJFERS!) "|
000018C0: 00 E8 20 AE 06 99 22 11 20 44 45 20 51 20 4C 4F |.. ...". DE Q LO|
000018D0: 4F 50 20 44 4F 45 54 20 34 20 53 54 41 50 50 45 |OP DOET 4 STAPPE|
000018E0: 4E 20 5A 4F 44 41 54 20 44 45 20 20 22 00 18 21 |N ZODAT DE "..!|
000018F0: B8 06 99 22 11 20 4D 41 54 52 49 58 20 45 45 4E |...". MATRIX EEN|
00001900: 20 49 4E 48 4F 55 44 20 48 45 45 46 54 20 56 41 | INHOUD HEEFT VA|
00001910: 4E 20 34 2A 38 3D 33 32 20 20 20 20 22 00 49 21 |N 4*8=32 ".I!|
00001920: C2 06 99 22 11 20 4C 4F 4B 41 54 49 45 53 2E 20 |...". LOKATIES. |
00001930: 44 45 5A 45 20 55 49 54 4B 4F 4D 53 54 20 4D 41 |DEZE UITKOMST MA|
00001940: 47 20 4E 4F 4F 49 54 20 20 20 20 20 20 22 00 76 |G NOOIT ".v|
00001950: 21 CC 06 99 22 20 47 52 4F 54 45 52 20 44 41 4E |!..." GROTER DAN|
00001960: 20 32 35 36 20 57 4F 52 44 45 4E 20 4F 4D 44 41 | 256 WORDEN OMDA|
00001970: 54 20 4A 45 20 41 4E 44 45 52 53 00 AE 21 D6 06 |T JE ANDERS..!..|
00001980: 99 22 11 20 42 55 49 54 45 4E 20 44 45 20 47 52 |.". BUITEN DE GR|
00001990: 45 4E 5A 45 4E 20 56 41 4E 20 4D 49 4A 4E 20 42 |ENZEN VAN MIJN B|
000019A0: 45 52 45 49 4B 20 4B 4F 4D 54 22 3A 8D 31 37 36 |EREIK KOMT":.176|
000019B0: 30 3A 8E 00 F7 21 E0 06 97 51 31 2C 30 3A 99 22 |0:...!...Q1,0:."|
000019C0: 9E 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000019D0: 11 11 11 11 11 11 11 11 20 20 20 20 20 20 11 12 |........ ..|
000019E0: 56 4F 4F 52 20 56 45 52 44 45 52 3A 20 44 52 55 |VOOR VERDER: DRU|
000019F0: 4B 20 4F 50 20 27 53 50 41 43 45 27 00 0B 22 EA |K OP 'SPACE'..".|
00001A00: 06 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 37 37 30 |..A$:.A$."".1770|
00001A10: 00 11 22 F4 06 8E 00 25 22 FE 06 A1 51 24 3A 8B |.."....%"...Q$:.|
00001A20: 51 24 B2 22 22 A7 31 36 33 30 00 00 00 32 30 30 |Q$."".1630...200|
00001A30: 3A 4B 24 B2 22 2A 22 3A 8D 31 33 30 3A 54 58 B2 |:K$."*":.130:TX.|
00001A40: 54 58 AA 31 3A 8B 54 58 B2 32 A7 31 35 31 30 00 |TX.1:.TX.2.1510.|
00001A50: 53 22 96 05 99 22 11 11 11 1D 1D 1D 1C 20 5A 4F |S"..."....... ZO|
00001A60: 21 20 22 4E 24 22 2C 00 73 22 A0 05 99 22 11 11 |! "N$",.s"..."..|
00001A70: 1D 1D 1D 48 45 42 20 4A 45 20 48 45 54 20 54 4F |...HEB JE HET TO|
00001A80: 54 20 5A 4F 56 45 52 00 91 22 AA 05 99 22 11 1D |T ZOVER.."..."..|
00001A90: 1D 1D 4B 55 4E 4E 45 4E 20 56 4F 4C 47 45 4E 20 |..KUNNEN VOLGEN |
00001AA0: 28 4A 2F 4E 29 00 A5 22 B4 05 A1 51 24 3A 8B 51 |(J/N).."...Q$:.Q|
00001AB0: 24 B2 22 22 A7 31 34 36 30 00 CF 22 BE 05 99 22 |$."".1460.."..."|
00001AC0: 11 11 1D 1D 1D 1F 57 49 4C 20 4A 45 20 48 45 54 |......WIL JE HET|
00001AD0: 20 4E 4F 47 20 45 45 4E 53 20 44 4F 4F 52 4E 45 | NOG EENS DOORNE|
00001AE0: 4D 45 4E 00 E3 22 C8 05 A1 51 24 3A 8B 51 24 B2 |MEN.."...Q$:.Q$.|
00001AF0: 22 22 A7 31 34 38 30 00 FA 22 D2 05 8B 51 24 B2 |"".1480.."...Q$.|
00001B00: 22 4A 22 A7 3A 8D 31 39 30 3A 89 33 30 30 00 15 |"J".:.190:.300..|
00001B10: 23 DC 05 8B 51 24 B3 B1 22 4E 22 A7 99 22 91 91 |#...Q$.."N".."..|
00001B20: 91 91 22 3A 89 31 34 37 30 00 5B 23 E6 05 99 22 |..":.1470.[#..."|
00001B30: 11 11 1D 1D 1D 44 41 54 20 57 41 53 20 44 41 4E |.....DAT WAS DAN|
00001B40: 20 44 45 20 45 45 52 53 54 45 20 4C 45 53 22 3A | DE EERSTE LES":|
00001B50: 99 22 11 1D 1D 1D 49 4B 20 4C 41 41 44 20 4E 55 |."....IK LAAD NU|
00001B60: 20 44 45 20 54 57 45 45 44 45 20 4C 45 53 2E 00 | DE TWEEDE LES..|
00001B70: 74 23 F0 05 93 22 4E 45 44 20 42 41 53 49 43 20 |t#..."NED BASIC |
00001B80: 4C 45 53 20 32 22 2C 38 00 00 00 01 |LES 2",8.... |
....D..G(14):.53280,5:.53281,5.K.N.."..
BEHALVE DE BASIC-WOORDEN KUN JE MET.V.X.
." MIJ NOG VEEL LEUKE DINGEN UITHALEN...
....". IK GEEF ER WAT VOORBEELDEN VAN :.
M...."... 1. IK BEN EEN KLEUREN-COMPUTER
. DUS......" MOETEN MIJN KLEUREN TE G
EBRUIKEN... .." ZIJN IN EEN PROGRAMMA
..H...."... 2. IK KAN OOK GELUID MAKEN.
DAT MOET.S...." DUS OOK IN EEN PROGRA
MMA KUNNEN..E.R..".... VAN DEZE TWEE GEE
F IK EEN KLEIN VOORBEELD IN DEZE
LAATSTE LES..O....2000...,..".. IK KAN
DE KLEUR VAN HET SCHERM EENVOUD
IG VERANDEREN :.;.6..".. POKE 53281,X ZE
T DE KLEUR..S.@..". ..KIJK MAAR :..._.J.
.I.0.15.Q.T..". X IS NU"I.~.^..53281,I..
.H..J.1.1000:.:....R.."... EN OOK DE RAN
D MET POKE 53280,X...H.|..I.0.15.Z....".
X IS NU"I......53280,I......J.1.1000:.:
.......2000......53280,6:.53281,6.9...."
.. HIERBIJ GELDT VOOR X :.[.B.."... 0 =
.. ..{.L..". 1 = ..
....V..". 2 = ..
.......". 3 = .. ......
.". 4 = .. .......". 5 =
.. .......". 6 = ..
..;....". 7 = ..
..[....". 8 = .. ..{...
.". 9 = .. ....&..". 10 =
.. ....0..". 11 = ..
....:..". 12 = ..
....D..". 13 = .. ....N.
.". 14 = .. ..;.X..". 15 =
.. ..E.B..2000.T.L..".. J
E KUNT ZELF BIJ HET INTIKKEN VAN EEN...V
.." PROGRAMMA DIE KLEUREN GEBRUIKEN. JE.
J...." KRIJGT DE EERSTE 8 KLEUREN DOOR H
ET......" TEGELIJK INDRUKKEN VAN :......
".. CTRL EN EEN CIJFER..2....".. DE TWEE
DE SERIE DOOR HET TEGELIJK.T....".. COMM
ODORE EN EEN CIJFER..^....2000.W...."..G
ELUID !!!!!!!!!...F..".. GELUID OP DEZE
COMPUTER IS ERG.M.P.." INGEWIKKELD. SLA
DAARVOOR DE REFERENCE...Z.." GUIDE OP NA
. NU SLECHTS EEN KLEIN......" VOORBEELD.
":.2000.Q...."..100 SID = 54272 :
REM ADRES VAN DE GELUIDCHIP.X...."
110 FORI=0TO28 :REM LOOP......"1
20 POKE SID+I,0 :REM ZET DE CHIP
OP 0......"130 NEXT :RE
M EINDE LOOP......"140 POKE SID+24,15
:REM VOLUME HARD.7. .."150 POKE SID+1,
X :REM FREQUENTIE.A.*.."160 POKE S
ID+5,A*26+B :REM A IS DE...4.." TIJD
VOORDAT MAXIMUM VOLUME WORDT BERE
IKT 0=SNEL 15=LANGZAAM...>.." B IS DE
TIJD VOORDAT HET AANHOUD- VOLUME
IS BEREIKT....H.."170 POKE SID+6,C*16+D
:REM C IS HET.E.R.." VOLUME TIJDENS
HET AANHOUDEN.Q.\.." D IS DE TIJD DAT
DE TOON AFSTERFD...F.."180 POKE SID+4,1
7 :REM TOON AAN.G.G.."190 FORI=1TO1
00:NEXT :REM WACHTLUS...P.."200 POKE S
ID+4,16 :REM TOON UIT...Z.."... EEN
DEMO ..............2100.<....SID.4,17:.
I.1.2500:.:.SID.4,16.F....2000......"...
................... VERANDER 190 :":."
"......"190 FORI=0
TO255:POKESID+1,I:NEXT.J....2000:.SID.4,
17......I.0.255:.SID.1,I:.J.1.50:.:.:.SI
D.4,16...J..2000......SID.4,17.A...."...
.................. VERANDER EN VOEG TOE
:._....".190 FORI=100TO200STEP5.T...."19
1 FORJ=0TO30......"192 POKESID+1,I+J
"......"193 NEXTJ:NEXTI.
H....I.100.200.5.T....J.0.30......SID.1,
I.J......:.:.SID.4,16:.SID.1,255......20
00:.SID.24,0......3000.$.O...M.P..".....
........................................
.............[TOETS]....Z..A$:.A$."".201
0.......A.4.SID.54272:.I.0.28:.SID.I,0:.
:.SID.1,20:.SID.6,15.16.3.R.>..SID.24,15
:.......53280,2:.53281,2...B..".. ALS LA
ATSTE PROGRAMMA KOMT NU EEN.2.L.." GRAFI
SCH EN GELUIDDEMO..J.V.."NED BASIC DEMO"
,8...E-DEVICE....Z..".. DE 0 WIL ZEGGEN
'LEZEN', 1= SCHRIJVEN.":.1310......".. E
EN VOORBEELD VAN EEN FILE PROGRAMMA:....
...". 10 PRINT "G(34)"DOE EEN DATA CASSE
TTE IN DE RECORDER......" 20 PRINT "G(34
)"DRUK OP 'N TOETS OM TE STARTEN.W...."
30 GET A$:IFA$="G(34)G(34)"GOTO30......"
40 OPEN 1,1,1":." 50 INPUT"G(34)"WELKE
NAAM"G(34)";N$......" 55 IF N$="G(34)"ST
OP"G(34)"GOTO80......" 60 IF LEN(N$)>79T
HEN PRINT"G(34)"TE LANG!"G(34)":GOTO50..
.J.." 70 PRINT#1,N$:GOTO50.*.T.." 80 CLO
SE 1.F...." 90 PRINT"G(34)"FILE GEREED,
AUB. TERUG SPOELEN"G(34)......".. DE DER
DE 1 (40) ZEGT DUS 'SCHRIJVEN'.":.1310.W
...."............ 'PRINT#1,N$' BETEKEND
PRINT OP CASSETTE......" IN FILE NUMMER
1. N$ IS 'N VARIABELE..3....". REGEL 60
KIJKT OF N$ NIET TE LANG IS..E....". RE
GEL 90 MELDT DAT IK KLAAR BEN. ":.1310.
....".......... JE MOET ALTIJD 'T HELE
WOORD 'PRINT' ";.P.$..". TYPEN ALS JE
# GEBRUIKT; TYP NOOIT '?#'......XX.1.2:.
X.1.40:." ";:.X:.:.XX:.".":.1320.(.8..".
. OM DE INHOUD WEER TERUG TE ZIEN:.D.B..
"... 10 PRINT"G(34)"DOE DE DATACASSETTE
IN DE RECORDER...L.." 20 PRINT"G(34)"DRU
K OP 'N TOETS OM TE STARTEN.C.V.." 30 GE
T A$:IFA$="G(34)G(34)"GOTO 30.X.`.." 40
OPEN 1,1,0...J.." 50 INPUT#1,N$":." 60 I
F(ST)>0GOTO80":." 65 PRINT N$;.5.T.." 70
GOTO 50":." 80 CLOSE 1.K.~.." 90 PRINT"
G(34)"KLAAR, AUB. TERUG SPOELEN"G(34)...
..."... 'INPUT #1,N$' HAALT DE STRINGS V
AN DE.Q....". CASSETTE, REGEL 65 PRINT O
P 'T SCHERM.":.1310......"........ '(ST)
>0' TEST OP HET EIND VAN HET FILE".9....
". OM EEN FOUT TE VOORKOMEN.
".Q....Q1,0:.".. .KUN JE HET 'N BEETJE
VOLGEN ?. "......Q$:.Q$."".1210.
..D..Q$.."J".830.C.N.."....... WIL JE DE
HELE LES NOG 'N KEER.W.X..". DOORNEMEN
?......Q$:.Q$."".1250......Q$."N".1280..
.....?....".... IK LAAD NU DE VOLGENDE L
ES VOOR JE,":.". LES 8..X...."NED BASI
C LES 8",8......Q1,0:.".................
....... ..VOOR VERDER: DRUK OP RET
URN...(..Q$:.Q$."".1320...2.....ROUTINE.
....." IS ALTIJD 'RETURN', WAARDOOR IK W
EET.)....". DAT IK TERUG MOET NAAR WAAR
IK WAS .GEBLEVEN..W.H..".. GEEF NOO
IT HET 'CLR' COMMANDO IN EEN...R..". SUB
ROUTINE, WANT DAN WEET IK NIET MEER.....
.". WAAR IK VANDAAN KWAM EN ZEG IK:.....
.".. 'RETURN WITHOUT GOSUB' ERROR":.1760
......".. VOORWAARDEN IN EEN 'IF-THEN' S
TATEMENT.=....".. IF A<5 .BETEKENT ALS
A KLEINER DAN 5 IS.N....".. IF Q>1 .BET
EKENT ALS Q GROTER DAN 1 IS......"... <
= .WIL ZEGGEN GELIJK OF KLEINER DAN.M...
."... => .WIL ZEGGEN GELIJK OF GROTER D
AN...".."... <> .WIL ZEGGEN NIET GELIJK
AAN":.1760.>.,..".. .NOT. MET EEN VARI
ABELE WIL ZEGEN IN: EEE.^.6.
.".. 10 IF NOT X THEN 20...@.."... AL
S X IS NIET GROTER DA NUL IS DAN:...J.."
. GA NAAR REGEL 20":.1760...T..".. WIL J
E DE HELE LES NOG EEN KEERJE J/N ?...^..
Q$:.Q$."".1630.. H..Q$.G(13).1630.) R.."
.. IK LAAD NU DE VOLGENDE LES,.9 |..". D
EEL 7..R ..."NED BASIC LES 7",8.. ..."..
......... IN DIT VOORBEELD DOET DE 'P' L
OOP ".. ...". 8 STAPPEN (0 TOT 7 ZIJ
N 8 CIJFERS!) ".. ...". DE Q LOOP DOET
4 STAPPEN ZODAT DE "..!...". MATRIX EEN
INHOUD HEEFT VAN 4*8=32 ".I!B..". LO
KATIES. DEZE UITKOMST MAG NOOIT ".V
!L.." GROTER DAN 256 WORDEN OMDAT JE AND
ERS..!V..". BUITEN DE GRENZEN VAN MIJN B
EREIK KOMT":.1760:...!...Q1,0:."........
................ ..VOOR VERDER: DRU
K OP 'SPACE'.."...A$:.A$."".1770.."....%
"...Q$:.Q$."".1630...200:K$."*":.130:TX.
TX.1:.TX.2.1510.S"..."....... ZO! "N$",.
S" ..".....HEB JE HET TOT ZOVER.."..."..
..KUNNEN VOLGEN (J/N).."...Q$:.Q$."".146
0.O"..."......WIL JE HET NOG EENS DOORNE
MEN.."H..Q$:.Q$."".1480.."R..Q$."J".:.19
0:.300..#...Q$.."N".."....":.1470.[#..."
.....DAT WAS DAN DE EERSTE LES":."....IK
LAAD NU DE TWEEDE LES..T#..."NED BASIC
LES 2",8....
> CLICK IMAGE PREVIEW FOR FULL MODAL