C.B.O.S. DEMO
FILE INFORMATION
FILENAME(S): C.B.O.S. DEMO
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-10-20 00:34:40
APPEARS ON: 2 disk(s)
FILE HASH
c7c291ea5c0d73d5deb69d2b8e7e0a896d8c0b4103fb90ea0d887e5b2efc3869
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MAGIC DISK 04 90 | C.B.O.S. DEMO | PRG | Robin Albicker, Treasure Chest - Klaus Der Suhler | 9 | 5 | DOWNLOAD FILE |
| INTROMAKERS | C.B.O.S. DEMO | PRG | DuncanTwain | 20 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 18 40 01 00 8F 20 44 45 4D 4F 20 4F 46 20 |.@.@... DEMO OF | 00000010: 43 2E 42 2E 4F 2E 53 2E 00 2F 40 02 00 8F 20 3D |C.B.O.S../@... =| 00000020: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.| 00000030: 4B 40 03 00 8F 20 28 43 29 A0 4D 41 52 4B 55 53 |K@... (C).MARKUS| 00000040: 20 48 49 4C 4C 45 42 52 41 4E 44 00 51 40 04 00 | HILLEBRAND.Q@..| 00000050: 3A 00 57 40 05 00 3A 00 5D 40 06 00 3A 00 7C 40 |:.W@..:.]@..:.|@| 00000060: 0A 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============| 00000070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 9B 40 14 |============..@.| 00000080: 00 8F 20 3D 20 20 4D 45 4E 55 45 2D 50 52 4F 47 |.. = MENUE-PROG| 00000090: 52 41 4D 4D 49 4E 47 20 20 20 3D 00 BA 40 1E 00 |RAMMING =..@..| 000000A0: 8F 20 3D 20 20 57 49 54 48 20 43 4F 4C 4F 52 2D |. = WITH COLOR-| 000000B0: 42 41 53 49 43 21 20 20 20 3D 00 D9 40 28 00 8F |BASIC! =..@(..| 000000C0: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ===============| 000000D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 F7 40 32 00 8F 20 |=========..@2.. | 000000E0: 43 2E 42 2E 4F 2E 53 2E 20 2D 20 53 55 42 52 4F |C.B.O.S. - SUBRO| 000000F0: 55 54 49 4E 45 53 3A 00 1D 41 3C 00 8F 20 20 20 |UTINES:..A<.. | 00000100: 20 20 20 47 4F 53 55 42 20 31 30 30 30 30 20 5F | GOSUB 10000 _| 00000110: 20 4D 45 4E 55 45 52 4F 55 54 49 4E 45 00 42 41 | MENUEROUTINE.BA| 00000120: 46 00 8F 20 20 50 41 52 41 4D 45 54 45 52 53 3A |F.. PARAMETERS:| 00000130: 4D 24 28 31 29 3D 22 4D 45 4E 55 45 20 4E 52 20 |M$(1)="MENUE NR | 00000140: 31 22 00 64 41 5A 00 8F 20 20 20 20 20 20 20 20 |1".dAZ.. | 00000150: 20 20 20 20 3A 2E 20 20 20 20 20 20 20 20 20 20 | :. | 00000160: 20 20 20 2E 00 85 41 64 00 8F 20 20 20 20 20 20 | ...Ad.. | 00000170: 20 20 20 20 20 3A 2E 20 20 20 20 20 20 20 20 20 | :. | 00000180: 20 20 20 20 2E 00 AA 41 6E 00 8F 20 20 20 20 20 | ...An.. | 00000190: 20 20 20 20 20 20 3A 4D 24 28 4D 5A 29 3D 22 4D | :M$(MZ)="M| 000001A0: 45 4E 55 45 20 4E 52 20 58 22 00 C5 41 78 00 8F |ENUE NR X"..Ax..| 000001B0: 20 4D 5A 20 5F 20 48 4F 57 20 4D 41 4E 59 20 4D | MZ _ HOW MANY M| 000001C0: 45 4E 55 45 53 00 EA 41 82 00 8F 20 50 41 52 41 |ENUES..A... PARA| 000001D0: 4D 45 54 45 52 20 42 41 43 4B 3A 4D 20 3D 20 57 |METER BACK:M = W| 000001E0: 48 49 43 48 20 4D 45 4E 55 45 00 10 42 8C 00 8F |HICH MENUE..B...| 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000200: 20 20 20 20 57 41 53 20 53 45 4C 45 43 54 45 44 | WAS SELECTED| 00000210: 00 36 42 96 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |.6B... =========| 00000220: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000230: 3D 3D 3D 3D 3D 3D 00 5C 42 A0 00 8F 20 20 20 20 |======.\B... | 00000240: 47 4F 53 55 42 20 31 30 31 39 30 20 5F 20 49 4E |GOSUB 10190 _ IN| 00000250: 49 54 53 20 43 2E 42 2E 4F 2E 53 2E 00 82 42 AA |ITS C.B.O.S...B.| 00000260: 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. =============| 00000270: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000280: 3D 3D 00 A5 42 B4 00 8F 20 20 20 20 47 4F 53 55 |==..B... GOSU| 00000290: 42 20 31 30 32 34 30 20 5F 20 57 49 4E 44 4F 57 |B 10240 _ WINDOW| 000002A0: 20 4F 50 45 4E 00 C9 42 BE 00 8F 20 50 41 52 41 | OPEN..B... PARA| 000002B0: 4D 45 54 45 52 53 3A 58 31 2C 59 31 2C 58 32 2C |METERS:X1,Y1,X2,| 000002C0: 59 32 20 5F 20 53 49 5A 45 00 EF 42 C8 00 8F 20 |Y2 _ SIZE..B... | 000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002E0: 20 20 20 20 20 20 20 20 20 4F 46 20 54 48 45 00 | OF THE.| 000002F0: 15 43 D2 00 8F 20 20 20 20 20 20 20 20 20 20 20 |.C... | 00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 | W| 00000310: 49 4E 44 4F 57 00 3B 43 DC 00 8F 20 3D 3D 3D 3D |INDOW.;C... ====| 00000320: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000330: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 5F 43 E6 00 |===========._C..| 00000340: 8F 20 20 20 20 47 4F 53 55 42 20 31 30 33 35 30 |. GOSUB 10350| 00000350: 20 5F 20 57 49 4E 44 4F 57 20 43 4C 4F 53 45 00 | _ WINDOW CLOSE.| 00000360: 84 43 F0 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.C... ==========| 00000370: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000380: 3D 3D 3D 3D 00 8A 43 FA 00 3A 00 90 43 04 01 3A |====..C..:..C..:| 00000390: 00 96 43 0E 01 3A 00 B5 43 18 01 8F 20 20 20 20 |..C..:..C... | 000003A0: 20 4E 4F 57 20 41 20 45 58 41 4D 50 4C 45 2D 4D | NOW A EXAMPLE-M| 000003B0: 45 4E 55 45 21 00 BB 43 22 01 3A 00 E1 43 2C 01 |ENUE!..C".:..C,.| 000003C0: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============| 000003D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000003E0: 3D 00 F5 43 F4 01 8D 20 31 30 31 39 30 3A 20 8F |=..C... 10190: .| 000003F0: 20 49 4E 49 54 00 FB 43 F9 01 3A 00 22 44 FE 01 | INIT..C..:."D..| 00000400: 58 31 B2 30 3A 59 31 B2 30 3A 58 32 B2 33 38 3A |X1.0:Y1.0:X2.38:| 00000410: 59 32 B2 32 32 3A 8F 20 57 49 4E 44 4F 57 53 49 |Y2.22:. WINDOWSI| 00000420: 5A 45 00 41 44 03 02 97 20 36 34 36 2C 31 34 3A |ZE.AD... 646,14:| 00000430: 8F 20 43 4F 4C 4F 52 20 4F 46 20 42 4F 52 44 45 |. COLOR OF BORDE| 00000440: 52 00 5D 44 08 02 8D 20 31 30 32 34 30 3A 8F 20 |R.]D... 10240:. | 00000450: 20 4F 50 45 4E 20 57 49 4E 44 4F 57 21 00 63 44 | OPEN WINDOW!.cD| 00000460: 12 02 3A 00 78 44 1C 02 4D 5A B2 35 3A 8F 20 20 |..:.xD..MZ.5:. | 00000470: 35 20 4D 45 4E 55 45 53 00 9F 44 26 02 4D 24 28 |5 MENUES..D&.M$(| 00000480: 31 29 B2 22 1D 4D 45 4E 55 45 20 31 22 20 20 20 |1).".MENUE 1" | 00000490: 20 3A 8F 20 4D 45 4E 55 45 2D 54 45 58 54 31 00 | :. MENUE-TEXT1.| 000004A0: C6 44 30 02 4D 24 28 32 29 B2 22 1D 4D 45 4E 55 |.D0.M$(2).".MENU| 000004B0: 45 20 4E 52 2E 32 22 20 3A 8F 20 4D 45 4E 55 45 |E NR.2" :. MENUE| 000004C0: 2D 54 45 58 54 32 00 ED 44 3A 02 4D 24 28 33 29 |-TEXT2..D:.M$(3)| 000004D0: B2 22 1D 33 2E 4D 45 4E 55 45 22 20 20 20 20 3A |.".3.MENUE" :| 000004E0: 8F 20 4D 45 4E 55 45 2D 54 45 58 54 33 00 13 45 |. MENUE-TEXT3..E| 000004F0: 44 02 4D 24 28 34 29 B2 22 1D 46 4F 55 52 54 48 |D.M$(4).".FOURTH| 00000500: 20 4D 45 4E 55 45 20 34 22 3A 8F 20 4D 2D 54 45 | MENUE 4":. M-TE| 00000510: 58 54 34 00 3A 45 4E 02 4D 24 28 35 29 B2 22 1D |XT4.:EN.M$(5).".| 00000520: 4D 45 4E 55 45 20 35 22 20 20 20 20 3A 8F 20 4D |MENUE 5" :. M| 00000530: 45 4E 55 45 2D 54 45 58 54 35 00 57 45 58 02 8D |ENUE-TEXT5.WEX..| 00000540: 20 31 30 30 30 30 3A 8F 20 20 4D 45 4E 55 45 2D | 10000:. MENUE-| 00000550: 52 4F 55 54 49 4E 45 00 73 45 62 02 8D 20 31 30 |ROUTINE.sEb.. 10| 00000560: 33 35 30 3A 20 8F 20 57 49 4E 44 4F 57 20 43 4C |350: . WINDOW CL| 00000570: 4F 53 45 00 8F 45 6C 02 21 52 4F 55 54 49 4E 20 |OSE..El.!ROUTIN | 00000580: 30 20 20 3A 20 8F 20 49 52 51 20 20 4F 46 46 00 |0 : . IRQ OFF.| 00000590: AE 45 76 02 99 22 13 59 4F 55 20 53 45 4C 45 43 |.Ev..".YOU SELEC| 000005A0: 54 45 44 20 4D 45 4E 55 45 20 4E 52 22 4D 00 B4 |TED MENUE NR"M..| 000005B0: 45 80 02 80 00 D4 45 10 27 8F 20 3B 2D 2D 2D 2D |E.....E.'. ;----| 000005C0: 2D 2D 4D 45 4E 55 45 20 52 4F 55 54 49 4E 45 2D |--MENUE ROUTINE-| 000005D0: 2D 2D 2D 2D 00 E9 45 1A 27 99 22 13 05 22 3A 99 |----..E.'."..":.| 000005E0: 3A 4D B2 31 3A 4D 4F B2 31 00 06 46 24 27 21 42 |:M.1:MO.1..F$'!B| 000005F0: 41 52 45 4E 42 20 31 3A 21 42 41 52 53 45 54 20 |ARENB 1:!BARSET | 00000600: 30 2C 31 2C 31 37 00 1E 46 2E 27 21 42 41 52 4D |0,1,17..F.'!BARM| 00000610: 4F 56 20 30 3A 21 42 41 52 57 44 45 20 39 00 3F |OV 0:!BARWDE 9.?| 00000620: 46 38 27 21 42 41 52 43 4F 4C 20 30 2C 30 2C 36 |F8'!BARCOL 0,0,6| 00000630: 3A 21 42 41 52 43 4F 4C 20 30 2C 31 2C 31 31 00 |:!BARCOL 0,1,11.| 00000640: 61 46 42 27 21 42 41 52 43 4F 4C 20 30 2C 32 2C |aFB'!BARCOL 0,2,| 00000650: 31 34 3A 21 42 41 52 43 4F 4C 20 30 2C 33 2C 31 |14:!BARCOL 0,3,1| 00000660: 35 00 82 46 4C 27 21 42 41 52 43 4F 4C 20 30 2C |5..FL'!BARCOL 0,| 00000670: 34 2C 37 3A 21 42 41 52 43 4F 4C 20 30 2C 35 2C |4,7:!BARCOL 0,5,| 00000680: 31 35 00 B2 46 56 27 21 42 41 52 43 4F 4C 20 30 |15..FV'!BARCOL 0| 00000690: 2C 36 2C 31 34 3A 21 42 41 52 43 4F 4C 20 30 2C |,6,14:!BARCOL 0,| 000006A0: 37 2C 31 31 3A 21 42 41 52 43 4F 4C 20 30 2C 38 |7,11:!BARCOL 0,8| 000006B0: 2C 36 00 C0 46 60 27 81 58 B2 31 20 A4 20 4D 5A |,6..F`'.X.1 . MZ| 000006C0: 00 CF 46 6A 27 99 4D 24 28 58 29 3A 99 3A 82 00 |..Fj'.M$(X):.:..| 000006D0: EF 46 74 27 4A 4F 59 B2 C2 28 35 36 33 32 30 29 |.Ft'JOY..(56320)| 000006E0: 3A 8B 4A 4F 59 B2 31 32 37 A7 31 30 31 30 30 00 |:.JOY.127.10100.| 000006F0: 0D 47 7E 27 8B 20 28 4A 4F 59 20 AF 20 31 29 B2 |.G~'. (JOY . 1).| 00000700: 30 A7 52 B2 AB 31 3A 89 31 30 31 35 30 00 2C 47 |0.R..1:.10150.,G| 00000710: 88 27 8B 20 28 4A 4F 59 20 AF 20 32 29 B2 30 20 |.'. (JOY . 2).0 | 00000720: A7 52 B2 AA 31 3A 89 31 30 31 35 30 00 3E 47 92 |.R..1:.10150.>G.| 00000730: 27 8B 20 4A 4F 59 B2 31 31 31 20 A7 20 8E 00 4A |'. JOY.111 . ..J| 00000740: 47 9C 27 89 20 31 30 31 30 30 00 68 47 A6 27 4D |G.'. 10100.hG.'M| 00000750: B2 4D AA 52 3A 8B 20 4D B3 31 20 A7 20 4D B2 31 |.M.R:. M.1 . M.1| 00000760: 3A 89 20 31 30 31 30 30 00 82 47 B0 27 8B 20 4D |:. 10100..G.'. M| 00000770: B1 4D 5A 20 A7 20 4D B2 4D 5A 3A 89 20 31 30 31 |.MZ . M.MZ:. 101| 00000780: 30 30 00 9B 47 B5 27 8B 20 52 B2 AA 31 20 A7 20 |00..G.'. R..1 . | 00000790: 52 B2 30 3A 89 20 31 30 31 37 30 00 A4 47 B8 27 |R.0:. 10170..G.'| 000007A0: 52 B2 31 3A 00 DA 47 BA 27 21 42 41 52 4D 4F 56 |R.1:..G.'!BARMOV| 000007B0: 30 3A 21 4D 4F 56 50 41 52 20 30 2C 31 2C 32 2C |0:!MOVPAR 0,1,2,| 000007C0: 4D AC 31 36 2C 4D AC 31 36 2C 52 2C 4D 4F AC 31 |M.16,M.16,R,MO.1| 000007D0: 36 3A 21 42 41 52 4D 4F 56 31 00 EB 47 C4 27 4D |6:!BARMOV1..G.'M| 000007E0: 4F B2 4D 3A 89 20 31 30 31 30 30 00 10 48 CE 27 |O.M:. 10100..H.'| 000007F0: 8F 20 3B 2D 2D 2D 2D 2D 20 50 41 52 41 4D 54 45 |. ;----- PARAMTE| 00000800: 52 2D 52 45 53 45 54 20 2D 2D 2D 2D 2D 2D 2D 2D |R-RESET --------| 00000810: 00 26 48 D8 27 21 50 41 52 52 53 54 3A 21 52 4F |.&H.'!PARRST:!RO| 00000820: 55 54 49 4E 20 31 00 41 48 E2 27 81 58 B2 30 A4 |UTIN 1.AH.'.X.0.| 00000830: 36 3A 21 42 41 52 53 45 54 20 58 2C 30 2C 30 3A |6:!BARSET X,0,0:| 00000840: 82 00 47 48 F6 27 8E 00 6B 48 00 28 8F 20 3B 2D |..GH.'..kH.(. ;-| 00000850: 2D 2D 2D 2D 20 57 49 4E 44 4F 57 20 4F 50 45 4E |---- WINDOW OPEN| 00000860: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 8D 48 14 28 | ----------..H.(| 00000870: 21 55 4E 49 43 50 59 20 30 2C 31 30 32 34 2C 31 |!UNICPY 0,1024,1| 00000880: 30 32 34 AA 39 39 39 2C 34 30 39 36 30 00 A9 48 |024.999,40960..H| 00000890: 1E 28 57 31 24 B2 22 B0 22 3A 57 32 24 B2 22 DD |.(W1$.".":W2$.".| 000008A0: 22 3A 57 33 24 B2 22 AD 22 00 E1 48 28 28 81 58 |":W3$."."..H((.X| 000008B0: B2 58 31 AA 31 A4 58 32 AB 31 3A 57 31 24 B2 57 |.X1.1.X2.1:W1$.W| 000008C0: 31 24 AA 22 C0 22 3A 57 32 24 B2 57 32 24 AA 22 |1$.".":W2$.W2$."| 000008D0: 20 22 3A 57 33 24 B2 57 33 24 AA 22 C0 22 3A 82 | ":W3$.W3$.".":.| 000008E0: 58 00 09 49 32 28 57 31 24 B2 57 31 24 AA 22 AE |X..I2(W1$.W1$.".| 000008F0: 22 3A 57 32 24 B2 57 32 24 AA 22 DD 22 3A 57 33 |":W2$.W2$.".":W3| 00000900: 24 B2 57 33 24 AA 22 BD 22 00 1F 49 3C 28 21 50 |$.W3$."."..I<(!P| 00000910: 53 50 52 4E 54 20 58 31 2C 59 31 2C 57 31 24 00 |SPRNT X1,Y1,W1$.| 00000920: 41 49 46 28 81 58 B2 59 31 AA 31 A4 59 32 3A 21 |AIF(.X.Y1.1.Y2:!| 00000930: 50 53 50 52 4E 54 20 58 31 2C 58 2C 57 32 24 3A |PSPRNT X1,X,W2$:| 00000940: 82 00 57 49 50 28 21 50 53 50 52 4E 54 20 58 31 |..WIP(!PSPRNT X1| 00000950: 2C 59 32 2C 57 33 24 00 5D 49 5A 28 8E 00 80 49 |,Y2,W3$.]IZ(...I| 00000960: 64 28 8F 20 3B 2D 2D 2D 2D 2D 20 57 49 4E 44 4F |d(. ;----- WINDO| 00000970: 57 20 43 4C 4F 53 45 20 2D 2D 2D 2D 2D 2D 2D 2D |W CLOSE --------| 00000980: 00 A3 49 6E 28 21 55 4E 49 43 50 59 20 31 2C 34 |..In(!UNICPY 1,4| 00000990: 30 39 36 30 2C 34 30 39 36 30 AA 39 39 39 2C 31 |0960,40960.999,1| 000009A0: 30 32 34 00 A9 49 78 28 8E 00 00 00 |024..Ix(.... |
.@.@... DEMO OF C.B.O.S../@... =========
=======.K@... (C) MARKUS HILLEBRAND.Q@..
:.W@..:.]@..:.|@... ====================
====..@... = MENUE-PROGRAMMING =..@..
. = WITH COLOR-BASIC! =.Y@(.. =======
=================..@2.. C.B.O.S. - SUBRO
UTINES:..A<.. GOSUB 10000 _ MENUERO
UTINE.BAF.. PARAMETERS:M$(1)="MENUE NR
1".DAZ.. :. ...AD
.. :. ...AN..
:M$(MZ)="MENUE NR X".EAX.. MZ _ HO
W MANY MENUES..A... PARAMETER BACK:M = W
HICH MENUE..B... WAS
SELECTED.6B... =========================
======.\B .. GOSUB 10190 _ INITS C.B.
O.S...B... =============================
==..B... GOSUB 10240 _ WINDOW OPEN.IB
... PARAMETERS:X1,Y1,X2,Y2 _ SIZE..BH..
OF THE..CR..
WINDOW.;C... ====
===========================._C... GOS
UB 10350 _ WINDOW CLOSE..C... ==========
====================..C..:..C..:..C..:..
C... NOW A EXAMPLE-MENUE!..C".:..C,.
. ===============================..C...
10190: . INIT..C..:."D..X1.0:Y1.0:X2.38:
Y2.22:. WINDOWSIZE.AD... 646,14:. COLOR
OF BORDER.]D... 10240:. OPEN WINDOW!.CD
..:.XD..MZ.5:. 5 MENUES..D&.M$(1).".MEN
UE 1" :. MENUE-TEXT1.FD0.M$(2).".MENU
E NR.2" :. MENUE-TEXT2..D:.M$(3).".3.MEN
UE" :. MENUE-TEXT3..ED.M$(4).".FOURTH
MENUE 4":. M-TEXT4.:EN.M$(5).".MENUE 5"
:. MENUE-TEXT5.WEX.. 10000:. MENUE-
ROUTINE.SEB.. 10350: . WINDOW CLOSE..EL.
!ROUTIN 0 : . IRQ OFF..EV..".YOU SELEC
TED MENUE NR"M..E....TE.'. ;------MENUE
ROUTINE-----..E.'."..":.:M.1:MO.1..F$'!B
ARENB 1:!BARSET 0,1,17..F.'!BARMOV 0:!BA
RWDE 9.?F8'!BARCOL 0,0,6:!BARCOL 0,1,11.
AFB'!BARCOL 0,2,14:!BARCOL 0,3,15..FL'!B
ARCOL 0,4,7:!BARCOL 0,5,15..FV'!BARCOL 0
,6,14:!BARCOL 0,7,11:!BARCOL 0,8,6..F`'.
X.1 . MZ.OFJ'.M$(X):.:...FT'JOY.B(56320)
:.JOY.127.10100..G~'. (JOY . 1).0.R..1:.
10150.,G.'. (JOY . 2).0 .R..1:.10150.>G.
'. JOY.111 . ..JG.'. 10100.HG.'M.M.R:. M
.1 . M.1:. 10100..G.'. M.MZ . M.MZ:. 101
00..G.'. R..1 . R.0:. 10170..G.'R.1:.ZG.
'!BARMOV0:!MOVPAR 0,1,2,M.16,M.16,R,MO.1
6:!BARMOV1..GD'MO.M:. 10100..HN'. ;-----
PARAMTER-RESET --------.&HX'!PARRST:!RO
UTIN 1.AH.'.X.0.6:!BARSET X,0,0:..GH.'..
KH.(. ;----- WINDOW OPEN ----------..H.(
!UNICPY 0,1024,1024.999,40960..H.(W1$.".
":W2$.".":W3$."."..H((.X.X1.1.X2.1:W1$.W
1$.".":W2$.W2$." ":W3$.W3$.".":.X..I2(W1
$.W1$.".":W2$.W2$.".":W3$.W3$."."..I<(!P
SPRNT X1,Y1,W1$.AIF(.X.Y1.1.Y2:!PSPRNT X
1,X,W2$:..WIP(!PSPRNT X1,Y2,W3$.]IZ(...I
D(. ;----- WINDOW CLOSE --------..IN(!UN
ICPY 1,40960,40960.999,1024..IX(....
> CLICK IMAGE PREVIEW FOR FULL MODAL