Home » CEEFAX disks » telesoftware15.adl » 28-04-89/Loader
28-04-89/Loader
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » CEEFAX disks » telesoftware15.adl |
| Filename: | 28-04-89/Loader |
| Read OK: | ✔ |
| File size: | 07A6 bytes |
| Load address: | FFFF1A00 |
| Exec address: | FFFF8023 |
File contents
10 REM ***************************** 20 REM ** User Defined Character *** 30 REM ** Designer Program ********* 40 REM ** Loader IIa *************** 50 REM ** (c) D Mc Guigan 25/7/88 ** 60 REM ***************************** 70: 80 MODE 4:VDU23;8202;0;0;0;0; 90 PROCscreen 100 PROCdata 110 IF PAGE>&E00:M%=1:ELSE M%=0 120 *FX 3 2 130 ONERROR:OSCLI"SPOOL C/DATA":PRINT"NEW":PRINT"AUTO":*SPOOL 140 IF M%=0:*INFO"C/DATA" 150 *FX 3 0 160 PROCdelay 170 MODE 7 180 VDU 21 190 IF M%=1:*KEY 0 LOAD"CHARS"|M*TAPE|MN%=PAGE-&E00:FOR L%=PAGE TO TOP STEP 4:!(L%-N%)=!L%:NEXT:PAGE=&E00|MOLD|MRUN|M 200 IF M%=0:*KEY 0 CHAIN"CHARS"|M 210 *FX 138,0,128 220 END 230: 240 DEFPROCscreen 250 VDU 19,1,0,0,0,0 260 *LOAD Screen 270 VDU 19,0,7,0,0,0 280 ENDPROC 290: 300 DEFPROCdelay 310 GCOL 4,0:VDU 5 320 MOVE 384,128 330 FOR K=1 TO 18:VDU 159:NEXT 340 MOVE 384,128 350 PRINT"Space To Continue." 360 REPEAT:UNTIL GET=32 370 ENDPROC 380: 390 DEFPROCdata 400 FOR N=128 TO 159 410 VDU 23,N 420 FOR M=1 TO 8 430 READ data 440 VDU data 450 NEXT 460 NEXT 470 ENDPROC 480: 490DATA 198,198,198,198,198,198,254,124 500DATA 127,127,127,127,127,127,127,0 510DATA 192,192,192,192,198,238,124,56 520DATA 0,0,56,124,238,198,192,192 530DATA 198,198,198,198,198,198,252,248 540DATA 0,248,252,198,198,198,198,198 550DATA 6,62,126,230,198,230,126,62 560DATA 0,0,0,0,0,124,126,6 570DATA 192,192,192,192,192,230,126,60 580DATA 0,0,0,0,0,60,126,230 590DATA 126,230,198,198,198,238,126,54 600DATA 0,0,6,6,6,6,6,62 610DATA 198,254,252,192,192,224,126,62 620DATA 0,0,0,0,0,124,254,198 630DATA 252,252,48,48,48,48,48,48 640DATA 0,0,28,62,54,54,48,48 650DATA 198,254,126,6,6,198,254,124 660DATA 0,0,0,0,0,124,254,198 670DATA 252,254,198,198,198,198,198,198 680DATA 0,0,192,192,192,192,192,192 690DATA 56,24,24,24,24,24,126,126 700DATA 0,0,0,0,24,24,0,56 710DATA 198,198,198,198,198,198,198,198 720DATA 0,0,0,0,0,124,254,198 730DATA 198,192,192,192,192,192,192,192 740DATA 0,0,0,0,0,188,254,198 750DATA 192,252,126,6,6,6,254,124 760DATA 0,0,0,0,0,124,254,192 770DATA 48,48,48,48,48,54,62,28 780DATA 0,0,48,48,48,252,252,48 790DATA 0,0,198,198,198,198,198,198 800DATA 255,255,255,255,255,255,255,255
$ � *****************************
$ � ** User Defined Character ***
$ � ** Designer Program *********
($ � ** Loader IIa ***************
2$ � ** (c) D Mc Guigan 25/7/88 **
<$ � *****************************
F:
P � 4:�23;8202;0;0;0;0;
Z �screen
d
�data
n � �>&E00:M%=1:� M%=0
x *FX 3 2
�- �:�"SPOOL C/DATA":�"NEW":�"AUTO":*SPOOL
� � M%=0:*INFO"C/DATA"
� *FX 3 0
� �delay
� � 7
� � 21
�u � M%=1:*KEY 0 LOAD"CHARS"|M*TAPE|MN%=PAGE-&E00:FOR L%=PAGE TO TOP STEP 4:!(L%-N%)=!L%:NEXT:PAGE=&E00|MOLD|MRUN|M
�! � M%=0:*KEY 0 CHAIN"CHARS"|M
� *FX 138,0,128
� �
�:
�
��screen
� � 19,1,0,0,0,0
*LOAD Screen
� 19,0,7,0,0,0
�
":
, ��delay
6 � 4,0:� 5
@ � 384,128
J � K=1 � 18:� 159:�
T � 384,128
^ �"Space To Continue."
h �:� �=32
r �
|:
� ��data
� � N=128 � 159
� � 23,N
� � M=1 � 8
� � data
� � data
�
�
� �
� �
�:
�%� 198,198,198,198,198,198,254,124
�#� 127,127,127,127,127,127,127,0
�$� 192,192,192,192,198,238,124,56
� 0,0,56,124,238,198,192,192
%� 198,198,198,198,198,198,252,248
#� 0,248,252,198,198,198,198,198
&!� 6,62,126,230,198,230,126,62
0� 0,0,0,0,0,124,126,6
:$� 192,192,192,192,192,230,126,60
D� 0,0,0,0,0,60,126,230
N$� 126,230,198,198,198,238,126,54
X� 0,0,6,6,6,6,6,62
b$� 198,254,252,192,192,224,126,62
l� 0,0,0,0,0,124,254,198
v � 252,252,48,48,48,48,48,48
�� 0,0,28,62,54,54,48,48
�!� 198,254,126,6,6,198,254,124
�� 0,0,0,0,0,124,254,198
�%� 252,254,198,198,198,198,198,198
�!� 0,0,192,192,192,192,192,192
� � 56,24,24,24,24,24,126,126
�� 0,0,0,0,24,24,0,56
�%� 198,198,198,198,198,198,198,198
�� 0,0,0,0,0,124,254,198
�%� 198,192,192,192,192,192,192,192
�� 0,0,0,0,0,188,254,198
� � 192,252,126,6,6,6,254,124
�� 0,0,0,0,0,124,254,192
� 48,48,48,48,48,54,62,28
� 0,0,48,48,48,252,252,48
!� 0,0,198,198,198,198,198,198
%� 255,255,255,255,255,255,255,255
� 00000000 0d 00 0a 24 20 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a |...$ . *********| 00000010 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| 00000020 2a 2a 2a 2a 0d 00 14 24 20 f4 20 2a 2a 20 55 73 |****...$ . ** Us| 00000030 65 72 20 44 65 66 69 6e 65 64 20 43 68 61 72 61 |er Defined Chara| 00000040 63 74 65 72 20 2a 2a 2a 0d 00 1e 24 20 f4 20 2a |cter ***...$ . *| 00000050 2a 20 44 65 73 69 67 6e 65 72 20 50 72 6f 67 72 |* Designer Progr| 00000060 61 6d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 28 24 |am *********..($| 00000070 20 f4 20 2a 2a 20 4c 6f 61 64 65 72 20 49 49 61 | . ** Loader IIa| 00000080 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***************| 00000090 0d 00 32 24 20 f4 20 2a 2a 20 28 63 29 20 44 20 |..2$ . ** (c) D | 000000a0 4d 63 20 47 75 69 67 61 6e 20 32 35 2f 37 2f 38 |Mc Guigan 25/7/8| 000000b0 38 20 2a 2a 0d 00 3c 24 20 f4 20 2a 2a 2a 2a 2a |8 **..<$ . *****| 000000c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| 000000d0 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 46 05 3a 0d 00 50 |********..F.:..P| 000000e0 1a 20 eb 20 34 3a ef 32 33 3b 38 32 30 32 3b 30 |. . 4:.23;8202;0| 000000f0 3b 30 3b 30 3b 30 3b 0d 00 5a 0c 20 f2 73 63 72 |;0;0;0;..Z. .scr| 00000100 65 65 6e 0d 00 64 0a 20 f2 64 61 74 61 0d 00 6e |een..d. .data..n| 00000110 19 20 e7 20 90 3e 26 45 30 30 3a 4d 25 3d 31 3a |. . .>&E00:M%=1:| 00000120 8b 20 4d 25 3d 30 0d 00 78 0c 20 2a 46 58 20 33 |. M%=0..x. *FX 3| 00000130 20 32 0d 00 82 2d 20 ee 85 3a ff 22 53 50 4f 4f | 2...- ..:."SPOO| 00000140 4c 20 43 2f 44 41 54 41 22 3a f1 22 4e 45 57 22 |L C/DATA":."NEW"| 00000150 3a f1 22 41 55 54 4f 22 3a 2a 53 50 4f 4f 4c 0d |:."AUTO":*SPOOL.| 00000160 00 8c 19 20 e7 20 4d 25 3d 30 3a 2a 49 4e 46 4f |... . M%=0:*INFO| 00000170 22 43 2f 44 41 54 41 22 0d 00 96 0c 20 2a 46 58 |"C/DATA".... *FX| 00000180 20 33 20 30 0d 00 a0 0b 20 f2 64 65 6c 61 79 0d | 3 0.... .delay.| 00000190 00 aa 08 20 eb 20 37 0d 00 b4 09 20 ef 20 32 31 |... . 7.... . 21| 000001a0 0d 00 be 75 20 e7 20 4d 25 3d 31 3a 2a 4b 45 59 |...u . M%=1:*KEY| 000001b0 20 30 20 4c 4f 41 44 22 43 48 41 52 53 22 7c 4d | 0 LOAD"CHARS"|M| 000001c0 2a 54 41 50 45 7c 4d 4e 25 3d 50 41 47 45 2d 26 |*TAPE|MN%=PAGE-&| 000001d0 45 30 30 3a 46 4f 52 20 4c 25 3d 50 41 47 45 20 |E00:FOR L%=PAGE | 000001e0 54 4f 20 54 4f 50 20 53 54 45 50 20 34 3a 21 28 |TO TOP STEP 4:!(| 000001f0 4c 25 2d 4e 25 29 3d 21 4c 25 3a 4e 45 58 54 3a |L%-N%)=!L%:NEXT:| 00000200 50 41 47 45 3d 26 45 30 30 7c 4d 4f 4c 44 7c 4d |PAGE=&E00|MOLD|M| 00000210 52 55 4e 7c 4d 0d 00 c8 21 20 e7 20 4d 25 3d 30 |RUN|M...! . M%=0| 00000220 3a 2a 4b 45 59 20 30 20 43 48 41 49 4e 22 43 48 |:*KEY 0 CHAIN"CH| 00000230 41 52 53 22 7c 4d 0d 00 d2 12 20 2a 46 58 20 31 |ARS"|M.... *FX 1| 00000240 33 38 2c 30 2c 31 32 38 0d 00 dc 06 20 e0 0d 00 |38,0,128.... ...| 00000250 e6 05 3a 0d 00 f0 0d 20 dd f2 73 63 72 65 65 6e |..:.... ..screen| 00000260 0d 00 fa 15 20 20 20 ef 20 31 39 2c 31 2c 30 2c |.... . 19,1,0,| 00000270 30 2c 30 2c 30 0d 01 04 13 20 20 20 2a 4c 4f 41 |0,0,0.... *LOA| 00000280 44 20 53 63 72 65 65 6e 0d 01 0e 15 20 20 20 ef |D Screen.... .| 00000290 20 31 39 2c 30 2c 37 2c 30 2c 30 2c 30 0d 01 18 | 19,0,7,0,0,0...| 000002a0 06 20 e1 0d 01 22 05 3a 0d 01 2c 0c 20 dd f2 64 |. ...".:..,. ..d| 000002b0 65 6c 61 79 0d 01 36 10 20 20 20 e6 20 34 2c 30 |elay..6. . 4,0| 000002c0 3a ef 20 35 0d 01 40 10 20 20 20 ec 20 33 38 34 |:. 5..@. . 384| 000002d0 2c 31 32 38 0d 01 4a 19 20 20 20 e3 20 4b 3d 31 |,128..J. . K=1| 000002e0 20 b8 20 31 38 3a ef 20 31 35 39 3a ed 0d 01 54 | . 18:. 159:...T| 000002f0 10 20 20 20 ec 20 33 38 34 2c 31 32 38 0d 01 5e |. . 384,128..^| 00000300 1c 20 20 20 f1 22 53 70 61 63 65 20 54 6f 20 43 |. ."Space To C| 00000310 6f 6e 74 69 6e 75 65 2e 22 0d 01 68 0f 20 20 20 |ontinue."..h. | 00000320 f5 3a fd 20 a5 3d 33 32 0d 01 72 06 20 e1 0d 01 |.:. .=32..r. ...| 00000330 7c 05 3a 0d 01 86 0b 20 dd f2 64 61 74 61 0d 01 ||.:.... ..data..| 00000340 90 14 20 20 20 e3 20 4e 3d 31 32 38 20 b8 20 31 |.. . N=128 . 1| 00000350 35 39 0d 01 9a 0f 20 20 20 20 20 ef 20 32 33 2c |59.... . 23,| 00000360 4e 0d 01 a4 12 20 20 20 20 20 e3 20 4d 3d 31 20 |N.... . M=1 | 00000370 b8 20 38 0d 01 ae 11 20 20 20 20 20 20 20 f3 20 |. 8.... . | 00000380 64 61 74 61 0d 01 b8 11 20 20 20 20 20 20 20 ef |data.... .| 00000390 20 64 61 74 61 0d 01 c2 0a 20 20 20 20 20 ed 0d | data.... ..| 000003a0 01 cc 08 20 20 20 ed 0d 01 d6 06 20 e1 0d 01 e0 |... ..... ....| 000003b0 05 3a 0d 01 ea 25 dc 20 31 39 38 2c 31 39 38 2c |.:...%. 198,198,| 000003c0 31 39 38 2c 31 39 38 2c 31 39 38 2c 31 39 38 2c |198,198,198,198,| 000003d0 32 35 34 2c 31 32 34 0d 01 f4 23 dc 20 31 32 37 |254,124...#. 127| 000003e0 2c 31 32 37 2c 31 32 37 2c 31 32 37 2c 31 32 37 |,127,127,127,127| 000003f0 2c 31 32 37 2c 31 32 37 2c 30 0d 01 fe 24 dc 20 |,127,127,0...$. | 00000400 31 39 32 2c 31 39 32 2c 31 39 32 2c 31 39 32 2c |192,192,192,192,| 00000410 31 39 38 2c 32 33 38 2c 31 32 34 2c 35 36 0d 02 |198,238,124,56..| 00000420 08 20 dc 20 30 2c 30 2c 35 36 2c 31 32 34 2c 32 |. . 0,0,56,124,2| 00000430 33 38 2c 31 39 38 2c 31 39 32 2c 31 39 32 0d 02 |38,198,192,192..| 00000440 12 25 dc 20 31 39 38 2c 31 39 38 2c 31 39 38 2c |.%. 198,198,198,| 00000450 31 39 38 2c 31 39 38 2c 31 39 38 2c 32 35 32 2c |198,198,198,252,| 00000460 32 34 38 0d 02 1c 23 dc 20 30 2c 32 34 38 2c 32 |248...#. 0,248,2| 00000470 35 32 2c 31 39 38 2c 31 39 38 2c 31 39 38 2c 31 |52,198,198,198,1| 00000480 39 38 2c 31 39 38 0d 02 26 21 dc 20 36 2c 36 32 |98,198..&!. 6,62| 00000490 2c 31 32 36 2c 32 33 30 2c 31 39 38 2c 32 33 30 |,126,230,198,230| 000004a0 2c 31 32 36 2c 36 32 0d 02 30 19 dc 20 30 2c 30 |,126,62..0.. 0,0| 000004b0 2c 30 2c 30 2c 30 2c 31 32 34 2c 31 32 36 2c 36 |,0,0,0,124,126,6| 000004c0 0d 02 3a 24 dc 20 31 39 32 2c 31 39 32 2c 31 39 |..:$. 192,192,19| 000004d0 32 2c 31 39 32 2c 31 39 32 2c 32 33 30 2c 31 32 |2,192,192,230,12| 000004e0 36 2c 36 30 0d 02 44 1a dc 20 30 2c 30 2c 30 2c |6,60..D.. 0,0,0,| 000004f0 30 2c 30 2c 36 30 2c 31 32 36 2c 32 33 30 0d 02 |0,0,60,126,230..| 00000500 4e 24 dc 20 31 32 36 2c 32 33 30 2c 31 39 38 2c |N$. 126,230,198,| 00000510 31 39 38 2c 31 39 38 2c 32 33 38 2c 31 32 36 2c |198,198,238,126,| 00000520 35 34 0d 02 58 16 dc 20 30 2c 30 2c 36 2c 36 2c |54..X.. 0,0,6,6,| 00000530 36 2c 36 2c 36 2c 36 32 0d 02 62 24 dc 20 31 39 |6,6,6,62..b$. 19| 00000540 38 2c 32 35 34 2c 32 35 32 2c 31 39 32 2c 31 39 |8,254,252,192,19| 00000550 32 2c 32 32 34 2c 31 32 36 2c 36 32 0d 02 6c 1b |2,224,126,62..l.| 00000560 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 31 32 34 2c |. 0,0,0,0,0,124,| 00000570 32 35 34 2c 31 39 38 0d 02 76 1f dc 20 32 35 32 |254,198..v.. 252| 00000580 2c 32 35 32 2c 34 38 2c 34 38 2c 34 38 2c 34 38 |,252,48,48,48,48| 00000590 2c 34 38 2c 34 38 0d 02 80 1b dc 20 30 2c 30 2c |,48,48..... 0,0,| 000005a0 32 38 2c 36 32 2c 35 34 2c 35 34 2c 34 38 2c 34 |28,62,54,54,48,4| 000005b0 38 0d 02 8a 21 dc 20 31 39 38 2c 32 35 34 2c 31 |8...!. 198,254,1| 000005c0 32 36 2c 36 2c 36 2c 31 39 38 2c 32 35 34 2c 31 |26,6,6,198,254,1| 000005d0 32 34 0d 02 94 1b dc 20 30 2c 30 2c 30 2c 30 2c |24..... 0,0,0,0,| 000005e0 30 2c 31 32 34 2c 32 35 34 2c 31 39 38 0d 02 9e |0,124,254,198...| 000005f0 25 dc 20 32 35 32 2c 32 35 34 2c 31 39 38 2c 31 |%. 252,254,198,1| 00000600 39 38 2c 31 39 38 2c 31 39 38 2c 31 39 38 2c 31 |98,198,198,198,1| 00000610 39 38 0d 02 a8 21 dc 20 30 2c 30 2c 31 39 32 2c |98...!. 0,0,192,| 00000620 31 39 32 2c 31 39 32 2c 31 39 32 2c 31 39 32 2c |192,192,192,192,| 00000630 31 39 32 0d 02 b2 1f dc 20 35 36 2c 32 34 2c 32 |192..... 56,24,2| 00000640 34 2c 32 34 2c 32 34 2c 32 34 2c 31 32 36 2c 31 |4,24,24,24,126,1| 00000650 32 36 0d 02 bc 18 dc 20 30 2c 30 2c 30 2c 30 2c |26..... 0,0,0,0,| 00000660 32 34 2c 32 34 2c 30 2c 35 36 0d 02 c6 25 dc 20 |24,24,0,56...%. | 00000670 31 39 38 2c 31 39 38 2c 31 39 38 2c 31 39 38 2c |198,198,198,198,| 00000680 31 39 38 2c 31 39 38 2c 31 39 38 2c 31 39 38 0d |198,198,198,198.| 00000690 02 d0 1b dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 31 |.... 0,0,0,0,0,1| 000006a0 32 34 2c 32 35 34 2c 31 39 38 0d 02 da 25 dc 20 |24,254,198...%. | 000006b0 31 39 38 2c 31 39 32 2c 31 39 32 2c 31 39 32 2c |198,192,192,192,| 000006c0 31 39 32 2c 31 39 32 2c 31 39 32 2c 31 39 32 0d |192,192,192,192.| 000006d0 02 e4 1b dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 31 |.... 0,0,0,0,0,1| 000006e0 38 38 2c 32 35 34 2c 31 39 38 0d 02 ee 1f dc 20 |88,254,198..... | 000006f0 31 39 32 2c 32 35 32 2c 31 32 36 2c 36 2c 36 2c |192,252,126,6,6,| 00000700 36 2c 32 35 34 2c 31 32 34 0d 02 f8 1b dc 20 30 |6,254,124..... 0| 00000710 2c 30 2c 30 2c 30 2c 30 2c 31 32 34 2c 32 35 34 |,0,0,0,0,124,254| 00000720 2c 31 39 32 0d 03 02 1d dc 20 34 38 2c 34 38 2c |,192..... 48,48,| 00000730 34 38 2c 34 38 2c 34 38 2c 35 34 2c 36 32 2c 32 |48,48,48,54,62,2| 00000740 38 0d 03 0c 1d dc 20 30 2c 30 2c 34 38 2c 34 38 |8..... 0,0,48,48| 00000750 2c 34 38 2c 32 35 32 2c 32 35 32 2c 34 38 0d 03 |,48,252,252,48..| 00000760 16 21 dc 20 30 2c 30 2c 31 39 38 2c 31 39 38 2c |.!. 0,0,198,198,| 00000770 31 39 38 2c 31 39 38 2c 31 39 38 2c 31 39 38 0d |198,198,198,198.| 00000780 03 20 25 dc 20 32 35 35 2c 32 35 35 2c 32 35 35 |. %. 255,255,255| 00000790 2c 32 35 35 2c 32 35 35 2c 32 35 35 2c 32 35 35 |,255,255,255,255| 000007a0 2c 32 35 35 0d ff |,255..| 000007a6
28-04-89/Loader.m0
28-04-89/Loader.m1
28-04-89/Loader.m2
28-04-89/Loader.m4
28-04-89/Loader.m5
.