TB/SCREEN THINGS
FILE INFORMATION
FILENAME(S): TB/SCREEN THINGS
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 16:59:31
APPEARS ON: 1 disk(s)
FILE HASH
1e36776acf723a776a3aaf933613eb769b02ddefa0fb868f9ae2f03dcb46104c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC UTILITIES | TB/SCREEN THINGS | PRG | High Voltage Complete C64 Collection | 10 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 00 00 8F 20 53 43 52 45 45 4E 20 54 |..".... SCREEN T|
00000010: 48 49 4E 47 53 20 28 41 55 47 20 32 35 2F 38 34 |HINGS (AUG 25/84|
00000020: 29 3A 00 28 08 01 00 3A 00 48 08 02 00 8F 20 35 |):.(...:.H.... 5|
00000030: 20 53 54 41 54 45 4D 45 4E 54 53 2C 20 30 20 46 | STATEMENTS, 0 F|
00000040: 55 4E 43 54 49 4F 4E 53 00 4E 08 03 00 3A 00 6B |UNCTIONS.N...:.k|
00000050: 08 04 00 8F 20 4B 45 59 57 4F 52 44 20 43 48 41 |.... KEYWORD CHA|
00000060: 52 41 43 54 45 52 53 3A 20 32 32 00 71 08 05 00 |RACTERS: 22.q...|
00000070: 3A 00 94 08 06 00 8F 20 4B 45 59 57 4F 52 44 20 |:...... KEYWORD |
00000080: 20 52 4F 55 54 49 4E 45 20 20 4C 49 4E 45 20 20 | ROUTINE LINE |
00000090: 53 45 52 23 00 B6 08 07 00 8F 20 53 2F 47 52 4F |SER#...... S/GRO|
000000A0: 55 4E 44 20 47 52 44 20 20 20 20 20 20 32 37 34 |UND GRD 274|
000000B0: 30 20 20 30 31 33 00 D8 08 08 00 8F 20 53 2F 46 |0 013...... S/F|
000000C0: 52 41 4D 45 20 20 46 52 41 4D 20 20 20 20 20 32 |RAME FRAM 2|
000000D0: 37 34 38 20 20 30 31 34 00 FA 08 09 00 8F 20 53 |748 014...... S|
000000E0: 2F 54 45 58 54 20 20 20 54 45 58 20 20 20 20 20 |/TEXT TEX |
000000F0: 20 32 37 35 36 20 20 30 31 35 00 1C 09 0A 00 8F | 2756 015......|
00000100: 20 53 2F 43 52 41 4D 20 20 20 43 46 49 4C 4C 20 | S/CRAM CFILL |
00000110: 20 20 20 32 37 36 38 20 20 30 31 36 00 3E 09 0B | 2768 016.>..|
00000120: 00 8F 20 53 2F 43 4C 53 20 20 20 20 43 4C 45 41 |.. S/CLS CLEA|
00000130: 20 20 20 20 20 32 37 39 30 20 20 30 31 37 00 44 | 2790 017.D|
00000140: 09 0C 00 3A 00 6B 09 0D 00 8F 20 3D 3D 3D 3D 3D |...:.k.... =====|
00000150: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000160: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 71 09 0E 00 |===========.q...|
00000170: 3A 00 8A 09 68 00 2E C6 20 22 47 52 4F 55 4E C4 |:...h... "GROUN.|
00000180: 46 52 41 4D C5 54 45 58 D4 22 00 9B 09 69 00 2E |FRAM.TEX."...i..|
00000190: C6 20 22 43 52 41 CD 43 4C D3 22 00 B7 09 50 04 |. "CRA.CL."...P.|
000001A0: 2E 57 B0 44 20 47 52 44 AB 31 2C 46 52 41 4D AB |.W.D GRD.1,FRAM.|
000001B0: 31 2C 54 45 58 AB 31 00 CF 09 51 04 2E 57 B0 44 |1,TEX.1...Q..W.D|
000001C0: 20 43 46 49 4C 4C AB 31 2C 43 4C 45 41 AB 31 00 | CFILL.1,CLEA.1.|
000001D0: EF 09 B4 0A 47 52 44 20 4A 53 52 20 24 42 37 39 |....GRD JSR $B79|
000001E0: 45 20 3B A1 20 42 59 54 45 20 49 4E 20 2E 58 00 |E ;. BYTE IN .X.|
000001F0: 10 0A B6 0A 53 54 58 20 24 44 30 32 31 20 3B 50 |....STX $D021 ;P|
00000200: 55 54 20 49 4E 20 42 41 43 4B 47 52 4F 55 4E 44 |UT IN BACKGROUND|
00000210: 00 18 0A B8 0A 52 54 53 00 1E 0A BA 0A 3B 00 3F |.....RTS.....;.?|
00000220: 0A BC 0A 46 52 41 4D 20 4A 53 52 20 24 42 37 39 |...FRAM JSR $B79|
00000230: 45 20 3B A1 20 42 59 54 45 20 49 4E 20 2E 58 00 |E ;. BYTE IN .X.|
00000240: 5B 0A BE 0A 53 54 58 20 24 44 30 32 30 20 3B 50 |[...STX $D020 ;P|
00000250: 55 54 20 49 4E 20 42 B0 44 45 52 00 63 0A C0 0A |UT IN B.DER.c...|
00000260: 52 54 53 00 69 0A C2 0A 3B 00 89 0A C4 0A 54 45 |RTS.i...;.....TE|
00000270: 58 20 4A 53 52 20 24 42 37 39 45 20 3B A1 20 42 |X JSR $B79E ;. B|
00000280: 59 54 45 20 49 4E 20 2E 58 00 91 0A C6 0A 54 58 |YTE IN .X.....TX|
00000290: 41 00 AD 0A C8 0A AF 20 23 24 30 46 20 3B 50 55 |A...... #$0F ;PU|
000002A0: 54 20 4C 4F 57 20 42 59 54 45 20 49 4E 00 CE 0A |T LOW BYTE IN...|
000002B0: CA 0A 53 54 41 20 24 32 38 36 20 3B 54 45 58 54 |..STA $286 ;TEXT|
000002C0: 20 43 4F 4C B0 20 52 45 47 49 53 54 45 52 00 D6 | COL. REGISTER..|
000002D0: 0A CC 0A 52 54 53 00 DC 0A CE 0A 3B 00 FE 0A D0 |...RTS.....;....|
000002E0: 0A 43 46 49 4C 4C 20 4A 53 52 20 24 42 37 39 45 |.CFILL JSR $B79E|
000002F0: 20 3B A1 20 42 59 54 45 20 49 4E 20 2E 58 00 06 | ;. BYTE IN .X..|
00000300: 0B D2 0A 54 58 41 00 11 0B D4 0A 4C 44 59 20 23 |...TXA.....LDY #|
00000310: 30 00 30 0B D6 0A 43 46 31 20 53 54 41 20 24 44 |0.0...CF1 STA $D|
00000320: 38 30 30 2C 59 20 3B 46 49 4C 4C 20 43 4F 4C B0 |800,Y ;FILL COL.|
00000330: 00 47 0B D8 0A 53 54 41 20 24 44 39 30 30 2C 59 |.G...STA $D900,Y|
00000340: 20 3B 4D 45 4D B0 59 00 57 0B DA 0A 53 54 41 20 | ;MEM.Y.W...STA |
00000350: 24 44 41 30 30 2C 59 00 67 0B DC 0A 53 54 41 20 |$DA00,Y.g...STA |
00000360: 24 44 42 30 30 2C 59 00 6F 0B DE 0A 49 4E 59 00 |$DB00,Y.o...INY.|
00000370: 7B 0B E0 0A 42 4E 45 20 43 46 31 00 83 0B E2 0A |{...BNE CF1.....|
00000380: 52 54 53 00 89 0B E4 0A 3B 00 AC 0B E6 0A 43 4C |RTS.....;.....CL|
00000390: 45 41 20 42 4E 45 20 43 4C 45 31 20 3B 8B 20 4E |EA BNE CLE1 ;. N|
000003A0: 4F 20 50 41 52 41 4D 45 54 45 52 53 00 C9 0B E8 |O PARAMETERS....|
000003B0: 0A 4A 4D 50 20 24 45 35 34 34 20 3B 4A 55 53 54 |.JMP $E544 ;JUST|
000003C0: 20 9C 20 53 43 52 45 45 4E 00 E6 0B EA 0A 43 4C | . SCREEN.....CL|
000003D0: 45 31 20 4A 53 52 20 24 42 37 39 45 20 3B A1 20 |E1 JSR $B79E ;. |
000003E0: 41 20 42 59 54 45 00 FF 0B EC 0A 53 54 58 20 24 |A BYTE.....STX $|
000003F0: 31 34 20 3B 43 48 45 43 4B 20 52 41 4E 47 45 00 |14 ;CHECK RANGE.|
00000400: 0C 0C EE 0A 43 50 58 20 23 24 31 39 00 19 0C F0 |....CPX #$19....|
00000410: 0A 42 43 53 20 43 4C 45 35 00 32 0C F2 0A 4A 53 |.BCS CLE5.2...JS|
00000420: 52 20 24 37 39 20 3B 42 52 41 4E 43 48 20 8B 20 |R $79 ;BRANCH . |
00000430: 4E 4F 00 4E 0C F4 0A 42 45 51 20 43 4C 45 33 20 |NO.N...BEQ CLE3 |
00000440: 3B 32 4E 44 20 50 41 52 41 4D 45 54 45 52 00 6B |;2ND PARAMETER.k|
00000450: 0C F6 0A 4A 53 52 20 24 41 45 46 44 20 3B 43 48 |...JSR $AEFD ;CH|
00000460: 45 43 4B 20 81 20 43 4F 4D 4D 41 00 8E 0C F8 0A |ECK . COMMA.....|
00000470: 4A 53 52 20 24 42 37 39 45 20 3B 42 45 54 20 53 |JSR $B79E ;BET S|
00000480: 45 43 91 44 20 50 41 52 41 4D 45 54 45 52 00 AC |EC.D PARAMETER..|
00000490: 0C FA 0A 43 4C 45 32 20 43 50 58 20 24 31 34 20 |...CLE2 CPX $14 |
000004A0: 3B 45 58 49 54 20 8B 20 4C 45 53 53 00 C8 0C FC |;EXIT . LESS....|
000004B0: 0A 42 43 43 20 43 4C 45 34 20 3B 54 48 41 4E 20 |.BCC CLE4 ;THAN |
000004C0: 46 49 52 53 54 20 91 45 00 E2 0C FE 0A 43 50 58 |FIRST .E.....CPX|
000004D0: 20 23 24 31 39 20 3B 43 48 45 43 4B 20 52 41 4E | #$19 ;CHECK RAN|
000004E0: 47 45 00 EF 0C 00 0B 42 43 53 20 43 4C 45 35 00 |GE.....BCS CLE5.|
000004F0: FD 0C 02 0B 2E 42 59 54 45 20 24 32 43 00 21 0D |.....BYTE $2C.!.|
00000500: 04 0B 43 4C 45 33 20 4C 44 58 20 23 24 31 38 20 |..CLE3 LDX #$18 |
00000510: 3B 96 41 55 4C 54 20 32 4E 44 20 50 41 52 41 4D |;.AULT 2ND PARAM|
00000520: 2E 00 3D 0D 06 0B 4A 53 52 20 24 45 39 46 46 20 |..=...JSR $E9FF |
00000530: 3B 43 4C 45 41 52 20 41 20 4C 49 4E 45 00 45 0D |;CLEAR A LINE.E.|
00000540: 08 0B 44 45 58 00 52 0D 0A 0B 42 50 4C 20 43 4C |..DEX.R...BPL CL|
00000550: 45 32 00 6E 0D 0C 0B 43 4C 45 34 20 4A 4D 50 20 |E2.n...CLE4 JMP |
00000560: 24 45 35 36 43 20 3B 8C 20 43 55 52 53 B0 00 93 |$E56C ;. CURS...|
00000570: 0D 0E 0B 43 4C 45 35 20 4A 4D 50 20 24 42 32 34 |...CLE5 JMP $B24|
00000580: 38 20 3B 49 4C 4C 45 47 41 4C 20 51 55 41 4E 54 |8 ;ILLEGAL QUANT|
00000590: 49 54 59 00 99 0D 10 0B 3B 00 00 00 |ITY.....;... |
..".... SCREEN THINGS (AUG 25/84):.(...:
.H.... 5 STATEMENTS, 0 FUNCTIONS.N...:.K
.... KEYWORD CHARACTERS: 22.Q...:......
KEYWORD ROUTINE LINE SER#...... S/GRO
UND GRD 2740 013.X.... S/FRAME FR
AM 2748 014...... S/TEXT TEX
2756 015...... S/CRAM CFILL 2768
016.>.... S/CLS CLEA 2790 017.D
...:.K.... =============================
===.Q...:...H..F "GROUNDFRAMETEXT"...I..
F "CRAMCLS"...P..W.D GRD.1,FRAM.1,TEX.1.
O.Q..W.D CFILL.1,CLEA.1.....GRD JSR $B79
E ;. BYTE IN .X.....STX $D021 ;PUT IN BA
CKGROUND.....RTS.....;.?...FRAM JSR $B79
E ;. BYTE IN .X.[...STX $D020 ;PUT IN B.
DER.C...RTS.I.B.;...D.TEX JSR $B79E ;. B
YTE IN .X...F.TXA...H.. #$0F ;PUT LOW BY
TE IN.N.J.STA $286 ;TEXT COL. REGISTER.V
.L.RTS...N.;...P.CFILL JSR $B79E ;. BYTE
IN .X...R.TXA...T.LDY #0.0.V.CF1 STA $D
800,Y ;FILL COL..G.X.STA $D900,Y ;MEM.Y.
W.Z.STA $DA00,Y.G...STA $DB00,Y.O...INY.
{...BNE CF1.....RTS.....;.....CLEA BNE C
LE1 ;. NO PARAMETERS.I...JMP $E544 ;JUST
. SCREEN.....CLE1 JSR $B79E ;. A BYTE..
...STX $14 ;CHECK RANGE.....CPX #$19....
.BCS CLE5.2...JSR $79 ;BRANCH . NO.N...B
EQ CLE3 ;2ND PARAMETER.K...JSR $AEFD ;CH
ECK . COMMA.....JSR $B79E ;BET SEC.D PAR
AMETER.....CLE2 CPX $14 ;EXIT . LESS.H..
.BCC CLE4 ;THAN FIRST .E.....CPX #$19 ;C
HECK RANGE.....BCS CLE5......BYTE $2C.!.
..CLE3 LDX #$18 ;.AULT 2ND PARAM..=...JS
R $E9FF ;CLEAR A LINE.E...DEX.R...BPL CL
E2.N...CLE4 JMP $E56C ;. CURS......CLE5
JMP $B248 ;ILLEGAL QUANTITY.....;...
> CLICK IMAGE PREVIEW FOR FULL MODAL