WINDOW-MENU
FILE INFORMATION
FILENAME(S): WINDOW-MENU
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:11:18
APPEARS ON: 1 disk(s)
FILE HASH
fa2936c306317a8b0fad7e6f7706904b9bd562e1b54f4c1f4fed3ce4d42d2fe6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIVERSEN 1 | WINDOW-MENU | PRG | DuncanTwain | 2 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 4B 1C 0A 00 8F 20 20 2A 20 20 2A 20 20 2A |..K.... * * *|
00000010: 20 20 44 45 4D 4F 20 50 52 4F 47 52 41 4D 20 46 | DEMO PROGRAM F|
00000020: 4F 52 20 55 53 45 20 57 49 54 48 20 50 55 4C 4C |OR USE WITH PULL|
00000030: 20 44 4F 57 4E 20 4D 45 4E 55 20 52 4F 55 54 49 | DOWN MENU ROUTI|
00000040: 4E 45 20 20 2A 20 20 2A 20 20 2A 00 5C 1C 14 00 |NE * * *.\...|
00000050: 99 22 9B 22 3A 20 8F 20 47 52 45 59 00 62 1C 28 |.".": . GREY.b.(|
00000060: 00 3A 00 74 1C 32 00 FE 25 3A 86 20 4F 50 24 28 |.:.t.2..%:. OP$(|
00000070: 36 2C 39 29 00 97 1C 3C 00 41 24 28 31 29 B2 22 |6,9)...<.A$(1)."|
00000080: 44 49 53 50 4C 41 59 22 20 3A 20 4F 50 24 28 31 |DISPLAY" : OP$(1|
00000090: 2C 30 29 B2 22 32 22 00 D7 1C 46 00 4F 50 24 28 |,0)."2"...F.OP$(|
000000A0: 31 2C 31 29 B2 22 44 49 53 50 4C 41 59 20 4F 50 |1,1)."DISPLAY OP|
000000B0: 54 49 4F 4E 20 4F 4E 45 22 3A 4F 50 24 28 31 2C |TION ONE":OP$(1,|
000000C0: 32 29 B2 22 44 49 53 50 4C 41 59 20 4F 50 54 49 |2)."DISPLAY OPTI|
000000D0: 4F 4E 20 54 57 4F 22 00 FA 1C 50 00 41 24 28 32 |ON TWO"...P.A$(2|
000000E0: 29 B2 22 45 44 49 54 22 20 20 20 20 3A 20 4F 50 |)."EDIT" : OP|
000000F0: 24 28 32 2C 30 29 B2 22 33 22 00 49 1D 5A 00 4F |$(2,0)."3".I.Z.O|
00000100: 50 24 28 32 2C 31 29 B2 22 45 44 49 54 20 4F 50 |P$(2,1)."EDIT OP|
00000110: 54 49 4F 4E 20 31 22 3A 4F 50 24 28 32 2C 32 29 |TION 1":OP$(2,2)|
00000120: B2 22 45 44 49 54 20 4F 50 54 49 4F 4E 20 32 22 |."EDIT OPTION 2"|
00000130: 3A 4F 50 24 28 32 2C 33 29 B2 22 45 44 49 54 20 |:OP$(2,3)."EDIT |
00000140: 4F 50 54 49 4F 4E 20 33 22 00 6C 1D 64 00 41 24 |OPTION 3".l.d.A$|
00000150: 28 33 29 B2 22 50 52 49 4E 54 22 20 20 20 3A 20 |(3)."PRINT" : |
00000160: 4F 50 24 28 33 2C 30 29 B2 22 34 22 00 8F 1D 6E |OP$(3,0)."4"...n|
00000170: 00 41 24 28 34 29 B2 22 53 41 56 45 22 20 20 20 |.A$(4)."SAVE" |
00000180: 20 3A 20 4F 50 24 28 34 2C 30 29 B2 22 35 22 00 | : OP$(4,0)."5".|
00000190: B2 1D 78 00 41 24 28 35 29 B2 22 44 49 53 4B 22 |..x.A$(5)."DISK"|
000001A0: 20 20 20 20 3A 20 4F 50 24 28 35 2C 30 29 B2 22 | : OP$(5,0)."|
000001B0: 36 22 00 D5 1D 82 00 41 24 28 36 29 B2 22 51 55 |6".....A$(6)."QU|
000001C0: 49 54 22 20 20 20 20 3A 20 4F 50 24 28 36 2C 30 |IT" : OP$(6,0|
000001D0: 29 B2 22 39 22 00 DB 1D 8C 00 3A 00 1C 1E 96 00 |)."9".....:.....|
000001E0: E0 2C 30 2C 31 2C 22 22 3A 99 20 C7 28 32 37 29 |.,0,1,"":. .(27)|
000001F0: AA 22 40 22 20 20 3A 20 8F 20 43 4C 45 41 52 20 |."@" : . CLEAR |
00000200: 52 45 53 54 20 4F 46 20 53 43 52 45 45 4E 2E 20 |REST OF SCREEN. |
00000210: 4E 4F 54 20 4D 45 4E 55 20 42 41 52 00 5C 1E A0 |NOT MENU BAR.\..|
00000220: 00 8D 20 31 30 30 33 30 20 20 20 20 20 20 20 20 |.. 10030 |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F | : .|
00000240: 20 43 41 4C 4C 20 50 55 4C 4C 20 44 4F 57 4E 20 | CALL PULL DOWN |
00000250: 4D 45 4E 55 20 52 4F 55 54 49 4E 45 00 62 1E AA |MENU ROUTINE.b..|
00000260: 00 3A 00 A3 1E B4 00 99 3A 99 20 22 4D 45 4E 55 |.:......:. "MENU|
00000270: 20 53 45 4C 45 43 54 45 44 20 20 20 3A 22 3B 4F | SELECTED :";O|
00000280: 50 20 20 3A 20 8F 20 52 45 50 4C 41 43 45 20 57 |P : . REPLACE W|
00000290: 49 54 48 20 43 4F 44 45 20 54 4F 20 50 52 4F 43 |ITH CODE TO PROC|
000002A0: 45 53 53 00 DC 1E BE 00 99 3A 99 20 22 4F 50 54 |ESS......:. "OPT|
000002B0: 49 4F 4E 20 53 45 4C 45 43 54 45 44 20 3A 22 3B |ION SELECTED :";|
000002C0: 4F 50 25 20 3A 20 8F 20 4D 45 4E 55 20 4F 50 54 |OP% : . MENU OPT|
000002D0: 49 4F 4E 20 53 45 4C 45 43 54 45 44 00 E2 1E C8 |ION SELECTED....|
000002E0: 00 3A 00 15 1F D2 00 8F 20 20 21 20 20 20 20 20 |.:...... ! |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 21 00 48 1F DC 00 8F 20 20 21 20 20 | !.H.... ! |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340: 20 20 20 20 20 20 20 21 00 7B 1F E6 00 8F 20 20 | !.{.... |
00000350: 21 20 20 20 20 2E 2E 2E 20 50 52 4F 43 45 53 53 |! ... PROCESS|
00000360: 20 4D 45 4E 55 20 4F 50 54 49 4F 4E 20 48 45 52 | MENU OPTION HER|
00000370: 45 20 2E 2E 2E 20 20 20 20 20 21 00 AE 1F F0 00 |E ... !.....|
00000380: 8F 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 |. ! |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 00 E1 | !..|
000003B0: 1F FA 00 8F 20 20 21 20 20 20 20 20 20 20 20 20 |.... ! |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003E0: 21 00 E7 1F 04 01 80 00 ED 1F 10 27 3A 00 1D 20 |!..........':.. |
000003F0: 1A 27 8F 20 20 2A 20 20 2A 20 20 2A 20 20 50 55 |.'. * * * PU|
00000400: 4C 4C 20 44 4F 57 4E 20 4D 45 4E 55 20 52 4F 55 |LL DOWN MENU ROU|
00000410: 54 49 4E 45 20 20 2A 20 20 2A 20 20 2A 00 23 20 |TINE * * *.# |
00000420: 24 27 3A 00 54 20 2E 27 4F 50 B2 31 3A 43 52 24 |$':.T .'OP.1:CR$|
00000430: B2 22 1D 22 3A 43 4C 24 B2 22 9D 22 3A 48 4F 24 |.".":CL$.".":HO$|
00000440: B2 22 13 22 3A 52 31 24 B2 22 12 22 3A 52 32 24 |.".":R1$.".":R2$|
00000450: B2 22 92 22 00 93 20 38 27 41 31 24 B2 22 CF B7 |.".".. 8'A1$."..|
00000460: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000470: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000480: B7 B7 B7 B7 B7 D0 20 22 3A 53 32 24 B2 22 20 20 |...... ":S2$." |
00000490: 20 20 22 00 D8 20 42 27 41 32 24 B2 22 A5 20 20 | ".. B'A2$.". |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 A7 20 22 3A 53 31 24 B2 22 20 20 20 | . ":S1$." |
000004D0: 20 20 20 20 20 20 20 22 00 18 21 4C 27 41 33 24 | "..!L'A3$|
000004E0: B2 22 CC AF AF AF AF AF AF AF AF AF AF AF AF AF |."..............|
000004F0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000500: AF AF AF AF AF AF AF AF AF BA 20 22 3A 99 20 C7 |.......... ":. .|
00000510: 28 32 37 29 AA 22 4D 22 00 4C 21 56 27 41 34 24 |(27)."M".L!V'A4$|
00000520: B2 22 A5 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000540: 20 20 20 20 20 20 20 20 20 A7 20 22 00 80 21 60 | . "..!`|
00000550: 27 41 35 24 B2 22 CC AF AF AF AF AF AF AF AF AF |'A5$."..........|
00000560: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000570: AF AF AF AF AF AF AF AF AF AF AF AF AF BA 20 22 |.............. "|
00000580: 00 B2 21 6A 27 81 20 58 B2 31 20 A4 20 36 3A 42 |..!j'. X.1 . 6:B|
00000590: 24 28 58 29 B2 22 20 22 AA 41 24 28 58 29 AA C8 |$(X)." ".A$(X)..|
000005A0: 28 53 31 24 2C 39 AB C3 28 41 24 28 58 29 29 29 |(S1$,9..(A$(X)))|
000005B0: 3A 82 00 D0 21 74 27 42 24 28 36 29 B2 C8 28 42 |:...!t'B$(6)..(B|
000005C0: 24 28 36 29 2C C3 28 42 24 28 36 29 29 AB 31 29 |$(6),.(B$(6)).1)|
000005D0: 00 16 22 7E 27 99 20 48 4F 24 3B 52 31 24 3B 42 |.."~'. HO$;R1$;B|
000005E0: 24 28 31 29 3B 53 32 24 3B 42 24 28 32 29 3B 53 |$(1);S2$;B$(2);S|
000005F0: 32 24 3B 42 24 28 33 29 3B 53 32 24 3B 42 24 28 |2$;B$(3);S2$;B$(|
00000600: 34 29 3B 53 32 24 3B 42 24 28 35 29 3B 53 32 24 |4);S2$;B$(5);S2$|
00000610: 3B 42 24 28 36 29 00 39 22 88 27 E0 2C 28 4F 50 |;B$(6).9".'.,(OP|
00000620: AC 31 34 29 AB 31 34 2C 30 2C 22 22 3A 99 20 52 |.14).14,0,"":. R|
00000630: 32 24 3B 42 24 28 4F 50 29 00 73 22 92 27 A1 F9 |2$;B$(OP).s".'..|
00000640: 20 41 24 3A 8B 20 41 24 B2 43 52 24 20 B0 20 41 | A$:. A$.CR$ . A|
00000650: 24 B2 43 4C 24 20 B0 20 41 24 B2 C7 28 31 33 29 |$.CL$ . A$..(13)|
00000660: 20 B0 20 41 24 B2 C7 28 32 37 29 20 A7 20 31 30 | . A$..(27) . 10|
00000670: 31 35 30 00 7F 22 9C 27 89 20 31 30 31 33 30 00 |150..".'. 10130.|
00000680: B3 22 A6 27 8B 20 41 24 B2 C7 28 31 33 29 20 A7 |.".'. A$..(13) .|
00000690: 20 31 30 32 33 30 3A D5 20 8B 20 41 24 B2 C7 28 | 10230:. . A$..(|
000006A0: 32 37 29 20 A7 20 31 30 31 36 30 3A D5 20 31 30 |27) . 10160:. 10|
000006B0: 31 37 30 00 EF 22 B0 27 E0 2C 28 4F 50 AC 31 34 |170..".'.,(OP.14|
000006C0: 29 AB 31 34 2C 30 2C 22 22 3A 99 20 52 31 24 3B |).14,0,"":. R1$;|
000006D0: 42 24 28 4F 50 29 3A 4F 50 B2 30 3A 4F 50 25 B2 |B$(OP):OP.0:OP%.|
000006E0: 30 3A 99 20 C7 28 32 37 29 AA 22 4C 22 3A 8E 00 |0:. .(27)."L":..|
000006F0: 3B 23 BA 27 8B 20 41 24 B2 43 52 24 20 AF 20 4F |;#.'. A$.CR$ . O|
00000700: 50 B1 30 20 AF 20 4F 50 B3 36 20 A7 20 E0 2C 28 |P.0 . OP.6 . .,(|
00000710: 4F 50 AC 31 34 29 AB 31 34 2C 30 2C 22 22 3A 99 |OP.14).14,0,"":.|
00000720: 20 52 31 24 3B 42 24 28 4F 50 29 3A 4F 50 B2 4F | R1$;B$(OP):OP.O|
00000730: 50 AA 31 3A 89 20 31 30 31 32 30 00 7B 23 C4 27 |P.1:. 10120.{#.'|
00000740: 8B 20 41 24 B2 43 52 24 20 AF 20 4F 50 B2 36 20 |. A$.CR$ . OP.6 |
00000750: A7 20 E0 2C 4F 50 AC 31 34 AB 31 34 2C 30 2C 22 |. .,OP.14.14,0,"|
00000760: 22 3A 99 20 52 31 24 3B 42 24 28 4F 50 29 3A 4F |":. R1$;B$(OP):O|
00000770: 50 B2 31 3A 89 20 31 30 31 32 30 00 C7 23 CE 27 |P.1:. 10120..#.'|
00000780: 8B 20 41 24 B2 43 4C 24 20 AF 20 4F 50 B1 31 20 |. A$.CL$ . OP.1 |
00000790: AF 20 4F 50 B3 37 20 A7 20 E0 2C 28 4F 50 AC 31 |. OP.7 . .,(OP.1|
000007A0: 34 29 AB 31 34 2C 30 2C 22 22 3A 99 20 52 31 24 |4).14,0,"":. R1$|
000007B0: 3B 42 24 28 4F 50 29 3A 4F 50 B2 4F 50 AB 31 3A |;B$(OP):OP.OP.1:|
000007C0: 89 20 31 30 31 32 30 00 07 24 D8 27 8B 20 41 24 |. 10120..$.'. A$|
000007D0: B2 43 4C 24 20 AF 20 4F 50 B2 31 20 A7 20 E0 2C |.CL$ . OP.1 . .,|
000007E0: 4F 50 AC 31 34 AB 31 34 2C 30 2C 22 22 3A 99 20 |OP.14.14,0,"":. |
000007F0: 52 31 24 3B 42 24 28 4F 50 29 3A 4F 50 B2 36 3A |R1$;B$(OP):OP.6:|
00000800: 89 20 31 30 31 32 30 00 13 24 E2 27 89 20 31 30 |. 10120..$.'. 10|
00000810: 31 33 30 00 2D 24 EC 27 8F 20 44 52 41 57 20 4D |130.-$.'. DRAW M|
00000820: 45 4E 55 20 4F 4E 20 53 43 52 45 45 4E 00 46 24 |ENU ON SCREEN.F$|
00000830: F6 27 8B 20 4F 50 20 B1 33 20 A7 20 50 B2 34 30 |.'. OP .3 . P.40|
00000840: 3A D5 20 50 B2 30 00 68 24 00 28 E0 2C 50 2C 32 |:. P.0.h$.(.,P,2|
00000850: 2C 41 31 24 3A E0 2C 50 2C 33 2C 41 32 24 3A E0 |,A1$:.,P,3,A2$:.|
00000860: 2C 50 2C 34 2C 41 33 24 00 91 24 0A 28 81 20 58 |,P,4,A3$..$.(. X|
00000870: B2 31 20 A4 20 C5 28 4F 50 24 28 4F 50 2C 30 29 |.1 . .(OP$(OP,0)|
00000880: 29 AA 31 3A E0 2C 50 2C 34 AA 58 2C 41 34 24 3A |).1:.,P,4.X,A4$:|
00000890: 82 00 D7 24 14 28 E0 2C 50 2C 34 AA 58 2C 41 35 |...$.(.,P,4.X,A5|
000008A0: 24 3A E0 2C 50 AA 32 2C 33 2C 41 24 28 4F 50 29 |$:.,P.2,3,A$(OP)|
000008B0: AA 22 20 4D 45 4E 55 22 3A E0 2C 50 AA 31 39 2C |." MENU":.,P.19,|
000008C0: 33 2C 22 45 53 43 41 50 45 20 54 4F 20 45 58 49 |3,"ESCAPE TO EXI|
000008D0: 54 20 4D 45 4E 55 22 00 09 25 1E 28 81 20 58 B2 |T MENU"..%.(. X.|
000008E0: 31 20 A4 20 C5 28 4F 50 24 28 4F 50 2C 30 29 29 |1 . .(OP$(OP,0))|
000008F0: 3A E0 2C 50 AA 31 2C 58 AA 35 2C 22 22 3A 99 20 |:.,P.1,X.5,"":. |
00000900: 58 3B 43 4C 24 3B 22 2E 22 00 28 25 28 28 E0 2C |X;CL$;".".(%((.,|
00000910: 50 AA 38 2C 58 AA 35 2C 22 22 3A 99 20 4F 50 24 |P.8,X.5,"":. OP$|
00000920: 28 4F 50 2C 58 29 3A 82 00 5C 25 32 28 A1 F9 20 |(OP,X):..\%2(.. |
00000930: 41 24 3A 8B 20 41 24 B2 C7 28 32 37 29 20 A7 20 |A$:. A$..(27) . |
00000940: E0 2C 30 2C 31 2C 22 22 3A 99 20 C7 28 32 37 29 |.,0,1,"":. .(27)|
00000950: AA 22 40 22 3A 89 20 31 30 31 31 30 00 88 25 3C |."@":. 10110..%<|
00000960: 28 8B 20 C5 28 41 24 29 20 B3 31 20 B0 20 C5 28 |(. .(A$) .1 . .(|
00000970: 41 24 29 B1 C5 28 4F 50 24 28 4F 50 2C 30 29 29 |A$)..(OP$(OP,0))|
00000980: 20 A7 20 31 30 32 39 30 00 B5 25 46 28 4F 50 25 | . 10290..%F(OP%|
00000990: B2 C5 28 41 24 29 3A E0 2C 28 4F 50 AC 31 34 29 |..(A$):.,(OP.14)|
000009A0: AB 31 34 2C 30 2C 22 22 3A 99 20 52 31 24 3B 42 |.14,0,"":. R1$;B|
000009B0: 24 28 4F 50 29 00 DC 25 50 28 E0 2C 30 2C 31 2C |$(OP)..%P(.,0,1,|
000009C0: 22 22 3A 99 20 C7 28 32 37 29 AA 22 40 22 3A 99 |"":. .(27)."@":.|
000009D0: 20 C7 28 32 37 29 AA 22 4C 22 3A 8E 00 00 00 FF | .(27)."L":.....|
000009E0: 00 FF 03 1C 00 FF 00 FF 00 FF 4C 28 7D 00 00 FF |..........L(}...|
000009F0: 00 FF 00 FF 10 FF FF FF FF FF FF 20 01 04 00 FF |........... ....|
00000A00: 00 00 41 41 41 FF 00 FF 00 FF 00 FF 00 FF 00 FF |..AAA...........|
00000A10: 00 09 C0 00 05 94 09 09 09 89 09 00 C0 F0 50 40 |..............P@|
00000A20: 21 00 90 41 00 41 21 11 81 11 21 41 41 41 11 FF |!..A.A!...!AAA..|
00000A30: 00 FF 00 FF 00 FF 00 FF 00 06 00 00 00 00 00 02 |................|
00000A40: 08 02 00 FF 00 FF 0F 0F 00 00 00 FF 00 FF 00 FF |................|
00000A50: 00 00 00 FF 00 FF 00 FF FF FF 00 FF 00 FF 00 FF |................|
00000A60: 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF |................|
00000A70: 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF |................|
00000A80: 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF |................|
00000A90: 00 FF 00 FF 00 FF 00 FF 00 FF |.......... |
..K.... * * * DEMO PROGRAM FOR USE W
ITH PULL DOWN MENU ROUTINE * * *.\...
.".": . GREY.B.(.:.T.2..%:. OP$(6,9)...<
.A$(1)."DISPLAY" : OP$(1,0)."2".W.F.OP$(
1,1)."DISPLAY OPTION ONE":OP$(1,2)."DISP
LAY OPTION TWO"...P.A$(2)."EDIT" : OP
$(2,0)."3".I.Z.OP$(2,1)."EDIT OPTION 1":
OP$(2,2)."EDIT OPTION 2":OP$(2,3)."EDIT
OPTION 3".L.D.A$(3)."PRINT" : OP$(3,0)
."4"...N.A$(4)."SAVE" : OP$(4,0)."5".
..X.A$(5)."DISK" : OP$(5,0)."6".U...A
$(6)."QUIT" : OP$(6,0)."9".....:.....
.,0,1,"":. G(27)."@" : . CLEAR REST OF
SCREEN. NOT MENU BAR.\. .. 10030
: . CALL PULL DOWN MENU ROU
TINE.B...:......:. "MENU SELECTED :";O
P : . REPLACE WITH CODE TO PROCESS.....
.:. "OPTION SELECTED :";OP% : . MENU OPT
ION SELECTED...H.:...R.. !
!.H.... !
!
.{.... ! ... PROCESS MENU OPTION HER
E ... !...... !
!...... !
!.......
...':.. .'. * * * PULL DOWN MENU ROU
TINE * * *.# $':.T .'OP.1:CR$.".":CL$
.".":HO$.".":R1$.".":R2$.".".. 8'A1$."O.
.....................................P "
:S2$." ".X B'A2$.".
. ":S1$." "
..!L'A3$."L.............................
.......... ":. G(27)."M".L!V'A4$.".
. "..!`
'A5$."L.................................
...... "..!J'. X.1 . 6:B$(X)." ".A$(X).H
(S1$,9.C(A$(X))):..P!T'B$(6).H(B$(6),C(B
$(6)).1).."~'. HO$;R1$;B$(1);S2$;B$(2);S
2$;B$(3);S2$;B$(4);S2$;B$(5);S2$;B$(6).9
".'.,(OP.14).14,0,"":. R2$;B$(OP).S".'..
A$:. A$.CR$ . A$.CL$ . A$.G(13) . A$.G(
27) . 10150.".'. 10130..".'. A$.G(13) .
10230:U . A$.G(27) . 10160:U 10170..".'
.,(OP.14).14,0,"":. R1$;B$(OP):OP.0:OP%.
0:. G(27)."L":..;#.'. A$.CR$ . OP.0 . OP
.6 . .,(OP.14).14,0,"":. R1$;B$(OP):OP.O
P.1:. 10120.{#D'. A$.CR$ . OP.6 . .,OP.1
4.14,0,"":. R1$;B$(OP):OP.1:. 10120.G#N'
. A$.CL$ . OP.1 . OP.7 . .,(OP.14).14,0,
"":. R1$;B$(OP):OP.OP.1:. 10120..$X'. A$
.CL$ . OP.1 . .,OP.14.14,0,"":. R1$;B$(O
P):OP.6:. 10120..$.'. 10130.-$.'. DRAW M
ENU ON SCREEN.F$.'. OP .3 . P.40:U P.0.H
$.(.,P,2,A1$:.,P,3,A2$:.,P,4,A3$..$.(. X
.1 . E(OP$(OP,0)).1:.,P,4.X,A4$:..W$.(.,
P,4.X,A5$:.,P.2,3,A$(OP)." MENU":.,P.19,
3,"ESCAPE TO EXIT MENU"..%.(. X.1 . E(OP
$(OP,0)):.,P.1,X.5,"":. X;CL$;".".(%((.,
P.8,X.5,"":. OP$(OP,X):..\%2(.. A$:. A$.
G(27) . .,0,1,"":. G(27)."@":. 10110..%<
(. E(A$) .1 . E(A$).E(OP$(OP,0)) . 10290
..%F(OP%.E(A$):.,(OP.14).14,0,"":. R1$;B
$(OP)..%P(.,0,1,"":. G(27)."@":. G(27)."
L":...............L(}.............. ....
..AAA.........................P@!..A.A!.
..!AAA..................................
........................................
..................................
> CLICK IMAGE PREVIEW FOR FULL MODAL