Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape06a_c15_acorn_blockable.wav » FONTS_des
FONTS_des
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 » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape06a_c15_acorn_blockable.wav |
| Filename: | FONTS_des |
| Read OK: | ✔ |
| File size: | 04A1 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
File contents
10 DIM D%(95,8) 20 MODE 6 30 PRINT"MENU" 40 PRINT"1. CHARS" 50 PRINT"2. TAPE" 60 A$=GET$ 70 IF A$="1" THEN PROC_char 80 IF A$="2" THEN PROC_spool 90 CLS:GOTO 30 100 DEFPROC_char 110 INPUT"NUMBER";num 120 CLS 130 Y=8:Y2=8 140 A$=GET$ 150 IF A$="Q"THEN PROC_finish:ENDPROC 160 IF A$="Z"THEN Y=Y+1 170 IF A$="X"THEN Y=Y-1 180 IF A$=":"THEN Y2=Y2+1 190 IF A$="/"THEN Y2=Y2-1 200 IF A$="A"THEN PROC_space 210 IF Y>8 OR Y<0 OR Y2>8 OR Y2<0 THEN Y=4:Y2=4 220 PRINTTAB(8-Y,8-Y2); 230 GOTO 140 240 DEFPROC_space 250 IF Y=0 THEN D=1:GOTO 300 260 D=1 270 FOR S=1 TO Y 280 D=D*2 290 NEXT 300 D%(num,8-Y2)=D%(num,8-Y2)+D 310 PRINTTAB(8-Y,8-Y2);"*" 320 ENDPROC 330 DEFPROC_spool 340 CLS 350 PRINT"MENU" 360 PRINT"1. SAVE C00_D00(loading)" 370 PRINT"2. *SPOOL file" 380 PRINT"3. LOAD" 390 A$=GET$ 400 IF A$="1"THEN *SAVE Ffonts C00 D00 410 IF A$="2"THEN PROC_spool2 420 IF A$="3"THEN *LOAD Ffile C00 430 ENDPROC 440 DEFPROC_spool2 450 *SPOOL"Ffile" 460 PRINT"10 READ A,B,C,E,F,G,H,I" 470 PRINT"20 IF A=-1 THEN what's next?" 480 PRINT"30 VDU 23,Z,A,B,C,D,E,F,G,H,I" 490 PRINT"40 Z=Z+1" 500 PRINT"50 GOTO 10" 510 PRINT"5 Z=32" 520 line=60 530 FOR loop=1 TO 95 535 FOR loop2=1 TO 8 540 PRINT;line;" DATA ";D%(loop,loop2) 550 line=line+10 560 NEXT:NEXT:PRINT"RENUMBER1,1":*SPOOL 570 ENDPROC 580 DEFPROC_finish 590 VDU 23,num,D%(num-32,1),D%(num-32,2),D%(num-32,3),D%(num-32,4),D%(num-32,5),D%(num-32,6),D%(num-32,7),D%(num-32,8) 600 ENDPROC
� D%(95,8)
� 6
�"MENU"
( �"1. CHARS"
2 �"2. TAPE"
< A$=�
F � A$="1" � �_char
P � A$="2" � �_spool
Z
�:� �T^@
d ��_char
n �"NUMBER";num
x �
�
Y=8:Y2=8
� A$=�
� � A$="Q"� �_finish:�
� � A$="Z"� Y=Y+1
� � A$="X"� Y=Y-1
� � A$=":"� Y2=Y2+1
� � A$="/"� Y2=Y2-1
� � A$="A"� �_space
�) � Y>8 � Y<0 � Y2>8 � Y2<0 � Y=4:Y2=4
� �8-Y,8-Y2);
� � �tL@
�
��_space
� � Y=0 � D=1:� �TlA
D=1
� S=1 � Y
D=D*2
" �
, D%(num,8-Y2)=D%(num,8-Y2)+D
6 �8-Y,8-Y2);"*"
@ �
J
��_spool
T �
^ �"MENU"
h �"1. SAVE C00_D00(loading)"
r �"2. *SPOOL file"
| �"3. LOAD"
� A$=�
�# � A$="1"� *SAVE Ffonts C00 D00
� � A$="2"� �_spool2
� � A$="3"� *LOAD Ffile C00
� �
� ��_spool2
� *SPOOL"Ffile"
� �"10 READ A,B,C,E,F,G,H,I"
�$ �"20 IF A=-1 THEN what's next?"
�% �"30 VDU 23,Z,A,B,C,D,E,F,G,H,I"
� �"40 Z=Z+1"
� �"50 GOTO 10"
� �"5 Z=32"
line=60
� loop=1 � 95
� loop2=1 � 8
# �;line;" DATA ";D%(loop,loop2)
& line=line+10
0 �:�:�"RENUMBER1,1":*SPOOL
: �
D ��_finish
Nu � 23,num,D%(num-32,1),D%(num-32,2),D%(num-32,3),D%(num-32,4),D%(num-32,5),D%(num-32,6),D%(num-32,7),D%(num-32,8)
X �
� 00000000 0d 00 0a 0f 20 de 20 44 25 28 39 35 2c 38 29 0d |.... . D%(95,8).| 00000010 00 14 08 20 eb 20 36 0d 00 1e 0c 20 f1 22 4d 45 |... . 6.... ."ME| 00000020 4e 55 22 0d 00 28 10 20 f1 22 31 2e 20 43 48 41 |NU"..(. ."1. CHA| 00000030 52 53 22 0d 00 32 0f 20 f1 22 32 2e 20 54 41 50 |RS"..2. ."2. TAP| 00000040 45 22 0d 00 3c 09 20 41 24 3d be 0d 00 46 16 20 |E"..<. A$=...F. | 00000050 e7 20 41 24 3d 22 31 22 20 8c 20 f2 5f 63 68 61 |. A$="1" . ._cha| 00000060 72 0d 00 50 17 20 e7 20 41 24 3d 22 32 22 20 8c |r..P. . A$="2" .| 00000070 20 f2 5f 73 70 6f 6f 6c 0d 00 5a 0d 20 db 3a e5 | ._spool..Z. .:.| 00000080 20 8d 54 5e 40 0d 00 64 0c 20 dd f2 5f 63 68 61 | .T^@..d. .._cha| 00000090 72 0d 00 6e 12 20 e8 22 4e 55 4d 42 45 52 22 3b |r..n. ."NUMBER";| 000000a0 6e 75 6d 0d 00 78 06 20 db 0d 00 82 0d 20 59 3d |num..x. ..... Y=| 000000b0 38 3a 59 32 3d 38 0d 00 8c 09 20 41 24 3d be 0d |8:Y2=8.... A$=..| 000000c0 00 96 19 20 e7 20 41 24 3d 22 51 22 8c 20 f2 5f |... . A$="Q". ._| 000000d0 66 69 6e 69 73 68 3a e1 0d 00 a0 14 20 e7 20 41 |finish:..... . A| 000000e0 24 3d 22 5a 22 8c 20 59 3d 59 2b 31 0d 00 aa 14 |$="Z". Y=Y+1....| 000000f0 20 e7 20 41 24 3d 22 58 22 8c 20 59 3d 59 2d 31 | . A$="X". Y=Y-1| 00000100 0d 00 b4 16 20 e7 20 41 24 3d 22 3a 22 8c 20 59 |.... . A$=":". Y| 00000110 32 3d 59 32 2b 31 0d 00 be 16 20 e7 20 41 24 3d |2=Y2+1.... . A$=| 00000120 22 2f 22 8c 20 59 32 3d 59 32 2d 31 0d 00 c8 16 |"/". Y2=Y2-1....| 00000130 20 e7 20 41 24 3d 22 41 22 8c 20 f2 5f 73 70 61 | . A$="A". ._spa| 00000140 63 65 0d 00 d2 29 20 e7 20 59 3e 38 20 84 20 59 |ce...) . Y>8 . Y| 00000150 3c 30 20 84 20 59 32 3e 38 20 84 20 59 32 3c 30 |<0 . Y2>8 . Y2<0| 00000160 20 8c 20 59 3d 34 3a 59 32 3d 34 0d 00 dc 11 20 | . Y=4:Y2=4.... | 00000170 f1 8a 38 2d 59 2c 38 2d 59 32 29 3b 0d 00 e6 0b |..8-Y,8-Y2);....| 00000180 20 e5 20 8d 74 4c 40 0d 00 f0 0d 20 dd f2 5f 73 | . .tL@.... .._s| 00000190 70 61 63 65 0d 00 fa 17 20 e7 20 59 3d 30 20 8c |pace.... . Y=0 .| 000001a0 20 44 3d 31 3a e5 20 8d 54 6c 41 0d 01 04 08 20 | D=1:. .TlA.... | 000001b0 44 3d 31 0d 01 0e 0e 20 e3 20 53 3d 31 20 b8 20 |D=1.... . S=1 . | 000001c0 59 0d 01 18 0a 20 44 3d 44 2a 32 0d 01 22 06 20 |Y.... D=D*2..". | 000001d0 ed 0d 01 2c 20 20 44 25 28 6e 75 6d 2c 38 2d 59 |..., D%(num,8-Y| 000001e0 32 29 3d 44 25 28 6e 75 6d 2c 38 2d 59 32 29 2b |2)=D%(num,8-Y2)+| 000001f0 44 0d 01 36 14 20 f1 8a 38 2d 59 2c 38 2d 59 32 |D..6. ..8-Y,8-Y2| 00000200 29 3b 22 2a 22 0d 01 40 06 20 e1 0d 01 4a 0d 20 |);"*"..@. ...J. | 00000210 dd f2 5f 73 70 6f 6f 6c 0d 01 54 06 20 db 0d 01 |.._spool..T. ...| 00000220 5e 0c 20 f1 22 4d 45 4e 55 22 0d 01 68 20 20 f1 |^. ."MENU"..h .| 00000230 22 31 2e 20 53 41 56 45 20 43 30 30 5f 44 30 30 |"1. SAVE C00_D00| 00000240 28 6c 6f 61 64 69 6e 67 29 22 0d 01 72 16 20 f1 |(loading)"..r. .| 00000250 22 32 2e 20 2a 53 50 4f 4f 4c 20 66 69 6c 65 22 |"2. *SPOOL file"| 00000260 0d 01 7c 0f 20 f1 22 33 2e 20 4c 4f 41 44 22 0d |..|. ."3. LOAD".| 00000270 01 86 09 20 41 24 3d be 0d 01 90 23 20 e7 20 41 |... A$=....# . A| 00000280 24 3d 22 31 22 8c 20 2a 53 41 56 45 20 46 66 6f |$="1". *SAVE Ffo| 00000290 6e 74 73 20 43 30 30 20 44 30 30 0d 01 9a 17 20 |nts C00 D00.... | 000002a0 e7 20 41 24 3d 22 32 22 8c 20 f2 5f 73 70 6f 6f |. A$="2". ._spoo| 000002b0 6c 32 0d 01 a4 1e 20 e7 20 41 24 3d 22 33 22 8c |l2.... . A$="3".| 000002c0 20 2a 4c 4f 41 44 20 46 66 69 6c 65 20 43 30 30 | *LOAD Ffile C00| 000002d0 0d 01 ae 06 20 e1 0d 01 b8 0e 20 dd f2 5f 73 70 |.... ..... .._sp| 000002e0 6f 6f 6c 32 0d 01 c2 12 20 2a 53 50 4f 4f 4c 22 |ool2.... *SPOOL"| 000002f0 46 66 69 6c 65 22 0d 01 cc 1f 20 f1 22 31 30 20 |Ffile".... ."10 | 00000300 52 45 41 44 20 41 2c 42 2c 43 2c 45 2c 46 2c 47 |READ A,B,C,E,F,G| 00000310 2c 48 2c 49 22 0d 01 d6 24 20 f1 22 32 30 20 49 |,H,I"...$ ."20 I| 00000320 46 20 41 3d 2d 31 20 54 48 45 4e 20 77 68 61 74 |F A=-1 THEN what| 00000330 27 73 20 6e 65 78 74 3f 22 0d 01 e0 25 20 f1 22 |'s next?"...% ."| 00000340 33 30 20 56 44 55 20 32 33 2c 5a 2c 41 2c 42 2c |30 VDU 23,Z,A,B,| 00000350 43 2c 44 2c 45 2c 46 2c 47 2c 48 2c 49 22 0d 01 |C,D,E,F,G,H,I"..| 00000360 ea 10 20 f1 22 34 30 20 5a 3d 5a 2b 31 22 0d 01 |.. ."40 Z=Z+1"..| 00000370 f4 12 20 f1 22 35 30 20 47 4f 54 4f 20 31 30 22 |.. ."50 GOTO 10"| 00000380 0d 01 fe 0e 20 f1 22 35 20 5a 3d 33 32 22 0d 02 |.... ."5 Z=32"..| 00000390 08 0c 20 6c 69 6e 65 3d 36 30 0d 02 12 12 20 e3 |.. line=60.... .| 000003a0 20 6c 6f 6f 70 3d 31 20 b8 20 39 35 0d 02 17 12 | loop=1 . 95....| 000003b0 20 e3 20 6c 6f 6f 70 32 3d 31 20 b8 20 38 0d 02 | . loop2=1 . 8..| 000003c0 1c 23 20 f1 3b 6c 69 6e 65 3b 22 20 44 41 54 41 |.# .;line;" DATA| 000003d0 20 22 3b 44 25 28 6c 6f 6f 70 2c 6c 6f 6f 70 32 | ";D%(loop,loop2| 000003e0 29 0d 02 26 11 20 6c 69 6e 65 3d 6c 69 6e 65 2b |)..&. line=line+| 000003f0 31 30 0d 02 30 1e 20 ed 3a ed 3a f1 22 52 45 4e |10..0. .:.:."REN| 00000400 55 4d 42 45 52 31 2c 31 22 3a 2a 53 50 4f 4f 4c |UMBER1,1":*SPOOL| 00000410 0d 02 3a 06 20 e1 0d 02 44 0e 20 dd f2 5f 66 69 |..:. ...D. .._fi| 00000420 6e 69 73 68 0d 02 4e 75 20 ef 20 32 33 2c 6e 75 |nish..Nu . 23,nu| 00000430 6d 2c 44 25 28 6e 75 6d 2d 33 32 2c 31 29 2c 44 |m,D%(num-32,1),D| 00000440 25 28 6e 75 6d 2d 33 32 2c 32 29 2c 44 25 28 6e |%(num-32,2),D%(n| 00000450 75 6d 2d 33 32 2c 33 29 2c 44 25 28 6e 75 6d 2d |um-32,3),D%(num-| 00000460 33 32 2c 34 29 2c 44 25 28 6e 75 6d 2d 33 32 2c |32,4),D%(num-32,| 00000470 35 29 2c 44 25 28 6e 75 6d 2d 33 32 2c 36 29 2c |5),D%(num-32,6),| 00000480 44 25 28 6e 75 6d 2d 33 32 2c 37 29 2c 44 25 28 |D%(num-32,7),D%(| 00000490 6e 75 6d 2d 33 32 2c 38 29 0d 02 58 06 20 e1 0d |num-32,8)..X. ..| 000004a0 ff |.| 000004a1
FONTS_des.m0
FONTS_des.m1
FONTS_des.m2
FONTS_des.m4
FONTS_des.m5
.