PRFIN-12
FILE INFORMATION
FILENAME(S): PRFIN-12
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-11-30 21:06:41
APPEARS ON: 1 disk(s)
FILE HASH
8b90f86d8debb08c3de80e925f62b9c892e5dfb66a2ee7b66a5e66d401f4a440
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STR I BASIC | PRFIN-12 | PRG | DuncanTwain | 27 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 00 00 8F 20 49 4E 56 4F 45 52 20 56 |....... INVOER V| 00000010: 41 4E 20 54 4F 45 54 53 45 4E 42 4F 52 44 00 29 |AN TOETSENBORD.)| 00000020: 08 0A 00 89 20 31 30 30 30 00 2F 08 14 00 8F 00 |.... 1000./.....| 00000030: 5B 08 15 00 56 45 B2 30 3A 48 4F B2 30 3A 49 4E |[...VE.0:HO.0:IN| 00000040: 24 B2 22 20 22 3A 53 52 B2 30 3A 53 52 24 B2 22 |$." ":SR.0:SR$."| 00000050: 22 3A 43 54 B2 30 3A 43 4E B2 30 00 84 08 16 00 |":CT.0:CN.0.....| 00000060: 4B 45 59 20 4F 46 46 3A 53 43 52 45 45 4E 20 30 |KEY OFF:SCREEN 0| 00000070: 3A 57 49 44 54 48 20 34 30 3A 43 4F 4C B0 20 37 |:WIDTH 40:COL. 7| 00000080: 2C 31 2C 31 00 95 08 17 00 4C 4F 43 41 54 45 20 |,1,1.....LOCATE | 00000090: 31 2C 31 2C 30 00 A0 08 1D 00 89 20 31 30 31 30 |1,1,0...... 1010| 000000A0: 00 AA 08 64 00 43 4C 53 3A 8E 00 C4 08 6E 00 4F |...d.CLS:....n.O| 000000B0: 56 45 25 B2 B5 28 56 45 29 3A 4F 48 4F 25 B2 B5 |VE%..(VE):OHO%..| 000000C0: 28 48 4F 29 00 DC 08 6F 00 8B 20 4F 56 45 25 B1 |(HO)...o.. OVE%.| 000000D0: 32 33 20 A7 20 4F 56 45 25 B2 32 33 00 F2 08 70 |23 . OVE%.23...p| 000000E0: 00 8B 20 4F 56 45 25 B3 30 20 A7 20 4F 56 45 25 |.. OVE%.0 . OVE%| 000000F0: B2 30 00 0A 09 71 00 8B 20 4F 48 4F 25 B1 33 39 |.0...q.. OHO%.39| 00000100: 20 A7 20 4F 48 4F 25 B2 33 39 00 20 09 72 00 8B | . OHO%.39. .r..| 00000110: 20 4F 48 4F 25 B3 30 20 A7 20 4F 48 4F 25 B2 30 | OHO%.0 . OHO%.0| 00000120: 00 39 09 73 00 4C 4F 43 41 54 45 20 4F 56 45 25 |.9.s.LOCATE OVE%| 00000130: AA 31 2C 4F 48 4F 25 AA 31 00 3F 09 74 00 8E 00 |.1,OHO%.1.?.t...| 00000140: 5B 09 78 00 48 4F B2 B9 28 30 29 AB 31 3A 56 45 |[.x.HO..(0).1:VE| 00000150: B2 43 53 52 4C 49 4E AB 31 3A 8E 00 75 09 B4 00 |.CSRLIN.1:..u...| 00000160: 8F 20 44 52 55 4B 20 55 49 54 4C 45 47 2F 48 55 |. DRUK UITLEG/HU| 00000170: 4C 50 20 41 46 00 84 09 C8 00 49 4E 24 B2 49 4E |LP AF.....IN$.IN| 00000180: 4B 45 59 24 00 97 09 C9 00 8B 20 C3 28 49 4E 24 |KEY$...... .(IN$| 00000190: 29 B3 32 20 A7 20 8E 00 BA 09 CA 00 8B 20 28 C6 |).2 . ....... (.| 000001A0: 28 C8 28 49 4E 24 2C 32 29 29 B2 33 29 20 A7 20 |(.(IN$,2)).3) . | 000001B0: 49 4E 24 B2 C7 28 30 29 3A 8E 00 D7 09 CB 00 49 |IN$..(0):......I| 000001C0: 4E 24 B2 C7 28 C6 28 C8 28 49 4E 24 2C 32 29 29 |N$..(.(.(IN$,2))| 000001D0: AA 31 32 35 29 3A 8E 00 EB 09 D2 00 49 4E 24 B2 |.125):......IN$.| 000001E0: 85 24 28 31 29 3A 89 20 32 30 31 00 F6 09 FA 00 |.$(1):. 201.....| 000001F0: 42 45 45 50 3A 8E 00 04 0A 5E 01 4C 99 20 53 52 |BEEP:....^.L. SR| 00000200: 24 3B 3A 8E 00 0D 0A 68 01 4C 99 3A 8E 00 13 0A |$;:....h.L.:....| 00000210: E7 03 3A 00 3F 0A E8 03 41 B2 31 30 30 30 3A 89 |..:.?...A.1000:.| 00000220: 20 32 30 3A 20 20 8F 20 2A 2A 20 4D 49 43 52 4F | 20: . ** MICRO| 00000230: 2D 49 4E 53 54 52 55 43 54 45 55 52 20 2A 2A 00 |-INSTRUCTEUR **.| 00000240: 59 0A F2 03 8F 20 2A 2A 20 49 4E 49 54 49 41 4C |Y.... ** INITIAL| 00000250: 49 53 41 54 49 45 20 2A 2A 00 75 0A FC 03 8F 20 |ISATIE **.u.... | 00000260: 44 45 43 4C 41 52 41 54 49 45 20 56 41 52 49 41 |DECLARATIE VARIA| 00000270: 42 45 4C 45 4E 00 97 0A 01 04 86 20 41 4C 54 24 |BELEN...... ALT$| 00000280: 28 33 29 2C 54 45 4B 53 54 24 28 33 29 2C 56 52 |(3),TEKST$(3),VR| 00000290: 41 41 47 24 28 33 29 00 B5 0A 06 04 8F 20 54 45 |AAG$(3)...... TE| 000002A0: 4C 20 41 41 4E 54 41 4C 20 44 41 54 41 2D 53 54 |L AANTAL DATA-ST| 000002B0: 52 49 4E 47 53 00 C2 0A 0B 04 8C 3A 88 20 41 44 |RINGS......:. AD| 000002C0: B2 30 00 D5 0A 10 04 57 48 49 4C 45 20 44 53 24 |.0.....WHILE DS$| 000002D0: B3 B1 22 2E 22 00 E9 0A 12 04 87 20 44 53 24 3A |.."."...... DS$:| 000002E0: 88 20 41 44 B2 41 44 AA 31 00 F0 0A 14 04 57 80 |. AD.AD.1.....W.| 000002F0: 00 01 0B 15 04 8F 20 53 54 41 52 54 43 4F 44 45 |...... STARTCODE| 00000300: 53 00 21 0B 1C 04 88 20 54 45 4B 53 54 24 B2 22 |S.!.... TEKST$."| 00000310: 2E 54 31 22 3A 88 20 56 52 47 24 B2 22 2E 56 31 |.T1":. VRG$.".V1| 00000320: 22 00 3D 0B 38 04 88 20 41 4E 54 B2 30 3A 88 20 |".=.8.. ANT.0:. | 00000330: 45 49 4E 44 B2 30 3A 88 20 4D 43 B2 30 00 43 0B |EIND.0:. MC.0.C.| 00000340: 42 04 3A 00 58 0B 4C 04 8F 20 48 4F 4F 46 44 50 |B.:.X.L.. HOOFDP| 00000350: 52 4F 47 52 41 4D 4D 41 00 69 0B 56 04 57 48 49 |ROGRAMMA.i.V.WHI| 00000360: 4C 45 20 45 49 4E 44 B2 30 00 80 0B 74 04 8F 20 |LE EIND.0...t.. | 00000370: 47 45 45 46 20 55 49 54 4C 45 47 2F 48 55 4C 50 |GEEF UITLEG/HULP| 00000380: 00 8C 0B 7E 04 8D 20 31 30 31 30 30 00 92 0B AF |...~.. 10100....| 00000390: 04 3A 00 9E 0B B0 04 8F 20 56 52 41 41 47 00 AE |.:...... VRAAG..| 000003A0: 0B BA 04 8F 20 5A 4F 45 4B 20 42 4C 4F 4B 00 BC |.... ZOEK BLOK..| 000003B0: 0B C4 04 88 20 5A 4F 45 4B 24 B2 56 00 D0 0B E2 |.... ZOEK$.V....| 000003C0: 04 88 20 4C 45 45 47 B2 31 3A 88 20 4D 42 B2 30 |.. LEEG.1:. MB.0| 000003D0: 00 E3 0B EC 04 8F 20 44 52 55 4B 20 42 4C 4F 4B |...... DRUK BLOK| 000003E0: 20 41 46 00 EF 0B F6 04 8D 20 31 31 30 30 30 00 | AF...... 11000.| 000003F0: 0E 0C 00 05 8F 20 49 53 20 48 45 54 20 45 45 4E |..... IS HET EEN| 00000400: 20 4D 45 45 52 4B 45 55 5A 45 56 52 2E 3F 00 34 | MEERKEUZEVR.?.4| 00000410: 0C 0A 05 8B 20 CA 28 53 42 24 2C 32 2C 31 29 B2 |.... .(SB$,2,1).| 00000420: 22 4D 22 20 A7 20 88 20 4D 43 B2 32 3A 88 20 4D |"M" . . MC.2:. M| 00000430: 42 B2 4D 43 00 3A 0C 13 05 3A 00 4E 0C 14 05 8F |B.MC.:...:.N....| 00000440: 20 41 4C 54 45 52 4E 41 54 49 45 56 45 4E 00 5A | ALTERNATIEVEN.Z| 00000450: 0C 1E 05 8D 20 31 31 32 30 30 00 60 0C 77 05 3A |.... 11200.`.w.:| 00000460: 00 74 0C 82 05 8D 20 31 39 30 30 30 3A 88 20 41 |.t.... 19000:. A| 00000470: 4E 54 B2 30 00 7A 0C D2 05 3A 00 92 0C DC 05 8F |NT.0.z...:......| 00000480: 20 4F 4D 20 48 55 4C 50 20 47 45 56 52 41 41 47 | OM HULP GEVRAAG| 00000490: 44 3F 00 B3 0C E6 05 8B 20 41 24 B2 22 3F 22 20 |D?...... A$."?" | 000004A0: A7 20 88 20 41 4E 54 B2 32 3A 88 20 4D 43 B2 4D |. . ANT.2:. MC.M| 000004B0: 43 AA 31 00 C7 0C F0 05 8B 20 4D 43 B1 32 20 A7 |C.1...... MC.2 .| 000004C0: 20 88 20 4D 43 B2 32 00 CD 0C 3F 06 3A 00 E7 0C | . MC.2...?.:...| 000004D0: 40 06 8F 20 56 45 52 57 45 52 4B 49 4E 47 20 41 |@.. VERWERKING A| 000004E0: 4E 54 57 4F 4F 52 44 00 05 0D 4A 06 8B 20 41 4E |NTWOORD...J.. AN| 000004F0: 54 B2 30 20 A7 20 8D 20 31 36 30 30 30 3A 20 88 |T.0 . . 16000: .| 00000500: 20 4D 43 B2 30 00 0B 0D 9A 06 3A 00 12 0D D6 06 | MC.0.....:.....| 00000510: 57 80 00 19 0D F4 06 57 80 00 1F 0D FE 06 3A 00 |W......W......:.| 00000520: 52 0D AE 13 83 22 5A 4F 44 52 41 20 55 20 45 45 |R...."ZODRA U EE| 00000530: 4E 20 4F 55 44 20 41 4E 54 57 4F 4F 52 44 20 57 |N OUD ANTWOORD W| 00000540: 49 4A 5A 49 47 54 20 56 45 52 47 45 45 54 20 44 |IJZIGT VERGEET D| 00000550: 45 22 00 72 0D 6E 14 83 22 4F 50 44 52 41 43 48 |E".r.n.."OPDRACH| 00000560: 54 45 4E 22 2C 22 54 31 30 30 22 2C 22 56 31 30 |TEN","T100","V10| 00000570: 30 22 00 95 0D 0F 27 80 3A 8F 2D 2D 2D 2D 2D 2D |0"....'.:.------| 00000580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000590: 2D 2D 2D 2D 2D 00 AB 0D 10 27 8F 20 2A 2A 20 5A |-----....'. ** Z| 000005A0: 4F 45 4B 20 42 4C 4F 4B 20 2A 2A 00 B1 0D 1A 27 |OEK BLOK **....'| 000005B0: 8C 00 C0 0D 24 27 81 20 51 B2 31 20 A4 20 41 44 |....$'. Q.1 . AD| 000005C0: 00 DF 0D 2E 27 87 20 44 53 24 3A 8B 20 44 53 24 |....'. DS$:. DS$| 000005D0: B2 5A 4F 45 4B 24 20 A7 20 88 20 51 B2 41 44 00 |.ZOEK$ . . Q.AD.| 000005E0: E7 0D 38 27 82 20 51 00 ED 0D 42 27 8E 00 F3 0D |..8'. Q...B'....| 000005F0: 4C 27 3A 00 10 0E 74 27 8F 20 2A 2A 20 47 45 45 |L':...t'. ** GEE| 00000600: 46 20 55 49 54 4C 45 47 2F 48 55 4C 50 20 2A 2A |F UITLEG/HULP **| 00000610: 00 1B 0E 79 27 88 20 42 53 B2 30 00 3E 0E 88 27 |...y'. BS.0.>..'| 00000620: 88 20 48 55 4C 50 24 B2 22 2E 48 22 AA C9 28 56 |. HULP$.".H"..(V| 00000630: 52 47 24 2C C3 28 56 52 47 24 29 AB 32 29 00 57 |RG$,.(VRG$).2).W| 00000640: 0E 92 27 8F 20 5A 4F 45 4B 20 42 4C 4F 4B 20 4D |..'. ZOEK BLOK M| 00000650: 45 54 20 48 45 4C 50 00 65 0E 9C 27 8B 20 41 4E |ET HELP.e..'. AN| 00000660: 54 B2 32 20 A7 00 87 0E D1 27 8B 28 44 53 24 B3 |T.2 .....'.(DS$.| 00000670: B1 22 2E 22 29 AF 28 41 4E 54 B3 B1 31 29 A7 20 |.".").(ANT..1). | 00000680: 8D 20 31 31 30 30 30 00 8D 0E D5 27 8E 00 93 0E |. 11000....'....| 00000690: D7 27 3A 00 AC 0E F8 2A 8F 20 2A 2A 20 44 52 55 |.':....*. ** DRU| 000006A0: 4B 20 42 4C 4F 4B 20 41 46 20 2A 2A 00 B6 0E 02 |K BLOK AF **....| 000006B0: 2B 8D 20 31 30 30 00 C3 0E 0C 2B 88 20 56 4C 41 |+. 100....+. VLA| 000006C0: 47 B2 30 00 D5 0E 16 2B 57 48 49 4C 45 20 56 4C |G.0....+WHILE VL| 000006D0: 41 47 B3 B1 31 00 E6 0E 20 2B 88 20 42 53 B2 30 |AG..1... +. BS.0| 000006E0: 3A 87 20 44 53 24 00 05 0F 2A 2B 8D 20 31 32 30 |:. DS$...*+. 120| 000006F0: 30 30 3A 20 20 8F 20 56 45 52 57 45 52 4B 20 53 |00: . VERWERK S| 00000700: 54 52 49 4E 47 00 22 0F 34 2B 8B 28 56 4C 41 47 |TRING.".4+.(VLAG| 00000710: B3 B1 31 29 AF 28 42 53 B2 32 29 A7 20 8D 20 31 |..1).(BS.2). . 1| 00000720: 30 30 00 29 0F 48 2B 57 80 00 2F 0F 52 2B 8E 00 |00.).H+W../.R+..| 00000730: 35 0F 5B 2B 3A 00 4F 0F C0 2B 8F 20 2A 2A 20 41 |5.[+:.O..+. ** A| 00000740: 4C 54 45 52 4E 41 54 49 45 56 45 4E 20 2A 2A 00 |LTERNATIEVEN **.| 00000750: 61 0F CA 2B 88 20 41 41 B2 AB 31 3A 87 20 44 53 |a..+. AA..1:. DS| 00000760: 24 00 79 0F D4 2B 57 48 49 4C 45 20 C8 28 44 53 |$.y..+WHILE .(DS| 00000770: 24 2C 31 29 B3 B1 22 2E 22 00 87 0F DE 2B 88 20 |$,1).."."....+. | 00000780: 41 41 B2 41 41 AA 31 00 9A 0F E8 2B 88 20 41 4C |AA.AA.1....+. AL| 00000790: 54 24 28 41 41 29 B2 44 53 24 00 B6 0F F2 2B 87 |T$(AA).DS$....+.| 000007A0: 20 54 45 4B 53 54 24 28 41 41 29 2C 56 52 41 41 | TEKST$(AA),VRAA| 000007B0: 47 24 28 41 41 29 00 C0 0F FC 2B 87 20 44 53 24 |G$(AA)....+. DS$| 000007C0: 00 C7 0F 06 2C 57 80 00 E6 0F 10 2C 8F 20 44 52 |....,W.....,. DR| 000007D0: 55 4B 20 4D 43 20 41 4C 54 45 52 4E 41 54 49 45 |UK MC ALTERNATIE| 000007E0: 56 45 4E 20 41 46 00 FB 0F 1A 2C 8B 20 4D 43 B2 |VEN AF....,. MC.| 000007F0: 32 20 A7 20 8D 20 31 31 33 30 30 00 01 10 1F 2C |2 . . 11300....,| 00000800: 8E 00 07 10 23 2C 3A 00 2C 10 24 2C 8F 20 2A 2A |....#,:.,.$,. **| 00000810: 20 44 52 55 4B 20 4D 43 2D 41 4C 54 45 52 4E 41 | DRUK MC-ALTERNA| 00000820: 54 49 45 56 45 4E 20 41 46 20 2A 2A 00 3D 10 2E |TIEVEN AF **.=..| 00000830: 2C 81 20 51 B2 30 20 A4 20 41 41 AA 31 00 4B 10 |,. Q.0 . AA.1.K.| 00000840: 38 2C 88 20 44 53 24 B2 22 2E 22 00 79 10 42 2C |8,. DS$.".".y.B,| 00000850: 8B 20 51 B3 41 41 AA 31 20 A7 20 88 20 44 53 24 |. Q.AA.1 . . DS$| 00000860: B2 22 20 20 22 AA C7 28 36 35 AA 51 29 AA 22 20 |." "..(65.Q)." | 00000870: 22 AA 41 4C 54 24 28 51 29 00 98 10 4C 2C 8D 20 |".ALT$(Q)...L,. | 00000880: 31 32 30 30 30 3A 20 20 8F 20 56 45 52 57 45 52 |12000: . VERWER| 00000890: 4B 20 53 54 52 49 4E 47 00 A0 10 56 2C 82 20 51 |K STRING...V,. Q| 000008A0: 00 A6 10 74 2C 8E 00 AC 10 7E 2C 3A 00 C2 10 EC |...t,....~,:....| 000008B0: 2C 8F 20 2A 2A 20 42 45 53 54 55 52 49 4E 47 20 |,. ** BESTURING | 000008C0: 2A 2A 00 D5 10 F6 2C 53 52 24 B2 22 2B 3D 56 45 |**....,SR$."+=VE| 000008D0: 52 44 45 52 22 00 E1 10 00 2D 99 3A 99 20 53 52 |RDER"....-.:. SR| 000008E0: 24 00 F9 10 50 2D 8F 20 2A 2A 20 56 52 41 41 47 |$...P-. ** VRAAG| 000008F0: 20 54 4F 45 54 53 20 2A 2A 00 0C 11 5A 2D 57 48 | TOETS **...Z-WH| 00000900: 49 4C 45 20 49 4E 24 B3 B1 22 2B 22 00 16 11 64 |ILE IN$.."+"...d| 00000910: 2D 8D 20 32 31 30 00 1D 11 6E 2D 57 80 00 31 11 |-. 210...n-W..1.| 00000920: 78 2D 88 20 42 53 B2 32 3A 88 20 49 4E 24 B2 22 |x-. BS.2:. IN$."| 00000930: 22 00 37 11 AA 2D 8E 00 3D 11 B3 2D 3A 00 58 11 |".7..-..=..-:.X.| 00000940: E0 2E 8F 20 2A 2A 20 56 45 52 57 45 52 4B 20 53 |... ** VERWERK S| 00000950: 54 52 49 4E 47 20 2A 2A 00 6A 11 44 2F 8F 20 5A |TRING **.j.D/. Z| 00000960: 45 54 20 44 45 20 56 4C 41 47 00 78 11 49 2F 88 |ET DE VLAG.x.I/.| 00000970: 20 53 42 24 B2 44 53 24 00 93 11 4E 2F 88 20 56 | SB$.DS$...N/. V| 00000980: 4C 41 47 B2 30 3A 88 20 41 24 B2 C8 28 44 53 24 |LAG.0:. A$..(DS$| 00000990: 2C 31 29 00 AD 11 58 2F 8B 20 41 24 20 B2 22 2E |,1)...X/. A$ .".| 000009A0: 22 20 20 A7 20 88 20 56 4C 41 47 B2 31 00 CB 11 |" . . VLAG.1...| 000009B0: 94 2F 91 20 B4 28 56 4C 41 47 29 AA 31 20 8D 20 |./. .(VLAG).1 . | 000009C0: 31 32 33 30 30 2C 31 32 32 30 30 00 D1 11 9E 2F |12300,12200..../| 000009D0: 8E 00 D7 11 A7 2F 3A 00 F9 11 A8 2F 8F 20 2A 2A |...../:..../. **| 000009E0: 20 45 52 20 49 53 20 57 45 4C 20 45 45 4E 20 56 | ER IS WEL EEN V| 000009F0: 4C 41 47 20 47 45 5A 45 54 00 05 12 DA 2F 8D 20 |LAG GEZET..../. | 00000A00: 31 32 34 30 30 00 0B 12 EE 2F 8E 00 11 12 02 30 |12400..../.....0| 00000A10: 3A 00 33 12 0C 30 8F 20 2A 2A 20 45 52 20 49 53 |:.3..0. ** ER IS| 00000A20: 20 47 45 45 4E 20 56 4C 41 47 20 47 45 5A 45 54 | GEEN VLAG GEZET| 00000A30: 20 2A 2A 00 3D 12 2A 30 99 20 44 53 24 00 43 12 | **.=.*0. DS$.C.| 00000A40: 3E 30 8E 00 49 12 66 30 3A 00 65 12 70 30 8F 20 |>0..I.f0:.e.p0. | 00000A50: 2A 2A 20 56 45 52 57 45 52 4B 20 44 45 20 56 4C |** VERWERK DE VL| 00000A60: 41 47 20 2A 2A 00 86 12 7A 30 8B 20 C8 28 5A 4F |AG **...z0. .(ZO| 00000A70: 45 4B 24 2C 32 29 B3 B1 22 2E 56 22 20 A7 20 8D |EK$,2)..".V" . .| 00000A80: 20 31 31 35 30 30 00 8C 12 C0 30 8E 00 92 12 CA | 11500....0.....| 00000A90: 30 3A 00 B7 12 80 3E 8F 20 2A 2A 20 56 45 52 57 |0:....>. ** VERW| 00000AA0: 45 52 4B 49 4E 47 20 47 4F 45 44 20 41 4E 54 57 |ERKING GOED ANTW| 00000AB0: 4F 4F 52 44 20 2A 2A 00 DF 12 8A 3E 88 20 41 B2 |OORD **....>. A.| 00000AC0: C6 28 C8 28 41 24 2C 31 29 29 AB 36 35 3A 8B 20 |.(.(A$,1)).65:. | 00000AD0: 4D 43 B3 B1 32 20 A7 20 8D 20 31 36 31 30 30 00 |MC..2 . . 16100.| 00000AE0: 04 13 8F 3E 8B 28 41 B3 30 29 B0 28 41 B1 41 41 |...>.(A.0).(A.AA| 00000AF0: 29 A7 20 99 22 46 4F 55 54 45 20 4C 45 54 54 45 |). ."FOUTE LETTE| 00000B00: 52 22 3A 90 00 28 13 94 3E 8B 20 41 B1 AB 31 20 |R":..(..>. A..1 | 00000B10: A7 20 88 20 54 45 4B 53 54 24 B2 22 2E 22 AA 54 |. . TEKST$.".".T| 00000B20: 45 4B 53 54 24 28 41 29 00 4A 13 99 3E 8B 20 41 |EKST$(A).J..>. A| 00000B30: B1 AB 31 20 A7 20 88 20 56 52 47 24 B2 22 2E 22 |..1 . . VRG$."."| 00000B40: AA 56 52 41 41 47 24 28 41 29 00 5F 13 9E 3E 8B |.VRAAG$(A)._..>.| 00000B50: 20 41 B2 AB 31 20 A7 20 88 20 41 4E 54 B2 31 00 | A..1 . . ANT.1.| 00000B60: 65 13 A8 3E 8E 00 6B 13 DA 3E 3A 00 8A 13 E4 3E |e..>..k..>:....>| 00000B70: 8F 20 2A 2A 20 45 45 4E 20 44 45 52 20 4F 50 45 |. ** EEN DER OPE| 00000B80: 4E 20 41 4C 54 2E 3F 20 2A 2A 00 95 13 EE 3E 88 |N ALT.? **....>.| 00000B90: 20 41 B2 AB 31 00 A4 13 F8 3E 81 20 51 B2 30 20 | A..1....>. Q.0 | 00000BA0: A4 20 41 41 00 B6 13 0C 3F 88 20 53 52 24 B2 41 |. AA....?. SR$.A| 00000BB0: 4C 54 24 28 51 29 00 D2 13 16 3F 8B 20 41 24 B2 |LT$(Q)....?. A$.| 00000BC0: 53 52 24 20 A7 20 88 20 41 B2 51 3A 88 20 51 B2 |SR$ . . A.Q:. Q.| 00000BD0: 41 41 00 DA 13 20 3F 82 20 51 00 E0 13 2A 3F 8E |AA... ?. Q...*?.| 00000BE0: 00 E6 13 3E 3F 3A 00 00 14 38 4A 8F 20 2A 2A 20 |...>?:...8J. ** | 00000BF0: 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 20 2A 2A |INPUT ROUTINE **| 00000C00: 00 0B 14 56 4A 99 3A 85 20 41 24 00 11 14 60 4A |...VJ.:. A$...`J| 00000C10: 8E 00 1F 14 A8 61 8F 20 2A 2A 20 44 41 54 41 00 |.....a. ** DATA.| 00000C20: 38 14 AA 61 83 22 2E 54 31 22 2C 22 4D 49 43 52 |8..a.".T1","MICR| 00000C30: 4F 2D 49 4E 53 54 52 55 00 56 14 B2 61 83 22 49 |O-INSTRU.V..a."I| 00000C40: 4E 53 54 52 55 43 54 49 45 22 2C 22 54 31 30 22 |NSTRUCTIE","T10"| 00000C50: 2C 22 56 31 30 22 00 6F 14 B4 61 83 22 53 54 4F |,"V10".o..a."STO| 00000C60: 50 50 45 4E 22 2C 22 54 30 22 2C 22 56 30 22 00 |PPEN","T0","V0".| 00000C70: A3 14 BC 61 83 22 2E 54 32 22 2C 22 45 45 4E 20 |...a.".T2","EEN | 00000C80: 49 4E 53 54 52 55 43 54 49 45 20 42 45 56 41 54 |INSTRUCTIE BEVAT| 00000C90: 20 55 49 54 4C 45 47 20 45 4E 20 56 52 41 47 45 | UITLEG EN VRAGE| 00000CA0: 4E 2E 22 00 D8 14 BE 61 83 22 55 57 20 41 4E 54 |N."....a."UW ANT| 00000CB0: 57 4F 4F 52 44 20 42 45 50 41 41 4C 54 20 57 41 |WOORD BEPAALT WA| 00000CC0: 54 20 44 45 20 56 4F 4C 47 45 4E 44 45 20 55 49 |T DE VOLGENDE UI| 00000CD0: 54 4C 45 47 20 45 4E 22 00 0A 15 BF 61 83 22 56 |TLEG EN"....a."V| 00000CE0: 52 41 41 47 20 5A 41 4C 20 5A 49 4A 4E 2E 22 2C |RAAG ZAL ZIJN.",| 00000CF0: 22 53 4F 4D 53 20 4B 55 4E 54 20 55 20 45 58 54 |"SOMS KUNT U EXT| 00000D00: 52 41 20 55 49 54 4C 45 47 22 00 38 15 C0 61 83 |RA UITLEG".8..a.| 00000D10: 22 4B 52 49 4A 47 45 4E 20 44 4F 4F 52 20 4F 4D |"KRIJGEN DOOR OM| 00000D20: 20 48 55 4C 50 20 54 45 20 56 52 41 47 45 4E 20 | HULP TE VRAGEN | 00000D30: 4D 45 54 20 45 45 4E 22 00 4B 15 C1 61 83 22 56 |MET EEN".K..a."V| 00000D40: 52 41 41 47 54 45 4B 45 4E 2E 22 00 82 15 C2 61 |RAAGTEKEN."....a| 00000D50: 83 22 49 53 20 45 52 20 47 45 45 4E 20 48 55 4C |."IS ER GEEN HUL| 00000D60: 50 20 41 41 4E 57 45 5A 49 47 20 44 41 4E 20 4B |P AANWEZIG DAN K| 00000D70: 52 49 4A 47 54 20 55 20 44 45 20 55 49 54 4C 45 |RIJGT U DE UITLE| 00000D80: 47 22 00 B3 15 C3 61 83 22 44 49 45 20 55 20 41 |G"....a."DIE U A| 00000D90: 4C 20 45 45 52 44 45 52 20 4B 52 45 45 47 20 4E |L EERDER KREEG N| 00000DA0: 4F 47 4D 41 41 4C 53 2E 22 2C 22 4E 41 20 54 57 |OGMAALS.","NA TW| 00000DB0: 45 45 22 00 E9 15 C7 61 83 22 44 45 20 43 4F 4D |EE"....a."DE COM| 00000DC0: 50 55 54 45 52 20 4F 4E 54 48 4F 55 44 54 20 55 |PUTER ONTHOUDT U| 00000DD0: 57 20 41 4E 54 57 4F 4F 52 44 45 4E 2E 22 2C 22 |W ANTWOORDEN.","| 00000DE0: 44 41 41 52 44 4F 4F 52 22 00 1F 16 C8 61 83 22 |DAARDOOR"....a."| 00000DF0: 49 53 20 48 45 54 20 4D 4F 47 45 4C 49 4A 4B 20 |IS HET MOGELIJK | 00000E00: 4F 4D 20 54 45 52 55 47 20 54 45 20 27 42 4C 41 |OM TERUG TE 'BLA| 00000E10: 44 45 52 45 4E 27 20 45 4E 20 57 45 45 52 22 00 |DEREN' EN WEER".| 00000E20: 54 16 C9 61 83 22 56 4F 4F 52 55 49 54 20 54 45 |T..a."VOORUIT TE| 00000E30: 20 47 41 41 4E 20 54 4F 54 20 44 45 20 50 4C 41 | GAAN TOT DE PLA| 00000E40: 41 54 53 20 57 41 41 52 20 55 20 47 45 42 4C 45 |ATS WAAR U GEBLE| 00000E50: 56 45 4E 22 00 89 16 CA 61 83 22 57 41 53 2E 22 |VEN"....a."WAS."| 00000E60: 2C 22 55 20 42 45 48 4F 45 46 54 20 44 45 20 45 |,"U BEHOEFT DE E| 00000E70: 45 52 44 45 52 20 47 45 47 45 56 45 4E 20 41 4E |ERDER GEGEVEN AN| 00000E80: 54 57 4F 4F 52 44 45 4E 22 00 AA 16 CC 61 83 22 |TWOORDEN"....a."| 00000E90: 4E 49 45 54 20 4F 50 4E 49 45 55 57 20 49 4E 20 |NIET OPNIEUW IN | 00000EA0: 54 45 20 54 59 50 45 4E 21 22 00 CB 16 D0 61 83 |TE TYPEN!"....a.| 00000EB0: 22 43 4F 4D 50 55 54 45 52 20 57 41 54 20 44 41 |"COMPUTER WAT DA| 00000EC0: 41 52 4E 41 20 4B 57 41 4D 2E 22 00 00 17 D2 61 |ARNA KWAM."....a| 00000ED0: 83 22 4F 50 20 44 41 54 20 4D 4F 4D 45 4E 54 20 |."OP DAT MOMENT | 00000EE0: 53 4C 41 41 54 20 55 20 4E 41 4D 45 4C 49 4A 4B |SLAAT U NAMELIJK| 00000EF0: 20 45 45 4E 20 41 4E 44 45 52 45 20 57 45 47 22 | EEN ANDERE WEG"| 00000F00: 00 2F 17 D4 61 83 22 56 41 4E 20 44 45 20 49 4E |./..a."VAN DE IN| 00000F10: 53 54 52 55 43 54 49 45 20 49 4E 2E 22 2C 22 4F |STRUCTIE IN.","O| 00000F20: 4D 20 48 45 54 20 48 45 4C 45 4D 41 41 4C 22 00 |M HET HELEMAAL".| 00000F30: 64 17 D6 61 83 22 47 45 4D 41 4B 4B 45 4C 49 4A |d..a."GEMAKKELIJ| 00000F40: 4B 20 54 45 20 4D 41 4B 45 4E 20 4B 55 4E 54 20 |K TE MAKEN KUNT | 00000F50: 55 20 49 4E 20 45 45 4E 20 4B 45 45 52 20 54 45 |U IN EEN KEER TE| 00000F60: 52 55 47 22 00 99 17 D8 61 83 22 4E 41 41 52 20 |RUG"....a."NAAR | 00000F70: 48 45 54 20 42 45 47 49 4E 20 45 4E 20 4F 4F 4B |HET BEGIN EN OOK| 00000F80: 20 49 4E 20 45 45 4E 20 4B 45 45 52 20 4E 41 41 | IN EEN KEER NAA| 00000F90: 52 20 41 46 2C 20 44 45 22 00 BC 17 DA 61 83 22 |R AF, DE"....a."| 00000FA0: 50 4C 41 41 54 53 20 57 41 41 52 20 55 20 56 41 |PLAATS WAAR U VA| 00000FB0: 4E 44 41 41 4E 20 4B 57 41 4D 2E 22 00 E5 17 DC |NDAAN KWAM."....| 00000FC0: 61 83 22 55 49 54 45 52 41 41 52 44 20 4B 55 4E |a."UITERAARD KUN| 00000FD0: 54 20 55 20 49 4E 20 44 45 20 41 4E 54 57 4F 4F |T U IN DE ANTWOO| 00000FE0: 52 44 45 4E 22 00 1A 18 DE 61 83 22 56 45 52 42 |RDEN"....a."VERB| 00000FF0: 45 54 45 52 49 4E 47 45 4E 20 41 41 4E 42 52 45 |ETERINGEN AANBRE| 00001000: 4E 47 45 4E 20 4D 41 41 52 20 44 41 54 20 47 41 |NGEN MAAR DAT GA| 00001010: 41 54 20 49 4E 20 44 49 54 22 00 44 18 E0 61 83 |AT IN DIT".D..a.| 00001020: 22 50 52 4F 47 52 41 4D 4D 41 20 4D 45 54 20 44 |"PROGRAMMA MET D| 00001030: 45 20 56 4F 4C 47 45 4E 44 45 20 54 4F 45 54 53 |E VOLGENDE TOETS| 00001040: 45 4E 3A 22 00 60 18 E2 61 83 22 20 23 20 43 55 |EN:".`..a." # CU| 00001050: 52 53 4F 52 20 4E 41 41 52 20 4C 49 4E 4B 53 22 |RSOR NAAR LINKS"| 00001060: 00 7D 18 E4 61 83 22 20 24 20 43 55 52 53 4F 52 |.}..a." $ CURSOR| 00001070: 20 4E 41 41 52 20 52 45 43 48 54 53 22 00 97 18 | NAAR RECHTS"...| 00001080: E6 61 83 22 20 25 20 4B 41 52 41 4B 54 45 52 20 |.a." % KARAKTER | 00001090: 57 49 53 53 45 4E 22 00 BC 18 E8 61 83 22 20 26 |WISSEN"....a." &| 000010A0: 20 52 55 49 4D 54 45 20 56 4F 4F 52 20 4B 41 52 | RUIMTE VOOR KAR| 000010B0: 41 4B 54 45 52 20 4D 41 4B 45 4E 22 00 DF 18 EE |AKTER MAKEN"....| 000010C0: 61 83 22 4E 4F 54 45 45 52 20 44 49 54 20 45 45 |a."NOTEER DIT EE| 000010D0: 52 53 54 20 4F 50 20 50 41 50 49 45 52 21 22 00 |RST OP PAPIER!".| 000010E0: FD 18 F8 61 83 22 2E 56 32 22 2C 22 57 49 4C 54 |...a.".V2","WILT| 000010F0: 20 55 20 44 4F 4F 52 47 41 41 4E 3F 22 00 17 19 | U DOORGAAN?"...| 00001100: FD 61 83 22 2E 43 32 22 2C 22 4A 41 22 2C 22 54 |.a.".C2","JA","T| 00001110: 31 22 2C 22 56 31 22 00 2C 19 FE 61 83 22 4E 45 |1","V1".,..a."NE| 00001120: 45 22 2C 22 54 30 22 2C 22 56 30 22 00 60 19 2A |E","T0","V0".`.*| 00001130: 62 83 22 47 45 42 52 55 49 4B 45 4E 2C 20 48 45 |b."GEBRUIKEN, HE| 00001140: 54 20 50 52 4F 47 52 41 4D 4D 41 20 49 4E 44 45 |T PROGRAMMA INDE| 00001150: 4C 45 4E 20 49 4E 20 42 4C 4F 4B 4B 45 4E 2C 22 |LEN IN BLOKKEN,"| 00001160: 00 89 19 34 62 83 22 47 45 53 43 48 49 4B 54 45 |...4b."GESCHIKTE| 00001170: 20 56 41 52 49 41 42 45 4C 45 4E 20 47 45 42 52 | VARIABELEN GEBR| 00001180: 55 49 4B 45 4E 20 45 4E 22 00 AA 19 3E 62 83 22 |UIKEN EN"...>b."| 00001190: 47 45 45 4E 20 52 41 52 45 20 53 50 52 4F 4E 47 |GEEN RARE SPRONG| 000011A0: 45 4E 20 4D 41 4B 45 4E 2E 22 00 D4 19 70 62 83 |EN MAKEN."...pb.| 000011B0: 22 2E 56 31 30 22 2C 22 57 41 41 52 4F 56 45 52 |".V10","WAAROVER| 000011C0: 20 57 49 4C 54 20 55 20 4D 45 45 52 20 57 45 54 | WILT U MEER WET| 000011D0: 45 4E 3F 22 00 E0 19 84 62 83 22 2E 4D 31 30 22 |EN?"....b.".M10"| 000011E0: 00 FE 19 98 62 83 22 49 4E 44 45 4C 49 4E 47 22 |....b."INDELING"| 000011F0: 2C 22 54 32 30 30 22 2C 22 56 32 30 30 22 00 1E |,"T200","V200"..| 00001200: 1A A2 62 83 22 56 41 52 49 41 42 45 4C 45 4E 22 |..b."VARIABELEN"| 00001210: 2C 22 54 33 30 30 22 2C 22 56 33 30 30 22 00 3C |,"T300","V300".<| 00001220: 1A AC 62 83 22 53 50 52 4F 4E 47 45 4E 22 2C 22 |..b."SPRONGEN","| 00001230: 54 34 30 30 22 2C 22 56 34 30 30 22 00 56 1A D4 |T400","V400".V..| 00001240: 62 83 22 2E 54 31 30 30 22 2C 22 4F 50 44 52 41 |b.".T100","OPDRA| 00001250: 43 48 54 45 4E 22 00 8D 1A DE 62 83 22 4D 45 54 |CHTEN"....b."MET| 00001260: 20 44 45 20 50 52 49 4E 54 20 4F 50 44 52 41 43 | DE PRINT OPDRAC| 00001270: 48 54 20 5A 45 54 20 55 20 49 45 54 53 20 4F 50 |HT ZET U IETS OP| 00001280: 20 48 45 54 20 53 43 48 45 52 4D 2E 22 00 C4 1A | HET SCHERM."...| 00001290: E8 62 83 22 44 45 20 52 45 47 45 4C 20 47 45 45 |.b."DE REGEL GEE| 000012A0: 46 54 20 55 20 41 41 4E 20 4D 45 54 20 56 45 20 |FT U AAN MET VE | 000012B0: 45 4E 20 44 45 20 50 4F 53 49 54 49 45 20 4F 50 |EN DE POSITIE OP| 000012C0: 20 44 45 22 00 F3 1A F2 62 83 22 52 45 47 45 4C | DE"....b."REGEL| 000012D0: 20 4D 45 54 20 48 4F 20 28 48 4F 3D 30 3A 56 45 | MET HO (HO=0:VE| 000012E0: 3D 30 20 49 53 20 4C 49 4E 4B 53 42 4F 56 45 4E |=0 IS LINKSBOVEN| 000012F0: 29 2E 22 00 28 1B FC 62 83 22 44 45 20 52 4F 55 |).".(..b."DE ROU| 00001300: 54 49 4E 45 20 4F 50 20 52 45 47 45 4C 20 31 31 |TINE OP REGEL 11| 00001310: 30 20 5A 45 54 20 44 45 20 43 55 52 53 4F 52 20 |0 ZET DE CURSOR | 00001320: 4F 50 20 5A 49 4A 4E 22 00 47 1B 06 63 83 22 50 |OP ZIJN".G..c."P| 00001330: 4C 41 41 54 53 2E 22 2C 22 42 49 4A 56 4F 4F 52 |LAATS.","BIJVOOR| 00001340: 42 45 45 4C 44 3A 22 00 6B 1B 10 63 83 22 48 4F |BEELD:".k..c."HO| 00001350: 3D 36 3A 56 45 3D 34 3A 47 4F 53 55 42 20 31 31 |=6:VE=4:GOSUB 11| 00001360: 30 3A 50 52 49 4E 54 20 41 3B 22 00 9F 1B 4C 63 |0:PRINT A;"...Lc| 00001370: 83 22 2E 56 31 30 30 22 2C 22 57 41 41 52 20 4B |.".V100","WAAR K| 00001380: 4F 4D 54 20 44 45 20 43 55 52 53 4F 52 20 4D 45 |OMT DE CURSOR ME| 00001390: 54 20 44 45 20 4F 50 44 52 41 43 48 54 3A 22 00 |T DE OPDRACHT:".| 000013A0: BA 1B 56 63 83 22 48 4F 3D 33 2C 56 45 3D 32 3A |..Vc."HO=3,VE=2:| 000013B0: 47 4F 53 55 42 20 31 31 30 22 00 C7 1B 6A 63 83 |GOSUB 110"...jc.| 000013C0: 22 2E 4D 31 30 30 22 00 EE 1B 74 63 83 22 50 4F |".M100"...tc."PO| 000013D0: 53 49 54 49 45 20 32 2C 52 45 47 45 4C 20 33 22 |SITIE 2,REGEL 3"| 000013E0: 2C 22 54 31 30 31 22 2C 22 56 31 30 30 22 00 15 |,"T101","V100"..| 000013F0: 1C 7E 63 83 22 50 4F 53 49 54 49 45 20 34 2C 52 |.~c."POSITIE 4,R| 00001400: 45 47 45 4C 20 33 22 2C 22 54 31 31 30 22 2C 22 |EGEL 3","T110","| 00001410: 56 31 31 30 22 00 3C 1C 88 63 83 22 50 4F 53 49 |V110".<..c."POSI| 00001420: 54 49 45 20 33 2C 52 45 47 45 4C 20 32 22 2C 22 |TIE 3,REGEL 2","| 00001430: 54 31 30 32 22 2C 22 56 31 30 30 22 00 00 00 |T102","V100"... |
....... INVOER VAN TOETSENBORD.).... 100 0./.....[...VE.0:HO.0:IN$." ":SR.0:SR$." ":CT.0:CN.0.....KEY OFF:SCREEN 0:WIDTH 4 0:COL. 7,1,1.....LOCATE 1,1,0. .... 1010 ...D.CLS:..D.N.OVE%..(VE):OHO%..(HO)...O .. OVE%.23 . OVE%.23...P.. OVE%.0 . OVE% .0...Q.. OHO%.39 . OHO%.39. .R.. OHO%.0 . OHO%.0.9.S.LOCATE OVE%.1,OHO%.1.?.T... [.X.HO..(0).1:VE.CSRLIN.1:..U.... DRUK U ITLEG/HULP AF...H.IN$.INKEY$...I.. C(IN$ ).2 . ....J.. (F(H(IN$,2)).3) . IN$.G(0) :..W.K.IN$.G(F(H(IN$,2)).125):....R.IN$. .$(1):. 201.....BEEP:....^.L. SR$;:....H .L.:......:.?...A.1000:. 20: . ** MICRO -INSTRUCTEUR **.Y.... ** INITIALISATIE * *.U.... DECLARATIE VARIABELEN...... ALT$ (3),TEKST$(3),VRAAG$(3)...... TEL AANTAL DATA-STRINGS.B....:. AD.0.U...WHILE DS$ .."."...... DS$:. AD.AD.1.....W....... S TARTCODES.!.... TEKST$.".T1":. VRG$.".V1 ".=.8.. ANT.0:. EIND.0:. MC.0.C.B.:.X.L. . HOOFDPROGRAMMA.I.V.WHILE EIND.0...T.. GEEF UITLEG/HULP...~.. 10100.....:...... VRAAG...... ZOEK BLOK...D.. ZOEK$.V.P.. .. LEEG.1:. MB.0...... DRUK BLOK AF..... . 11000...... IS HET EEN MEERKEUZEVR.?.4 .... J(SB$,2,1)."M" . . MC.2:. MB.MC.:.. .:.N.... ALTERNATIEVEN.Z.... 11200.`.W.: .T.... 19000:. ANT.0.Z.R.:...... OM HULP GEVRAAGD?...... A$."?" . . ANT.2:. MC.M C.1.G.... MC.2 . . MC.2.M.?.:...@.. VERW ERKING ANTWOORD...J.. ANT.0 . . 16000: . MC.0.....:...V.W......W......:.R...."ZO DRA U EEN OUD ANTWOORD WIJZIGT VERGEET D E".R.N.."OPDRACHTEN","T100","V100"....'. :.---------------------------....'. ** Z OEK BLOK **....'....$'. Q.1 . AD....'. D S$:. DS$.ZOEK$ . . Q.AD...8'. Q...B'.... L':...T'. ** GEEF UITLEG/HULP **...Y'. B S.0.>..'. HULP$.".H".I(VRG$,C(VRG$).2).W ..'. ZOEK BLOK MET HELP.E..'. ANT.2 .... Q'.(DS$..".").(ANT..1). . 11000...U'.... W':....*. ** DRUK BLOK AF **....+. 100.C ..+. VLAG.0.U..+WHILE VLAG..1... +. BS.0 :. DS$...*+. 12000: . VERWERK STRING.". 4+.(VLAG..1).(BS.2). . 100.).H+W../.R+.. 5.[+:.O..+. ** ALTERNATIEVEN **.A.J+. AA ..1:. DS$.Y.T+WHILE H(DS$,1).."."....+. AA.AA.1....+. ALT$(AA).DS$....+. TEKST$( AA),VRAAG$(AA)....+. DS$.G..,W.....,. DR UK MC ALTERNATIEVEN AF....,. MC.2 . . 11 300....,....#,:.,.$,. ** DRUK MC-ALTERNA TIEVEN AF **.=..,. Q.0 . AA.1.K.8,. DS$. ".".Y.B,. Q.AA.1 . . DS$." ".G(65.Q)." ".ALT$(Q)...L,. 12000: . VERWERK STRING . .V,. Q...T,....~,:.B..,. ** BESTURING **.U..,SR$."+=VERDER"....-.:. SR$...P-. ** VRAAG TOETS **...Z-WHILE IN$.."+"...D -. 210...N-W..1.X-. BS.2:. IN$."".7..-.. =..-:.X.... ** VERWERK STRING **.J.D/. Z ET DE VLAG.X.I/. SB$.DS$...N/. VLAG.0:. A$.H(DS$,1)...X/. A$ ."." . . VLAG.1.K. ./. .(VLAG).1 . 12300,12200.Q../..W../:. .../. ** ER IS WEL EEN VLAG GEZET...Z/. 12400..../.....0:.3..0. ** ER IS GEEN VL AG GEZET **.=.*0. DS$.C.>0..I.F0:.E.P0. ** VERWERK DE VLAG **...Z0. H(ZOEK$,2).. ".V" . . 11500....0....J0:....>. ** VERW ERKING GOED ANTWOORD **....>. A.F(H(A$,1 )).65:. MC..2 . . 16100....>.(A.0).(A.AA ). ."FOUTE LETTER":..(..>. A..1 . . TEKS T$.".".TEKST$(A).J..>. A..1 . . VRG$."." .VRAAG$(A)._..>. A..1 . . ANT.1.E..>..K. Z>:....>. ** EEN DER OPEN ALT.? **....>. A..1....>. Q.0 . AA....?. SR$.ALT$(Q).R ..?. A$.SR$ . . A.Q:. Q.AA.Z. ?. Q...*?. ...>?:...8J. ** INPUT ROUTINE **...VJ.:. A$...`J.....A. ** DATA.8..A.".T1","MICR O-INSTRU.V..A."INSTRUCTIE","T10","V10".O ..A."STOPPEN","T0","V0"....A.".T2","EEN INSTRUCTIE BEVAT UITLEG EN VRAGEN.".X..A ."UW ANTWOORD BEPAALT WAT DE VOLGENDE UI TLEG EN"....A."VRAAG ZAL ZIJN.","SOMS KU NT U EXTRA UITLEG".8..A."KRIJGEN DOOR OM HULP TE VRAGEN MET EEN".K.AA."VRAAGTEKE N."...BA."IS ER GEEN HULP AANWEZIG DAN K RIJGT U DE UITLEG"...CA."DIE U AL EERDER KREEG NOGMAALS.","NA TWEE"...GA."DE COM PUTER ONTHOUDT UW ANTWOORDEN.","DAARDOOR "...HA."IS HET MOGELIJK OM TERUG TE 'BLA DEREN' EN WEER".T.IA."VOORUIT TE GAAN TO T DE PLAATS WAAR U GEBLEVEN"...JA."WAS." ,"U BEHOEFT DE EERDER GEGEVEN ANTWOORDEN "...LA."NIET OPNIEUW IN TE TYPEN!".K.PA. "COMPUTER WAT DAARNA KWAM."...RA."OP DAT MOMENT SLAAT U NAMELIJK EEN ANDERE WEG" ./.TA."VAN DE INSTRUCTIE IN.","OM HET HE LEMAAL".D.VA."GEMAKKELIJK TE MAKEN KUNT U IN EEN KEER TERUG"...XA."NAAR HET BEGI N EN OOK IN EEN KEER NAAR AF, DE"...ZA." PLAATS WAAR U VANDAAN KWAM."....A."UITER AARD KUNT U IN DE ANTWOORDEN"....A."VERB ETERINGEN AANBRENGEN MAAR DAT GAAT IN DI T".D..A."PROGRAMMA MET DE VOLGENDE TOETS EN:".`..A." # CURSOR NAAR LINKS".}..A." $ CURSOR NAAR RECHTS"....A." % KARAKTER WISSEN"....A." & RUIMTE VOOR KARAKTER MA KEN"....A."NOTEER DIT EERST OP PAPIER!". ...A.".V2","WILT U DOORGAAN?"....A.".C2" ,"JA","T1","V1".,..A."NEE","T0","V0".`.* B."GEBRUIKEN, HET PROGRAMMA INDELEN IN B LOKKEN,"...4B."GESCHIKTE VARIABELEN GEBR UIKEN EN"...>B."GEEN RARE SPRONGEN MAKEN .".T.PB.".V10","WAAROVER WILT U MEER WET EN?"....B.".M10"....B."INDELING","T200", "V200"....B."VARIABELEN","T300","V300".< ..B."SPRONGEN","T400","V400".V.TB.".T100 ","OPDRACHTEN"....B."MET DE PRINT OPDRAC HT ZET U IETS OP HET SCHERM.".D..B."DE R EGEL GEEFT U AAN MET VE EN DE POSITIE OP DE"....B."REGEL MET HO (HO=0:VE=0 IS LI NKSBOVEN).".(..B."DE ROUTINE OP REGEL 11 0 ZET DE CURSOR OP ZIJN".G..C."PLAATS.", "BIJVOORBEELD:".K..C."HO=6:VE=4:GOSUB 11 0:PRINT A;"...LC.".V100","WAAR KOMT DE C URSOR MET DE OPDRACHT:"...VC."HO=3,VE=2: GOSUB 110".G.JC.".M100"...TC."POSITIE 2, REGEL 3","T101","V100"...~C."POSITIE 4,R EGEL 3","T110","V110".<..C."POSITIE 3,RE GEL 2","T102","V100"...
> CLICK IMAGE PREVIEW FOR FULL MODAL