BASIC LES 3
FILE INFORMATION
FILENAME(S): BASIC LES 3
FILE TYPE(S): PRG
FILE SIZE: 6.1K
FIRST SEEN: 2025-11-30 21:24:40
APPEARS ON: 1 disk(s)
FILE HASH
21dcb23287188b1978e71b1fc2bbcba81e98697c3efa3c5ed9327fb288b1c663
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| EDUCATIEF | BASIC LES 3 | PRG | DuncanTwain | 20 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 64 00 99 C7 28 31 34 32 29 3A 5A 24 |....d...(142):Z$|
00000010: B2 C7 28 33 34 29 00 34 08 6E 00 51 31 B2 31 39 |..(34).4.n.Q1.19|
00000020: 38 3A 97 35 33 32 38 30 2C 32 3A 97 35 33 32 38 |8:.53280,2:.5328|
00000030: 31 2C 31 30 00 65 08 78 00 99 22 93 11 1C 20 2A |1,10.e.x.."... *|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 20 42 41 53 49 43 20 43 |******** BASIC C|
00000050: 55 52 53 55 53 20 4C 45 53 20 33 20 2A 2A 2A 2A |URSUS LES 3 ****|
00000060: 2A 2A 2A 2A 2A 00 75 08 8C 00 81 43 B2 31 A4 31 |*****.u....C.1.1|
00000070: 33 30 30 3A 82 00 9E 08 96 00 99 22 93 11 1C 20 |300:......."... |
00000080: 48 45 54 20 42 45 4B 45 4E 44 45 20 27 44 4F 4B |HET BEKENDE 'DOK|
00000090: 54 45 52 27 20 50 52 4F 47 52 41 4D 4D 41 00 C9 |TER' PROGRAMMA..|
000000A0: 08 A0 00 99 22 11 20 53 49 4D 55 4C 45 45 52 54 |....". SIMULEERT|
000000B0: 20 27 4E 20 50 53 59 43 48 49 41 54 45 52 20 49 | 'N PSYCHIATER I|
000000C0: 4E 20 47 45 53 50 52 45 4B 00 ED 08 AA 00 99 22 |N GESPREK......"|
000000D0: 11 20 4D 45 54 20 45 45 4E 20 50 41 54 49 45 4E |. MET EEN PATIEN|
000000E0: 54 20 4F 50 20 44 45 20 42 41 4E 4B 2E 00 1D 09 |T OP DE BANK....|
000000F0: B4 00 99 22 11 11 20 4D 45 4E 49 47 45 45 4E 20 |...".. MENIGEEN |
00000100: 49 53 20 4E 49 45 54 20 49 4E 20 53 54 41 41 54 |IS NIET IN STAAT|
00000110: 20 48 45 54 20 56 45 52 53 43 48 49 4C 00 44 09 | HET VERSCHIL.D.|
00000120: BE 00 99 22 11 20 4F 50 20 54 45 20 4D 45 52 4B |...". OP TE MERK|
00000130: 45 4E 2C 20 4F 46 20 5A 45 20 4E 55 20 4D 45 54 |EN, OF ZE NU MET|
00000140: 20 45 45 4E 00 72 09 C8 00 99 22 11 20 45 43 48 | EEN.r....". ECH|
00000150: 54 45 20 41 52 54 53 20 4F 46 20 4D 45 54 20 27 |TE ARTS OF MET '|
00000160: 4E 20 43 4F 4D 50 55 54 45 52 20 50 52 41 54 45 |N COMPUTER PRATE|
00000170: 4E 21 00 A2 09 D2 00 99 22 11 11 11 05 20 48 45 |N!......".... HE|
00000180: 54 20 50 52 4F 47 52 41 4D 4D 41 20 4C 49 4A 4B |T PROGRAMMA LIJK|
00000190: 54 20 45 52 47 20 49 4E 47 45 57 49 4B 4B 45 4C |T ERG INGEWIKKEL|
000001A0: 44 2C 00 CC 09 DC 00 99 22 11 20 4D 41 41 52 20 |D,......". MAAR |
000001B0: 49 53 20 49 4E 20 42 45 47 49 4E 53 45 4C 20 45 |IS IN BEGINSEL E|
000001C0: 52 47 20 45 45 4E 56 4F 55 44 49 47 00 E6 09 E6 |RG EENVOUDIG....|
000001D0: 00 99 22 11 20 56 41 4E 20 4F 50 5A 45 54 2E 22 |..". VAN OPZET."|
000001E0: 3A 8D 31 34 38 30 00 15 0A F0 00 8D 31 35 31 30 |:.1480......1510|
000001F0: 3A 99 22 11 11 11 90 20 49 4E 20 44 49 54 20 44 |:.".... IN DIT D|
00000200: 45 45 4C 20 56 41 4E 20 48 45 54 20 50 52 4F 47 |EEL VAN HET PROG|
00000210: 52 41 4D 4D 41 00 40 0A FA 00 99 22 11 20 47 45 |RAMMA.@....". GE|
00000220: 42 52 55 49 4B 20 49 4B 20 52 45 47 45 4C 20 32 |BRUIK IK REGEL 2|
00000230: 30 20 4F 4D 20 27 4E 20 56 52 41 41 47 20 54 45 |0 OM 'N VRAAG TE|
00000240: 00 67 0A 04 01 99 22 11 20 50 52 49 4E 54 45 4E |.g....". PRINTEN|
00000250: 20 54 45 4E 45 49 4E 44 45 20 45 45 4E 20 41 4E | TENEINDE EEN AN|
00000260: 54 57 4F 4F 52 44 2C 00 9D 0A 0E 01 99 22 11 20 |TWOORD,......". |
00000270: 27 4E 20 1C 12 49 4E 50 55 54 92 90 20 53 54 41 |'N ..INPUT.. STA|
00000280: 54 45 4D 45 4E 54 2C 20 54 45 20 56 45 52 4B 52 |TEMENT, TE VERKR|
00000290: 49 4A 47 45 4E 2E 22 3A 8D 31 34 38 30 00 D3 0A |IJGEN.":.1480...|
000002A0: 18 01 8D 31 35 31 30 3A 99 22 11 11 11 1C 20 41 |...1510:.".... A|
000002B0: 4C 53 20 49 4B 20 05 12 49 4E 50 55 54 92 20 1C |LS IK ..INPUT. .|
000002C0: 5A 49 45 20 57 41 43 48 54 20 49 4B 20 54 4F 54 |ZIE WACHT IK TOT|
000002D0: 20 45 52 00 00 0B 22 01 99 22 11 20 45 45 4E 20 | ER..."..". EEN |
000002E0: 41 4E 54 57 4F 4F 52 44 20 49 4E 47 45 54 59 50 |ANTWOORD INGETYP|
000002F0: 54 20 49 53 20 45 4E 20 42 45 52 47 20 44 41 54 |T IS EN BERG DAT|
00000300: 00 3B 0B 2C 01 99 22 11 20 4F 50 20 4F 4E 44 45 |.;.,..". OP 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 20 20 20 20 20 20 20 11 |IN MIJN .|
00000330: 20 20 47 45 48 45 55 47 45 4E 2E 00 67 0B 36 01 | GEHEUGEN..g.6.|
00000340: 99 22 11 1F 20 41 4C 53 20 54 45 4B 45 4E 20 44 |.".. ALS TEKEN D|
00000350: 41 54 20 49 4B 20 4F 50 20 41 4E 54 57 4F 4F 52 |AT IK OP ANTWOOR|
00000360: 44 20 57 41 43 48 54 00 98 0B 40 01 99 22 11 20 |D WACHT...@..". |
00000370: 4C 41 41 54 20 49 4B 20 27 3F 27 20 5A 49 45 4E |LAAT IK '?' ZIEN|
00000380: 20 41 43 48 54 45 52 20 44 45 20 56 52 41 41 47 | ACHTER DE VRAAG|
00000390: 2E 22 3A 8D 31 34 38 30 00 CB 0B 4A 01 8D 31 35 |.":.1480...J..15|
000003A0: 31 30 3A 99 22 11 11 90 20 5A 4F 20 41 4C 53 20 |10:."... ZO ALS |
000003B0: 49 4B 20 52 45 45 44 53 20 56 45 52 54 45 4C 44 |IK REEDS VERTELD|
000003C0: 45 20 4B 55 4E 4E 45 4E 20 57 45 00 EF 0B 54 01 |E KUNNEN WE...T.|
000003D0: 99 22 11 20 44 49 54 20 4E 4F 47 20 4B 4F 52 54 |.". DIT NOG KORT|
000003E0: 45 52 20 4F 50 53 43 48 52 49 4A 56 45 4E 21 00 |ER OPSCHRIJVEN!.|
000003F0: 1B 0C 5E 01 99 22 11 11 20 48 45 54 20 42 45 53 |..^..".. HET BES|
00000400: 50 41 41 52 44 45 20 4F 4E 53 20 49 4D 4D 45 52 |PAARDE ONS IMMER|
00000410: 53 20 52 55 49 4D 54 45 20 49 4E 00 3C 0C 68 01 |S RUIMTE IN.<.h.|
00000420: 99 22 11 20 49 4E 20 4D 49 4A 4E 20 47 45 48 45 |.". IN MIJN GEHE|
00000430: 55 47 45 4E 21 22 3A 8D 31 34 38 30 00 67 0C 72 |UGEN!":.1480.g.r|
00000440: 01 99 22 93 11 1C 20 4C 41 54 45 4E 20 57 45 20 |.."... LATEN WE |
00000450: 44 55 53 20 41 46 53 50 52 45 4B 45 4E 20 44 41 |DUS AFSPREKEN DA|
00000460: 54 20 57 45 20 49 4E 00 90 0C 7C 01 99 22 11 20 |T WE IN...|..". |
00000470: 56 45 52 56 4F 4C 47 20 41 4C 54 49 4A 44 20 27 |VERVOLG ALTIJD '|
00000480: 4E 20 50 52 49 4E 54 20 45 4E 20 49 4E 50 55 54 |N PRINT EN INPUT|
00000490: 00 B9 0C 86 01 99 22 11 20 53 41 4D 45 4E 56 4F |......". SAMENVO|
000004A0: 45 47 45 4E 20 41 4C 53 20 48 45 54 20 56 4F 4F |EGEN ALS HET VOO|
000004B0: 52 4B 4F 4D 54 21 2E 2E 2E 00 F0 0C 90 01 99 22 |RKOMT!........."|
000004C0: 11 11 90 20 20 20 20 32 30 20 49 4E 50 55 54 20 |... 20 INPUT |
000004D0: 22 C7 28 33 34 29 22 48 4F 45 20 4F 55 44 20 42 |".(34)"HOE OUD B|
000004E0: 45 4E 20 4A 49 4A 20 22 C7 28 33 34 29 22 3B 41 |EN JIJ ".(34)";A|
000004F0: 00 1A 0D 9A 01 99 22 11 20 20 20 20 33 30 20 50 |......". 30 P|
00000500: 52 49 4E 54 20 41 20 22 C7 28 33 34 29 22 49 53 |RINT A ".(34)"IS|
00000510: 20 4E 49 45 54 20 4F 55 44 2E 00 49 0D A4 01 99 | NIET OUD..I....|
00000520: 22 11 11 1C 20 56 45 52 47 45 45 54 20 45 43 48 |"... VERGEET ECH|
00000530: 54 45 52 20 4E 49 45 54 20 44 45 20 50 55 4E 54 |TER NIET DE PUNT|
00000540: 2D 4B 4F 4D 4D 41 20 45 4E 00 71 0D AE 01 99 22 |-KOMMA EN.q...."|
00000550: 11 20 45 4E 20 44 45 20 41 41 4E 48 41 4C 49 4E |. EN DE AANHALIN|
00000560: 47 53 54 45 4B 45 4E 53 21 21 22 3A 8D 31 34 38 |GSTEKENS!!":.148|
00000570: 30 00 A2 0D B8 01 99 22 93 11 1F 20 54 59 50 20 |0......"... TYP |
00000580: 27 52 55 4E 27 20 45 4E 20 44 52 55 4B 20 4F 50 |'RUN' EN DRUK OP|
00000590: 20 90 12 52 45 54 55 52 4E 92 1F 20 4F 4D 20 44 | ..RETURN.. OM D|
000005A0: 49 54 00 CA 0D C2 01 85 22 11 20 50 52 4F 47 52 |IT......". PROGR|
000005B0: 41 4D 4D 41 20 55 49 54 20 54 45 20 50 52 4F 42 |AMMA UIT TE PROB|
000005C0: 45 52 45 4E 20 1C 22 3B 41 24 00 DD 0D CC 01 8B |EREN .";A$......|
000005D0: 41 24 B3 B1 22 52 55 4E 22 89 34 34 30 00 FD 0D |A$.."RUN".440...|
000005E0: D6 01 85 22 90 11 11 11 11 11 20 48 4F 45 20 4F |..."...... HOE O|
000005F0: 55 44 20 42 45 4E 20 4A 49 4A 22 3B 41 00 1B 0E |UD BEN JIJ";A...|
00000600: E0 01 99 41 20 22 49 53 20 4E 49 45 54 20 4F 55 |...A "IS NIET OU|
00000610: 44 11 11 11 22 3A 8D 31 34 38 30 00 48 0E EA 01 |D...":.1480.H...|
00000620: 99 22 93 11 1C 20 27 49 4E 50 55 54 27 20 4B 41 |."... 'INPUT' KA|
00000630: 4E 20 4F 4F 4B 20 47 45 42 52 55 49 4B 54 20 57 |N OOK GEBRUIKT W|
00000640: 4F 52 44 45 4E 20 4F 4D 00 76 0E F4 01 99 22 11 |ORDEN OM.v....".|
00000650: 20 45 45 4E 20 57 4F 4F 52 44 20 54 45 20 56 52 | EEN WOORD TE VR|
00000660: 41 47 45 4E 20 49 2E 50 2E 56 2E 20 45 45 4E 20 |AGEN I.P.V. EEN |
00000670: 47 45 54 41 4C 2E 00 A2 0E FE 01 99 22 11 11 1F |GETAL......."...|
00000680: 20 44 41 41 52 56 4F 4F 52 20 4D 4F 45 54 20 4A | DAARVOOR MOET J|
00000690: 45 20 48 45 54 20 44 4F 4C 4C 41 52 20 54 45 4B |E HET DOLLAR TEK|
000006A0: 45 4E 00 CB 0E 08 02 99 22 11 20 41 43 48 54 45 |EN......". ACHTE|
000006B0: 52 20 44 45 20 56 41 52 49 41 42 45 4C 45 20 27 |R DE VARIABELE '|
000006C0: 41 27 20 50 4C 41 41 54 53 45 4E 00 F7 0E 12 02 |A' PLAATSEN.....|
000006D0: 99 22 11 20 5A 4F 44 41 54 20 49 4B 20 57 45 45 |.". ZODAT IK WEE|
000006E0: 54 20 44 41 54 20 45 52 20 4C 45 54 54 45 52 53 |T DAT ER LETTERS|
000006F0: 20 4B 4F 4D 45 4E 3A 00 2E 0F 1C 02 99 22 90 11 | KOMEN:......"..|
00000700: 11 20 20 20 20 35 30 20 49 4E 50 55 54 20 22 C7 |. 50 INPUT ".|
00000710: 28 33 34 29 22 42 45 5A 49 54 20 4A 49 4A 20 27 |(34)"BEZIT JIJ '|
00000720: 4E 20 36 34 22 C7 28 33 34 29 22 3B 41 24 00 5C |N 64".(34)";A$.\|
00000730: 0F 26 02 99 22 11 11 1C 20 48 45 54 20 41 4E 54 |.&.."... HET ANT|
00000740: 57 4F 4F 52 44 20 57 4F 52 44 54 20 4F 50 47 45 |WOORD WORDT OPGE|
00000750: 42 4F 52 47 45 4E 20 49 4E 20 44 45 00 95 0F 30 |BORGEN IN DE...0|
00000760: 02 99 22 11 20 53 54 52 49 4E 47 20 56 41 52 49 |..". STRING VARI|
00000770: 41 42 4C 45 20 27 41 24 27 2E 22 3A 99 22 20 C4 |ABLE 'A$'.":." .|
00000780: C4 C4 C4 C4 C4 20 C4 C4 C4 C4 C4 C4 C4 C4 22 3A |..... ........":|
00000790: 8D 31 34 38 30 00 C5 0F 3A 02 99 22 93 11 90 20 |.1480...:.."... |
000007A0: 44 45 20 4D 4F 47 45 4C 49 4A 4B 48 45 49 44 20 |DE MOGELIJKHEID |
000007B0: 57 4F 4F 52 44 45 4E 20 49 4E 20 53 54 52 49 4E |WOORDEN IN STRIN|
000007C0: 47 53 20 54 45 00 F1 0F 44 02 99 22 11 20 42 45 |GS TE...D..". BE|
000007D0: 52 47 45 4E 20 4B 41 4E 20 47 45 42 52 55 49 4B |RGEN KAN GEBRUIK|
000007E0: 54 20 57 4F 52 44 45 4E 20 56 4F 4F 52 20 5A 27 |T WORDEN VOOR Z'|
000007F0: 4E 00 1F 10 4E 02 99 22 11 20 50 52 4F 47 52 41 |N...N..". PROGRA|
00000800: 4D 4D 41 2C 20 41 4C 53 20 27 44 4F 4B 54 45 52 |MMA, ALS 'DOKTER|
00000810: 27 2C 20 5A 4F 44 41 54 20 45 52 20 45 45 4E 00 |', ZODAT ER EEN.|
00000820: 43 10 58 02 99 22 11 20 53 4F 4F 52 54 A0 43 4F |C.X..". SOORT.CO|
00000830: 4E 56 45 52 53 41 54 49 45 20 4F 4E 54 53 54 41 |NVERSATIE ONTSTA|
00000840: 41 54 2E 00 7B 10 62 02 99 22 1C 11 11 11 20 20 |AT..{.b..".... |
00000850: 20 20 35 30 20 49 4E 50 55 54 20 22 C7 28 33 34 | 50 INPUT ".(34|
00000860: 29 22 42 45 5A 49 54 20 4A 49 4A 20 27 4E 20 36 |)"BEZIT JIJ 'N 6|
00000870: 34 22 C7 28 33 34 29 22 3B 41 24 00 AA 10 6C 02 |4".(34)";A$...l.|
00000880: 99 22 11 20 20 20 20 36 30 20 49 46 20 41 24 20 |.". 60 IF A$ |
00000890: 3D 20 22 C7 28 33 34 29 22 4A 41 22 C7 28 33 34 |= ".(34)"JA".(34|
000008A0: 29 22 20 47 4F 54 4F 20 39 30 00 D5 10 76 02 99 |)" GOTO 90...v..|
000008B0: 22 11 20 20 20 20 37 30 20 50 52 49 4E 54 20 22 |". 70 PRINT "|
000008C0: C7 28 33 34 29 22 4F 4E 42 45 47 52 49 4A 50 45 |.(34)"ONBEGRIJPE|
000008D0: 4C 49 4A 4B 21 00 E7 10 80 02 99 22 11 20 20 20 |LIJK!......". |
000008E0: 20 38 30 20 45 4E 44 00 14 11 8A 02 99 22 11 20 | 80 END......". |
000008F0: 20 20 20 39 30 20 50 52 49 4E 54 20 22 C7 28 33 | 90 PRINT ".(3|
00000900: 34 29 22 4D 41 5A 5A 45 4C 41 41 52 21 22 3A 8D |4)"MAZZELAAR!":.|
00000910: 31 34 38 30 00 43 11 94 02 99 22 91 1F 20 49 4E |1480.C....".. IN|
00000920: 20 52 45 47 45 4C 20 36 30 20 4B 49 4A 4B 20 49 | REGEL 60 KIJK I|
00000930: 4B 20 4F 4D 20 54 45 20 5A 49 45 4E 20 4F 46 20 |K OM TE ZIEN OF |
00000940: 48 45 54 00 72 11 9E 02 99 22 11 20 41 4E 54 57 |HET.r....". ANTW|
00000950: 4F 4F 52 44 20 4F 50 20 44 45 20 56 52 41 41 47 |OORD OP DE VRAAG|
00000960: 2C 20 4F 50 47 45 42 4F 52 47 45 4E 20 49 4E 20 |, OPGEBORGEN IN |
00000970: 41 24 00 9F 11 A8 02 99 22 11 20 47 45 4C 49 4A |A$......". GELIJ|
00000980: 4B 20 49 53 20 41 41 4E 20 27 4A 41 27 2E 20 49 |K IS AAN 'JA'. I|
00000990: 53 20 44 49 54 20 57 41 41 52 2C 20 44 41 4E 00 |S DIT WAAR, DAN.|
000009A0: CB 11 B2 02 99 22 11 20 53 50 52 49 4E 47 20 49 |.....". SPRING I|
000009B0: 4B 20 4E 41 41 52 20 52 45 47 45 4C 20 39 30 20 |K NAAR REGEL 90 |
000009C0: 45 4E 20 50 52 49 4E 54 20 49 4B 00 F5 11 BC 02 |EN PRINT IK.....|
000009D0: 99 22 20 11 22 C7 28 33 34 29 22 4D 41 5A 5A 45 |." .".(34)"MAZZE|
000009E0: 4C 41 41 52 21 22 C7 28 33 34 29 3A 99 3A 99 3A |LAAR!".(34):.:.:|
000009F0: 8D 31 34 38 30 00 30 12 C6 02 99 22 90 20 91 91 |.1480.0....". ..|
00000A00: 91 91 91 91 91 91 91 91 91 49 53 20 48 45 54 20 |.........IS HET |
00000A10: 41 4E 54 57 4F 4F 52 44 20 47 45 45 4E 20 27 4A |ANTWOORD GEEN 'J|
00000A20: 41 27 20 44 41 4E 20 20 20 20 20 20 20 20 20 22 |A' DAN "|
00000A30: 00 60 12 D0 02 99 22 11 20 53 4C 41 20 49 4B 20 |.`....". SLA IK |
00000A40: 52 45 47 45 4C 20 36 30 20 4F 56 45 52 20 45 4E |REGEL 60 OVER EN|
00000A50: 20 47 41 20 49 4B 20 4E 41 41 52 20 44 45 20 22 | GA IK NAAR DE "|
00000A60: 00 90 12 DA 02 99 22 11 20 45 45 52 53 54 20 56 |......". EERST V|
00000A70: 4F 4C 47 45 4E 44 45 2C 20 48 49 45 52 20 37 30 |OLGENDE, HIER 70|
00000A80: 2C 20 45 4E 20 50 52 49 4E 54 20 20 20 20 20 11 |, EN PRINT .|
00000A90: 00 D1 12 E4 02 99 22 20 22 C7 28 33 34 29 22 4F |......" ".(34)"O|
00000AA0: 4E 42 45 47 52 49 4A 50 45 4C 49 4A 4B 22 C7 28 |NBEGRIJPELIJK".(|
00000AB0: 33 34 29 22 20 20 20 20 20 20 20 20 20 20 20 20 |34)" |
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AD0: 22 00 F3 12 EE 02 99 22 20 20 20 20 20 20 20 20 |"......" |
00000AE0: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 31 | ":.1|
00000AF0: 34 38 30 00 22 13 F8 02 99 22 93 11 9E 20 27 49 |480."...."... 'I|
00000B00: 46 A4 47 4F 54 4F 27 20 47 45 42 52 55 49 4B 20 |F.GOTO' GEBRUIK |
00000B10: 4A 45 20 41 4C 53 20 49 4B 20 4E 41 41 52 20 45 |JE ALS IK NAAR E|
00000B20: 45 4E 00 52 13 02 03 99 22 11 20 48 45 45 4C 20 |EN.R....". HEEL |
00000B30: 41 4E 44 45 52 20 44 45 45 4C 20 56 41 4E 20 48 |ANDER DEEL VAN H|
00000B40: 45 54 20 50 52 4F 47 52 41 4D 4D 41 20 4D 4F 45 |ET PROGRAMMA MOE|
00000B50: 54 2E 00 7E 13 0C 03 99 22 11 1F 20 41 4C 53 20 |T..~....".. ALS |
00000B60: 45 45 4E 20 42 45 50 41 41 4C 44 45 20 43 4F 4E |EEN BEPAALDE CON|
00000B70: 44 49 54 49 45 20 57 41 41 52 20 49 53 2C 00 A9 |DITIE WAAR IS,..|
00000B80: 13 16 03 99 22 11 20 53 50 52 49 4E 47 20 49 4B |....". SPRING IK|
00000B90: 20 4E 41 41 52 20 44 45 20 52 45 47 45 4C 20 44 | NAAR DE REGEL D|
00000BA0: 49 45 20 41 43 48 54 45 52 00 CC 13 20 03 99 22 |IE ACHTER... .."|
00000BB0: 11 20 48 45 54 20 43 4F 4D 4D 41 4E 44 4F 20 27 |. HET COMMANDO '|
00000BC0: 47 4F 54 4F 27 20 53 54 41 41 54 2E 00 FF 13 2A |GOTO' STAAT....*|
00000BD0: 03 99 22 11 11 11 9E 20 27 47 4F 54 4F 27 20 4B |..".... 'GOTO' K|
00000BE0: 55 4E 20 4A 45 20 4F 4F 4B 20 47 45 42 52 55 49 |UN JE OOK GEBRUI|
00000BF0: 4B 45 4E 20 5A 4F 4E 44 45 52 20 27 49 46 27 00 |KEN ZONDER 'IF'.|
00000C00: 28 14 34 03 99 22 20 5A 4F 44 41 54 20 49 4B 20 |(.4.." ZODAT IK |
00000C10: 5A 4F 4E 44 45 52 20 43 4F 4E 44 49 54 49 45 53 |ZONDER CONDITIES|
00000C20: 20 4E 41 41 52 20 44 45 00 5D 14 3E 03 99 22 11 | NAAR DE.].>..".|
00000C30: 20 52 45 47 45 4C 20 53 50 52 49 4E 47 20 44 49 | REGEL SPRING DI|
00000C40: 45 20 41 43 48 54 45 52 20 27 47 4F 54 4F 27 20 |E ACHTER 'GOTO' |
00000C50: 53 54 41 41 54 2E 22 3A 8D 31 34 38 30 00 8F 14 |STAAT.":.1480...|
00000C60: 48 03 99 22 93 11 1C 20 45 45 4E 20 41 4E 44 45 |H.."... EEN ANDE|
00000C70: 52 20 48 41 4E 44 49 47 20 05 27 43 4F 4E 44 49 |R HANDIG .'CONDI|
00000C80: 54 49 4F 4E 41 4C 20 43 4F 4D 4D 41 4E 44 27 00 |TIONAL COMMAND'.|
00000C90: AA 14 52 03 99 22 11 1C 20 49 53 3A 20 20 20 20 |..R..".. IS: |
00000CA0: 90 27 49 46 A4 54 48 45 4E 27 00 E1 14 5C 03 99 |.'IF.THEN'...\..|
00000CB0: 22 11 11 11 1C 20 20 34 30 20 49 4E 50 55 54 20 |".... 40 INPUT |
00000CC0: 22 C7 28 33 34 29 22 47 45 45 46 20 45 45 4E 20 |".(34)"GEEF EEN |
00000CD0: 47 45 54 41 4C 20 4F 50 22 C7 28 33 34 29 22 3B |GETAL OP".(34)";|
00000CE0: 4E 00 15 15 66 03 99 22 11 20 20 35 30 20 49 46 |N...f..". 50 IF|
00000CF0: 20 4E 3E 31 30 20 54 48 45 4E 20 50 52 49 4E 54 | N>10 THEN PRINT|
00000D00: 20 22 C7 28 33 34 29 22 47 52 4F 54 45 52 20 44 | ".(34)"GROTER D|
00000D10: 41 4E 20 31 30 00 4B 15 70 03 99 22 11 20 20 36 |AN 10.K.p..". 6|
00000D20: 30 20 49 46 20 41 3C 3D 31 30 20 54 48 45 4E 20 |0 IF A<=10 THEN |
00000D30: 50 52 49 4E 54 20 22 C7 28 33 34 29 22 4B 4C 45 |PRINT ".(34)"KLE|
00000D40: 49 4E 45 52 20 44 41 4E 20 31 30 00 67 15 7A 03 |INER DAN 10.g.z.|
00000D50: 99 22 20 20 20 20 20 4F 46 20 47 45 4C 49 4A 4B |." OF GELIJK|
00000D60: 20 41 41 4E 20 31 30 00 99 15 84 03 99 22 11 11 | AAN 10......"..|
00000D70: 11 9E 20 52 45 47 45 4C 20 35 30 20 4C 41 41 54 |.. REGEL 50 LAAT|
00000D80: 20 49 4B 20 41 4C 4C 45 4E 20 50 52 49 4E 54 45 | IK ALLEN PRINTE|
00000D90: 4E 20 41 4C 53 20 44 45 11 00 C7 15 8E 03 99 22 |N ALS DE......."|
00000DA0: 20 43 4F 4E 44 49 54 49 45 20 57 41 41 52 20 49 | CONDITIE WAAR I|
00000DB0: 53 2C 20 44 55 53 20 41 4C 53 20 44 45 20 56 41 |S, DUS ALS DE VA|
00000DC0: 52 49 41 42 45 4C 45 00 EC 15 98 03 99 22 11 20 |RIABELE......". |
00000DD0: 27 4E 27 20 47 52 4F 54 45 52 20 49 53 20 44 41 |'N' GROTER IS DA|
00000DE0: 4E 20 31 30 2E 22 3A 8D 31 34 38 30 00 13 16 A2 |N 10.":.1480....|
00000DF0: 03 99 22 93 11 90 20 48 49 45 52 20 49 53 20 45 |.."... HIER IS E|
00000E00: 45 4E 20 56 4F 4F 52 42 45 45 4C 44 20 56 41 4E |EN VOORBEELD VAN|
00000E10: 20 27 4E 00 37 16 AC 03 99 22 11 20 27 49 46 A4 | 'N.7....". 'IF.|
00000E20: 47 4F 54 4F 27 20 49 4E 20 57 45 52 4B 45 4C 49 |GOTO' IN WERKELI|
00000E30: 4A 4B 48 45 49 44 3A 00 66 16 B6 03 85 20 22 11 |JKHEID:.f.... ".|
00000E40: 11 11 1C 20 57 49 4C 20 4A 45 20 44 45 5A 45 20 |... WIL JE DEZE |
00000E50: 4C 45 53 20 4E 4F 47 20 45 45 4E 53 20 5A 49 45 |LES NOG EENS ZIE|
00000E60: 4E 20 22 3B 41 24 00 7A 16 C0 03 8B 20 41 24 B2 |N ";A$.z.... A$.|
00000E70: 22 4A 41 22 20 89 20 32 34 30 00 C2 16 CA 03 99 |"JA" . 240......|
00000E80: 20 22 93 1C 11 20 4C 41 41 54 20 4F 4E 53 20 27 | "... LAAT ONS '|
00000E90: 54 20 4C 41 41 54 53 54 45 20 44 45 45 4C 20 56 |T LAATSTE DEEL V|
00000EA0: 41 4E 20 44 49 54 22 3A 99 22 11 20 50 52 4F 47 |AN DIT":.". PROG|
00000EB0: 52 41 4D 4D 41 20 45 45 4E 53 20 4C 49 53 54 45 |RAMMA EENS LISTE|
00000EC0: 4E 2E 00 CB 16 D4 03 54 B2 54 49 00 E6 16 DE 03 |N......T.TI.....|
00000ED0: 8B 20 54 49 AB 54 20 B3 20 31 38 30 A7 A1 41 24 |. TI.T . 180..A$|
00000EE0: 3A 89 20 39 39 30 00 25 17 E8 03 99 22 90 11 11 |:. 990.%...."...|
00000EF0: 11 11 11 11 11 11 11 11 11 11 11 11 11 52 55 4E |.............RUN|
00000F00: 20 31 30 32 30 22 3A 99 22 11 44 52 55 4B 20 4F | 1020":.".DRUK O|
00000F10: 50 20 1C 12 52 45 54 55 52 4E 91 91 91 91 91 91 |P ..RETURN......|
00000F20: 91 91 91 91 91 00 33 17 F2 03 9B 20 39 35 30 AB |......3.... 950.|
00000F30: 39 37 30 00 4B 17 FC 03 99 22 91 91 20 20 20 20 |970.K....".. |
00000F40: 20 20 20 20 20 20 20 20 20 20 22 00 78 17 06 04 | ".x...|
00000F50: 99 22 05 20 49 4E 20 52 45 47 45 4C 20 39 36 30 |.". IN REGEL 960|
00000F60: 20 4B 49 4A 4B 20 49 4B 20 4F 46 20 48 45 54 20 | KIJK IK OF HET |
00000F70: 41 4E 54 57 4F 4F 52 44 00 A8 17 10 04 99 22 20 |ANTWOORD......" |
00000F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FA0: 20 20 20 20 20 20 20 22 00 D3 17 1A 04 99 22 91 | "......".|
00000FB0: 20 4F 50 20 44 45 20 56 52 41 41 47 20 28 44 41 | OP DE VRAAG (DA|
00000FC0: 54 20 49 53 20 4F 50 47 45 53 4C 41 47 45 4E 20 |T IS OPGESLAGEN |
00000FD0: 41 4C 53 00 F4 17 24 04 99 22 11 20 44 45 20 56 |ALS...$..". DE V|
00000FE0: 41 52 49 41 42 4C 45 20 41 24 29 20 27 4A 41 27 |ARIABLE A$) 'JA'|
00000FF0: 20 49 53 2E 00 21 18 2E 04 99 22 11 90 20 49 53 | IS..!....".. IS|
00001000: 20 44 41 54 20 5A 4F 2C 20 44 41 4E 20 53 50 52 | DAT ZO, DAN SPR|
00001010: 49 4E 47 20 49 4B 20 54 45 52 55 47 20 4E 41 41 |ING IK TERUG NAA|
00001020: 52 00 58 18 38 04 99 22 11 20 32 34 30 20 45 4E |R.X.8..". 240 EN|
00001030: 20 53 54 41 52 54 20 4E 4F 47 20 45 45 4E 53 20 | START NOG EENS |
00001040: 4D 45 54 20 44 45 5A 45 20 4C 45 53 2E 22 3A 99 |MET DEZE LES.":.|
00001050: 3A 99 3A 8D 31 34 38 30 00 93 18 42 04 99 22 91 |:.:.1480...B..".|
00001060: 91 91 91 91 91 91 91 91 91 91 1F 20 41 4C 53 20 |........... ALS |
00001070: 41 24 20 47 45 45 4E 20 27 4A 41 27 20 49 53 2C |A$ GEEN 'JA' IS,|
00001080: 20 47 41 20 49 4B 20 4E 41 41 52 20 44 45 20 20 | GA IK NAAR DE |
00001090: 20 20 22 00 CB 18 4C 04 99 22 11 20 56 4F 4C 47 | "...L..". VOLG|
000010A0: 45 4E 44 45 20 52 45 47 45 4C 20 45 4E 20 50 52 |ENDE REGEL EN PR|
000010B0: 49 4E 54 20 22 C7 28 33 34 29 22 4C 41 41 54 20 |INT ".(34)"LAAT |
000010C0: 4F 4E 53 20 27 54 20 20 20 20 22 00 0B 19 56 04 |ONS 'T "...V.|
000010D0: 99 22 20 4C 41 41 54 53 54 45 20 44 45 45 4C 20 |." LAATSTE DEEL |
000010E0: 56 41 4E 20 44 49 54 20 50 52 4F 47 52 41 4D 4D |VAN DIT PROGRAMM|
000010F0: 41 2E 2E 2E 22 C7 28 33 34 29 22 2E 20 20 20 20 |A...".(34)". |
00001100: 20 20 20 20 20 20 20 20 20 20 22 00 3B 19 60 04 | ".;.`.|
00001110: 99 22 1C 20 27 54 20 43 4F 4D 4D 41 4E 44 4F 20 |.". 'T COMMANDO |
00001120: 27 4C 49 53 54 27 20 4B 41 4E 20 49 4E 20 48 45 |'LIST' KAN IN HE|
00001130: 54 20 50 52 4F 47 52 41 4D 4D 41 00 70 19 6A 04 |T PROGRAMMA.p.j.|
00001140: 99 22 20 47 45 42 52 55 49 4B 54 20 57 4F 52 44 |." GEBRUIKT WORD|
00001150: 45 4E 20 4F 4D 20 45 45 4E 20 53 54 55 4B 20 54 |EN OM EEN STUK T|
00001160: 45 20 4C 49 53 54 45 4E 2E 22 3A 8D 31 34 38 30 |E LISTEN.":.1480|
00001170: 00 9F 19 74 04 99 22 93 11 90 20 4F 4F 4B 20 56 |...t.."... OOK V|
00001180: 41 4E 55 49 54 20 44 45 20 27 52 45 41 44 59 2E |ANUIT DE 'READY.|
00001190: 27 20 4B 55 4E 20 4A 45 20 4C 49 53 54 45 4E 00 |' KUN JE LISTEN.|
000011A0: C3 19 7E 04 99 22 11 20 44 4F 4F 52 20 47 45 57 |..~..". DOOR GEW|
000011B0: 4F 4F 4E 20 27 4C 49 53 54 27 20 54 45 20 54 59 |OON 'LIST' TE TY|
000011C0: 50 45 4E 00 E8 19 88 04 99 22 11 20 45 4E 20 4F |PEN......". EN O|
000011D0: 50 20 1C 12 52 45 54 55 52 4E 92 90 20 54 45 20 |P ..RETURN.. TE |
000011E0: 44 52 55 4B 4B 45 4E 2E 00 1C 1A 92 04 99 22 11 |DRUKKEN.......".|
000011F0: 11 1C 20 4D 45 54 20 27 4C 49 53 54 20 33 30 27 |.. MET 'LIST 30'|
00001200: 20 20 20 20 5A 49 45 20 4A 45 20 41 4C 4C 45 45 | ZIE JE ALLEE|
00001210: 4E 20 52 45 47 45 4C 20 33 30 22 3B 00 47 1A 9C |N REGEL 30";.G..|
00001220: 04 99 22 20 4D 45 54 20 27 4C 49 53 54 20 2D 33 |.." MET 'LIST -3|
00001230: 30 27 20 20 20 41 4C 4C 45 20 52 45 47 45 4C 53 |0' ALLE REGELS|
00001240: 20 54 2F 4D 20 33 30 00 74 1A A6 04 99 22 20 4D | T/M 30.t...." M|
00001250: 45 54 20 27 4C 49 53 54 20 33 30 2D 27 20 20 20 |ET 'LIST 30-' |
00001260: 41 4C 4C 45 20 52 45 47 45 4C 53 20 56 41 4E 41 |ALLE REGELS VANA|
00001270: 46 20 33 30 00 A0 1A B0 04 99 22 20 4D 45 54 20 |F 30......" MET |
00001280: 27 4C 49 53 54 20 31 30 2D 33 30 27 20 44 45 20 |'LIST 10-30' DE |
00001290: 52 45 47 45 4C 53 20 31 30 20 54 2F 4D 20 33 30 |REGELS 10 T/M 30|
000012A0: 00 CC 1A BA 04 99 22 11 90 20 41 4C 53 20 48 45 |......".. ALS HE|
000012B0: 54 20 53 43 48 45 52 4D 20 56 4F 4C 20 49 53 2C |T SCHERM VOL IS,|
000012C0: 20 44 41 4E 20 42 4C 49 4A 56 45 4E 00 F5 1A C4 | DAN BLIJVEN....|
000012D0: 04 99 22 11 20 44 45 20 52 45 47 45 4C 53 20 41 |..". DE REGELS A|
000012E0: 41 4E 20 44 45 20 4F 4E 44 45 52 4B 41 4E 54 20 |AN DE ONDERKANT |
000012F0: 4B 4F 4D 45 4E 00 1E 1B CE 04 99 22 11 20 45 4E |KOMEN......". EN|
00001300: 20 56 45 52 44 57 49 4A 4E 45 4E 20 5A 45 20 42 | VERDWIJNEN ZE B|
00001310: 4F 56 45 4E 20 28 53 43 52 4F 4C 4C 29 2E 00 48 |OVEN (SCROLL)..H|
00001320: 1B D8 04 99 22 11 20 44 45 20 53 4E 45 4C 48 45 |....". DE SNELHE|
00001330: 49 44 20 57 4F 52 44 54 20 47 45 48 41 4C 56 45 |ID WORDT GEHALVE|
00001340: 45 52 44 20 44 4F 4F 52 00 77 1B E2 04 99 22 11 |ERD DOOR.w....".|
00001350: 20 44 45 20 54 4F 45 54 53 20 27 05 43 54 52 4C | DE TOETS '.CTRL|
00001360: 90 27 20 49 4E 47 45 44 52 55 4B 54 20 54 45 20 |.' INGEDRUKT TE |
00001370: 48 4F 55 44 45 4E 2E 00 82 1B EC 04 3A 8D 31 34 |HOUDEN......:.14|
00001380: 38 30 00 B2 1B F6 04 99 22 93 11 1C 20 4E 41 41 |80......"... NAA|
00001390: 53 54 20 48 45 54 20 42 45 53 50 52 4F 4B 45 4E |ST HET BESPROKEN|
000013A0: 20 27 49 4E 50 55 54 27 20 49 53 20 45 52 20 4E | 'INPUT' IS ER N|
000013B0: 4F 47 00 E0 1B 00 05 99 22 11 20 27 4E 20 4D 45 |OG......". 'N ME|
000013C0: 54 48 4F 44 45 20 4F 4D 20 49 4E 46 4F 52 4D 41 |THODE OM INFORMA|
000013D0: 54 49 45 20 54 45 20 4B 52 49 4A 47 45 4E 2E 2E |TIE TE KRIJGEN..|
000013E0: 00 0D 1C 0A 05 99 22 11 11 90 20 48 45 54 20 12 |......"... HET .|
000013F0: 47 45 54 92 20 43 4F 4D 4D 41 4E 44 4F 20 47 45 |GET. COMMANDO GE|
00001400: 56 4F 4C 47 44 20 44 4F 4F 52 20 27 4E 00 36 1C |VOLGD DOOR 'N.6.|
00001410: 14 05 99 22 11 20 53 54 52 49 4E 47 2D 56 41 52 |...". STRING-VAR|
00001420: 49 41 42 45 4C 45 2C 20 41 43 43 45 50 54 45 45 |IABELE, ACCEPTEE|
00001430: 52 54 20 45 45 4E 00 64 1C 1E 05 99 22 11 20 4B |RT EEN.d....". K|
00001440: 41 52 41 4B 54 45 52 20 56 41 4E 20 48 45 54 20 |ARAKTER VAN HET |
00001450: 54 4F 45 54 53 45 4E 42 4F 52 44 20 45 4E 20 57 |TOETSENBORD EN W|
00001460: 4F 52 44 54 00 85 1C 28 05 99 22 11 20 56 41 41 |ORDT...(..". VAA|
00001470: 4B 20 41 4C 53 20 56 4F 4C 47 54 20 47 45 42 52 |K ALS VOLGT GEBR|
00001480: 55 49 4B 54 3A 00 B2 1C 32 05 99 22 11 11 1F 20 |UIKT:...2.."... |
00001490: 20 20 31 30 20 50 52 49 4E 54 20 22 C7 28 33 34 | 10 PRINT ".(34|
000014A0: 29 22 48 45 42 20 4A 45 3A 20 41 2E 20 27 4E 20 |)"HEB JE: A. 'N |
000014B0: 36 34 00 DF 1C 3C 05 99 22 11 20 20 20 32 30 20 |64...<..". 20 |
000014C0: 50 52 49 4E 54 20 22 C7 28 33 34 29 22 20 20 20 |PRINT ".(34)" |
000014D0: 20 20 20 20 20 42 2E 20 47 45 45 4E 20 36 34 00 | B. GEEN 64.|
000014E0: 10 1D 46 05 99 22 11 20 20 20 33 30 20 50 52 49 |..F..". 30 PRI|
000014F0: 4E 54 20 22 C7 28 33 34 29 22 20 20 20 20 20 20 |NT ".(34)" |
00001500: 20 20 43 2E 20 42 49 4A 4E 41 20 27 4E 20 36 34 | C. BIJNA 'N 64|
00001510: 00 49 1D 50 05 99 22 11 20 20 20 34 30 20 47 45 |.I.P..". 40 GE|
00001520: 54 20 41 24 20 3A 20 49 46 20 41 24 3D 22 C7 28 |T A$ : IF A$=".(|
00001530: 33 34 29 3B C7 28 33 34 29 22 20 47 4F 54 4F 20 |34);.(34)" GOTO |
00001540: 34 30 22 3A 8D 31 34 38 30 00 78 1D 5A 05 99 22 |40":.1480.x.Z.."|
00001550: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001570: 20 20 20 20 20 20 20 22 00 A2 1D 64 05 99 22 11 | "...d..".|
00001580: 1C 20 4F 50 20 52 45 47 45 4C 20 34 30 20 42 4C |. OP REGEL 40 BL|
00001590: 49 4A 46 20 49 4B 20 54 45 52 55 47 20 4B 4F 4D |IJF IK TERUG KOM|
000015A0: 45 4E 00 D0 1D 6E 05 99 22 11 20 5A 4F 4C 41 4E |EN...n..". ZOLAN|
000015B0: 47 20 45 52 20 4E 4F 47 20 47 45 45 4E 20 54 4F |G ER NOG GEEN TO|
000015C0: 45 54 53 20 49 53 20 49 4E 47 45 44 52 55 4B 54 |ETS IS INGEDRUKT|
000015D0: 00 09 1E 78 05 99 22 11 90 20 27 49 46 20 41 24 |...x..".. 'IF A$|
000015E0: 3D 22 C7 28 33 34 29 C7 28 33 34 29 22 27 20 42 |=".(34).(34)"' B|
000015F0: 45 54 45 4B 45 4E 54 20 05 27 41 4C 53 20 41 24 |ETEKENT .'ALS A$|
00001600: 20 4C 45 45 47 20 49 53 27 00 39 1E 82 05 99 22 | LEEG IS'.9...."|
00001610: 11 90 20 49 53 20 44 45 20 43 4F 4E 44 49 54 49 |.. IS DE CONDITI|
00001620: 45 20 57 41 41 52 2C 20 44 41 4E 20 47 41 20 49 |E WAAR, DAN GA I|
00001630: 4B 20 4E 41 41 52 20 34 30 00 6F 1E 8C 05 99 22 |K NAAR 40.o...."|
00001640: 11 1F 20 44 49 54 20 49 53 20 45 45 4E 20 54 52 |.. DIT IS EEN TR|
00001650: 55 55 4B 4A 45 20 4F 4D 20 54 45 20 4E 4F 54 45 |UUKJE OM TE NOTE|
00001660: 52 45 4E 21 22 3A 99 3A 99 3A 8D 31 34 38 30 00 |REN!":.:.:.1480.|
00001670: A3 1E 96 05 99 22 93 11 1C 20 57 49 4C 20 4A 45 |....."... WIL JE|
00001680: 20 4E 4F 47 20 45 45 4E 53 20 44 45 5A 45 20 4C | NOG EENS DEZE L|
00001690: 45 53 20 44 4F 4F 52 4E 45 4D 45 4E 22 3A 8D 31 |ES DOORNEMEN":.1|
000016A0: 34 39 30 00 B4 1E A0 05 8B 41 24 B2 22 4A 41 22 |490......A$."JA"|
000016B0: 89 31 35 30 00 D9 1E AA 05 99 22 11 11 11 1D 1D |.150......".....|
000016C0: 4F 4B 20 54 4F 54 20 44 45 20 56 4F 4C 47 45 4E |OK TOT DE VOLGEN|
000016D0: 44 45 20 4C 45 53 21 21 22 00 EB 1E AB 05 99 22 |DE LES!!"......"|
000016E0: 93 22 3A 9E 36 35 34 31 32 3A 9C 00 29 1F AC 05 |.":.65412:..)...|
000016F0: 99 22 11 11 1D 1D 1D 1D 1D 9D 12 4C 41 41 44 20 |.".........LAAD |
00001700: 4E 55 20 5A 45 4C 46 20 42 41 53 49 43 20 4C 45 |NU ZELF BASIC LE|
00001710: 53 20 34 92 22 3A 81 49 B2 31 A4 33 30 30 30 3A |S 4.":.I.1.3000:|
00001720: 82 49 3A 9E 36 34 37 33 38 00 2F 1F AD 05 80 00 |.I:.64738./.....|
00001730: 35 1F B5 05 80 00 3D 1F BE 05 93 3A 80 00 86 1F |5.....=....:....|
00001740: C8 05 97 51 31 2C 30 3A 99 22 1C 13 11 11 11 11 |...Q1,0:."......|
00001750: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001760: 11 11 11 20 20 20 20 20 20 12 56 4F 4F 52 20 56 |... .VOOR V|
00001770: 45 52 44 45 52 3A 20 44 52 55 4B 20 4F 50 20 27 |ERDER: DRUK OP '|
00001780: 53 50 41 43 45 27 00 9A 1F D2 05 A1 41 24 3A 8B |SPACE'......A$:.|
00001790: 41 24 B2 22 22 A7 31 34 39 30 00 A0 1F DC 05 8E |A$."".1490......|
000017A0: 00 CB 1F E6 05 99 22 93 11 1F 20 20 20 C5 C5 C5 |......"... ...|
000017B0: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
000017C0: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 00 FE 1F F0 05 |................|
000017D0: 99 22 20 20 20 20 32 30 20 50 52 49 4E 54 20 22 |." 20 PRINT "|
000017E0: C7 28 33 34 29 22 20 48 4F 45 20 4F 55 44 20 42 |.(34)" HOE OUD B|
000017F0: 45 4E 20 4A 49 4A 20 22 C7 28 33 34 29 22 00 14 |EN JIJ ".(34)"..|
00001800: 20 FA 05 99 22 11 20 20 20 20 33 30 20 49 4E 50 | ...". 30 INP|
00001810: 55 54 20 41 00 45 20 04 06 99 22 11 20 20 20 20 |UT A.E ...". |
00001820: 34 30 20 50 52 49 4E 54 20 41 20 22 C7 28 33 34 |40 PRINT A ".(34|
00001830: 29 22 20 49 53 20 4E 49 45 54 20 4F 55 44 2E 22 |)" IS NIET OUD."|
00001840: C7 28 33 34 29 00 70 20 0E 06 99 22 20 20 20 D2 |.(34).p ..." .|
00001850: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |................|
00001860: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 22 3A 8E |.............":.|
00001870: 00 00 00 A1 |.... |
....D..G(142):Z$.G(34).4.N.Q1.198:.53280
,2:.53281,10.E.X.."... ********* BASIC C
URSUS LES 3 *********.U....C.1.1300:....
..."... HET BEKENDE 'DOKTER' PROGRAMMA.I
. ..". SIMULEERT 'N PSYCHIATER IN GESPRE
K......". MET EEN PATIENT OP DE BANK....
...".. MENIGEEN IS NIET IN STAAT HET VER
SCHIL.D....". OP TE MERKEN, OF ZE NU MET
EEN.R.H..". ECHTE ARTS OF MET 'N COMPUT
ER PRATEN!...R..".... HET PROGRAMMA LIJK
T ERG INGEWIKKELD,.L....". MAAR IS IN BE
GINSEL ERG EENVOUDIG......". VAN OPZET."
:.1480......1510:.".... IN DIT DEEL VAN
HET PROGRAMMA.@....". GEBRUIK IK REGEL 2
0 OM 'N VRAAG TE.G....". PRINTEN TENEIND
E EEN ANTWOORD,......". 'N ..INPUT.. STA
TEMENT, TE VERKRIJGEN.":.1480.S....1510:
.".... ALS IK ..INPUT. .ZIE WACHT IK TOT
ER..."..". EEN ANTWOORD INGETYPT IS EN
BERG DAT.;.,..". OP ONDER DE NOEMER 'A'
IN MIJN . GEHEUGEN..G.6..".. ALS
TEKEN DAT IK OP ANTWOORD WACHT...@..".
LAAT IK '?' ZIEN ACHTER DE VRAAG.":.1480
.K.J..1510:."... ZO ALS IK REEDS VERTELD
E KUNNEN WE...T..". DIT NOG KORTER OPSCH
RIJVEN!...^..".. HET BESPAARDE ONS IMMER
S RUIMTE IN.<.H..". IN MIJN GEHEUGEN!":.
1480.G.R.."... LATEN WE DUS AFSPREKEN DA
T WE IN...|..". VERVOLG ALTIJD 'N PRINT
EN INPUT......". SAMENVOEGEN ALS HET VOO
RKOMT!........."... 20 INPUT "G(34)"H
OE OUD BEN JIJ "G(34)";A......". 30 P
RINT A "G(34)"IS NIET OUD..I...."... VER
GEET ECHTER NIET DE PUNT-KOMMA EN.Q...."
. EN DE AANHALINGSTEKENS!!":.1480......"
... TYP 'RUN' EN DRUK OP ..RETURN.. OM D
IT.J.B..". PROGRAMMA UIT TE PROBEREN .";
A$...L..A$.."RUN".440...V.."...... HOE O
UD BEN JIJ";A......A "IS NIET OUD...":.1
480.H...."... 'INPUT' KAN OOK GEBRUIKT W
ORDEN OM.V....". EEN WOORD TE VRAGEN I.P
.V. EEN GETAL......."... DAARVOOR MOET J
E HET DOLLAR TEKEN.K....". ACHTER DE VAR
IABELE 'A' PLAATSEN......". ZODAT IK WEE
T DAT ER LETTERS KOMEN:......"... 50
INPUT "G(34)"BEZIT JIJ 'N 64"G(34)";A$.\
.&.."... HET ANTWOORD WORDT OPGEBORGEN I
N DE...0..". STRING VARIABLE 'A$'.":." D
DDDDD DDDDDDDD":.1480.E.:.."... DE MOGEL
IJKHEID WOORDEN IN STRINGS TE...D..". BE
RGEN KAN GEBRUIKT WORDEN VOOR Z'N...N.."
. PROGRAMMA, ALS 'DOKTER', ZODAT ER EEN.
C.X..". SOORT CONVERSATIE ONTSTAAT..{.B.
.".... 50 INPUT "G(34)"BEZIT JIJ 'N 6
4"G(34)";A$...L..". 60 IF A$ = "G(34)
"JA"G(34)" GOTO 90.U.V..". 70 PRINT "
G(34)"ONBEGRIJPELIJK!......". 80 END.
.....". 90 PRINT "G(34)"MAZZELAAR!":.
1480.C....".. IN REGEL 60 KIJK IK OM TE
ZIEN OF HET.R....". ANTWOORD OP DE VRAAG
, OPGEBORGEN IN A$......". GELIJK IS AAN
'JA'. IS DIT WAAR, DAN.K....". SPRING I
K NAAR REGEL 90 EN PRINT IK......" ."G(3
4)"MAZZELAAR!"G(34):.:.:.1480.0.F..". ..
.........IS HET ANTWOORD GEEN 'JA' DAN
".`.P..". SLA IK REGEL 60 OVER EN
GA IK NAAR DE "...Z..". EERST VOLGENDE,
HIER 70, EN PRINT ..Q...." "G(34)"O
NBEGRIJPELIJK"G(34)"
"......" ":.1
480."...."... 'IF.GOTO' GEBRUIK JE ALS I
K NAAR EEN.R....". HEEL ANDER DEEL VAN H
ET PROGRAMMA MOET..~....".. ALS EEN BEPA
ALDE CONDITIE WAAR IS,......". SPRING IK
NAAR DE REGEL DIE ACHTER.L. ..". HET CO
MMANDO 'GOTO' STAAT....*..".... 'GOTO' K
UN JE OOK GEBRUIKEN ZONDER 'IF'.(.4.." Z
ODAT IK ZONDER CONDITIES NAAR DE.].>..".
REGEL SPRING DIE ACHTER 'GOTO' STAAT.":
.1480...H.."... EEN ANDER HANDIG .'CONDI
TIONAL COMMAND'...R..".. IS: .'IF.THE
N'...\..".... 40 INPUT "G(34)"GEEF EEN
GETAL OP"G(34)";N...F..". 50 IF N>10 TH
EN PRINT "G(34)"GROTER DAN 10.K.P..". 6
0 IF A<=10 THEN PRINT "G(34)"KLEINER DAN
10.G.Z.." OF GELIJK AAN 10......"..
.. REGEL 50 LAAT IK ALLEN PRINTEN ALS DE
..G...." CONDITIE WAAR IS, DUS ALS DE VA
RIABELE......". 'N' GROTER IS DAN 10.":.
1480......"... HIER IS EEN VOORBEELD VAN
'N.7....". 'IF.GOTO' IN WERKELIJKHEID:.
F.... ".... WIL JE DEZE LES NOG EENS ZIE
N ";A$.Z.... A$."JA" . 240.B.J.. "... LA
AT ONS 'T LAATSTE DEEL VAN DIT":.". PROG
RAMMA EENS LISTEN..K.T.T.TI...... TI.T .
180..A$:. 990.%...."................RUN
1020":.".DRUK OP ..RETURN............3.
... 950.970.K....".. ".X...
.". IN REGEL 960 KIJK IK OF HET ANTWOORD
......"
".S....". OP DE VRAAG (DAT IS OPG
ESLAGEN ALS...$..". DE VARIABLE A$) 'JA'
IS..!....".. IS DAT ZO, DAN SPRING IK T
ERUG NAAR.X.8..". 240 EN START NOG EENS
MET DEZE LES.":.:.:.1480...B..".........
... ALS A$ GEEN 'JA' IS, GA IK NAAR DE
".K.L..". VOLGENDE REGEL EN PRINT "G(3
4)"LAAT ONS 'T "...V.." LAATSTE DEEL
VAN DIT PROGRAMMA..."G(34)".
".;.`..". 'T COMMANDO 'LIST' KAN IN HE
T PROGRAMMA.P.J.." GEBRUIKT WORDEN OM EE
N STUK TE LISTEN.":.1480...T.."... OOK V
ANUIT DE 'READY.' KUN JE LISTEN.C.~..".
DOOR GEWOON 'LIST' TE TYPEN......". EN O
P ..RETURN.. TE DRUKKEN......."... MET '
LIST 30' ZIE JE ALLEEN REGEL 30";.G..
.." MET 'LIST -30' ALLE REGELS T/M 30.
T...." MET 'LIST 30-' ALLE REGELS VANA
F 30. ...." MET 'LIST 10-30' DE REGELS 1
0 T/M 30.L....".. ALS HET SCHERM VOL IS,
DAN BLIJVEN...D..". DE REGELS AAN DE ON
DERKANT KOMEN...N..". EN VERDWIJNEN ZE B
OVEN (SCROLL)..H.X..". DE SNELHEID WORDT
GEHALVEERD DOOR.W....". DE TOETS '.CTRL
.' INGEDRUKT TE HOUDEN......:.1480......
"... NAAST HET BESPROKEN 'INPUT' IS ER N
OG......". 'N METHODE OM INFORMATIE TE K
RIJGEN........"... HET .GET. COMMANDO GE
VOLGD DOOR 'N.6....". STRING-VARIABELE,
ACCEPTEERT EEN.D....". KARAKTER VAN HET
TOETSENBORD EN WORDT...(..". VAAK ALS VO
LGT GEBRUIKT:...2.."... 10 PRINT "G(34
)"HEB JE: A. 'N 64...<..". 20 PRINT "G
(34)" B. GEEN 64...F..". 30 PRI
NT "G(34)" C. BIJNA 'N 64.I.P..".
40 GET A$ : IF A$="G(34);G(34)" GOTO
40":.1480.X.Z..".
"...D..".. OP REGEL 40 BL
IJF IK TERUG KOMEN.P.N..". ZOLANG ER NOG
GEEN TOETS IS INGEDRUKT...X..".. 'IF A$
="G(34)G(34)"' BETEKENT .'ALS A$ LEEG IS
'.9....".. IS DE CONDITIE WAAR, DAN GA I
K NAAR 40.O....".. DIT IS EEN TRUUKJE OM
TE NOTEREN!":.:.:.1480......"... WIL JE
NOG EENS DEZE LES DOORNEMEN":.1490... .
.A$."JA".150.Y....".....OK TOT DE VOLGEN
DE LES!!"......".":.65412:..)...."......
...LAAD NU ZELF BASIC LES 4.":.I.1.3000:
.I:.64738./.....5.....=....:....H..Q1,0:
."......................... .VOOR V
ERDER: DRUK OP 'SPACE'...R..A$:.A$."".14
90. .....K...."... EEEEEEEEEEEEEEEEEEE
EEEEEEEEEEE......" 20 PRINT "G(34)" H
OE OUD BEN JIJ "G(34)".. ...". 30 INP
UT A.E ...". 40 PRINT A "G(34)" IS NI
ET OUD."G(34).P ..." RRRRRRRRRRRRRRRRR
RRRRRRRRRRRRR":.....
> CLICK IMAGE PREVIEW FOR FULL MODAL