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

LOAD'SCREEN.L

FILE INFORMATION

FILENAME(S): LOAD'SCREEN.L

FILE TYPE(S): SEQ

FILE SIZE: 293b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 2 disk(s)

FILE HASH

12bef3725eff05211b7a4d5fdd299ee9da09fae99729a2c41c0b8771f5c26705

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL LOAD'SCREEN.L SEQ hedning, Mattias H00r 25 3 DOWNLOAD FILE
CCS COMAL LOAD'SCREEN.L SEQ hedning, Mattias H00r 25 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 4C 4F 41 44 27 53  |9000 PROC LOAD'S|
00000010: 43 52 45 45 4E 28 46 49  4C 45 4E 41 4D 45 24 29  |CREEN(FILENAME$)|
00000020: 20 43 4C 4F 53 45 44 0D  39 30 31 30 20 44 49 4D  | CLOSED.9010 DIM|
00000030: 20 4E 41 4D 45 24 20 4F  46 20 32 30 2C 20 41 24  | NAME$ OF 20, A$|
00000040: 20 4F 46 20 34 30 0D 39  30 32 30 20 41 24 28 31  | OF 40.9020 A$(1|
00000050: 3A 34 30 29 3A 3D 22 20  22 20 2F 2F 34 30 20 53  |:40):=" " //40 S|
00000060: 50 41 43 45 53 0D 39 30  33 30 20 4E 41 4D 45 24  |PACES.9030 NAME$|
00000070: 3A 3D 46 49 4C 45 4E 41  4D 45 24 2B 22 2E 48 52  |:=FILENAME$+".HR|
00000080: 47 22 0D 39 30 34 30 20  53 45 54 47 52 41 50 48  |G".9040 SETGRAPH|
00000090: 49 43 20 30 0D 39 30 35  30 20 46 55 4C 4C 53 43  |IC 0.9050 FULLSC|
000000A0: 52 45 45 4E 20 0D 39 30  36 30 20 48 49 44 45 54  |REEN .9060 HIDET|
000000B0: 55 52 54 4C 45 20 0D 39  30 37 30 20 50 45 4E 43  |URTLE .9070 PENC|
000000C0: 4F 4C 4F 52 20 31 0D 39  30 38 30 20 46 4F 52 20  |OLOR 1.9080 FOR |
000000D0: 59 3A 3D 30 20 54 4F 20  31 39 32 20 53 54 45 50  |Y:=0 TO 192 STEP|
000000E0: 20 38 20 44 4F 20 50 4C  4F 54 54 45 58 54 20 30  | 8 DO PLOTTEXT 0|
000000F0: 2C 59 2C 41 24 0D 39 30  39 30 20 4F 42 4A 4C 4F  |,Y,A$.9090 OBJLO|
00000100: 41 44 28 4E 41 4D 45 24  2C 38 29 0D 39 31 30 30  |AD(NAME$,8).9100|
00000110: 20 45 4E 44 50 52 4F 43  20 4C 4F 41 44 27 53 43  | ENDPROC LOAD'SC|
00000120: 52 45 45 4E 0D                                    |REEN.           |

9000 PROC LOAD'SCREEN(FILENAME$) CLOSED.
9010 DIM NAME$ OF 20, A$ OF 40.9020 A$(1
:40):=" " //40 SPACES.9030 NAME$:=FILENA
ME$+".HRG".9040 SETGRAPHIC 0.9050 FULLSC
REEN .9060 HIDETURTLE .9070 PENCOLOR 1.9
080 FOR Y:=0 TO 192 STEP 8 DO PLOTTEXT 0
,Y,A$.9090 OBJLOAD(NAME$,8).9100 ENDPROC
 LOAD'SCREEN.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL