C.B.O.S. DEMO
FILE INFORMATION
FILENAME(S): C.B.O.S. DEMO
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-02 22:11:23
APPEARS ON: 1 disk(s)
FILE HASH
cd8ca36752bb43b3be6c897dc499687e510e5a474c418807cef447b75736e550
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MAGIC DISK 04 90 | C.B.O.S. DEMO | PRG | Treasure Chest - ToGuMi | 9 | 5 |
⚠ CORRUPT 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 67 7E EF EE E3 E7 7E EF EE E3 41 40 4D EB A5 |Xg~....~...A@M..|
00000410: B4 14 04 04 05 8E 68 8E DB EB 9B 3F 1D BD 7E 7D |......h....?..~}|
00000420: E5 00 41 4E FE FE 6E 80 4A CA 4A 86 AD 78 DE A9 |..AN..n.J.J..x..|
00000430: EE 87 07 C4 F5 22 04 F4 62 04 24 F5 24 DB BE 22 |....."..b.$.$.."|
00000440: 3E 17 EE F8 EE 9E 8F B0 32 34 30 3A 8F 20 20 4F |>.......240:. O|
00000450: 50 4E DD EE E4 D2 DE DB F1 DE 2A 2F EB 7E 9E 88 |PN........*/.~..|
00000460: DE E1 E7 41 C0 24 D5 AB 23 57 E3 1E FE FE EE ED |...A.$..#W......|
00000470: AD DB BB B7 7B 00 B0 DA 09 08 B6 8A 8E AE 6D 98 |....{.........m.|
00000480: 8E E7 47 54 EE ED E8 0C 40 08 08 08 08 05 8E 68 |..GT....@......h|
00000490: 8B FB B7 77 75 2D 54 DD DE DA CC 88 6B 3E A2 E3 |...wu-T.....k>..|
000004A0: 7E 3E 2C 98 CB 22 21 D4 D4 ED EE ED E8 8B 9E 01 |~>,.."!.........|
000004B0: A4 00 08 05 8E 68 8B FB B7 77 75 2D 54 DD DE DA |.....h...wu-T...|
000004C0: 48 81 BF BE E2 E3 7E 3E 2C B2 B7 EE E7 B4 E7 37 |H.....~>,......7|
000004D0: 17 75 55 4E EE EF EF EF EF EE 31 EE DA DD BB BB |.uUN......1.....|
000004E0: 79 47 74 EE 2E DE C8 84 B7 74 02 4D 24 28 6D C4 |yGt......t.M$(m.|
000004F0: EE EE EE EE EE EE 29 B2 22 1D 46 4F 55 52 54 48 |......).".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 7F E6 DE E6 EE EC BB BE 2E |ARENB 1.........|
00000600: AE 3C F9 EB 17 4E E7 DA A1 A0 E8 CA 89 CE 8B FA |.<...N..........|
00000610: FE A8 0C 05 08 CA 89 CE 8E DB 75 20 39 00 3F 46 |..........u 9.?F|
00000620: 38 27 21 42 41 52 43 4F 4B EF EF EB C0 86 DE EE |8'!BARCOK.......|
00000630: 2B E3 2B E3 EB F1 69 E8 F8 EB 12 C6 7C C8 09 CA |+.+...i.....|...|
00000640: BE EF E2 BE 32 BE 3E BF 16 9E 8F 8E B2 2C 67 CA |....2.>......,g.|
00000650: 50 8C A8 9C E8 AC AF BE 2E AE 3E D9 EB 16 EE E3 |P.........>.....|
00000660: ED CB EF E2 BE 32 BE 3E BF 16 9E 8F 8E B4 2C 75 |.....2.>......,u|
00000670: 50 8C A8 9C E8 AC AF BE 2E AE 3C 79 EB 16 EE F7 |P.........<y....|
00000680: ED CE A0 E8 CA 89 CE 8A CA FB E2 EA E3 CB 8E B1 |................|
00000690: 6D EF E6 DE E6 EE DC AF BC E8 F8 EB 72 C6 7C 4E |m...........r.|N|
000006A0: E2 BE 32 BE 3E BF 16 9E 8F 8E 63 EB 49 88 F8 AA |..2.>.....c.I...|
000006B0: 90 0D EC DE 40 AE 26 3E 23 71 E2 23 C1 FF 6E FE |....@.&>#q.#..n.|
000006C0: E7 49 E8 E7 E9 C7 F7 CD E9 EE 50 71 17 81 7C E0 |.I........Pq..|.|
000006D0: 7E D9 EA 28 6E EC E4 D8 F8 C7 E3 6D ED 0E 74 0C |~..(n......m..t.|
000006E0: 4E ED EF DF B0 31 6F EE EE FA D4 66 EE EE EE EE |N....1o....f....|
000006F0: EE EE 7E 27 8B 20 28 4A 4F 59 20 AF 20 31 29 B2 |..~'. (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: E6 80 54 16 7C 4A DF BE EE EE 6E EE 6D AE DB BE |..T.|J....n.m...|
00000800: E7 1E 37 7B 4E ED EF EB EB EB EB EB EB EB EA EF |..7{N...........|
00000810: EC 9E FE 0E 8C D8 9C E8 E8 EB BE EE 2B E3 F1 BB |............+...|
00000820: B7 C4 E2 03 10 04 14 8E 22 78 15 8B 23 0A 43 63 |........"x..#.Cc|
00000830: A2 14 24 15 25 6E EE DE EE 3E BC 08 6A EE 2E 22 |..$.%n...>..j.."|
00000840: 3F B2 CC EF A5 FE 1C 78 00 28 8F 20 3B 2D 2D 2D |?......x.(. ;---|
00000850: 2D 2D 20 57 49 4E DB F1 DE 23 F1 A3 77 58 E8 4A |-- WIN...#..wX.J|
00000860: DF B1 67 E7 E7 C4 94 AD 00 8D 48 14 28 21 55 4E |..g.......H.(!UN|
00000870: D2 DE EE E6 80 C0 86 AD F8 A3 42 C6 7C 04 0C B1 |..........B.|...|
00000880: 05 CD 76 86 BE AE EB 63 00 0A 94 81 E2 85 76 7E |..v....c......v~|
00000890: D7 EE E6 FE EE EE 54 E3 6E EE 75 EE EE 3D DB 24 |......T.n.u..=.$|
000008A0: B2 22 AD 22 00 E6 E3 E3 E2 26 E3 7E E3 C5 10 C5 |.".".....&.~....|
000008B0: 8B AC 9C CB 17 EE 5C 48 B4 8E EA E3 66 EE 30 EE |......\H....f.0.|
000008C0: EE 3D D9 8E C9 EB B2 24 AA 22 20 22 3A 57 74 8B |.=.....$." ":Wt.|
000008D0: 48 EE D9 EC C8 8E F8 88 DE 9E EF EE E7 C7 EE 2E |H...............|
000008E0: 5C 48 B4 8E EA E3 66 22 A2 22 22 22 22 22 |\H....f".""""" |
.@.@... 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..XG~....~...A@M..
......H....?..~}..AN..N.JJJ..X.....D."..
B.$.$..">.......240:. OPN...R....*/.~..
...A.$U.#W..........{..Z......M...GT....
@......H...WU-T..ZL.K>..~>,.K"!TT.......
.....H...WU-T..ZH.....~>,......7.UUN....
..1.Z...YGT...H..T.M$(MD......).".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.........<...N.Z. .J.N.......J.N
..U 9.?F8'!BARCOK.......+.+...I....F|H.J
....2.>......,GJP.........>Y.....K...2.>
......,UP.........<Y.....N .J.N.J....K..
M...........RF|N..2.>.....C.I.......@.&>
#Q.#A.N..I...G.M..PQ..|.~Y.(N..X.G.M..T.
N....1O...TF......~'. (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'..T.|J..
..N.M.....7{N................X......+...
.D......"X..#.CC..$.%N...>..J.."?.L....X
.(. ;----- WIN...#..WX.J..G..D....H.(!UN
R.........BF|....MV....C......V~W.....T.
N.U..=.$.".".....&.~.E.E...K..\H....F.0.
.=Y.I..$." ":WT.H.Y.H........G..\H....F"
."""""
> CLICK IMAGE PREVIEW FOR FULL MODAL