Home » Archimedes archive » Acorn User » AU 1998-13 (Christmas).adf » Regulars » StarInfo/Logo/Fonz
StarInfo/Logo/Fonz
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 » Archimedes archive » Acorn User » AU 1998-13 (Christmas).adf » Regulars |
| Filename: | StarInfo/Logo/Fonz |
| Read OK: | ✔ |
| File size: | 02C0 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10ON ERROR ERROR EXT ERR,REPORT$+" at line "+STR$ERL:END 20DIM fontpath 256 30str$="*INFO" 40MODE 27:OFF 50SYS "Font_SetFontColours",0,0,1,14 60FOR i=0 TO 15 70COLOUR i,i*17,i*17,i*17 80NEXT 90size=64 100DIM buffer 128 110fonts=0 120REPEAT 130SYS "Font_ListFonts",,buffer,fonts,-1 TO ,,next 140IF next<>-1 fonts=next 150UNTIL next<0 160scr=1 170REPEAT 180 WAIT 190 SYS 6,112,scr 200 SYS 6,113,3-scr 210 scr=3-scr 220 CLS 230 FOR c=1 TO LENstr$ 240 c$=MID$(str$,c,1) 250 IF c$>="A" AND c$<="Z" AND RND(2)=1 c$=CHR$(ASCc$+32) 260 SYS "Font_ListFonts",,buffer,RND(fonts)-1,-1 270 font$=$buffer 280 SYS "Font_FindFont",,font$,size*16,size*16 TO handle 290 y=(200+RND(50))*400 300 x=c*(size*1.5+RND(size/4))*400 310 SYS "Font_Paint",handle,c$,%0,x,y,0,0,0 320 SYS "Font_LoseFont",handle 330 NEXT 340UNTIL0
!� � � � �,�$+" at line "+Þ:� � fontpath 256 str$="*INFO" ( � 27:� 2%ș "Font_SetFontColours",0,0,1,14 <� i=0 � 15 F� i,i*17,i*17,i*17 P� Z size=64 d� buffer 128 n fonts=0 x� �1ș "Font_ListFonts",,buffer,fonts,-1 � ,,next �� next<>-1 fonts=next � � next<0 � scr=1 �� � Ȗ � ș 6,112,scr � ș 6,113,3-scr � scr=3-scr � � � � c=1 � �str$ � c$=�str$,c,1) �. � c$>="A" � c$<="Z" � �(2)=1 c$=�(�c$+32) . ș "Font_ListFonts",,buffer,�(fonts)-1,-1 font$=$buffer 7 ș "Font_FindFont",,font$,size*16,size*16 � handle " y=(200+�(50))*400 ,! x=c*(size*1.5+�(size/4))*400 6+ ș "Font_Paint",handle,c$,%0,x,y,0,0,0 @ ș "Font_LoseFont",handle J � T�0 �
00000000 0d 00 0a 21 ee 20 85 20 85 20 a2 20 9f 2c f6 24 |...!. . . . .,.$| 00000010 2b 22 20 61 74 20 6c 69 6e 65 20 22 2b c3 9e 3a |+" at line "+..:| 00000020 e0 0d 00 14 12 de 20 66 6f 6e 74 70 61 74 68 20 |...... fontpath | 00000030 32 35 36 0d 00 1e 10 73 74 72 24 3d 22 2a 49 4e |256....str$="*IN| 00000040 46 4f 22 0d 00 28 0a eb 20 32 37 3a 87 0d 00 32 |FO"..(.. 27:...2| 00000050 25 c8 99 20 22 46 6f 6e 74 5f 53 65 74 46 6f 6e |%.. "Font_SetFon| 00000060 74 43 6f 6c 6f 75 72 73 22 2c 30 2c 30 2c 31 2c |tColours",0,0,1,| 00000070 31 34 0d 00 3c 0e e3 20 69 3d 30 20 b8 20 31 35 |14..<.. i=0 . 15| 00000080 0d 00 46 16 fb 20 69 2c 69 2a 31 37 2c 69 2a 31 |..F.. i,i*17,i*1| 00000090 37 2c 69 2a 31 37 0d 00 50 05 ed 0d 00 5a 0b 73 |7,i*17..P....Z.s| 000000a0 69 7a 65 3d 36 34 0d 00 64 10 de 20 62 75 66 66 |ize=64..d.. buff| 000000b0 65 72 20 31 32 38 0d 00 6e 0b 66 6f 6e 74 73 3d |er 128..n.fonts=| 000000c0 30 0d 00 78 05 f5 0d 00 82 31 c8 99 20 22 46 6f |0..x.....1.. "Fo| 000000d0 6e 74 5f 4c 69 73 74 46 6f 6e 74 73 22 2c 2c 62 |nt_ListFonts",,b| 000000e0 75 66 66 65 72 2c 66 6f 6e 74 73 2c 2d 31 20 b8 |uffer,fonts,-1 .| 000000f0 20 2c 2c 6e 65 78 74 0d 00 8c 19 e7 20 6e 65 78 | ,,next..... nex| 00000100 74 3c 3e 2d 31 20 66 6f 6e 74 73 3d 6e 65 78 74 |t<>-1 fonts=next| 00000110 0d 00 96 0c fd 20 6e 65 78 74 3c 30 0d 00 a0 09 |..... next<0....| 00000120 73 63 72 3d 31 0d 00 aa 05 f5 0d 00 b4 07 20 c8 |scr=1......... .| 00000130 96 0d 00 be 11 20 c8 99 20 36 2c 31 31 32 2c 73 |..... .. 6,112,s| 00000140 63 72 0d 00 c8 13 20 c8 99 20 36 2c 31 31 33 2c |cr.... .. 6,113,| 00000150 33 2d 73 63 72 0d 00 d2 0e 20 73 63 72 3d 33 2d |3-scr.... scr=3-| 00000160 73 63 72 0d 00 dc 06 20 db 0d 00 e6 12 20 e3 20 |scr.... ..... . | 00000170 63 3d 31 20 b8 20 a9 73 74 72 24 0d 00 f0 12 20 |c=1 . .str$.... | 00000180 63 24 3d c1 73 74 72 24 2c 63 2c 31 29 0d 00 fa |c$=.str$,c,1)...| 00000190 2e 20 e7 20 63 24 3e 3d 22 41 22 20 80 20 63 24 |. . c$>="A" . c$| 000001a0 3c 3d 22 5a 22 20 80 20 b3 28 32 29 3d 31 20 63 |<="Z" . .(2)=1 c| 000001b0 24 3d bd 28 97 63 24 2b 33 32 29 0d 01 04 2e 20 |$=.(.c$+32).... | 000001c0 c8 99 20 22 46 6f 6e 74 5f 4c 69 73 74 46 6f 6e |.. "Font_ListFon| 000001d0 74 73 22 2c 2c 62 75 66 66 65 72 2c b3 28 66 6f |ts",,buffer,.(fo| 000001e0 6e 74 73 29 2d 31 2c 2d 31 0d 01 0e 12 20 66 6f |nts)-1,-1.... fo| 000001f0 6e 74 24 3d 24 62 75 66 66 65 72 0d 01 18 37 20 |nt$=$buffer...7 | 00000200 c8 99 20 22 46 6f 6e 74 5f 46 69 6e 64 46 6f 6e |.. "Font_FindFon| 00000210 74 22 2c 2c 66 6f 6e 74 24 2c 73 69 7a 65 2a 31 |t",,font$,size*1| 00000220 36 2c 73 69 7a 65 2a 31 36 20 b8 20 68 61 6e 64 |6,size*16 . hand| 00000230 6c 65 0d 01 22 16 20 79 3d 28 32 30 30 2b b3 28 |le..". y=(200+.(| 00000240 35 30 29 29 2a 34 30 30 0d 01 2c 21 20 78 3d 63 |50))*400..,! x=c| 00000250 2a 28 73 69 7a 65 2a 31 2e 35 2b b3 28 73 69 7a |*(size*1.5+.(siz| 00000260 65 2f 34 29 29 2a 34 30 30 0d 01 36 2b 20 c8 99 |e/4))*400..6+ ..| 00000270 20 22 46 6f 6e 74 5f 50 61 69 6e 74 22 2c 68 61 | "Font_Paint",ha| 00000280 6e 64 6c 65 2c 63 24 2c 25 30 2c 78 2c 79 2c 30 |ndle,c$,%0,x,y,0| 00000290 2c 30 2c 30 0d 01 40 1e 20 c8 99 20 22 46 6f 6e |,0,0..@. .. "Fon| 000002a0 74 5f 4c 6f 73 65 46 6f 6e 74 22 2c 68 61 6e 64 |t_LoseFont",hand| 000002b0 6c 65 0d 01 4a 06 20 ed 0d 01 54 06 fd 30 0d ff |le..J. ...T..0..| 000002c0
.