ROUTINES TOPLESS
FILE INFORMATION
FILENAME(S): ROUTINES TOPLESS
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:25:51
APPEARS ON: 1 disk(s)
FILE HASH
e9a34f524f789c774d59ba71a5a37bc8d2bd1ca38ddacbe1b5679b70ce19b576
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMMODORE DOSSIE | ROUTINES TOPLESS | PRG | DuncanTwain | 22 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 65 00 8F 20 2A |********.O.e.. *|
00000030: 53 50 52 49 54 45 53 20 4F 50 20 47 45 42 49 45 |SPRITES OP GEBIE|
00000040: 44 20 24 32 30 30 30 2D 24 33 46 46 46 20 2A 00 |D $2000-$3FFF *.|
00000050: 76 08 66 00 8F 20 2A 27 41 42 53 4F 4C 55 55 54 |v.f.. *'ABSOLUUT|
00000060: 27 20 49 4E 4C 41 44 45 4E 2E 2E 2E 20 20 20 20 |' INLADEN... |
00000070: 20 20 20 20 20 2A 00 9D 08 67 00 8F 20 2A 56 45 | *...g.. *VE|
00000080: 52 56 4F 4C 47 45 4E 53 20 44 49 54 20 50 52 4F |RVOLGENS DIT PRO|
00000090: 47 52 41 4D 4D 41 20 4C 41 54 45 4E 2A 00 C4 08 |GRAMMA LATEN*...|
000000A0: 68 00 8F 20 2A 52 55 4E 4E 45 4E 20 4F 4D 20 44 |h.. *RUNNEN OM D|
000000B0: 45 20 47 45 57 45 4E 53 54 45 20 56 4F 52 4D 45 |E GEWENSTE VORME|
000000C0: 4E 20 20 2A 00 EB 08 69 00 8F 20 2A 4E 41 41 52 |N *...i.. *NAAR|
000000D0: 20 27 54 4F 50 4C 45 53 53 27 2D 46 4F 52 4D 41 | 'TOPLESS'-FORMA|
000000E0: 41 54 20 4F 56 45 52 20 54 45 2A 00 12 09 6A 00 |AT OVER TE*...j.|
000000F0: 8F 20 2A 5A 45 54 54 45 4E 21 20 28 44 4F 4F 52 |. *ZETTEN! (DOOR|
00000100: 20 4A 4F 48 4E 20 56 41 4E 44 45 52 41 41 52 54 | JOHN VANDERAART|
00000110: 29 2A 00 39 09 6B 00 8F 20 2A 2A 2A 2A 2A 2A 2A |)*.9.k.. *******|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4E 09 6C 00 83 20 |*********.N.l.. |
00000140: 33 32 2C 31 38 38 2C 31 39 30 2C 32 32 36 00 64 |32,188,190,226.d|
00000150: 09 6D 00 83 20 31 37 32 2C 32 32 35 2C 31 39 31 |.m.. 172,225,191|
00000160: 2C 32 35 31 00 7A 09 6E 00 83 20 31 38 37 2C 32 |,251.z.n.. 187,2|
00000170: 35 35 2C 31 36 31 2C 32 33 36 00 8E 09 6F 00 83 |55,161,236...o..|
00000180: 20 31 36 32 2C 32 35 34 2C 32 35 32 2C 30 00 9B | 162,254,252,0..|
00000190: 09 70 00 9C 3A 86 42 28 31 35 29 00 B3 09 71 00 |.p..:.B(15)...q.|
000001A0: 53 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |S$." |
000001B0: 20 20 22 00 BF 09 72 00 81 41 B2 30 A4 31 35 00 | "...r..A.0.15.|
000001C0: CA 09 73 00 3A 87 42 28 41 29 00 D0 09 74 00 82 |..s.:.B(A)...t..|
000001D0: 00 DB 09 75 00 8F 20 2A 2A 2A 2A 00 FB 09 76 00 |...u.. ****...v.|
000001E0: 85 22 57 45 4C 4B 45 20 53 50 52 49 54 45 20 28 |."WELKE SPRITE (|
000001F0: 31 32 38 2D 32 35 35 29 22 3B 53 00 14 0A 77 00 |128-255)";S...w.|
00000200: 8B 28 53 B3 31 32 38 29 B0 28 53 B1 32 35 35 29 |.(S.128).(S.255)|
00000210: A7 31 31 38 00 27 0A 78 00 85 22 46 49 4C 45 4E |.118.'.x.."FILEN|
00000220: 41 41 4D 22 3B 46 24 00 45 0A 79 00 8B 28 C3 28 |AAM";F$.E.y..(.(|
00000230: 46 24 29 B2 30 29 B0 28 C3 28 46 24 29 B1 31 34 |F$).0).(.(F$).14|
00000240: 29 A7 31 32 31 00 6A 0A 7A 00 46 24 B2 22 42 2F |).121.j.z.F$."B/|
00000250: 22 AA 46 24 AA C8 28 53 24 2C 31 34 AB C3 28 46 |".F$..(S$,14..(F|
00000260: 24 29 29 AA 22 2C 53 2C 57 22 00 78 0A 7B 00 9F |$)).",S,W".x.{..|
00000270: 31 2C 38 2C 31 2C 46 24 00 9B 0A 7C 00 8F 20 27 |1,8,1,F$...|.. '|
00000280: 4F 50 45 4E 31 2C 30 2C 22 42 2F 2E 2E 2E 2E 22 |OPEN1,0,"B/...."|
00000290: 27 20 56 4F 4F 52 20 54 41 50 45 00 B6 0A 7D 00 |' VOOR TAPE...}.|
000002A0: 99 22 28 47 29 52 4F 4F 54 20 4F 46 20 28 4B 29 |."(G)ROOT OF (K)|
000002B0: 4C 45 49 4E 3F 22 00 D3 0A 7E 00 A1 41 24 3A 8B |LEIN?"...~..A$:.|
000002C0: 41 24 B3 B1 22 47 22 AF 41 24 B3 B1 22 4B 22 A7 |A$.."G".A$.."K".|
000002D0: 31 32 36 00 E3 0A 7F 00 8B 41 24 B2 22 4B 22 A7 |126......A$."K".|
000002E0: 31 33 38 00 03 0B 80 00 8F 20 2A 2A 2A 2A 47 52 |138...... ****GR|
000002F0: 4F 4F 54 20 2D 3E 20 42 52 45 45 44 54 45 20 27 |OOT -> BREEDTE '|
00000300: 32 33 27 00 0E 0B 81 00 41 B2 53 AC 36 34 00 1A |23'.....A.S.64..|
00000310: 0B 82 00 81 42 B2 30 A4 36 32 00 29 0B 83 00 3A |....B.0.62.)...:|
00000320: 81 43 B2 37 A4 30 A9 AB 31 00 52 0B 84 00 3A 8B |.C.7.0..1.R...:.|
00000330: 28 C2 28 41 AA 42 29 AF 32 AE 43 29 B2 32 AE 43 |(.(A.B).2.C).2.C|
00000340: A7 98 31 2C C7 28 42 28 31 35 29 29 3B 3A 89 31 |..1,.(B(15));:.1|
00000350: 33 34 00 63 0B 85 00 3A 98 31 2C C7 28 42 28 30 |34.c...:.1,.(B(0|
00000360: 29 29 3B 00 6B 0B 86 00 3A 82 43 00 72 0B 87 00 |));.k...:.C.r...|
00000370: 82 42 00 79 0B 88 00 A0 31 00 7F 0B 89 00 80 00 |.B.y....1.......|
00000380: 9F 0B 8A 00 8F 20 2A 2A 2A 2A 4B 4C 45 49 4E 20 |..... ****KLEIN |
00000390: 2D 3E 20 42 52 45 45 44 54 45 20 27 31 31 27 00 |-> BREEDTE '11'.|
000003A0: AA 0B 8B 00 41 B2 53 AC 36 34 00 B6 0B 8C 00 81 |....A.S.64......|
000003B0: 42 B2 30 A4 36 32 00 CB 0B 8D 00 3A 97 32 34 AC |B.0.62.....:.24.|
000003C0: 36 34 AA 42 2C C2 28 41 AA 42 29 00 D1 0B 8E 00 |64.B,.(A.B).....|
000003D0: 82 00 DE 0B 8F 00 81 42 B2 36 33 A4 36 35 00 EE |.......B.63.65..|
000003E0: 0B 90 00 3A 97 32 34 AC 36 34 AA 42 2C 30 00 F4 |...:.24.64.B,0..|
000003F0: 0B 91 00 82 00 00 0C 92 00 41 B2 32 34 AC 36 34 |.........A.24.64|
00000400: 00 0C 0C 93 00 81 42 B2 30 A4 31 30 00 18 0C 94 |......B.0.10....|
00000410: 00 3A 81 43 B2 30 A4 32 00 27 0C 95 00 3A 81 44 |.:.C.0.2.'...:.D|
00000420: B2 33 A4 30 A9 AB 31 00 39 0C 96 00 3A 45 B2 C2 |.3.0..1.9...:E..|
00000430: 28 41 AA 36 AC 42 AA 43 29 00 4D 0C 97 00 3A 46 |(A.6.B.C).M...:F|
00000440: B2 C2 28 41 AA 36 AC 42 AA 33 AA 43 29 00 64 0C |..(A.6.B.3.C).d.|
00000450: 98 00 3A 47 B2 28 45 AF 28 34 AE 44 AC 33 29 29 |..:G.(E.(4.D.3))|
00000460: AD 34 AE 44 00 7F 0C 99 00 3A 48 B2 28 28 46 AF |.4.D.....:H.((F.|
00000470: 28 34 AE 44 AC 33 29 29 AD 34 AE 44 29 AC 34 00 |(4.D.3)).4.D).4.|
00000480: 8A 0C 9A 00 3A 49 B2 47 AA 48 00 9B 0C 9B 00 3A |....:I.G.H.....:|
00000490: 98 31 2C C7 28 42 28 49 29 29 3B 00 A3 0C 9C 00 |.1,.(B(I));.....|
000004A0: 3A 82 44 00 AB 0C 9D 00 3A 82 43 00 B2 0C 9E 00 |:.D.....:.C.....|
000004B0: 82 42 00 B9 0C 9F 00 A0 31 00 BF 0C A0 00 80 00 |.B......1.......|
000004C0: 00 00 A9 2C A0 08 85 5F 84 60 A9 AE A0 09 85 5A |...,..._.`.....Z|
000004D0: 84 5B A9 82 A0 7E 85 58 84 59 20 BF A3 4C 00 7D |.[...~.X.Y ..L.}|
000004E0: 00 A2 03 BD 99 7D 9D 02 03 CA 10 F7 A0 00 B9 29 |.....}.........)|
000004F0: 7D F0 06 20 D2 FF C8 D0 F5 A9 FF 85 33 A9 7C 85 |}.. ........3.|.|
00000500: 34 A9 FF 85 37 A9 7C 85 38 60 0D 20 20 20 20 20 |4...7.|.8`. |
00000510: 20 20 20 20 20 2A 2A 2A 2A 20 43 48 45 43 4B 53 | **** CHECKS|
00000520: 55 4D 20 36 34 20 2A 2A 2A 2A 0D 0D 56 31 2E 30 |UM 64 ****..V1.0|
00000530: 3A 20 28 31 39 38 35 29 20 50 45 54 45 52 20 44 |: (1985) PETER D|
00000540: 45 20 5A 45 45 55 57 0D 56 32 2E 31 3A 20 28 31 |E ZEEUW.V2.1: (1|
00000550: 39 38 36 29 20 52 4F 45 4C 46 20 53 4C 55 4D 41 |986) ROELF SLUMA|
00000560: 4E 0D 0D 43 48 45 43 4B 53 55 4D 20 49 4E 47 45 |N..CHECKSUM INGE|
00000570: 53 43 48 41 4B 45 4C 44 0D 00 9D 7D B6 7D 20 60 |SCHAKELD...}.} `|
00000580: A5 86 7A 84 7B 20 73 00 AA F0 F3 A2 FF 86 3A 90 |..z.{ s.......:.|
00000590: 06 20 7C A5 4C E1 A7 20 6B A9 A6 7A CA E8 BD 00 |. |.L.. k..z....|
000005A0: 02 F0 52 C9 A0 D0 F6 A9 00 9D 00 02 E8 20 5C 7E |..R.......... \~|
000005B0: B0 43 E8 20 5C 7E B0 3D 20 7C A5 84 0B A9 00 85 |.C. \~.= |......|
000005C0: 0F A5 14 45 15 85 FB A0 05 B9 FB 01 48 C9 22 D0 |...E........H.".|
000005D0: 06 A9 FF 45 0F 85 0F 24 0F 30 07 68 C9 20 F0 08 |...E...$.0.h. ..|
000005E0: D0 01 68 45 FB EA 85 FB C8 C4 0B 90 DC D0 DA A5 |..hE............|
000005F0: FB C5 FC F0 36 A2 00 BD 4D 7E F0 06 20 D2 FF E8 |....6...M~.. ...|
00000600: D0 F5 A9 00 8D 05 D4 A9 09 8D 06 D4 A9 0F 8D 18 |................|
00000610: D4 A9 B1 8D 00 D4 A9 13 8D 01 D4 A9 11 8D 04 D4 |................|
00000620: A9 10 8D 04 D4 8D 04 D4 4C 9D 7D 4C A4 A4 46 4F |........L.}L..FO|
00000630: 55 54 20 49 4E 20 52 45 47 45 4C 0D 00 06 FC 06 |UT IN REGEL.....|
00000640: FC 06 FC 06 FC BD 00 02 F0 17 38 E9 30 90 12 C9 |..........8.0...|
00000650: 0A 90 08 E9 07 90 0A C9 10 B0 07 65 FC 85 FC 90 |...........e....|
00000660: 01 38 60 |.8` |
..(.D.. ********************************
.O.E.. *SPRITES OP GEBIED $2000-$3FFF *.
V.F.. *'ABSOLUUT' INLADEN... *..
.G.. *VERVOLGENS DIT PROGRAMMA LATEN*.D.
H.. *RUNNEN OM DE GEWENSTE VORMEN *...I
.. *NAAR 'TOPLESS'-FORMAAT OVER TE*...J.
. *ZETTEN! (DOOR JOHN VANDERAART)*.9.K..
********************************.N.L..
32,188,190,226.D.M.. 172,225,191,251.Z.N
.. 187,255,161,236...O.. 162,254,252,0..
.P..:.B(15)...Q.S$." "...R.
.A.0.15.J.S.:.B(A).P.T.....U.. ****...V.
."WELKE SPRITE (128-255)";S...W..(S.128)
.(S.255).118.'.X.."FILENAAM";F$.E.Y..(C(
F$).0).(C(F$).14).121.J.Z.F$."B/".F$.H(S
$,14.C(F$)).",S,W".X.{..1,8,1,F$...|.. '
OPEN1,0,"B/...."' VOOR TAPE...}.."(G)ROO
T OF (K)LEIN?".S.~..A$:.A$.."G".A$.."K".
126.....A$."K".138...... ****GROOT -> B
REEDTE '23'.....A.S.64......B.0.62.)...:
.C.7.0..1.R...:.(B(A.B).2.C).2.C..1,G(B(
15));:.134.C...:.1,G(B(0));.K...:.C.R...
.B.Y... 1........... ****KLEIN -> BREED
TE '11'.....A.S.64......B.0.62.K...:.24.
64.B,B(A.B).Q..........B.63.65.....:.24.
64.B,0...........A.24.64......B.0.10....
.:.C.0.2.'...:.D.3.0..1.9...:E.B(A.6.B.C
).M...:F.B(A.6.B.3.C).D...:G.(E.(4.D.3))
.4.D....:H.((F.(4.D.3)).4.D).4.....:I.G
.H.....:.1,G(B(I));.....:.D.....:.C.....
.B..... 1... ......, .._.`.. ..Z.[.. ~.X
.Y ..L.}.....}...J.. ..)}.. R.HP....3.|.
4...7.|.8`. **** CHECKSUM 64 **
**..V1.0: (1985) PETER DE ZEEUW.V2.1: (1
986) ROELF SLUMAN..CHECKSUM INGESCHAKELD
...}.} `..Z.{ S.......:.. |.L.. K..ZJ...
..RI P....... \~.C. \~.= |.........E...
....HI"P...E...$.0.HI ..P.HE....HD...PZ.
.E..6...M~.. R..P.....T....T....T....T..
..T....T....T..TL.}L..FOUT IN REGEL.....
..........8.0..I.......I...E.....8`
> CLICK IMAGE PREVIEW FOR FULL MODAL