BASICLES 3
FILE INFORMATION
FILENAME(S): BASICLES 3
FILE TYPE(S): PRG
FILE SIZE: 6.2K
FIRST SEEN: 2025-11-30 21:05:33
APPEARS ON: 1 disk(s)
FILE HASH
5e0fcfd9705f4874f19c30fb93989dfce0fbc84750089f17b7a04972b7de6524
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RTYUI | BASICLES 3 | PRG | DuncanTwain | 16 | 0 | 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 28 |53281,6:..(14).(| 00000020: 08 63 00 8D 35 30 30 30 00 36 08 64 00 97 35 39 |.c..5000.6.d..59| 00000030: 34 36 38 2C 31 32 00 5C 08 E8 03 99 22 93 11 11 |468,12.\...."...| 00000040: 11 20 20 20 3D 3D 3D 42 41 53 49 43 20 43 55 52 |. ===BASIC CUR| 00000050: 53 55 53 20 4C 45 53 20 33 3D 3D 3D 00 7E 08 F2 |SUS LES 3===.~..| 00000060: 03 99 22 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.." ==========| 00000070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 8E |==============..| 00000080: 08 FC 03 81 43 B2 31 A4 31 33 30 30 3A 82 00 B4 |....C.1.1300:...| 00000090: 08 4C 04 99 22 93 48 45 54 20 42 45 4B 45 4E 44 |.L..".HET BEKEND| 000000A0: 45 20 27 44 4F 4B 54 45 52 27 20 50 52 4F 47 52 |E 'DOKTER' PROGR| 000000B0: 41 4D 4D 41 00 DE 08 56 04 99 22 11 53 49 4D 55 |AMMA...V..".SIMU| 000000C0: 4C 45 45 52 54 20 27 4E 20 50 53 59 43 48 49 41 |LEERT 'N PSYCHIA| 000000D0: 54 45 52 20 49 4E 20 47 45 53 50 52 45 4B 00 00 |TER IN GESPREK..| 000000E0: 09 60 04 99 22 11 4D 45 54 20 45 45 4E 20 50 41 |.`..".MET EEN PA| 000000F0: 54 49 45 4E 54 20 4F 50 20 44 45 20 42 41 4E 4B |TIENT OP DE BANK| 00000100: 00 2F 09 6A 04 99 22 11 11 4D 45 4E 49 47 45 45 |./.j.."..MENIGEE| 00000110: 4E 20 49 53 20 4E 49 45 54 20 49 4E 20 53 54 41 |N IS NIET IN STA| 00000120: 41 54 20 48 45 54 20 56 45 52 53 43 48 49 4C 00 |AT HET VERSCHIL.| 00000130: 55 09 74 04 99 22 11 4F 50 20 54 45 20 4D 45 52 |U.t..".OP TE MER| 00000140: 4B 45 4E 2C 20 4F 46 20 5A 45 20 4E 55 20 4D 45 |KEN, OF ZE NU ME| 00000150: 54 20 45 45 4E 00 82 09 7E 04 99 22 11 45 43 48 |T EEN...~..".ECH| 00000160: 54 45 20 41 52 54 53 20 4F 46 20 4D 45 54 20 27 |TE ARTS OF MET '| 00000170: 4E 20 43 4F 4D 50 55 54 45 52 20 50 52 41 54 45 |N COMPUTER PRATE| 00000180: 4E 21 00 B0 09 92 04 99 22 11 11 11 48 45 54 20 |N!......"...HET | 00000190: 50 52 4F 47 52 41 4D 4D 41 20 4C 49 4A 4B 54 20 |PROGRAMMA LIJKT | 000001A0: 45 52 47 20 49 4E 47 45 57 49 4B 4B 45 4C 44 2C |ERG INGEWIKKELD,| 000001B0: 00 D9 09 9C 04 99 22 11 4D 41 41 52 20 49 53 20 |......".MAAR IS | 000001C0: 49 4E 20 42 45 47 49 4E 53 45 4C 20 45 52 47 20 |IN BEGINSEL ERG | 000001D0: 45 45 4E 56 4F 55 44 49 47 00 F2 09 A6 04 99 22 |EENVOUDIG......"| 000001E0: 11 56 41 4E 20 4F 50 5A 45 54 2E 22 3A 8D 39 39 |.VAN OPZET.":.99| 000001F0: 39 39 00 20 0A CE 04 8D 32 30 30 30 30 3A 99 22 |99. ....20000:."| 00000200: 11 11 11 49 4E 20 44 49 54 20 44 45 45 4C 20 56 |...IN DIT DEEL V| 00000210: 41 4E 20 48 45 54 20 50 52 4F 47 52 41 4D 4D 41 |AN HET PROGRAMMA| 00000220: 00 4A 0A D8 04 99 22 11 47 45 42 52 55 49 4B 20 |.J....".GEBRUIK | 00000230: 49 4B 20 52 45 47 45 4C 20 32 30 20 4F 4D 20 27 |IK REGEL 20 OM '| 00000240: 4E 20 56 52 41 41 47 20 54 45 00 70 0A E2 04 99 |N VRAAG TE.p....| 00000250: 22 11 50 52 49 4E 54 45 4E 20 54 45 4E 45 49 4E |".PRINTEN TENEIN| 00000260: 44 45 20 45 45 4E 20 41 4E 54 57 4F 4F 52 44 2C |DE EEN ANTWOORD,| 00000270: 00 A2 0A EC 04 99 22 11 27 4E 20 12 49 4E 50 55 |......".'N .INPU| 00000280: 54 92 20 53 54 41 54 45 4D 45 4E 54 2C 20 54 45 |T. STATEMENT, TE| 00000290: 20 56 45 52 4B 52 49 4A 47 45 4E 22 3A 8D 39 39 | VERKRIJGEN":.99| 000002A0: 39 39 00 D5 0A 14 05 8D 32 30 30 30 30 3A 99 22 |99......20000:."| 000002B0: 11 11 11 41 4C 53 20 49 4B 20 12 49 4E 50 55 54 |...ALS IK .INPUT| 000002C0: 92 20 5A 49 45 20 57 41 43 48 54 20 49 4B 20 54 |. ZIE WACHT IK T| 000002D0: 4F 54 20 45 52 00 04 0B 1E 05 99 22 11 45 45 4E |OT ER......".EEN| 000002E0: 20 41 4E 54 57 4F 4F 52 44 20 49 4E 47 45 54 59 | ANTWOORD INGETY| 000002F0: 50 54 20 49 53 20 45 4E 20 42 45 52 47 20 44 41 |PT IS EN BERG DA| 00000300: 54 20 4F 50 00 31 0B 28 05 99 22 11 4F 4E 44 45 |T OP.1.(..".ONDE| 00000310: 52 20 44 45 20 4E 4F 45 4D 45 52 20 27 41 27 20 |R DE NOEMER 'A' | 00000320: 49 4E 20 4D 49 4A 4E 20 47 45 48 45 55 47 45 4E |IN MIJN GEHEUGEN| 00000330: 2E 00 5C 0B 32 05 99 22 11 11 41 4C 53 20 54 45 |..\.2.."..ALS TE| 00000340: 4B 45 4E 20 44 41 54 20 49 4B 20 4F 50 20 41 4E |KEN DAT IK OP AN| 00000350: 54 57 4F 4F 52 44 20 57 41 43 48 54 00 90 0B 3C |TWOORD WACHT...<| 00000360: 05 99 22 11 4C 41 41 54 20 49 4B 20 44 55 53 20 |..".LAAT IK DUS | 00000370: 27 3F 27 20 5A 49 45 4E 20 41 43 48 54 45 52 20 |'?' ZIEN ACHTER | 00000380: 44 45 20 56 52 41 41 47 2E 22 3A 8D 39 39 39 39 |DE VRAAG.":.9999| 00000390: 00 C2 0B 78 05 8D 32 30 30 30 30 3A 99 22 11 11 |...x..20000:."..| 000003A0: 5A 4F 20 41 4C 53 20 49 4B 20 52 45 45 44 53 20 |ZO ALS IK REEDS | 000003B0: 56 45 52 54 45 4C 44 45 20 4B 55 4E 4E 45 4E 20 |VERTELDE KUNNEN | 000003C0: 57 45 00 E5 0B 82 05 99 22 11 44 49 54 20 4E 4F |WE......".DIT NO| 000003D0: 47 20 4B 4F 52 54 45 52 20 4F 50 53 43 48 52 49 |G KORTER OPSCHRI| 000003E0: 4A 56 45 4E 21 00 10 0C 8C 05 99 22 11 11 48 45 |JVEN!......"..HE| 000003F0: 54 20 42 45 53 50 41 41 52 44 45 20 4F 4E 53 20 |T BESPAARDE ONS | 00000400: 49 4D 4D 45 52 53 20 52 55 49 4D 54 45 20 49 4E |IMMERS RUIMTE IN| 00000410: 00 30 0C 96 05 99 22 11 49 4E 20 4D 49 4A 4E 20 |.0....".IN MIJN | 00000420: 47 45 48 45 55 47 45 4E 21 22 3A 8D 39 39 39 39 |GEHEUGEN!":.9999| 00000430: 00 58 0C DC 05 99 22 93 4C 41 54 45 4E 20 57 45 |.X....".LATEN WE| 00000440: 20 44 55 53 20 41 46 53 50 52 45 4B 45 4E 20 44 | DUS AFSPREKEN D| 00000450: 41 54 20 57 45 20 49 4E 00 80 0C E6 05 99 22 11 |AT WE IN......".| 00000460: 56 45 52 56 4F 4C 47 20 41 4C 54 49 4A 44 20 27 |VERVOLG ALTIJD '| 00000470: 4E 20 50 52 49 4E 54 20 45 4E 20 49 4E 50 55 54 |N PRINT EN INPUT| 00000480: 00 A8 0C EB 05 99 22 11 53 41 4D 45 4E 56 4F 45 |......".SAMENVOE| 00000490: 47 45 4E 20 41 4C 53 20 48 45 54 20 56 4F 4F 52 |GEN ALS HET VOOR| 000004A0: 4B 4F 4D 54 21 2E 2E 2E 00 DE 0C F0 05 99 22 11 |KOMT!.........".| 000004B0: 11 20 20 20 20 32 30 20 49 4E 50 55 54 20 22 C7 |. 20 INPUT ".| 000004C0: 28 33 34 29 22 48 4F 45 20 4F 55 44 20 42 45 4E |(34)"HOE OUD BEN| 000004D0: 20 4A 49 4A 20 22 C7 28 33 34 29 22 3B 41 00 08 | JIJ ".(34)";A..| 000004E0: 0D FA 05 99 22 11 20 20 20 20 33 30 20 50 52 49 |....". 30 PRI| 000004F0: 4E 54 20 41 20 22 C7 28 33 34 29 22 49 53 20 4E |NT A ".(34)"IS N| 00000500: 49 45 54 20 4F 55 44 2E 00 35 0D 04 06 99 22 11 |IET OUD..5....".| 00000510: 11 56 45 52 47 45 45 54 20 45 43 48 54 45 52 20 |.VERGEET ECHTER | 00000520: 4E 49 45 54 20 44 45 20 50 55 4E 54 2D 4B 4F 4D |NIET DE PUNT-KOM| 00000530: 4D 41 20 45 4E 00 5C 0D 0E 06 99 22 11 45 4E 20 |MA EN.\....".EN | 00000540: 44 45 20 41 41 4E 48 41 4C 49 4E 47 53 54 45 4B |DE AANHALINGSTEK| 00000550: 45 4E 53 21 21 22 3A 8D 39 39 39 39 00 88 0D 40 |ENS!!":.9999...@| 00000560: 06 99 22 93 54 59 50 20 27 52 55 4E 27 20 45 4E |..".TYP 'RUN' EN| 00000570: 20 44 52 55 4B 20 4F 50 20 12 52 45 54 55 52 4E | DRUK OP .RETURN| 00000580: 92 20 4F 4D 20 44 49 54 00 AE 0D 45 06 85 22 11 |. OM DIT...E..".| 00000590: 50 52 4F 47 52 41 4D 4D 41 20 55 49 54 20 54 45 |PROGRAMMA UIT TE| 000005A0: 20 50 52 4F 42 45 52 45 4E 20 22 3B 41 24 00 C2 | PROBEREN ";A$..| 000005B0: 0D 4A 06 8B 41 24 B3 B1 22 52 55 4E 22 89 31 36 |.J..A$.."RUN".16| 000005C0: 30 30 00 E1 0D 54 06 85 22 11 11 11 11 11 20 48 |00...T.."..... H| 000005D0: 4F 45 20 4F 55 44 20 42 45 4E 20 4A 49 4A 22 3B |OE OUD BEN JIJ";| 000005E0: 41 00 FF 0D 5E 06 99 41 20 22 49 53 20 4E 49 45 |A...^..A "IS NIE| 000005F0: 54 20 4F 55 44 11 11 11 22 3A 8D 39 39 39 39 00 |T OUD...":.9999.| 00000600: 29 0E A4 06 99 22 93 27 49 4E 50 55 54 27 20 4B |)....".'INPUT' K| 00000610: 41 4E 20 4F 4F 4B 20 47 45 42 52 55 49 4B 54 20 |AN OOK GEBRUIKT | 00000620: 57 4F 52 44 45 4E 20 4F 4D 00 55 0E AE 06 99 22 |WORDEN OM.U...."| 00000630: 11 45 45 4E 20 57 4F 4F 52 44 20 54 45 20 56 52 |.EEN WOORD TE VR| 00000640: 41 47 45 4E 20 49 2E 50 2E 56 2E 20 45 45 4E 20 |AGEN I.P.V. EEN | 00000650: 47 45 54 41 4C 00 7F 0E C2 06 99 22 11 11 44 41 |GETAL......"..DA| 00000660: 41 52 56 4F 4F 52 20 4D 4F 45 54 20 4A 45 20 48 |ARVOOR MOET JE H| 00000670: 45 54 20 44 4F 4C 4C 41 52 20 54 45 4B 45 4E 00 |ET DOLLAR TEKEN.| 00000680: A7 0E CC 06 99 22 11 41 43 48 54 45 52 20 44 45 |.....".ACHTER DE| 00000690: 20 56 41 52 49 41 42 45 4C 45 20 27 41 27 20 50 | VARIABELE 'A' P| 000006A0: 4C 41 41 54 53 45 4E 00 D2 0E D6 06 99 22 11 5A |LAATSEN......".Z| 000006B0: 4F 44 41 54 20 49 4B 20 57 45 45 54 20 44 41 54 |ODAT IK WEET DAT| 000006C0: 20 45 52 20 4C 45 54 54 45 52 53 20 4B 4F 4D 45 | ER LETTERS KOME| 000006D0: 4E 3A 00 0C 0F E0 06 99 22 11 11 20 20 20 20 35 |N:......".. 5| 000006E0: 30 20 49 4E 50 55 54 20 22 C7 28 33 34 29 22 42 |0 INPUT ".(34)"B| 000006F0: 45 5A 49 54 20 4A 49 4A 20 27 4E 20 43 42 4D 20 |EZIT JIJ 'N CBM | 00000700: 36 34 22 C7 28 33 34 29 22 3B 41 24 00 38 0F EA |64".(34)";A$.8..| 00000710: 06 99 22 11 11 48 45 54 20 41 4E 54 57 4F 4F 52 |.."..HET ANTWOOR| 00000720: 44 20 57 4F 52 44 54 20 4F 50 47 45 42 4F 52 47 |D WORDT OPGEBORG| 00000730: 45 4E 20 49 4E 20 44 45 00 6F 0F F4 06 99 22 11 |EN IN DE.o....".| 00000740: 53 54 52 49 4E 47 20 56 41 52 49 41 42 4C 45 20 |STRING VARIABLE | 00000750: 27 41 24 27 2E 22 3A 99 22 B7 B7 B7 B7 B7 B7 A0 |'A$'.":.".......| 00000760: B7 B7 B7 B7 B7 B7 B7 B7 22 3A 8D 39 39 39 39 00 |........":.9999.| 00000770: 9C 0F 08 07 99 22 93 44 45 20 4D 4F 47 45 4C 49 |.....".DE MOGELI| 00000780: 4A 4B 48 45 49 44 20 57 4F 4F 52 44 45 4E 20 49 |JKHEID WOORDEN I| 00000790: 4E 20 53 54 52 49 4E 47 53 20 54 45 00 C7 0F 12 |N STRINGS TE....| 000007A0: 07 99 22 11 42 45 52 47 45 4E 20 4B 41 4E 20 47 |..".BERGEN KAN G| 000007B0: 45 42 52 55 49 4B 54 20 57 4F 52 44 45 4E 20 56 |EBRUIKT WORDEN V| 000007C0: 4F 4F 52 20 5A 27 4E 00 F4 0F 1C 07 99 22 11 50 |OOR Z'N......".P| 000007D0: 52 4F 47 52 41 4D 4D 41 2C 20 41 4C 53 20 27 44 |ROGRAMMA, ALS 'D| 000007E0: 4F 4B 54 45 52 27 2C 20 5A 4F 44 41 54 20 45 52 |OKTER', ZODAT ER| 000007F0: 20 45 45 4E 00 17 10 26 07 99 22 11 53 4F 4F 52 | EEN...&..".SOOR| 00000800: 54 A0 43 4F 4E 56 45 52 53 41 54 49 45 20 4F 4E |T.CONVERSATIE ON| 00000810: 54 53 54 41 41 54 2E 00 52 10 30 07 99 22 11 11 |TSTAAT..R.0.."..| 00000820: 11 20 20 20 20 35 30 20 49 4E 50 55 54 20 22 C7 |. 50 INPUT ".| 00000830: 28 33 34 29 22 42 45 5A 49 54 20 4A 49 4A 20 27 |(34)"BEZIT JIJ '| 00000840: 4E 20 43 42 4D 20 36 34 22 C7 28 33 34 29 22 3B |N CBM 64".(34)";| 00000850: 41 24 00 81 10 3A 07 99 22 11 20 20 20 20 36 30 |A$...:..". 60| 00000860: 20 49 46 20 41 24 20 3D 20 22 C7 28 33 34 29 22 | IF A$ = ".(34)"| 00000870: 4A 41 22 C7 28 33 34 29 22 20 47 4F 54 4F 20 39 |JA".(34)" GOTO 9| 00000880: 30 00 AC 10 44 07 99 22 11 20 20 20 20 37 30 20 |0...D..". 70 | 00000890: 50 52 49 4E 54 20 22 C7 28 33 34 29 22 4F 4E 42 |PRINT ".(34)"ONB| 000008A0: 45 47 52 49 4A 50 45 4C 49 4A 4B 21 00 BE 10 4E |EGRIJPELIJK!...N| 000008B0: 07 99 22 11 20 20 20 20 38 30 20 45 4E 44 00 EB |..". 80 END..| 000008C0: 10 58 07 99 22 11 20 20 20 20 39 30 20 50 52 49 |.X..". 90 PRI| 000008D0: 4E 54 20 22 C7 28 33 34 29 22 4D 41 5A 5A 45 4C |NT ".(34)"MAZZEL| 000008E0: 41 41 52 21 22 3A 8D 39 39 39 39 00 18 11 6C 07 |AAR!":.9999...l.| 000008F0: 99 22 91 49 4E 20 52 45 47 45 4C 20 36 30 20 4B |.".IN REGEL 60 K| 00000900: 49 4A 4B 20 49 4B 20 4F 4D 20 54 45 20 5A 49 45 |IJK IK OM TE ZIE| 00000910: 4E 20 4F 46 20 48 45 54 00 46 11 76 07 99 22 11 |N OF HET.F.v..".| 00000920: 41 4E 54 57 4F 4F 52 44 20 4F 50 20 44 45 20 56 |ANTWOORD OP DE V| 00000930: 52 41 41 47 2C 20 4F 50 47 45 42 4F 52 47 45 4E |RAAG, OPGEBORGEN| 00000940: 20 49 4E 20 41 24 00 72 11 80 07 99 22 11 47 45 | IN A$.r....".GE| 00000950: 4C 49 4A 4B 20 49 53 20 41 41 4E 20 27 4A 41 27 |LIJK IS AAN 'JA'| 00000960: 2E 20 49 53 20 44 49 54 20 57 41 41 52 2C 20 44 |. IS DIT WAAR, D| 00000970: 41 4E 00 9D 11 8A 07 99 22 11 53 50 52 49 4E 47 |AN......".SPRING| 00000980: 20 49 4B 20 4E 41 41 52 20 52 45 47 45 4C 20 39 | IK NAAR REGEL 9| 00000990: 30 20 45 4E 20 50 52 49 4E 54 20 49 4B 00 C2 11 |0 EN PRINT IK...| 000009A0: 94 07 99 22 11 22 C7 28 33 34 29 22 4D 41 5A 5A |...".".(34)"MAZZ| 000009B0: 45 4C 41 41 52 21 22 C7 28 33 34 29 3A 8D 39 39 |ELAAR!".(34):.99| 000009C0: 39 39 00 FD 11 D0 07 99 22 91 91 91 91 91 91 91 |99......".......| 000009D0: 91 91 91 91 91 49 53 20 48 45 54 20 41 4E 54 57 |.....IS HET ANTW| 000009E0: 4F 4F 52 44 20 47 45 45 4E 20 27 4A 41 27 20 44 |OORD GEEN 'JA' D| 000009F0: 41 4E 20 20 20 20 20 20 20 20 20 20 22 00 2C 12 |AN ".,.| 00000A00: DA 07 99 22 11 53 4C 41 20 49 4B 20 52 45 47 45 |...".SLA IK REGE| 00000A10: 4C 20 36 30 20 4F 56 45 52 20 45 4E 20 47 41 20 |L 60 OVER EN GA | 00000A20: 49 4B 20 4E 41 41 52 20 44 45 20 22 00 5B 12 E4 |IK NAAR DE ".[..| 00000A30: 07 99 22 11 45 45 52 53 54 20 56 4F 4C 47 45 4E |..".EERST VOLGEN| 00000A40: 44 45 2C 20 48 49 45 52 20 37 30 2C 20 45 4E 20 |DE, HIER 70, EN | 00000A50: 50 52 49 4E 54 20 20 20 20 20 11 00 99 12 EE 07 |PRINT ......| 00000A60: 99 C7 28 33 34 29 22 4F 4E 42 45 47 52 49 4A 50 |..(34)"ONBEGRIJP| 00000A70: 45 4C 49 4A 4B 22 C7 28 33 34 29 22 20 20 20 20 |ELIJK".(34)" | 00000A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A90: 20 20 20 20 20 20 20 20 22 00 B5 12 F8 07 99 22 | "......"| 00000AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":| 00000AB0: 8D 39 39 39 39 00 E1 12 34 08 99 22 93 27 49 46 |.9999...4..".'IF| 00000AC0: A4 47 4F 54 4F 27 20 47 45 42 52 55 49 4B 20 4A |.GOTO' GEBRUIK J| 00000AD0: 45 20 41 4C 53 20 49 4B 20 4E 41 41 52 20 45 45 |E ALS IK NAAR EE| 00000AE0: 4E 00 10 13 3E 08 99 22 11 48 45 45 4C 20 41 4E |N...>..".HEEL AN| 00000AF0: 44 45 52 20 44 45 45 4C 20 56 41 4E 20 48 45 54 |DER DEEL VAN HET| 00000B00: 20 50 52 4F 47 52 41 4D 4D 41 20 4D 4F 45 54 2E | PROGRAMMA MOET.| 00000B10: 00 3A 13 48 08 99 22 11 41 4C 53 20 45 45 4E 20 |.:.H..".ALS EEN | 00000B20: 42 45 50 41 41 4C 44 45 20 43 4F 4E 44 49 54 49 |BEPAALDE CONDITI| 00000B30: 45 20 57 41 41 52 20 49 53 2C 00 64 13 52 08 99 |E WAAR IS,.d.R..| 00000B40: 22 11 53 50 52 49 4E 47 20 49 4B 20 4E 41 41 52 |".SPRING IK NAAR| 00000B50: 20 44 45 20 52 45 47 45 4C 20 44 49 45 20 41 43 | DE REGEL DIE AC| 00000B60: 48 54 45 52 00 86 13 57 08 99 22 11 48 45 54 20 |HTER...W..".HET | 00000B70: 43 4F 4D 4D 41 4E 44 4F 20 27 47 4F 54 4F 27 20 |COMMANDO 'GOTO' | 00000B80: 53 54 41 41 54 2E 00 B7 13 5C 08 99 22 11 11 11 |STAAT....\.."...| 00000B90: 27 47 4F 54 4F 27 20 4B 55 4E 20 4A 45 20 4F 4F |'GOTO' KUN JE OO| 00000BA0: 4B 20 47 45 42 52 55 49 4B 45 4E 20 5A 4F 4E 44 |K GEBRUIKEN ZOND| 00000BB0: 45 52 20 27 49 46 27 00 E0 13 66 08 99 22 11 5A |ER 'IF'...f..".Z| 00000BC0: 4F 44 41 54 20 49 4B 20 5A 4F 4E 44 45 52 20 43 |ODAT IK ZONDER C| 00000BD0: 4F 4E 44 49 54 49 45 53 20 4E 41 41 52 20 44 45 |ONDITIES NAAR DE| 00000BE0: 00 14 14 6B 08 99 22 11 52 45 47 45 4C 20 53 50 |...k..".REGEL SP| 00000BF0: 52 49 4E 47 20 44 49 45 20 41 43 48 54 45 52 20 |RING DIE ACHTER | 00000C00: 27 47 4F 54 4F 27 20 53 54 41 41 54 2E 22 3A 8D |'GOTO' STAAT.":.| 00000C10: 39 39 39 39 00 42 14 98 08 99 22 93 45 45 4E 20 |9999.B....".EEN | 00000C20: 41 4E 44 45 52 20 48 41 4E 44 49 47 20 27 43 4F |ANDER HANDIG 'CO| 00000C30: 4E 44 49 54 49 4F 4E 41 4C 20 43 4F 4D 4D 41 4E |NDITIONAL COMMAN| 00000C40: 44 27 00 5A 14 A2 08 99 22 11 49 53 3A 20 20 20 |D'.Z....".IS: | 00000C50: 20 27 49 46 A4 54 48 45 4E 27 00 90 14 AC 08 99 | 'IF.THEN'......| 00000C60: 22 11 11 11 20 20 34 30 20 49 4E 50 55 54 20 22 |"... 40 INPUT "| 00000C70: C7 28 33 34 29 22 47 45 45 46 20 45 45 4E 20 47 |.(34)"GEEF EEN G| 00000C80: 45 54 41 4C 20 4F 50 22 C7 28 33 34 29 22 3B 4E |ETAL OP".(34)";N| 00000C90: 00 C4 14 B6 08 99 22 11 20 20 35 30 20 49 46 20 |......". 50 IF | 00000CA0: 4E 3E 31 30 20 54 48 45 4E 20 50 52 49 4E 54 20 |N>10 THEN PRINT | 00000CB0: 22 C7 28 33 34 29 22 47 52 4F 54 45 52 20 44 41 |".(34)"GROTER DA| 00000CC0: 4E 20 31 30 00 FA 14 C0 08 99 22 11 20 20 36 30 |N 10......". 60| 00000CD0: 20 49 46 20 41 3C 3D 31 30 20 54 48 45 4E 20 50 | IF A<=10 THEN P| 00000CE0: 52 49 4E 54 20 22 C7 28 33 34 29 22 4B 4C 45 49 |RINT ".(34)"KLEI| 00000CF0: 4E 45 52 20 44 41 4E 20 31 30 00 16 15 CA 08 99 |NER DAN 10......| 00000D00: 22 20 20 20 20 20 4F 46 20 47 45 4C 49 4A 4B 20 |" OF GELIJK | 00000D10: 41 41 4E 20 31 30 00 46 15 D4 08 99 22 11 11 11 |AAN 10.F...."...| 00000D20: 52 45 47 45 4C 20 35 30 20 4C 41 41 54 20 49 4B |REGEL 50 LAAT IK| 00000D30: 20 41 4C 4C 45 4E 20 50 52 49 4E 54 45 4E 20 41 | ALLEN PRINTEN A| 00000D40: 4C 53 20 44 45 11 00 73 15 DE 08 99 22 43 4F 4E |LS DE..s...."CON| 00000D50: 44 49 54 49 45 20 57 41 41 52 20 49 53 2C 20 44 |DITIE WAAR IS, D| 00000D60: 55 53 20 41 4C 53 20 44 45 20 56 41 52 49 41 42 |US ALS DE VARIAB| 00000D70: 45 4C 45 00 97 15 E8 08 99 22 11 27 4E 27 20 47 |ELE......".'N' G| 00000D80: 52 4F 54 45 52 20 49 53 20 44 41 4E 20 31 30 2E |ROTER IS DAN 10.| 00000D90: 22 3A 8D 39 39 39 39 00 BB 15 FC 08 99 22 93 48 |":.9999......".H| 00000DA0: 49 45 52 20 49 53 20 45 45 4E 20 56 4F 4F 52 42 |IER IS EEN VOORB| 00000DB0: 45 45 4C 44 20 56 41 4E 20 27 4E 00 DE 15 01 09 |EELD VAN 'N.....| 00000DC0: 99 22 11 27 49 46 A4 47 4F 54 4F 27 20 49 4E 20 |.".'IF.GOTO' IN | 00000DD0: 57 45 52 4B 45 4C 49 4A 4B 48 45 49 44 3A 00 0B |WERKELIJKHEID:..| 00000DE0: 16 06 09 85 20 22 11 11 11 57 49 4C 20 4A 45 20 |.... "...WIL JE | 00000DF0: 44 45 5A 45 20 4C 45 53 20 4E 4F 47 20 45 45 4E |DEZE LES NOG EEN| 00000E00: 53 20 5A 49 45 4E 20 22 3B 41 24 00 20 16 10 09 |S ZIEN ";A$. ...| 00000E10: 8B 20 41 24 B2 22 4A 41 22 20 89 20 31 32 33 30 |. A$."JA" . 1230| 00000E20: 00 63 16 1A 09 99 20 22 93 4C 41 41 54 20 4F 4E |.c.... ".LAAT ON| 00000E30: 53 20 27 54 20 4C 41 41 54 53 54 45 20 44 45 45 |S 'T LAATSTE DEE| 00000E40: 4C 20 56 41 4E 20 44 49 54 22 3A 99 22 11 50 52 |L VAN DIT":.".PR| 00000E50: 4F 47 52 41 4D 4D 41 20 45 45 4E 53 20 4C 49 53 |OGRAMMA EENS LIS| 00000E60: 54 45 4E 00 6C 16 24 09 54 B2 54 49 00 88 16 2E |TEN.l.$.T.TI....| 00000E70: 09 8B 20 54 49 AB 54 20 B3 20 31 38 30 A7 A1 41 |.. TI.T . 180..A| 00000E80: 24 3A 89 20 32 33 35 30 00 C8 16 33 09 99 22 11 |$:. 2350...3..".| 00000E90: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 52 55 |..............RU| 00000EA0: 4E 20 32 33 38 30 22 3A 99 22 11 44 52 55 4B 20 |N 2380":.".DRUK | 00000EB0: 4F 50 20 12 52 45 54 55 52 4E 91 91 91 91 91 91 |OP .RETURN......| 00000EC0: 91 91 91 91 91 91 91 91 00 D8 16 38 09 9B 20 32 |...........8.. 2| 00000ED0: 33 30 30 AB 32 33 33 30 00 F0 16 4C 09 99 22 91 |300.2330...L..".| 00000EE0: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |. "| 00000EF0: 00 1C 17 51 09 99 22 49 4E 20 52 45 47 45 4C 20 |...Q.."IN REGEL | 00000F00: 32 33 32 30 20 4B 49 4A 4B 20 49 4B 20 4F 46 20 |2320 KIJK IK OF | 00000F10: 48 45 54 20 41 4E 54 57 4F 4F 52 44 00 4C 17 53 |HET ANTWOORD.L.S| 00000F20: 09 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." | 00000F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F40: 20 20 20 20 20 20 20 20 20 20 20 22 00 76 17 56 | ".v.V| 00000F50: 09 99 22 91 4F 50 20 44 45 20 56 52 41 41 47 20 |..".OP DE VRAAG | 00000F60: 28 44 41 54 20 49 53 20 4F 50 47 45 53 4C 41 47 |(DAT IS OPGESLAG| 00000F70: 45 4E 20 41 4C 53 00 96 17 60 09 99 22 11 44 45 |EN ALS...`..".DE| 00000F80: 20 56 41 52 49 41 42 4C 45 20 41 24 29 20 27 4A | VARIABLE A$) 'J| 00000F90: 41 27 20 49 53 2E 00 C1 17 6A 09 99 22 11 49 53 |A' IS....j..".IS| 00000FA0: 20 44 41 54 20 5A 4F 2C 20 44 41 4E 20 53 50 52 | DAT ZO, DAN SPR| 00000FB0: 49 4E 47 20 49 4B 20 54 45 52 55 47 20 4E 41 41 |ING IK TERUG NAA| 00000FC0: 52 00 F3 17 74 09 99 22 11 31 32 33 30 20 45 4E |R...t..".1230 EN| 00000FD0: 20 53 54 41 52 54 20 4E 4F 47 20 45 45 4E 53 20 | START NOG EENS | 00000FE0: 4D 45 54 20 44 45 5A 45 20 4C 45 53 22 3A 8D 39 |MET DEZE LES":.9| 00000FF0: 39 39 39 00 2D 18 C4 09 99 22 91 91 91 91 91 91 |999.-...."......| 00001000: 91 91 91 91 91 91 41 4C 53 20 41 24 20 47 45 45 |......ALS A$ GEE| 00001010: 4E 20 27 4A 41 27 20 49 53 2C 20 47 41 20 49 4B |N 'JA' IS, GA IK| 00001020: 20 4E 41 41 52 20 44 45 20 20 20 20 22 00 64 18 | NAAR DE ".d.| 00001030: CE 09 99 22 11 56 4F 4C 47 45 4E 44 45 20 52 45 |...".VOLGENDE RE| 00001040: 47 45 4C 20 45 4E 20 50 52 49 4E 54 20 22 C7 28 |GEL EN PRINT ".(| 00001050: 33 34 29 22 4C 41 41 54 20 4F 4E 53 20 27 54 20 |34)"LAAT ONS 'T | 00001060: 20 20 20 22 00 A3 18 D8 09 99 22 4C 41 41 54 53 | "......"LAATS| 00001070: 54 45 20 44 45 45 4C 20 56 41 4E 20 44 49 54 20 |TE DEEL VAN DIT | 00001080: 50 52 4F 47 52 41 4D 4D 41 2E 2E 2E 22 C7 28 33 |PROGRAMMA...".(3| 00001090: 34 29 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |4)" | 000010A0: 20 20 22 00 D1 18 E2 09 99 22 27 54 20 43 4F 4D | "......"'T COM| 000010B0: 4D 41 4E 44 4F 20 27 4C 49 53 54 27 20 4B 41 4E |MANDO 'LIST' KAN| 000010C0: 20 49 4E 20 48 45 54 20 50 52 4F 47 52 41 4D 4D | IN HET PROGRAMM| 000010D0: 41 00 06 19 EC 09 99 22 11 47 45 42 52 55 49 4B |A......".GEBRUIK| 000010E0: 54 20 57 4F 52 44 45 4E 20 4F 4D 20 45 45 4E 20 |T WORDEN OM EEN | 000010F0: 53 54 55 4B 20 54 45 20 4C 49 53 54 45 4E 2E 22 |STUK TE LISTEN."| 00001100: 3A 8D 39 39 39 39 00 32 19 28 0A 99 22 93 4F 4F |:.9999.2.(..".OO| 00001110: 4B 20 56 41 4E 55 49 54 20 44 45 20 27 52 45 41 |K VANUIT DE 'REA| 00001120: 44 59 2E 27 20 4B 55 4E 20 4A 45 20 4C 49 53 54 |DY.' KUN JE LIST| 00001130: 45 4E 00 55 19 32 0A 99 22 11 44 4F 4F 52 20 47 |EN.U.2..".DOOR G| 00001140: 45 57 4F 4F 4E 20 27 4C 49 53 54 27 20 54 45 20 |EWOON 'LIST' TE | 00001150: 54 59 50 45 4E 00 77 19 37 0A 99 22 11 45 4E 20 |TYPEN.w.7..".EN | 00001160: 4F 50 20 12 52 45 54 55 52 4E 92 20 54 45 20 44 |OP .RETURN. TE D| 00001170: 52 55 4B 4B 45 4E 2E 00 A7 19 3C 0A 99 22 11 11 |RUKKEN....<.."..| 00001180: 4D 45 54 20 27 4C 49 53 54 20 33 30 27 20 20 20 |MET 'LIST 30' | 00001190: 20 5A 49 45 20 4A 45 20 41 4C 4C 45 45 4E 20 52 | ZIE JE ALLEEN R| 000011A0: 45 47 45 4C 20 33 30 00 D1 19 41 0A 99 22 4D 45 |EGEL 30...A.."ME| 000011B0: 54 20 27 4C 49 53 54 20 2D 33 30 27 20 20 20 41 |T 'LIST -30' A| 000011C0: 4C 4C 45 20 52 45 47 45 4C 53 20 54 2F 4D 20 33 |LLE REGELS T/M 3| 000011D0: 30 00 FD 19 46 0A 99 22 4D 45 54 20 27 4C 49 53 |0...F.."MET 'LIS| 000011E0: 54 20 33 30 2D 27 20 20 20 41 4C 4C 45 20 52 45 |T 30-' ALLE RE| 000011F0: 47 45 4C 53 20 56 41 4E 41 46 20 33 30 00 28 1A |GELS VANAF 30.(.| 00001200: 4B 0A 99 22 4D 45 54 20 27 4C 49 53 54 20 31 30 |K.."MET 'LIST 10| 00001210: 2D 33 30 27 20 44 45 20 52 45 47 45 4C 53 20 31 |-30' DE REGELS 1| 00001220: 30 20 54 2F 4D 20 33 30 00 52 1A 50 0A 99 22 11 |0 T/M 30.R.P..".| 00001230: 41 4C 53 20 48 45 54 20 53 43 48 45 52 4D 20 56 |ALS HET SCHERM V| 00001240: 4F 4C 20 49 53 2C 20 44 41 4E 20 42 4C 49 4A 56 |OL IS, DAN BLIJV| 00001250: 45 4E 00 7A 1A 55 0A 99 22 11 44 45 20 52 45 47 |EN.z.U..".DE REG| 00001260: 45 4C 53 20 41 41 4E 20 44 45 20 4F 4E 44 45 52 |ELS AAN DE ONDER| 00001270: 4B 41 4E 54 20 4B 4F 4D 45 4E 00 A1 1A 5A 0A 99 |KANT KOMEN...Z..| 00001280: 22 11 45 4E 20 56 45 52 44 57 49 4A 4E 45 4E 20 |".EN VERDWIJNEN | 00001290: 5A 45 20 42 4F 56 45 4E 20 28 53 43 52 4F 4C 4C |ZE BOVEN (SCROLL| 000012A0: 29 00 CA 1A 5F 0A 99 22 11 44 45 20 53 4E 45 4C |)..._..".DE SNEL| 000012B0: 48 45 49 44 20 57 4F 52 44 54 20 47 45 48 41 4C |HEID WORDT GEHAL| 000012C0: 56 45 45 52 44 20 44 4F 4F 52 00 F6 1A 64 0A 99 |VEERD DOOR...d..| 000012D0: 22 11 44 45 20 54 4F 45 54 53 20 27 43 54 52 4C |".DE TOETS 'CTRL| 000012E0: 27 20 49 4E 47 45 44 52 55 4B 54 20 54 45 20 48 |' INGEDRUKT TE H| 000012F0: 4F 55 44 45 4E 2E 00 01 1B 82 0A 3A 8D 39 39 39 |OUDEN......:.999| 00001300: 39 00 2E 1B 8C 0A 99 22 93 4E 41 41 53 54 20 48 |9......".NAAST H| 00001310: 45 54 20 42 45 53 50 52 4F 4B 45 4E 20 27 49 4E |ET BESPROKEN 'IN| 00001320: 50 55 54 27 20 49 53 20 45 52 20 4E 4F 47 00 5B |PUT' IS ER NOG.[| 00001330: 1B 96 0A 99 22 11 27 4E 20 4D 45 54 48 4F 44 45 |....".'N METHODE| 00001340: 20 4F 4D 20 49 4E 46 4F 52 4D 41 54 49 45 20 54 | OM INFORMATIE T| 00001350: 45 20 4B 52 49 4A 47 45 4E 2E 2E 00 86 1B AA 0A |E KRIJGEN.......| 00001360: 99 22 11 11 48 45 54 20 12 47 45 54 92 20 43 4F |."..HET .GET. CO| 00001370: 4D 4D 41 4E 44 4F 20 47 45 56 4F 4C 47 44 20 44 |MMANDO GEVOLGD D| 00001380: 4F 4F 52 20 27 4E 00 AE 1B B4 0A 99 22 11 53 54 |OOR 'N......".ST| 00001390: 52 49 4E 47 2D 56 41 52 49 41 42 45 4C 45 2C 20 |RING-VARIABELE, | 000013A0: 41 43 43 45 50 54 45 45 52 54 20 45 45 4E 00 DB |ACCEPTEERT EEN..| 000013B0: 1B BE 0A 99 22 11 4B 41 52 41 4B 54 45 52 20 56 |....".KARAKTER V| 000013C0: 41 4E 20 48 45 54 20 54 4F 45 54 53 45 4E 42 4F |AN HET TOETSENBO| 000013D0: 52 44 20 45 4E 20 57 4F 52 44 54 00 FB 1B C8 0A |RD EN WORDT.....| 000013E0: 99 22 11 56 41 41 4B 20 41 4C 53 20 56 4F 4C 47 |.".VAAK ALS VOLG| 000013F0: 54 20 47 45 42 52 55 49 4B 54 3A 00 2B 1C D2 0A |T GEBRUIKT:.+...| 00001400: 99 22 11 11 20 20 20 31 30 20 50 52 49 4E 54 20 |.".. 10 PRINT | 00001410: 22 C7 28 33 34 29 22 48 45 42 20 4A 45 3A 20 41 |".(34)"HEB JE: A| 00001420: 2E 20 27 4E 20 43 42 4D 20 36 34 00 5C 1C DC 0A |. 'N CBM 64.\...| 00001430: 99 22 11 20 20 20 32 30 20 50 52 49 4E 54 20 22 |.". 20 PRINT "| 00001440: C7 28 33 34 29 22 20 20 20 20 20 20 20 20 42 2E |.(34)" B.| 00001450: 20 47 45 45 4E 20 43 42 4D 20 36 34 00 91 1C E6 | GEEN CBM 64....| 00001460: 0A 99 22 11 20 20 20 33 30 20 50 52 49 4E 54 20 |..". 30 PRINT | 00001470: 22 C7 28 33 34 29 22 20 20 20 20 20 20 20 20 43 |".(34)" C| 00001480: 2E 20 42 49 4A 4E 41 20 27 4E 20 43 42 4D 20 36 |. BIJNA 'N CBM 6| 00001490: 34 00 CA 1C FA 0A 99 22 11 20 20 20 34 30 20 47 |4......". 40 G| 000014A0: 45 54 20 41 24 20 3A 20 49 46 20 41 24 3D 22 C7 |ET A$ : IF A$=".| 000014B0: 28 33 34 29 3B C7 28 33 34 29 22 20 47 4F 54 4F |(34);.(34)" GOTO| 000014C0: 20 34 30 22 3A 8D 39 39 39 39 00 EF 1C 54 0B 99 | 40":.9999...T..| 000014D0: 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". | 000014E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 000014F0: 17 1D 5E 0B 99 22 11 4F 50 20 52 45 47 45 4C 20 |..^..".OP REGEL | 00001500: 34 30 20 42 4C 49 4A 46 20 49 4B 20 54 45 52 55 |40 BLIJF IK TERU| 00001510: 47 20 4B 4F 4D 45 4E 00 44 1D 68 0B 99 22 11 5A |G KOMEN.D.h..".Z| 00001520: 4F 4C 41 4E 47 20 45 52 20 4E 4F 47 20 47 45 45 |OLANG ER NOG GEE| 00001530: 4E 20 54 4F 45 54 53 20 49 53 20 49 4E 47 45 44 |N TOETS IS INGED| 00001540: 52 55 4B 54 00 7A 1D 72 0B 99 22 11 27 49 46 20 |RUKT.z.r..".'IF | 00001550: 41 24 3D 22 C7 28 33 34 29 C7 28 33 34 29 22 27 |A$=".(34).(34)"'| 00001560: 20 42 45 54 45 4B 45 4E 54 20 27 41 4C 53 20 41 | BETEKENT 'ALS A| 00001570: 24 20 4C 45 45 47 20 49 53 27 00 A8 1D 7C 0B 99 |$ LEEG IS'...|..| 00001580: 22 11 49 53 20 44 45 20 43 4F 4E 44 49 54 49 45 |".IS DE CONDITIE| 00001590: 20 57 41 41 52 2C 20 44 41 4E 20 47 41 20 49 4B | WAAR, DAN GA IK| 000015A0: 20 4E 41 41 52 20 34 30 00 D8 1D 86 0B 99 22 11 | NAAR 40......".| 000015B0: 44 49 54 20 49 53 20 45 45 4E 20 54 52 55 55 4B |DIT IS EEN TRUUK| 000015C0: 4A 45 20 4F 4D 20 54 45 20 4E 4F 54 45 52 45 4E |JE OM TE NOTEREN| 000015D0: 21 22 3A 8D 39 39 39 39 00 0A 1E B8 0B 99 22 93 |!":.9999......".| 000015E0: 57 49 4C 20 4A 45 20 4E 4F 47 20 45 45 4E 53 20 |WIL JE NOG EENS | 000015F0: 44 45 5A 45 20 4C 45 53 20 44 4F 4F 52 4E 45 4D |DEZE LES DOORNEM| 00001600: 45 4E 22 3A 8D 31 30 30 31 30 00 1C 1E CC 0B 8B |EN":.10010......| 00001610: 41 24 B2 22 4A 41 22 89 31 31 30 30 00 3F 1E A0 |A$."JA".1100.?..| 00001620: 0F 99 22 93 11 11 11 4F 4B 20 54 4F 54 20 44 45 |.."....OK TOT DE| 00001630: 20 56 4F 4C 47 45 4E 44 45 20 4C 45 53 21 21 00 | VOLGENDE LES!!.| 00001640: 59 1E AA 0F 5F 4C 22 42 41 53 49 43 4C 45 53 20 |Y..._L"BASICLES | 00001650: 34 22 2C 28 C2 28 32 29 29 00 7C 1E 88 13 8F 20 |4",(.(2)).|.... | 00001660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9B 1E 92 |************....| 00001680: 13 8F 20 54 45 53 54 20 4F 50 20 44 49 53 4B 20 |.. TEST OP DISK | 00001690: 4F 46 20 43 41 53 53 45 54 54 45 00 B5 1E 9C 13 |OF CASSETTE.....| 000016A0: 58 B2 C2 28 32 29 3A 8B 58 B2 31 B0 58 B2 38 B0 |X..(2):.X.1.X.8.| 000016B0: 58 B2 38 A7 8E 00 DB 1E A6 13 99 22 93 11 11 11 |X.8........"....| 000016C0: 11 11 C8 45 45 46 54 20 55 20 45 45 4E 20 43 41 |...EEFT U EEN CA| 000016D0: 53 53 45 54 54 45 20 28 31 29 22 00 04 1F B0 13 |SSETTE (1)".....| 000016E0: 99 22 11 4F 46 20 45 45 4E 20 44 52 49 56 45 20 |.".OF EEN DRIVE | 000016F0: 28 38 29 20 4D 45 54 20 44 45 5A 45 20 4C 45 53 |(8) MET DEZE LES| 00001700: 53 45 4E 22 00 1E 1F BA 13 85 22 11 11 47 45 45 |SEN"......"..GEE| 00001710: 46 20 31 20 4F 46 20 38 22 3B 41 3A 99 41 00 3A |F 1 OF 8";A:.A.:| 00001720: 1F C4 13 8B 41 B3 B1 31 AF 41 B3 B1 38 A7 99 22 |....A..1.A..8.."| 00001730: 91 91 22 3B 3A 89 35 30 35 30 00 43 1F CE 13 97 |..";:.5050.C....| 00001740: 32 2C 41 00 49 1F D8 13 8E 00 6C 1F E2 13 8F 20 |2,A.I.....l.... | 00001750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 99 1F 0F |************....| 00001770: 27 97 35 32 35 2C 30 3A 99 22 11 11 12 56 4F 4F |'.525,0:."...VOO| 00001780: 52 20 56 45 52 44 45 52 3A 20 44 52 55 4B 20 4F |R VERDER: DRUK O| 00001790: 50 20 27 53 50 41 43 45 27 00 AE 1F 1A 27 A1 41 |P 'SPACE'....'.A| 000017A0: 24 3A 8B 41 24 B2 22 22 A7 31 30 30 31 30 00 B4 |$:.A$."".10010..| 000017B0: 1F 24 27 8E 00 DD 1F 20 4E 99 22 93 20 20 20 B7 |.$'.... N.". .| 000017C0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 000017D0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 00 10 20 |............... | 000017E0: 2A 4E 99 22 20 20 20 20 32 30 20 50 52 49 4E 54 |*N." 20 PRINT| 000017F0: 20 22 C7 28 33 34 29 22 20 48 4F 45 20 4F 55 44 | ".(34)" HOE OUD| 00001800: 20 42 45 4E 20 4A 49 4A 20 22 C7 28 33 34 29 22 | BEN JIJ ".(34)"| 00001810: 00 26 20 34 4E 99 22 11 20 20 20 20 33 30 20 49 |.& 4N.". 30 I| 00001820: 4E 50 55 54 20 41 00 57 20 3E 4E 99 22 11 20 20 |NPUT A.W >N.". | 00001830: 20 20 34 30 20 50 52 49 4E 54 20 41 20 22 C7 28 | 40 PRINT A ".(| 00001840: 33 34 29 22 20 49 53 20 4E 49 45 54 20 4F 55 44 |34)" IS NIET OUD| 00001850: 2E 22 C7 28 33 34 29 00 82 20 48 4E 99 22 20 20 |.".(34).. HN." | 00001860: 20 AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF | ...............| 00001870: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF 22 |..............."| 00001880: 3A 8E 00 88 20 2F 75 80 00 9E 20 30 75 94 22 40 |:... /u... 0u."@| 00001890: 3A 42 41 53 49 43 4C 45 53 20 33 22 2C 38 00 00 |:BASICLES 3",8..| 000018A0: 00 24 7F FF FF |.$... |
....Z..53280,6:.53281,6:.G(14).(.C..5000
.6.D..59468,12.\....".... ===BASIC CUR
SUS LES 3===.~...." ==================
======......C.1.1300:....L..".HET BEKEND
E 'DOKTER' PROGRAMMA...V..".SIMULEERT 'N
PSYCHIATER IN GESPREK...`..".MET EEN PA
TIENT OP DE BANK./.J.."..MENIGEEN IS NIE
T IN STAAT HET VERSCHIL.U.T..".OP TE MER
KEN, OF ZE NU MET EEN...~..".ECHTE ARTS
OF MET 'N COMPUTER PRATEN!......"...HET
PROGRAMMA LIJKT ERG INGEWIKKELD,.Y....".
MAAR IS IN BEGINSEL ERG EENVOUDIG......"
.VAN OPZET.":.9999. .N..20000:."...IN DI
T DEEL VAN HET PROGRAMMA.J.X..".GEBRUIK
IK REGEL 20 OM 'N VRAAG TE.P....".PRINTE
N TENEINDE EEN ANTWOORD,......".'N .INPU
T. STATEMENT, TE VERKRIJGEN":.9999.U....
20000:."...ALS IK .INPUT. ZIE WACHT IK T
OT ER......".EEN ANTWOORD INGETYPT IS EN
BERG DAT OP.1.(..".ONDER DE NOEMER 'A'
IN MIJN GEHEUGEN..\.2.."..ALS TEKEN DAT
IK OP ANTWOORD WACHT...<..".LAAT IK DUS
'?' ZIEN ACHTER DE VRAAG.":.9999.B.X..20
000:."..ZO ALS IK REEDS VERTELDE KUNNEN
WE......".DIT NOG KORTER OPSCHRIJVEN!...
..."..HET BESPAARDE ONS IMMERS RUIMTE IN
.0....".IN MIJN GEHEUGEN!":.9999.X....".
LATEN WE DUS AFSPREKEN DAT WE IN......".
VERVOLG ALTIJD 'N PRINT EN INPUT......".
SAMENVOEGEN ALS HET VOORKOMT!.........".
. 20 INPUT "G(34)"HOE OUD BEN JIJ "G(
34)";A......". 30 PRINT A "G(34)"IS N
IET OUD..5...."..VERGEET ECHTER NIET DE
PUNT-KOMMA EN.\....".EN DE AANHALINGSTEK
ENS!!":.9999...@..".TYP 'RUN' EN DRUK OP
.RETURN. OM DIT...E..".PROGRAMMA UIT TE
PROBEREN ";A$.B.J..A$.."RUN".1600...T..
"..... HOE OUD BEN JIJ";A...^..A "IS NIE
T OUD...":.9999.)....".'INPUT' KAN OOK G
EBRUIKT WORDEN OM.U....".EEN WOORD TE VR
AGEN I.P.V. EEN GETAL..B.."..DAARVOOR M
OET JE HET DOLLAR TEKEN...L..".ACHTER DE
VARIABELE 'A' PLAATSEN.R.V..".ZODAT IK
WEET DAT ER LETTERS KOMEN:......".. 5
0 INPUT "G(34)"BEZIT JIJ 'N CBM 64"G(34)
";A$.8...."..HET ANTWOORD WORDT OPGEBORG
EN IN DE.O....".STRING VARIABLE 'A$'.":.
"...... ........":.9999......".DE MOGELI
JKHEID WOORDEN IN STRINGS TE.G....".BERG
EN KAN GEBRUIKT WORDEN VOOR Z'N......".P
ROGRAMMA, ALS 'DOKTER', ZODAT ER EEN...&
..".SOORT CONVERSATIE ONTSTAAT..R.0.."..
. 50 INPUT "G(34)"BEZIT JIJ 'N CBM 64
"G(34)";A$...:..". 60 IF A$ = "G(34)"
JA"G(34)" GOTO 90...D..". 70 PRINT "G
(34)"ONBEGRIJPELIJK!...N..". 80 END..
.X..". 90 PRINT "G(34)"MAZZELAAR!":.9
999...L..".IN REGEL 60 KIJK IK OM TE ZIE
N OF HET.F.V..".ANTWOORD OP DE VRAAG, OP
GEBORGEN IN A$.R....".GELIJK IS AAN 'JA'
. IS DIT WAAR, DAN......".SPRING IK NAAR
REGEL 90 EN PRINT IK.B...."."G(34)"MAZZ
ELAAR!"G(34):.9999...P.."............IS
HET ANTWOORD GEEN 'JA' DAN ".,.
Z..".SLA IK REGEL 60 OVER EN GA IK NAAR
DE ".[....".EERST VOLGENDE, HIER 70, EN
PRINT .......G(34)"ONBEGRIJPELIJK"G(
34)" "......"
":.9999...4..".'IF.GOTO' G
EBRUIK JE ALS IK NAAR EEN...>..".HEEL AN
DER DEEL VAN HET PROGRAMMA MOET..:.H..".
ALS EEN BEPAALDE CONDITIE WAAR IS,.D.R..
".SPRING IK NAAR DE REGEL DIE ACHTER...W
..".HET COMMANDO 'GOTO' STAAT....\.."...
'GOTO' KUN JE OOK GEBRUIKEN ZONDER 'IF'.
..F..".ZODAT IK ZONDER CONDITIES NAAR DE
...K..".REGEL SPRING DIE ACHTER 'GOTO' S
TAAT.":.9999.B....".EEN ANDER HANDIG 'CO
NDITIONAL COMMAND'.Z....".IS: 'IF.THE
N'......"... 40 INPUT "G(34)"GEEF EEN G
ETAL OP"G(34)";N.D....". 50 IF N>10 THE
N PRINT "G(34)"GROTER DAN 10......". 60
IF A<=10 THEN PRINT "G(34)"KLEINER DAN
10...J.." OF GELIJK AAN 10.F.T.."...
REGEL 50 LAAT IK ALLEN PRINTEN ALS DE..S
...."CONDITIE WAAR IS, DUS ALS DE VARIAB
ELE......".'N' GROTER IS DAN 10.":.9999.
.....".HIER IS EEN VOORBEELD VAN 'N.....
.".'IF.GOTO' IN WERKELIJKHEID:...... "..
.WIL JE DEZE LES NOG EENS ZIEN ";A$. ...
. A$."JA" . 1230.C.... ".LAAT ONS 'T LAA
TSTE DEEL VAN DIT":.".PROGRAMMA EENS LIS
TEN.L.$.T.TI...... TI.T . 180..A$:. 2350
.H.3.."...............RUN 2380":.".DRUK
OP .RETURN...............X.8.. 2300.2330
...L..".. "...Q.."IN REGEL
2320 KIJK IK OF HET ANTWOORD.L.S.."
".V.V
..".OP DE VRAAG (DAT IS OPGESLAGEN ALS..
.`..".DE VARIABLE A$) 'JA' IS..A.J..".IS
DAT ZO, DAN SPRING IK TERUG NAAR...T.."
.1230 EN START NOG EENS MET DEZE LES":.9
999.-.D.."............ALS A$ GEEN 'JA' I
S, GA IK NAAR DE ".D.N..".VOLGENDE RE
GEL EN PRINT "G(34)"LAAT ONS 'T "...X
.."LAATSTE DEEL VAN DIT PROGRAMMA..."G(3
4)" ".Q...."'T COMMANDO 'L
IST' KAN IN HET PROGRAMMA......".GEBRUIK
T WORDEN OM EEN STUK TE LISTEN.":.9999.2
.(..".OOK VANUIT DE 'READY.' KUN JE LIST
EN.U.2..".DOOR GEWOON 'LIST' TE TYPEN.W.
7..".EN OP .RETURN. TE DRUKKEN....<.."..
MET 'LIST 30' ZIE JE ALLEEN REGEL 30.
Q.A.."MET 'LIST -30' ALLE REGELS T/M 3
0...F.."MET 'LIST 30-' ALLE REGELS VAN
AF 30.(.K.."MET 'LIST 10-30' DE REGELS 1
0 T/M 30.R.P..".ALS HET SCHERM VOL IS, D
AN BLIJVEN.Z.U..".DE REGELS AAN DE ONDER
KANT KOMEN...Z..".EN VERDWIJNEN ZE BOVEN
(SCROLL).J._..".DE SNELHEID WORDT GEHAL
VEERD DOOR...D..".DE TOETS 'CTRL' INGEDR
UKT TE HOUDEN......:.9999......".NAAST H
ET BESPROKEN 'INPUT' IS ER NOG.[....".'N
METHODE OM INFORMATIE TE KRIJGEN.......
."..HET .GET. COMMANDO GEVOLGD DOOR 'N..
....".STRING-VARIABELE, ACCEPTEERT EEN..
....".KARAKTER VAN HET TOETSENBORD EN WO
RDT...H..".VAAK ALS VOLGT GEBRUIKT:.+.R.
.".. 10 PRINT "G(34)"HEB JE: A. 'N CBM
64.\....". 20 PRINT "G(34)" B.
GEEN CBM 64......". 30 PRINT "G(34)"
C. BIJNA 'N CBM 64.J....". 40 G
ET A$ : IF A$="G(34);G(34)" GOTO 40":.99
99...T..". ".
..^..".OP REGEL 40 BLIJF IK TERUG KOMEN.
D.H..".ZOLANG ER NOG GEEN TOETS IS INGED
RUKT.Z.R..".'IF A$="G(34)G(34)"' BETEKEN
T 'ALS A$ LEEG IS'...|..".IS DE CONDITIE
WAAR, DAN GA IK NAAR 40.X....".DIT IS E
EN TRUUKJE OM TE NOTEREN!":.9999......".
WIL JE NOG EENS DEZE LES DOORNEMEN":.100
10...L..A$."JA".1100.?. .."....OK TOT DE
VOLGENDE LES!!.Y..._L"BASICLES 4",(B(2)
).|.... ****************************....
.. TEST OP DISK OF CASSETTE.....X.B(2):.
X.1.X.8.X.8........"......HEEFT U EEN CA
SSETTE (1)"......".OF EEN DRIVE (8) MET
DEZE LESSEN"......"..GEEF 1 OF 8";A:.A.:
.D..A..1.A..8.."..";:.5050.C.N..2,A.I.X.
..L.... ****************************....
'.525,0:."...VOOR VERDER: DRUK OP 'SPACE
'....'.A$:.A$."".10010...$'.... N.". .
............................... *N."
20 PRINT "G(34)" HOE OUD BEN JIJ "G(34)"
.& 4N.". 30 INPUT A.W >N.". 40 PRI
NT A "G(34)" IS NIET OUD."G(34).. HN."
..............................":... /U.
.. 0U."@:BASICLES 3",8...$..
> CLICK IMAGE PREVIEW FOR FULL MODAL