_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

SCREEN THINGS

FILE INFORMATION

FILENAME(S): SCREEN THINGS

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-30 21:12:21

APPEARS ON: 3 disk(s)

FILE HASH

9994da3377e95e657805d27d60a4c02ec215ef97869b8813fcb93b2e4ab47f05

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
RANS ISK1 SCREEN THINGS PRG DuncanTwain 23 5 DOWNLOAD FILE
RANS ISK2 SCREEN THINGS PRG DuncanTwain 23 6 DOWNLOAD FILE
TRANSACTOR 4 SCREEN THINGS PRG DuncanTwain 23 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 29 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 20 20 20 20 20 20 20  3A 00 2F 08 01 00 3A 00  |)       :./...:.|
00000030: 4F 08 02 00 8F 20 35 20  53 54 41 54 45 4D 45 4E  |O.... 5 STATEMEN|
00000040: 54 53 2C 20 30 20 46 55  4E 43 54 49 4F 4E 53 00  |TS, 0 FUNCTIONS.|
00000050: 55 08 03 00 3A 00 72 08  04 00 8F 20 4B 45 59 57  |U...:.r.... KEYW|
00000060: 4F 52 44 20 43 48 41 52  41 43 54 45 52 53 3A 20  |ORD CHARACTERS: |
00000070: 32 32 00 78 08 05 00 3A  00 A0 08 06 00 8F 20 4B  |22.x...:...... K|
00000080: 45 59 57 4F 52 44 20 20  20 20 20 52 4F 55 54 49  |EYWORD     ROUTI|
00000090: 4E 45 20 20 4C 49 4E 45  20 20 20 53 45 52 20 23  |NE  LINE   SER #|
000000A0: 00 C7 08 07 00 8F 20 53  2F 47 52 4F 55 4E 44 20  |...... S/GROUND |
000000B0: 20 20 20 47 52 44 20 20  20 20 20 20 32 37 34 30  |   GRD      2740|
000000C0: 20 20 20 20 30 31 33 00  EE 08 08 00 8F 20 53 2F  |    013...... S/|
000000D0: 46 52 41 4D 45 20 20 20  20 20 46 52 41 4D 20 20  |FRAME     FRAM  |
000000E0: 20 20 20 32 37 34 38 20  20 20 20 30 31 34 00 15  |   2748    014..|
000000F0: 09 09 00 8F 20 53 2F 54  45 58 54 20 20 20 20 20  |.... S/TEXT     |
00000100: 20 54 45 58 20 20 20 20  20 20 32 37 35 36 20 20  | TEX      2756  |
00000110: 20 20 30 31 35 00 3B 09  0A 00 8F 20 53 2F 43 52  |  015.;.... S/CR|
00000120: 41 4D 20 20 20 20 20 43  46 49 4C 4C 20 20 20 20  |AM     CFILL    |
00000130: 32 37 36 38 20 20 20 20  30 31 36 00 61 09 0B 00  |2768    016.a...|
00000140: 8F 20 53 2F 43 4C 53 20  20 20 20 20 20 43 4C 45  |. S/CLS      CLE|
00000150: 41 20 20 20 20 20 32 37  39 30 20 20 20 20 30 31  |A     2790    01|
00000160: 37 00 67 09 0C 00 3A 00  8E 09 0D 00 8F 20 3D 3D  |7.g...:...... ==|
00000170: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000180: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 00 94  |==============..|
00000190: 09 0E 00 3A 00 AD 09 68  00 2E C6 20 22 47 52 4F  |...:...h... "GRO|
000001A0: 55 4E C4 46 52 41 4D C5  54 45 58 D4 22 00 BE 09  |UN.FRAM.TEX."...|
000001B0: 69 00 2E C6 20 22 43 52  41 CD 43 4C D3 22 00 DA  |i... "CRA.CL."..|
000001C0: 09 50 04 2E 57 B0 44 20  47 52 44 AB 31 2C 46 52  |.P..W.D GRD.1,FR|
000001D0: 41 4D AB 31 2C 54 45 58  AB 31 00 F2 09 51 04 2E  |AM.1,TEX.1...Q..|
000001E0: 57 B0 44 20 43 46 49 4C  4C AB 31 2C 43 4C 45 41  |W.D CFILL.1,CLEA|
000001F0: AB 31 00 04 0A B4 0A 47  52 44 20 4A 53 52 20 24  |.1.....GRD JSR $|
00000200: 42 37 39 45 00 12 0A B6  0A 53 54 58 20 24 44 30  |B79E.....STX $D0|
00000210: 32 31 00 1A 0A B8 0A 52  54 53 00 20 0A BA 0A 3B  |21.....RTS. ...;|
00000220: 00 33 0A BC 0A 46 52 41  4D 20 4A 53 52 20 24 42  |.3...FRAM JSR $B|
00000230: 37 39 45 00 41 0A BE 0A  53 54 58 20 24 44 30 32  |79E.A...STX $D02|
00000240: 30 00 49 0A C0 0A 52 54  53 00 4F 0A C2 0A 3B 00  |0.I...RTS.O...;.|
00000250: 61 0A C4 0A 54 45 58 20  4A 53 52 20 24 42 37 39  |a...TEX JSR $B79|
00000260: 45 00 69 0A C6 0A 54 58  41 00 74 0A C8 0A AF 20  |E.i...TXA.t.... |
00000270: 23 24 30 46 00 81 0A CA  0A 53 54 41 20 24 32 38  |#$0F.....STA $28|
00000280: 36 00 89 0A CC 0A 52 54  53 00 8F 0A CE 0A 3B 00  |6.....RTS.....;.|
00000290: A3 0A D0 0A 43 46 49 4C  4C 20 4A 53 52 20 24 42  |....CFILL JSR $B|
000002A0: 37 39 45 00 AB 0A D2 0A  54 58 41 00 B6 0A D4 0A  |79E.....TXA.....|
000002B0: 4C 44 59 20 23 30 00 CA  0A D6 0A 43 46 31 20 53  |LDY #0.....CF1 S|
000002C0: 54 41 20 24 44 38 30 30  2C 59 00 DA 0A D8 0A 53  |TA $D800,Y.....S|
000002D0: 54 41 20 24 44 39 30 30  2C 59 00 EA 0A DA 0A 53  |TA $D900,Y.....S|
000002E0: 54 41 20 24 44 41 30 30  2C 59 00 FA 0A DC 0A 53  |TA $DA00,Y.....S|
000002F0: 54 41 20 24 44 42 30 30  2C 59 00 02 0B DE 0A 49  |TA $DB00,Y.....I|
00000300: 4E 59 00 0E 0B E0 0A 42  4E 45 20 43 46 31 00 16  |NY.....BNE CF1..|
00000310: 0B E2 0A 52 54 53 00 1C  0B E4 0A 3B 00 2E 0B E6  |...RTS.....;....|
00000320: 0A 43 4C 45 41 20 42 4E  45 20 43 4C 45 31 00 3C  |.CLEA BNE CLE1.<|
00000330: 0B E8 0A 4A 4D 50 20 24  45 35 34 34 00 4F 0B EA  |...JMP $E544.O..|
00000340: 0A 43 4C 45 31 20 4A 53  52 20 24 42 37 39 45 00  |.CLE1 JSR $B79E.|
00000350: 5B 0B EC 0A 53 54 58 20  24 31 34 00 68 0B EE 0A  |[...STX $14.h...|
00000360: 43 50 58 20 23 24 31 39  00 75 0B F0 0A 42 43 53  |CPX #$19.u...BCS|
00000370: 20 43 4C 45 35 00 81 0B  F2 0A 4A 53 52 20 24 37  | CLE5.....JSR $7|
00000380: 39 00 8E 0B F4 0A 42 45  51 20 43 4C 45 33 00 9C  |9.....BEQ CLE3..|
00000390: 0B F6 0A 4A 53 52 20 24  41 45 46 44 00 AA 0B F8  |...JSR $AEFD....|
000003A0: 0A 4A 53 52 20 24 42 37  39 45 00 BB 0B FA 0A 43  |.JSR $B79E.....C|
000003B0: 4C 45 32 20 43 50 58 20  24 31 34 00 C8 0B FC 0A  |LE2 CPX $14.....|
000003C0: 42 43 43 20 43 4C 45 34  00 D5 0B FE 0A 43 50 58  |BCC CLE4.....CPX|
000003D0: 20 23 24 31 39 00 E2 0B  00 0B 42 43 53 20 43 4C  | #$19.....BCS CL|
000003E0: 45 35 00 F0 0B 02 0B 2E  42 59 54 45 20 24 32 43  |E5......BYTE $2C|
000003F0: 00 02 0C 04 0B 43 4C 45  33 20 4C 44 58 20 23 24  |.....CLE3 LDX #$|
00000400: 31 38 00 10 0C 06 0B 4A  53 52 20 24 45 39 46 46  |18.....JSR $E9FF|
00000410: 00 18 0C 08 0B 44 45 58  00 25 0C 0A 0B 42 50 4C  |.....DEX.%...BPL|
00000420: 20 43 4C 45 32 00 38 0C  0C 0B 43 4C 45 34 20 4A  | CLE2.8...CLE4 J|
00000430: 4D 50 20 24 45 35 36 43  00 4B 0C 0E 0B 43 4C 45  |MP $E56C.K...CLE|
00000440: 35 20 4A 4D 50 20 24 42  32 34 38 00 51 0C 10 0B  |5 JMP $B248.Q...|
00000450: 3B 00 00 00                                       |;...            |
..).... SCREEN THINGS (AUG 25/84)       
:./...:.O.... 5 STATEMENTS, 0 FUNCTIONS.
U...:.R.... KEYWORD CHARACTERS: 22.X...:
. .... KEYWORD     ROUTINE  LINE   SER #
.G.... S/GROUND    GRD      2740    013.
..... S/FRAME     FRAM     2748    014..
.... S/TEXT      TEX      2756    015.;.
... S/CRAM     CFILL    2768    016.A...
. S/CLS      CLEA     2790    017.G...:.
..... ================================..
...:...H..F "GROUNDFRAMETEXT"...I..F "CR
AMCLS".Z.P..W.D GRD.1,FRAM.1,TEX.1...Q..
W.D CFILL.1,CLEA.1.....GRD JSR $B79E....
.STX $D021.....RTS. ...;.3...FRAM JSR $B
79E.A...STX $D020.I...RTS.O.B.;.A.D.TEX 
JSR $B79E.I.F.TXA.T.H.. #$0F...J.STA $28
6...L.RTS...N.;...P.CFILL JSR $B79E...R.
TXA...T.LDY #0.J.V.CF1 STA $D800,Y.Z.X.S
TA $D900,Y...Z.STA $DA00,Y.....STA $DB00
,Y.....INY.....BNE CF1.....RTS.....;....
.CLEA BNE CLE1.<...JMP $E544.O...CLE1 JS
R $B79E.[...STX $14.H...CPX #$19.U...BCS
 CLE5.....JSR $79.....BEQ CLE3.....JSR $
AEFD.....JSR $B79E.....CLE2 CPX $14.H...
BCC CLE4.U...CPX #$19.....BCS CLE5......
BYTE $2C.....CLE3 LDX #$18.....JSR $E9FF
.....DEX.%...BPL CLE2.8...CLE4 JMP $E56C
.K...CLE5 JMP $B248.Q...;...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL