C128 WINDOWS
FILE INFORMATION
FILENAME(S): C128 WINDOWS
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-12-01 01:08:03
APPEARS ON: 1 disk(s)
FILE HASH
eb2e83bdec176f8cc9dffd788cde36e38e8209a87c79bf0f550a8615fb0e5796
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0107B | C128 WINDOWS | PRG | hedning, Kaevlinge | 19 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 5B 4B 5B 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 51 5B 14 00 |NE * * *.Q[..| 00000050: 3A 00 89 5B 1E 00 8F 20 20 20 20 20 20 20 20 20 |:..[... | 00000060: 20 20 20 20 20 20 20 20 20 20 20 28 43 29 20 4B | (C) K| 00000070: 45 56 49 4E 20 42 4C 49 47 48 54 20 44 45 43 45 |EVIN BLIGHT DECE| 00000080: 4D 42 45 52 20 31 39 38 37 00 8F 5B 28 00 3A 00 |MBER 1987..[(.:.| 00000090: A1 5B 32 00 FE 25 3A 86 20 4F 50 24 28 36 2C 39 |.[2..%:. OP$(6,9| 000000A0: 29 00 C4 5B 3C 00 41 24 28 31 29 B2 22 44 49 53 |)..[<.A$(1)."DIS| 000000B0: 50 4C 41 59 22 20 3A 20 4F 50 24 28 31 2C 30 29 |PLAY" : OP$(1,0)| 000000C0: B2 22 32 22 00 04 5C 46 00 4F 50 24 28 31 2C 31 |."2"..\F.OP$(1,1| 000000D0: 29 B2 22 44 49 53 50 4C 41 59 20 4F 50 54 49 4F |)."DISPLAY OPTIO| 000000E0: 4E 20 4F 4E 45 22 3A 4F 50 24 28 31 2C 32 29 B2 |N ONE":OP$(1,2).| 000000F0: 22 44 49 53 50 4C 41 59 20 4F 50 54 49 4F 4E 20 |"DISPLAY OPTION | 00000100: 54 57 4F 22 00 27 5C 50 00 41 24 28 32 29 B2 22 |TWO".'\P.A$(2)."| 00000110: 45 44 49 54 22 20 20 20 20 3A 20 4F 50 24 28 32 |EDIT" : OP$(2| 00000120: 2C 30 29 B2 22 33 22 00 76 5C 5A 00 4F 50 24 28 |,0)."3".v\Z.OP$(| 00000130: 32 2C 31 29 B2 22 45 44 49 54 20 4F 50 54 49 4F |2,1)."EDIT OPTIO| 00000140: 4E 20 31 22 3A 4F 50 24 28 32 2C 32 29 B2 22 45 |N 1":OP$(2,2)."E| 00000150: 44 49 54 20 4F 50 54 49 4F 4E 20 32 22 3A 4F 50 |DIT OPTION 2":OP| 00000160: 24 28 32 2C 33 29 B2 22 45 44 49 54 20 4F 50 54 |$(2,3)."EDIT OPT| 00000170: 49 4F 4E 20 33 22 00 99 5C 64 00 41 24 28 33 29 |ION 3"..\d.A$(3)| 00000180: B2 22 50 52 49 4E 54 22 20 20 20 3A 20 4F 50 24 |."PRINT" : OP$| 00000190: 28 33 2C 30 29 B2 22 34 22 00 BC 5C 6E 00 41 24 |(3,0)."4"..\n.A$| 000001A0: 28 34 29 B2 22 53 41 56 45 22 20 20 20 20 3A 20 |(4)."SAVE" : | 000001B0: 4F 50 24 28 34 2C 30 29 B2 22 35 22 00 DF 5C 78 |OP$(4,0)."5"..\x| 000001C0: 00 41 24 28 35 29 B2 22 44 49 53 4B 22 20 20 20 |.A$(5)."DISK" | 000001D0: 20 3A 20 4F 50 24 28 35 2C 30 29 B2 22 36 22 00 | : OP$(5,0)."6".| 000001E0: 02 5D 82 00 41 24 28 36 29 B2 22 51 55 49 54 22 |.]..A$(6)."QUIT"| 000001F0: 20 20 20 20 3A 20 4F 50 24 28 36 2C 30 29 B2 22 | : OP$(6,0)."| 00000200: 39 22 00 08 5D 8C 00 3A 00 49 5D 96 00 E0 2C 30 |9"..]..:.I]...,0| 00000210: 2C 31 2C 22 22 3A 99 20 C7 28 32 37 29 AA 22 40 |,1,"":. .(27)."@| 00000220: 22 20 20 3A 20 8F 20 43 4C 45 41 52 20 52 45 53 |" : . CLEAR RES| 00000230: 54 20 4F 46 20 53 43 52 45 45 4E 2E 20 4E 4F 54 |T OF SCREEN. NOT| 00000240: 20 4D 45 4E 55 20 42 41 52 00 89 5D A0 00 8D 20 | MENU BAR..]... | 00000250: 31 30 30 33 30 20 20 20 20 20 20 20 20 20 20 20 |10030 | 00000260: 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 43 41 | : . CA| 00000270: 4C 4C 20 50 55 4C 4C 20 44 4F 57 4E 20 4D 45 4E |LL PULL DOWN MEN| 00000280: 55 20 52 4F 55 54 49 4E 45 00 8F 5D AA 00 3A 00 |U ROUTINE..]..:.| 00000290: D0 5D B4 00 99 3A 99 20 22 4D 45 4E 55 20 53 45 |.]...:. "MENU SE| 000002A0: 4C 45 43 54 45 44 20 20 20 3A 22 3B 4F 50 20 20 |LECTED :";OP | 000002B0: 3A 20 8F 20 52 45 50 4C 41 43 45 20 57 49 54 48 |: . REPLACE WITH| 000002C0: 20 43 4F 44 45 20 54 4F 20 50 52 4F 43 45 53 53 | CODE TO PROCESS| 000002D0: 00 09 5E BE 00 99 3A 99 20 22 4F 50 54 49 4F 4E |..^...:. "OPTION| 000002E0: 20 53 45 4C 45 43 54 45 44 20 3A 22 3B 4F 50 25 | SELECTED :";OP%| 000002F0: 20 3A 20 8F 20 4D 45 4E 55 20 4F 50 54 49 4F 4E | : . MENU OPTION| 00000300: 20 53 45 4C 45 43 54 45 44 00 0F 5E C8 00 3A 00 | SELECTED..^..:.| 00000310: 42 5E D2 00 8F 20 20 21 20 20 20 20 20 20 20 20 |B^... ! | 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 21 00 75 5E DC 00 8F 20 20 21 20 20 20 20 20 | !.u^... ! | 00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000370: 20 20 20 20 21 00 A8 5E E6 00 8F 20 20 21 20 20 | !..^... ! | 00000380: 20 20 2E 2E 2E 20 50 52 4F 43 45 53 53 20 4D 45 | ... PROCESS ME| 00000390: 4E 55 20 4F 50 54 49 4F 4E 20 48 45 52 45 20 2E |NU OPTION HERE .| 000003A0: 2E 2E 20 20 20 20 20 21 00 DB 5E F0 00 8F 20 20 |.. !..^... | 000003B0: 21 20 20 20 20 20 20 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 21 00 0E 5F FA 00 | !.._..| 000003E0: 8F 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 |. ! | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 00 14 | !..| 00000410: 5F 04 01 80 00 1A 5F 10 27 3A 00 4A 5F 1A 27 8F |_....._.':.J_.'.| 00000420: 20 20 2A 20 20 2A 20 20 2A 20 20 50 55 4C 4C 20 | * * * PULL | 00000430: 44 4F 57 4E 20 4D 45 4E 55 20 52 4F 55 54 49 4E |DOWN MENU ROUTIN| 00000440: 45 20 20 2A 20 20 2A 20 20 2A 00 50 5F 24 27 3A |E * * *.P_$':| 00000450: 00 81 5F 2E 27 4F 50 B2 31 3A 43 52 24 B2 22 1D |.._.'OP.1:CR$.".| 00000460: 22 3A 43 4C 24 B2 22 9D 22 3A 48 4F 24 B2 22 13 |":CL$.".":HO$.".| 00000470: 22 3A 52 31 24 B2 22 12 22 3A 52 32 24 B2 22 92 |":R1$.".":R2$.".| 00000480: 22 00 C0 5F 38 27 41 31 24 B2 22 CF B7 B7 B7 B7 |".._8'A1$.".....| 00000490: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 000004A0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 000004B0: B7 B7 D0 20 22 3A 53 32 24 B2 22 20 20 20 20 22 |... ":S2$." "| 000004C0: 00 05 60 42 27 41 32 24 B2 22 A5 20 20 20 20 20 |..`B'A2$.". | 000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004F0: 20 A7 20 22 3A 53 31 24 B2 22 20 20 20 20 20 20 | . ":S1$." | 00000500: 20 20 20 20 22 00 45 60 4C 27 41 33 24 B2 22 CC | ".E`L'A3$.".| 00000510: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00000520: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00000530: AF AF AF AF AF AF BA 20 22 3A 99 20 C7 28 32 37 |....... ":. .(27| 00000540: 29 AA 22 4D 22 00 79 60 56 27 41 34 24 B2 22 A5 |)."M".y`V'A4$.".| 00000550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000570: 20 20 20 20 20 20 A7 20 22 00 AD 60 60 27 41 35 | . "..``'A5| 00000580: 24 B2 22 CC AF AF AF AF AF AF AF AF AF AF AF AF |$.".............| 00000590: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 000005A0: AF AF AF AF AF AF AF AF AF AF BA 20 22 00 DF 60 |........... "..`| 000005B0: 6A 27 81 20 58 B2 31 20 A4 20 36 3A 42 24 28 58 |j'. X.1 . 6:B$(X| 000005C0: 29 B2 22 20 22 AA 41 24 28 58 29 AA C8 28 53 31 |)." ".A$(X)..(S1| 000005D0: 24 2C 39 AB C3 28 41 24 28 58 29 29 29 3A 82 00 |$,9..(A$(X))):..| 000005E0: FD 60 74 27 42 24 28 36 29 B2 C8 28 42 24 28 36 |.`t'B$(6)..(B$(6| 000005F0: 29 2C C3 28 42 24 28 36 29 29 AB 31 29 00 43 61 |),.(B$(6)).1).Ca| 00000600: 7E 27 99 20 48 4F 24 3B 52 31 24 3B 42 24 28 31 |~'. HO$;R1$;B$(1| 00000610: 29 3B 53 32 24 3B 42 24 28 32 29 3B 53 32 24 3B |);S2$;B$(2);S2$;| 00000620: 42 24 28 33 29 3B 53 32 24 3B 42 24 28 34 29 3B |B$(3);S2$;B$(4);| 00000630: 53 32 24 3B 42 24 28 35 29 3B 53 32 24 3B 42 24 |S2$;B$(5);S2$;B$| 00000640: 28 36 29 00 66 61 88 27 E0 2C 28 4F 50 AC 31 34 |(6).fa.'.,(OP.14| 00000650: 29 AB 31 34 2C 30 2C 22 22 3A 99 20 52 32 24 3B |).14,0,"":. R2$;| 00000660: 42 24 28 4F 50 29 00 A0 61 92 27 A1 F9 20 41 24 |B$(OP)..a.'.. A$| 00000670: 3A 8B 20 41 24 B2 43 52 24 20 B0 20 41 24 B2 43 |:. A$.CR$ . A$.C| 00000680: 4C 24 20 B0 20 41 24 B2 C7 28 31 33 29 20 B0 20 |L$ . A$..(13) . | 00000690: 41 24 B2 C7 28 32 37 29 20 A7 20 31 30 31 35 30 |A$..(27) . 10150| 000006A0: 00 AC 61 9C 27 89 20 31 30 31 33 30 00 E0 61 A6 |..a.'. 10130..a.| 000006B0: 27 8B 20 41 24 B2 C7 28 31 33 29 20 A7 20 31 30 |'. A$..(13) . 10| 000006C0: 32 33 30 3A D5 20 8B 20 41 24 B2 C7 28 32 37 29 |230:. . A$..(27)| 000006D0: 20 A7 20 31 30 31 36 30 3A D5 20 31 30 31 37 30 | . 10160:. 10170| 000006E0: 00 1C 62 B0 27 E0 2C 28 4F 50 AC 31 34 29 AB 31 |..b.'.,(OP.14).1| 000006F0: 34 2C 30 2C 22 22 3A 99 20 52 31 24 3B 42 24 28 |4,0,"":. R1$;B$(| 00000700: 4F 50 29 3A 4F 50 B2 30 3A 4F 50 25 B2 30 3A 99 |OP):OP.0:OP%.0:.| 00000710: 20 C7 28 32 37 29 AA 22 4C 22 3A 8E 00 68 62 BA | .(27)."L":..hb.| 00000720: 27 8B 20 41 24 B2 43 52 24 20 AF 20 4F 50 B1 30 |'. A$.CR$ . OP.0| 00000730: 20 AF 20 4F 50 B3 36 20 A7 20 E0 2C 28 4F 50 AC | . OP.6 . .,(OP.| 00000740: 31 34 29 AB 31 34 2C 30 2C 22 22 3A 99 20 52 31 |14).14,0,"":. R1| 00000750: 24 3B 42 24 28 4F 50 29 3A 4F 50 B2 4F 50 AA 31 |$;B$(OP):OP.OP.1| 00000760: 3A 89 20 31 30 31 32 30 00 A8 62 C4 27 8B 20 41 |:. 10120..b.'. A| 00000770: 24 B2 43 52 24 20 AF 20 4F 50 B2 36 20 A7 20 E0 |$.CR$ . OP.6 . .| 00000780: 2C 4F 50 AC 31 34 AB 31 34 2C 30 2C 22 22 3A 99 |,OP.14.14,0,"":.| 00000790: 20 52 31 24 3B 42 24 28 4F 50 29 3A 4F 50 B2 31 | R1$;B$(OP):OP.1| 000007A0: 3A 89 20 31 30 31 32 30 00 F4 62 CE 27 8B 20 41 |:. 10120..b.'. A| 000007B0: 24 B2 43 4C 24 20 AF 20 4F 50 B1 31 20 AF 20 4F |$.CL$ . OP.1 . O| 000007C0: 50 B3 37 20 A7 20 E0 2C 28 4F 50 AC 31 34 29 AB |P.7 . .,(OP.14).| 000007D0: 31 34 2C 30 2C 22 22 3A 99 20 52 31 24 3B 42 24 |14,0,"":. R1$;B$| 000007E0: 28 4F 50 29 3A 4F 50 B2 4F 50 AB 31 3A 89 20 31 |(OP):OP.OP.1:. 1| 000007F0: 30 31 32 30 00 34 63 D8 27 8B 20 41 24 B2 43 4C |0120.4c.'. A$.CL| 00000800: 24 20 AF 20 4F 50 B2 31 20 A7 20 E0 2C 4F 50 AC |$ . OP.1 . .,OP.| 00000810: 31 34 AB 31 34 2C 30 2C 22 22 3A 99 20 52 31 24 |14.14,0,"":. R1$| 00000820: 3B 42 24 28 4F 50 29 3A 4F 50 B2 36 3A 89 20 31 |;B$(OP):OP.6:. 1| 00000830: 30 31 32 30 00 40 63 E2 27 89 20 31 30 31 33 30 |0120.@c.'. 10130| 00000840: 00 5A 63 EC 27 8F 20 44 52 41 57 20 4D 45 4E 55 |.Zc.'. DRAW MENU| 00000850: 20 4F 4E 20 53 43 52 45 45 4E 00 73 63 F6 27 8B | ON SCREEN.sc.'.| 00000860: 20 4F 50 20 B1 33 20 A7 20 50 B2 34 30 3A D5 20 | OP .3 . P.40:. | 00000870: 50 B2 30 00 95 63 00 28 E0 2C 50 2C 32 2C 41 31 |P.0..c.(.,P,2,A1| 00000880: 24 3A E0 2C 50 2C 33 2C 41 32 24 3A E0 2C 50 2C |$:.,P,3,A2$:.,P,| 00000890: 34 2C 41 33 24 00 BE 63 0A 28 81 20 58 B2 31 20 |4,A3$..c.(. X.1 | 000008A0: A4 20 C5 28 4F 50 24 28 4F 50 2C 30 29 29 AA 31 |. .(OP$(OP,0)).1| 000008B0: 3A E0 2C 50 2C 34 AA 58 2C 41 34 24 3A 82 00 04 |:.,P,4.X,A4$:...| 000008C0: 64 14 28 E0 2C 50 2C 34 AA 58 2C 41 35 24 3A E0 |d.(.,P,4.X,A5$:.| 000008D0: 2C 50 AA 32 2C 33 2C 41 24 28 4F 50 29 AA 22 20 |,P.2,3,A$(OP)." | 000008E0: 4D 45 4E 55 22 3A E0 2C 50 AA 31 39 2C 33 2C 22 |MENU":.,P.19,3,"| 000008F0: 45 53 43 41 50 45 20 54 4F 20 45 58 49 54 20 4D |ESCAPE TO EXIT M| 00000900: 45 4E 55 22 00 36 64 1E 28 81 20 58 B2 31 20 A4 |ENU".6d.(. X.1 .| 00000910: 20 C5 28 4F 50 24 28 4F 50 2C 30 29 29 3A E0 2C | .(OP$(OP,0)):.,| 00000920: 50 AA 31 2C 58 AA 35 2C 22 22 3A 99 20 58 3B 43 |P.1,X.5,"":. X;C| 00000930: 4C 24 3B 22 2E 22 00 55 64 28 28 E0 2C 50 AA 38 |L$;".".Ud((.,P.8| 00000940: 2C 58 AA 35 2C 22 22 3A 99 20 4F 50 24 28 4F 50 |,X.5,"":. OP$(OP| 00000950: 2C 58 29 3A 82 00 89 64 32 28 A1 F9 20 41 24 3A |,X):...d2(.. A$:| 00000960: 8B 20 41 24 B2 C7 28 32 37 29 20 A7 20 E0 2C 30 |. A$..(27) . .,0| 00000970: 2C 31 2C 22 22 3A 99 20 C7 28 32 37 29 AA 22 40 |,1,"":. .(27)."@| 00000980: 22 3A 89 20 31 30 31 31 30 00 B5 64 3C 28 8B 20 |":. 10110..d<(. | 00000990: C5 28 41 24 29 20 B3 31 20 B0 20 C5 28 41 24 29 |.(A$) .1 . .(A$)| 000009A0: B1 C5 28 4F 50 24 28 4F 50 2C 30 29 29 20 A7 20 |..(OP$(OP,0)) . | 000009B0: 31 30 32 39 30 00 E2 64 46 28 4F 50 25 B2 C5 28 |10290..dF(OP%..(| 000009C0: 41 24 29 3A E0 2C 28 4F 50 AC 31 34 29 AB 31 34 |A$):.,(OP.14).14| 000009D0: 2C 30 2C 22 22 3A 99 20 52 31 24 3B 42 24 28 4F |,0,"":. R1$;B$(O| 000009E0: 50 29 00 09 65 50 28 E0 2C 30 2C 31 2C 22 22 3A |P)..eP(.,0,1,"":| 000009F0: 99 20 C7 28 32 37 29 AA 22 40 22 3A 99 20 C7 28 |. .(27)."@":. .(| 00000A00: 32 37 29 AA 22 4C 22 3A 8E 00 00 00 |27)."L":.... |
.[K[... * * * DEMO PROGRAM FOR USE W
ITH PULL DOWN MENU ROUTINE * * *.Q[..
:..[... (C) KEVIN BLI
GHT DECEMBER 1987..[(.:..[2..%:. OP$(6,9
).D[<.A$(1)."DISPLAY" : OP$(1,0)."2"..\F
.OP$(1,1)."DISPLAY OPTION ONE":OP$(1,2).
"DISPLAY OPTION TWO".'\P.A$(2)."EDIT"
: OP$(2,0)."3".V\Z.OP$(2,1)."EDIT OPTIO
N 1":OP$(2,2)."EDIT OPTION 2":OP$(2,3)."
EDIT OPTION 3"..\D.A$(3)."PRINT" : OP$
(3,0)."4"..\N.A$(4)."SAVE" : OP$(4,0)
."5"..\X.A$(5)."DISK" : OP$(5,0)."6".
.]..A$(6)."QUIT" : OP$(6,0)."9"..]..:
.I]...,0,1,"":. G(27)."@" : . CLEAR RES
T OF SCREEN. NOT MENU BAR..] .. 10030
: . CALL PULL DOWN MEN
U ROUTINE..]..:.P]...:. "MENU SELECTED
:";OP : . REPLACE WITH CODE TO PROCESS
..^...:. "OPTION SELECTED :";OP% : . MEN
U OPTION SELECTED..^H.:.B^R.. !
!.U^...
!
!..^... ! ... PROCESS MENU OPTIO
N HERE ... !..^... !
!.._... !
!..
_....._.':.J_.'. * * * PULL DOWN MEN
U ROUTINE * * *.P_$':.._.'OP.1:CR$.".
":CL$.".":HO$.".":R1$.".":R2$.".".._8'A1
$."O....................................
..P ":S2$." "..`B'A2$.".
. ":S1$."
".E`L'A3$."L........................
............... ":. G(27)."M".Y`V'A4$.".
.
"..``'A5$."L............................
........... "..`J'. X.1 . 6:B$(X)." ".A$
(X).H(S1$,9.C(A$(X))):...`T'B$(6).H(B$(6
),C(B$(6)).1).CA~'. HO$;R1$;B$(1);S2$;B$
(2);S2$;B$(3);S2$;B$(4);S2$;B$(5);S2$;B$
(6).FA.'.,(OP.14).14,0,"":. R2$;B$(OP).
A.'.. A$:. A$.CR$ . A$.CL$ . A$.G(13) .
A$.G(27) . 10150..A.'. 10130..A.'. A$.G(
13) . 10230:U . A$.G(27) . 10160:U 10170
..B.'.,(OP.14).14,0,"":. R1$;B$(OP):OP.0
:OP%.0:. G(27)."L":..HB.'. A$.CR$ . OP.0
. OP.6 . .,(OP.14).14,0,"":. R1$;B$(OP)
:OP.OP.1:. 10120..BD'. A$.CR$ . OP.6 . .
,OP.14.14,0,"":. R1$;B$(OP):OP.1:. 10120
..BN'. A$.CL$ . OP.1 . OP.7 . .,(OP.14).
14,0,"":. R1$;B$(OP):OP.OP.1:. 10120.4CX
'. A$.CL$ . OP.1 . .,OP.14.14,0,"":. R1$
;B$(OP):OP.6:. 10120.@C.'. 10130.ZC.'. D
RAW MENU ON SCREEN.SC.'. OP .3 . P.40:U
P.0..C.(.,P,2,A1$:.,P,3,A2$:.,P,4,A3$..C
.(. X.1 . E(OP$(OP,0)).1:.,P,4.X,A4$:...
D.(.,P,4.X,A5$:.,P.2,3,A$(OP)." MENU":.,
P.19,3,"ESCAPE TO EXIT MENU".6D.(. X.1 .
E(OP$(OP,0)):.,P.1,X.5,"":. X;CL$;".".U
D((.,P.8,X.5,"":. OP$(OP,X):...D2(.. A$:
. A$.G(27) . .,0,1,"":. G(27)."@":. 1011
0..D<(. E(A$) .1 . E(A$).E(OP$(OP,0)) .
10290..DF(OP%.E(A$):.,(OP.14).14,0,"":.
R1$;B$(OP)..EP(.,0,1,"":. G(27)."@":. G(
27)."L":....
> CLICK IMAGE PREVIEW FOR FULL MODAL