_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

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 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL