MENU-7
FILE INFORMATION
FILENAME(S): MENU-7
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 21:06:41
APPEARS ON: 1 disk(s)
FILE HASH
92bea82401604b5c30d5bde5e96dec12ea03fe7e1d5fce84239b312d8d6e617a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STR I BASIC | MENU-7 | PRG | DuncanTwain | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 0A 00 89 20 31 30 30 30 00 12 08 14 |....... 1000....|
00000010: 00 8F 00 3E 08 15 00 56 45 B2 30 3A 48 4F B2 30 |...>...VE.0:HO.0|
00000020: 3A 49 4E 24 B2 22 20 22 3A 53 52 B2 30 3A 53 52 |:IN$." ":SR.0:SR|
00000030: 24 B2 22 22 3A 43 54 B2 30 3A 43 4E B2 30 00 67 |$."":CT.0:CN.0.g|
00000040: 08 16 00 4B 45 59 20 4F 46 46 3A 53 43 52 45 45 |...KEY OFF:SCREE|
00000050: 4E 20 30 3A 57 49 44 54 48 20 34 30 3A 43 4F 4C |N 0:WIDTH 40:COL|
00000060: B0 20 37 2C 31 2C 31 00 78 08 17 00 4C 4F 43 41 |. 7,1,1.x...LOCA|
00000070: 54 45 20 31 2C 31 2C 30 00 83 08 1D 00 89 20 31 |TE 1,1,0...... 1|
00000080: 30 31 30 00 8D 08 64 00 43 4C 53 3A 8E 00 A7 08 |010...d.CLS:....|
00000090: 6E 00 4F 56 45 25 B2 B5 28 56 45 29 3A 4F 48 4F |n.OVE%..(VE):OHO|
000000A0: 25 B2 B5 28 48 4F 29 00 BF 08 6F 00 8B 20 4F 56 |%..(HO)...o.. OV|
000000B0: 45 25 B1 32 33 20 A7 20 4F 56 45 25 B2 32 33 00 |E%.23 . OVE%.23.|
000000C0: D5 08 70 00 8B 20 4F 56 45 25 B3 30 20 A7 20 4F |..p.. OVE%.0 . O|
000000D0: 56 45 25 B2 30 00 ED 08 71 00 8B 20 4F 48 4F 25 |VE%.0...q.. OHO%|
000000E0: B1 33 39 20 A7 20 4F 48 4F 25 B2 33 39 00 03 09 |.39 . OHO%.39...|
000000F0: 72 00 8B 20 4F 48 4F 25 B3 30 20 A7 20 4F 48 4F |r.. OHO%.0 . OHO|
00000100: 25 B2 30 00 1C 09 73 00 4C 4F 43 41 54 45 20 4F |%.0...s.LOCATE O|
00000110: 56 45 25 AA 31 2C 4F 48 4F 25 AA 31 00 22 09 74 |VE%.1,OHO%.1.".t|
00000120: 00 8E 00 3E 09 78 00 48 4F B2 B9 28 30 29 AB 31 |...>.x.HO..(0).1|
00000130: 3A 56 45 B2 43 53 52 4C 49 4E AB 31 3A 8E 00 59 |:VE.CSRLIN.1:..Y|
00000140: 09 C8 00 49 4E 24 B2 49 4E 4B 45 59 24 3A 27 20 |...IN$.INKEY$:' |
00000150: 20 20 20 20 20 20 20 20 32 00 81 09 C9 00 8B 20 | 2...... |
00000160: C3 28 49 4E 24 29 B3 32 20 A7 20 8E 3A 27 20 20 |.(IN$).2 . .:' |
00000170: 42 41 53 49 43 20 20 41 20 47 AB 36 20 20 47 AB |BASIC A G.6 G.|
00000180: 37 00 A4 09 CA 00 8B 20 28 C6 28 C8 28 49 4E 24 |7...... (.(.(IN$|
00000190: 2C 32 29 29 B2 33 29 20 A7 20 49 4E 24 B2 C7 28 |,2)).3) . IN$..(|
000001A0: 30 29 3A 8E 00 C1 09 CB 00 49 4E 24 B2 C7 28 C6 |0):......IN$..(.|
000001B0: 28 C8 28 49 4E 24 2C 32 29 29 AA 31 32 35 29 3A |(.(IN$,2)).125):|
000001C0: 8E 00 D5 09 D2 00 49 4E 24 B2 85 24 28 31 29 3A |......IN$..$(1):|
000001D0: 89 20 32 30 31 00 E0 09 FA 00 42 45 45 50 3A 8E |. 201.....BEEP:.|
000001E0: 00 EE 09 5E 01 4C 99 20 53 52 24 3B 3A 8E 00 F7 |...^.L. SR$;:...|
000001F0: 09 68 01 4C 99 3A 8E 00 15 0A E8 03 41 B2 35 30 |.h.L.:......A.50|
00000200: 30 3A 89 20 32 30 3A 20 20 8F 20 2A 2A 20 4D 45 |0:. 20: . ** ME|
00000210: 4E 55 20 2A 2A 00 2F 0A F2 03 86 20 4D 24 28 36 |NU **./.... M$(6|
00000220: 29 3A 8F 20 4D 45 4E 55 53 54 52 49 4E 47 53 00 |):. MENUSTRINGS.|
00000230: 46 0A FC 03 88 20 4D 24 28 36 29 B2 22 2E 22 3A |F.... M$(6).".":|
00000240: 88 20 41 46 B2 30 00 65 0A 06 04 8D 20 31 39 39 |. AF.0.e.... 199|
00000250: 30 30 3A 8F 20 2A 2A 20 53 43 48 45 52 4D 4D 41 |00:. ** SCHERMMA|
00000260: 41 54 20 2A 2A 00 6B 0A 4B 04 3A 00 81 0A D0 07 |AT **.k.K.:.....|
00000270: 8F 20 2A 2A 20 48 4F 4F 46 44 4D 45 4E 55 20 2A |. ** HOOFDMENU *|
00000280: 2A 00 90 0A DA 07 57 48 49 4C 45 20 41 46 B2 30 |*.....WHILE AF.0|
00000290: 00 A7 0A E4 07 88 20 4D 24 28 30 29 B2 22 44 41 |...... M$(0)."DA|
000002A0: 54 41 42 41 53 45 22 00 BF 0A EE 07 88 20 4D 24 |TABASE"...... M$|
000002B0: 28 31 29 B2 22 49 4E 4C 45 49 44 49 4E 47 22 00 |(1)."INLEIDING".|
000002C0: D6 0A F8 07 88 20 4D 24 28 32 29 B2 22 49 4E 56 |..... M$(2)."INV|
000002D0: 4F 45 52 45 4E 22 00 ED 0A 02 08 88 20 4D 24 28 |OEREN"...... M$(|
000002E0: 33 29 B2 22 4F 50 5A 4F 45 4B 45 4E 22 00 03 0B |3)."OPZOEKEN"...|
000002F0: 0C 08 88 20 4D 24 28 34 29 B2 22 53 54 4F 50 50 |... M$(4)."STOPP|
00000300: 45 4E 22 00 13 0B 16 08 88 20 4D 24 28 35 29 B2 |EN"...... M$(5).|
00000310: 22 2E 22 00 26 0B 20 08 8D 20 31 35 30 30 30 3A |".".&. .. 15000:|
00000320: 8F 20 4D 45 4E 55 00 49 0B 2A 08 91 20 49 4E 20 |. MENU.I.*.. IN |
00000330: 8D 20 31 30 30 30 30 2C 31 31 30 30 30 2C 31 32 |. 10000,11000,12|
00000340: 30 30 30 2C 31 33 30 30 30 00 50 0B 2F 08 57 80 |000,13000.P./.W.|
00000350: 00 56 0B 31 08 3A 00 5C 0B 0F 27 80 00 7A 0B 10 |.V.1.:.\..'..z..|
00000360: 27 8F 20 2A 2A 20 53 55 42 4D 45 4E 55 20 49 4E |'. ** SUBMENU IN|
00000370: 4C 45 49 44 49 4E 47 20 2A 2A 00 92 0B 1A 27 88 |LEIDING **....'.|
00000380: 20 4D 24 28 30 29 B2 22 49 4E 4C 45 49 44 49 4E | M$(0)."INLEIDIN|
00000390: 47 22 00 A9 0B 24 27 88 20 4D 24 28 31 29 B2 22 |G"...$'. M$(1)."|
000003A0: 49 4E 44 45 4C 49 4E 47 22 00 C1 0B 2E 27 88 20 |INDELING"....'. |
000003B0: 4D 24 28 32 29 B2 22 48 4F 4F 46 44 4D 45 4E 55 |M$(2)."HOOFDMENU|
000003C0: 22 00 D1 0B 38 27 88 20 4D 24 28 33 29 B2 22 2E |"...8'. M$(3).".|
000003D0: 22 00 E4 0B 42 27 8D 20 31 35 30 30 30 3A 8F 20 |"...B'. 15000:. |
000003E0: 4D 45 4E 55 00 FB 0B 4C 27 91 20 49 4E 20 8D 20 |MENU...L'. IN . |
000003F0: 31 30 31 30 30 2C 31 30 32 30 30 00 01 0C 56 27 |10100,10200...V'|
00000400: 8E 00 07 0C 60 27 3A 00 1C 0C 74 27 8F 20 2A 2A |....`':...t'. **|
00000410: 20 49 4E 44 45 4C 49 4E 47 20 2A 2A 00 26 0C 7E | INDELING **.&.~|
00000420: 27 8D 20 31 30 30 00 43 0C 88 27 99 22 48 49 45 |'. 100.C..'."HIE|
00000430: 52 20 4B 4F 4D 54 20 44 45 20 49 4E 44 45 4C 49 |R KOMT DE INDELI|
00000440: 4E 47 22 00 49 0C 92 27 90 00 4F 0C 9C 27 8E 00 |NG".I..'..O..'..|
00000450: 55 0C A6 27 3A 00 76 0C D8 27 8F 20 2A 2A 20 54 |U..':.v..'. ** T|
00000460: 45 52 55 47 20 4E 41 41 52 20 48 4F 4F 46 44 4D |ERUG NAAR HOOFDM|
00000470: 45 4E 55 20 2A 2A 00 7C 0C E2 27 8E 00 82 0C EC |ENU **.|..'.....|
00000480: 27 3A 00 9F 0C F8 2A 8F 20 2A 2A 20 53 55 42 4D |':....*. ** SUBM|
00000490: 45 4E 55 20 49 4E 56 4F 45 52 45 4E 20 2A 2A 00 |ENU INVOEREN **.|
000004A0: A9 0C 02 2B 8D 20 31 30 30 00 B0 0C 0C 2B 50 52 |...+. 100....+PR|
000004B0: 00 B6 0C 16 2B 90 00 BC 0C 20 2B 8E 00 C2 0C 2A |....+.... +....*|
000004C0: 2B 3A 00 DF 0C E0 2E 8F 20 2A 2A 20 53 55 42 4D |+:...... ** SUBM|
000004D0: 45 4E 55 20 4F 50 5A 4F 45 4B 45 4E 20 2A 2A 00 |ENU OPZOEKEN **.|
000004E0: E9 0C EA 2E 8D 20 31 30 30 00 0B 0D F4 2E 99 22 |..... 100......"|
000004F0: 48 49 45 52 20 4B 4F 4D 54 20 53 55 42 4D 45 4E |HIER KOMT SUBMEN|
00000500: 55 20 4F 50 5A 4F 45 4B 45 4E 22 00 11 0D FE 2E |U OPZOEKEN".....|
00000510: 90 00 17 0D 08 2F 8E 00 1D 0D 12 2F 3A 00 39 0D |...../...../:.9.|
00000520: C8 32 8F 20 2A 2A 20 53 55 42 4D 45 4E 55 20 53 |.2. ** SUBMENU S|
00000530: 54 4F 50 50 45 4E 20 2A 2A 00 43 0D D2 32 8D 20 |TOPPEN **.C..2. |
00000540: 31 30 30 00 64 0D DC 32 99 22 48 49 45 52 20 4B |100.d..2."HIER K|
00000550: 4F 4D 54 20 53 55 42 4D 45 4E 55 20 53 54 4F 50 |OMT SUBMENU STOP|
00000560: 50 45 4E 22 00 6A 0D E6 32 90 00 8D 0D F0 32 88 |PEN".j..2.....2.|
00000570: 20 41 46 B2 31 3A 8F 20 5A 45 54 20 44 45 20 53 | AF.1:. ZET DE S|
00000580: 54 4F 50 2D 56 4C 41 47 20 4F 50 20 31 00 93 0D |TOP-VLAG OP 1...|
00000590: FA 32 8E 00 99 0D 04 33 3A 00 AA 0D 98 3A 8F 20 |.2.....3:....:. |
000005A0: 2A 2A 20 4D 45 4E 55 20 2A 2A 00 BD 0D A2 3A 8F |** MENU **....:.|
000005B0: 20 42 45 50 41 41 4C 20 4D 41 52 47 45 00 C8 0D | BEPAAL MARGE...|
000005C0: AC 3A 88 20 4D 42 B2 30 00 D6 0D B6 3A 81 20 49 |.:. MB.0....:. I|
000005D0: B2 30 20 A4 20 35 00 E9 0D C0 3A 88 20 4D B2 C3 |.0 . 5....:. M..|
000005E0: 28 4D 24 28 49 29 29 AA 33 00 FD 0D CA 3A 8B 20 |(M$(I)).3....:. |
000005F0: 4D B1 4D 42 20 A7 20 88 20 4D 42 B2 4D 00 05 0E |M.MB . . MB.M...|
00000600: D4 3A 82 20 49 00 1B 0E DE 3A 8B 20 4D 42 B1 48 |.:. I....:. MB.H|
00000610: 4D 20 A7 20 88 20 4D 42 B2 48 4D 00 36 0E E8 3A |M . . MB.HM.6..:|
00000620: 88 20 4D 41 52 47 45 B2 B5 28 28 48 4D AB 4D 42 |. MARGE..((HM.MB|
00000630: 29 AD 32 AA 31 29 00 3C 0E FB 3A 3A 00 50 0E FC |).2.1).<..::.P..|
00000640: 3A 8F 20 44 52 55 4B 20 54 49 54 45 4C 20 41 46 |:. DRUK TITEL AF|
00000650: 00 5A 0E 06 3B 8D 20 31 30 30 00 6B 0E 10 3B 88 |.Z..;. 100.k..;.|
00000660: 20 48 4F B2 4D 41 52 47 45 AB 31 00 7C 0E 1A 3B | HO.MARGE.1.|..;|
00000670: 88 20 56 45 B2 31 3A 8D 20 31 31 30 00 92 0E 24 |. VE.1:. 110...$|
00000680: 3B 99 22 23 20 22 3B 4D 24 28 30 29 3B 22 20 23 |;."# ";M$(0);" #|
00000690: 22 3B 00 98 0E 5F 3B 3A 00 B4 0E 60 3B 8F 20 44 |";..._;:...`;. D|
000006A0: 52 55 4B 20 41 4C 54 45 52 4E 41 54 49 45 56 45 |RUK ALTERNATIEVE|
000006B0: 4E 20 41 46 00 D3 0E 6A 3B 88 20 4D B2 31 3A 88 |N AF...j;. M.1:.|
000006C0: 20 48 4F B2 4D 41 52 47 45 3A 88 20 56 45 B2 56 | HO.MARGE:. VE.V|
000006D0: 45 AA 33 00 E8 0E 74 3B 57 48 49 4C 45 20 4D 24 |E.3...t;WHILE M$|
000006E0: 28 4D 29 B3 B1 22 2E 22 00 FC 0E 7E 3B 88 20 56 |(M).."."...~;. V|
000006F0: 45 B2 56 45 AA 32 3A 8D 20 31 31 30 00 15 0F 88 |E.VE.2:. 110....|
00000700: 3B 99 20 C7 28 34 38 AA 4D 29 3B 22 20 22 3B 4D |;. .(48.M);" ";M|
00000710: 24 28 4D 29 3B 00 21 0F 92 3B 88 20 4D B2 4D AA |$(M);.!..;. M.M.|
00000720: 31 00 28 0F 9C 3B 57 80 00 2E 0F C3 3B 3A 00 3A |1.(..;W.....;:.:|
00000730: 0F C4 3B 8F 20 4B 45 55 5A 45 00 5B 0F CE 3B 88 |..;. KEUZE.[..;.|
00000740: 20 48 4F B2 4D 41 52 47 45 AB 31 3A 88 20 56 45 | HO.MARGE.1:. VE|
00000750: B2 56 4D AB 31 3A 8D 20 31 31 30 00 73 0F D8 3B |.VM.1:. 110.s..;|
00000760: 99 22 4B 49 45 53 20 45 45 4E 20 43 49 4A 46 45 |."KIES EEN CIJFE|
00000770: 52 22 3B 00 87 0F E2 3B 88 20 49 4E B2 31 3A 88 |R";....;. IN.1:.|
00000780: 20 49 4E 24 B2 22 22 00 9C 0F EC 3B 57 48 49 4C | IN$.""....;WHIL|
00000790: 45 20 49 4E 24 B3 B1 C7 28 31 33 29 00 A6 0F F6 |E IN$...(13)....|
000007A0: 3B 88 20 41 B2 30 00 BC 0F 00 3C 57 48 49 4C 45 |;. A.0....<WHILE|
000007B0: 20 41 B3 31 20 B0 20 41 B1 4D AB 31 00 CC 0F 0A | A.1 . A.M.1....|
000007C0: 3C 88 20 56 45 B2 49 4E AC 32 AA 34 00 DC 0F 14 |<. VE.IN.2.4....|
000007D0: 3C 8D 20 31 31 30 3A 99 22 2A 22 3B 00 F4 0F 1E |<. 110:."*";....|
000007E0: 3C 8D 20 32 31 30 3A 88 20 41 B2 C6 28 49 4E 24 |<. 210:. A..(IN$|
000007F0: 29 AB 34 38 00 0E 10 28 3C 8B 20 41 B1 30 20 AF |).48...(<. A.0 .|
00000800: 20 41 B3 4D 20 20 A7 20 88 20 49 4E B2 41 00 25 | A.M . . IN.A.%|
00000810: 10 32 3C 8B 20 49 4E 24 B2 C7 28 31 33 29 A7 20 |.2<. IN$..(13). |
00000820: 88 20 41 B2 31 00 35 10 3C 3C 8D 20 31 31 30 3A |. A.1.5.<<. 110:|
00000830: 99 22 20 22 3B 00 3C 10 46 3C 57 80 00 50 10 50 |." ";.<.F<W..P.P|
00000840: 3C 88 20 56 45 B2 56 4D AB 31 3A 8D 20 31 31 30 |<. VE.VM.1:. 110|
00000850: 00 69 10 5A 3C 99 22 C4 D2 D5 CB 20 49 4E 56 4F |.i.Z<.".... INVO|
00000860: 45 52 D4 CF C5 D4 D3 22 3B 00 7B 10 64 3C 88 20 |ER.....";.{.d<. |
00000870: 56 45 B2 56 4D 3A 8D 20 31 31 30 00 93 10 6E 3C |VE.VM:. 110...n<|
00000880: 99 22 CF C6 20 CB C9 C5 D3 20 CF D0 CE C9 C5 D5 |.".. .... ......|
00000890: D7 22 3B 00 9A 10 78 3C 57 80 00 A0 10 82 3C 8E |.";...x<W.....<.|
000008A0: 00 A6 10 7F 3E 3A 00 C0 10 BC 4D 8F 20 2A 2A 20 |....>:....M. ** |
000008B0: 53 43 48 45 52 4D 47 52 4F 4F 54 54 45 20 2A 2A |SCHERMGROOTTE **|
000008C0: 00 DB 10 C6 4D 8D 20 31 30 30 3A 99 22 45 D6 C5 |....M. 100:."E..|
000008D0: CE 20 C7 C5 C4 D5 CC C4 20 21 22 00 00 11 D0 4D |. ...... !"....M|
000008E0: 88 20 48 4F B2 32 30 3A 20 88 20 56 45 B2 31 30 |. HO.20: . VE.10|
000008F0: 3A 88 20 48 4D B2 48 4F 3A 88 20 56 4D B2 56 45 |:. HM.HO:. VM.VE|
00000900: 00 10 11 DA 4D 57 48 49 4C 45 20 48 4D B2 48 4F |....MWHILE HM.HO|
00000910: 00 32 11 E4 4D 88 20 48 4F B2 48 4F AA 31 3A 88 |.2..M. HO.HO.1:.|
00000920: 20 48 4D B2 48 4F 3A 8D 20 31 31 30 3A 8D 20 31 | HM.HO:. 110:. 1|
00000930: 32 30 00 39 11 EE 4D 57 80 00 4E 11 F8 4D 88 20 |20.9..MW..N..M. |
00000940: 48 4D B2 48 4D AB 31 3A 88 20 48 4F B2 30 00 5E |HM.HM.1:. HO.0.^|
00000950: 11 02 4E 57 48 49 4C 45 20 56 4D B2 56 45 00 80 |..NWHILE VM.VE..|
00000960: 11 0C 4E 88 20 56 45 B2 56 45 AA 31 3A 88 20 56 |..N. VE.VE.1:. V|
00000970: 4D B2 56 45 3A 8D 20 31 31 30 3A 8D 20 31 32 30 |M.VE:. 110:. 120|
00000980: 00 87 11 16 4E 57 80 00 95 11 1B 4E 88 20 56 4D |....NW.....N. VM|
00000990: B2 56 4D AB 31 00 9B 11 1C 4E 8E 00 00 00 |.VM.1....N.... |
....... 1000.......>...VE.0:HO.0:IN$." "
:SR.0:SR$."":CT.0:CN.0.G...KEY OFF:SCREE
N 0:WIDTH 40:COL. 7,1,1.X...LOCATE 1,1,0
...... 1010...D.CLS:....N.OVE%..(VE):OHO
%..(HO)...O.. OVE%.23 . OVE%.23.U.P.. OV
E%.0 . OVE%.0...Q.. OHO%.39 . OHO%.39...
R.. OHO%.0 . OHO%.0...S.LOCATE OVE%.1,OH
O%.1.".T...>.X.HO..(0).1:VE.CSRLIN.1:..Y
.H.IN$.INKEY$:' 2...I.. C(IN$).2
. .:' BASIC A G.6 G.7...J.. (F(H(IN$
,2)).3) . IN$.G(0):..A.K.IN$.G(F(H(IN$,2
)).125):..U.R.IN$..$(1):. 201.....BEEP:.
...^.L. SR$;:....H.L.:......A.500:. 20:
. ** MENU **./.... M$(6):. MENUSTRINGS.
F.... M$(6).".":. AF.0.E.... 19900:. **
SCHERMMAAT **.K.K.:...P.. ** HOOFDMENU *
*...Z.WHILE AF.0...... M$(0)."DATABASE".
..... M$(1)."INLEIDING".V.... M$(2)."INV
OEREN"...... M$(3)."OPZOEKEN"...... M$(4
)."STOPPEN"...... M$(5).".".&. .. 15000:
. MENU.I.*.. IN . 10000,11000,12000,1300
0.P./.W..V.1.:.\..'..Z..'. ** SUBMENU IN
LEIDING **....'. M$(0)."INLEIDING"...$'.
M$(1)."INDELING".A..'. M$(2)."HOOFDMENU
".Q.8'. M$(3)."."...B'. 15000:. MENU...L
'. IN . 10100,10200...V'....`':...T'. **
INDELING **.&.~'. 100.C..'."HIER KOMT D
E INDELING".I..'..O..'..U..':.V.X'. ** T
ERUG NAAR HOOFDMENU **.|..'.....':....*.
** SUBMENU INVOEREN **....+. 100....+PR
....+.... +..B.*+:...... ** SUBMENU OPZO
EKEN **...... 100......"HIER KOMT SUBMEN
U OPZOEKEN"........../...../:.9.H2. ** S
UBMENU STOPPEN **.C.R2. 100.D..2."HIER K
OMT SUBMENU STOPPEN".J..2.....2. AF.1:.
ZET DE STOP-VLAG OP 1....2.....3:....:.
** MENU **....:. BEPAAL MARGE.H..:. MB.0
.V..:. I.0 . 5....:. M.C(M$(I)).3...J:.
M.MB . . MB.M...T:. I....:. MB.HM . . MB
.HM.6..:. MARGE..((HM.MB).2.1).<..::.P..
:. DRUK TITEL AF.Z..;. 100.K..;. HO.MARG
E.1.|..;. VE.1:. 110...$;."# ";M$(0);" #
";..._;:...`;. DRUK ALTERNATIEVEN AF.S.J
;. M.1:. HO.MARGE:. VE.VE.3...T;WHILE M$
(M).."."...~;. VE.VE.2:. 110....;. G(48.
M);" ";M$(M);.!..;. M.M.1.(..;W....C;:.:
.D;. KEUZE.[.N;. HO.MARGE.1:. VE.VM.1:.
110.S.X;."KIES EEN CIJFER";....;. IN.1:.
IN$.""....;WHILE IN$..G(13)....;. A.0..
..<WHILE A.1 . A.M.1.L..<. VE.IN.2.4....
<. 110:."*";....<. 210:. A.F(IN$).48...(
<. A.0 . A.M . . IN.A.%.2<. IN$.G(13).
. A.1.5.<<. 110:." ";.<.F<W..P.P<. VE.VM
.1:. 110.I.Z<."DRUK INVOERTOETS";.{.D<.
VE.VM:. 110...N<."OF KIES OPNIEUW";...X<
W.. ..<....>:....M. ** SCHERMGROOTTE **
...FM. 100:."EVEN GEDULD !"...PM. HO.20:
. VE.10:. HM.HO:. VM.VE...ZMWHILE HM.HO
.2..M. HO.HO.1:. HM.HO:. 110:. 120.9..MW
..N..M. HM.HM.1:. HO.0.^..NWHILE VM.VE..
..N. VE.VE.1:. VM.VE:. 110:. 120....NW..
...N. VM.VM.1....N....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL