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

LOAD'FONT.PROC

FILE INFORMATION

FILENAME(S): LOAD'FONT.PROC

FILE TYPE(S): SEQ

FILE SIZE: 592b

FIRST SEEN: 2025-11-30 01:07:52

APPEARS ON: 4 disk(s)

FILE HASH

7cda1eb31bb298cb34eed066119cf5fdc1ce87250f83e729243446f4ea095d88

FOUND ON DISKS (4 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
FREEWARE DISK NR LOAD'FONT.PROC SEQ Treasure Chest - Wolfgang Rauprich 33 1 DOWNLOAD FILE
FREESOFT DISK NR LOAD'FONT.PROC SEQ Treasure Chest - Wolfgang Rauprich 33 1 DOWNLOAD FILE
C OMAL LOAD'FONT.PROC SEQ Treasure Chest - Wolfgang Rauprich 33 1 DOWNLOAD FILE
C OMAL LOAD'FONT.PROC SEQ Treasure Chest - Wolfgang Rauprich 33 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 2F 2F 0D  39 30 31 30 20 50 52 4F  |9000 //.9010 PRO|
00000010: 43 20 4C 4F 41 44 46 4F  4E 54 28 4E 41 4D 45 24  |C LOADFONT(NAME$|
00000020: 29 20 0D 39 30 32 30 20  49 46 20 50 45 45 4B 28  |) .9020 IF PEEK(|
00000030: 38 35 30 29 3C 3E 31 36  39 20 54 48 45 4E 20 4C  |850)<>169 THEN L|
00000040: 4F 41 44 27 49 4E 49 54  0D 39 30 33 30 20 46 4F  |OAD'INIT.9030 FO|
00000050: 52 20 49 3A 3D 31 20 54  4F 20 4C 45 4E 28 4E 41  |R I:=1 TO LEN(NA|
00000060: 4D 45 24 29 20 44 4F 0D  39 30 34 30 20 50 4F 4B  |ME$) DO.9040 POK|
00000070: 45 20 38 32 37 2B 49 2C  4F 52 44 28 4E 41 4D 45  |E 827+I,ORD(NAME|
00000080: 24 28 49 29 29 0D 39 30  35 30 20 45 4E 44 46 4F  |$(I)).9050 ENDFO|
00000090: 52 20 49 0D 39 30 36 30  20 50 4F 4B 45 20 38 35  |R I.9060 POKE 85|
000000A0: 39 2C 49 2D 31 0D 39 30  37 30 20 53 59 53 20 38  |9,I-1.9070 SYS 8|
000000B0: 35 30 0D 39 30 38 30 20  45 4E 44 50 52 4F 43 20  |50.9080 ENDPROC |
000000C0: 4C 4F 41 44 46 4F 4E 54  0D 39 30 39 30 20 2F 2F  |LOADFONT.9090 //|
000000D0: 0D 39 31 30 30 20 50 52  4F 43 20 4C 4F 41 44 27  |.9100 PROC LOAD'|
000000E0: 49 4E 49 54 20 0D 39 31  31 30 20 43 48 45 43 4B  |INIT .9110 CHECK|
000000F0: 53 55 4D 3A 3D 30 0D 39  31 32 30 20 46 4F 52 20  |SUM:=0.9120 FOR |
00000100: 49 3A 3D 38 35 30 20 54  4F 20 38 38 31 20 44 4F  |I:=850 TO 881 DO|
00000110: 0D 39 31 33 30 20 52 45  41 44 20 4E 55 4D 0D 39  |.9130 READ NUM.9|
00000120: 31 34 30 20 50 4F 4B 45  20 49 2C 4E 55 4D 0D 39  |140 POKE I,NUM.9|
00000130: 31 35 30 20 43 48 45 43  4B 53 55 4D 3A 2B 4E 55  |150 CHECKSUM:+NU|
00000140: 4D 0D 39 31 36 30 20 45  4E 44 46 4F 52 20 49 0D  |M.9160 ENDFOR I.|
00000150: 39 31 37 30 20 49 46 20  43 48 45 43 4B 53 55 4D  |9170 IF CHECKSUM|
00000160: 3C 3E 33 39 37 32 20 54  48 45 4E 0D 39 31 38 30  |<>3972 THEN.9180|
00000170: 20 50 52 49 4E 54 20 22  44 41 54 41 20 45 52 52  | PRINT "DATA ERR|
00000180: 4F 52 21 22 0D 39 31 39  30 20 53 54 4F 50 20 0D  |OR!".9190 STOP .|
00000190: 39 32 30 30 20 45 4E 44  49 46 20 0D 39 32 31 30  |9200 ENDIF .9210|
000001A0: 20 2F 2F 0D 39 32 32 30  20 44 41 54 41 20 31 36  | //.9220 DATA 16|
000001B0: 39 2C 38 2C 31 37 30 2C  31 36 30 2C 30 2C 33 32  |9,8,170,160,0,32|
000001C0: 2C 31 38 36 2C 32 35 35  0D 39 32 33 30 20 44 41  |,186,255.9230 DA|
000001D0: 54 41 20 31 36 39 2C 31  36 2C 31 36 32 2C 36 30  |TA 169,16,162,60|
000001E0: 2C 31 36 30 2C 33 2C 33  32 2C 31 38 39 0D 39 32  |,160,3,32,189.92|
000001F0: 34 30 20 44 41 54 41 20  32 35 35 2C 31 36 39 2C  |40 DATA 255,169,|
00000200: 30 2C 31 36 32 2C 30 2C  31 36 30 2C 32 30 30 2C  |0,162,0,160,200,|
00000210: 33 32 0D 39 32 35 30 20  44 41 54 41 20 32 31 33  |32.9250 DATA 213|
00000220: 2C 32 35 35 2C 31 36 39  2C 38 2C 33 32 2C 31 39  |,255,169,8,32,19|
00000230: 35 2C 32 35 35 2C 39 36  0D 39 32 36 30 20 45 4E  |5,255,96.9260 EN|
00000240: 44 50 52 4F 43 20 4C 4F  41 44 27 49 4E 49 54 0D  |DPROC LOAD'INIT.|

9000 //.9010 PROC LOADFONT(NAME$) .9020 
IF PEEK(850)<>169 THEN LOAD'INIT.9030 FO
R I:=1 TO LEN(NAME$) DO.9040 POKE 827+I,
ORD(NAME$(I)).9050 ENDFOR I.9060 POKE 85
9,I-1.9070 SYS 850.9080 ENDPROC LOADFONT
.9090 //.9100 PROC LOAD'INIT .9110 CHECK
SUM:=0.9120 FOR I:=850 TO 881 DO.9130 RE
AD NUM.9140 POKE I,NUM.9150 CHECKSUM:+NU
M.9160 ENDFOR I.9170 IF CHECKSUM<>3972 T
HEN.9180 PRINT "DATA ERROR!".9190 STOP .
9200 ENDIF .9210 //.9220 DATA 169,8,170,
160,0,32,186,255.9230 DATA 169,16,162,60
,160,3,32,189.9240 DATA 255,169,0,162,0,
160,200,32.9250 DATA 213,255,169,8,32,19
5,255,96.9260 ENDPROC LOAD'INIT.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL