Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape22a_acorn_eu_1991_may.wav » !Start

!Start

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 » Electron_User » Electron_User_tape22a_acorn_eu_1991_may.wav
Filename: !Start
Read OK:
File size: 022D bytes
Load address: FFFF1A00
Exec address: FFFF8023
File contents
   10REM FontStyler
   20REM by Ray Favre
   30REM (c) The Micro User
   40PROCinit
   50*DIR F
   60PROCcat
   70*DIR $
   80PROCquit
   90END
  100:
  110DEFPROCinit
  120DIM b%32,c%256
  130O%=OPENOUT"FileLst"
  140ENDPROC
  150:
  160DEFPROCcat:LOCAL f$,g$:F%=0:G%=0
  170REPEAT g$=f$:f$=FNgf
  180IF f$<>g$ PROCout(f$)
  190F%=F%+1:UNTIL f$=g$:ENDPROC
  200:
  210DEFFNgf:LOCALA%,X%,Y%
  220?c%=0:c%!1=b%:c%!5=1:c%!9=G%
  230A%=8:X%=c%:Y%=X%DIV256:CALL&FFD1
  240G%=c%!9:b%?(?b%+1)=13:=$(b%+1)
  250:
  260DEFPROCout($c%)
  270FOR L%=0 TO LEN$c%
  280BPUT#O%,c%?L%:NEXT
  290ENDPROC
  300:
  310DEFPROCquit
  320CLOSE#O%
  330*KEY0*Wordwise|M:SE.SEG.1|M:LO.TE."SegOne"|M:SE.TEXT|M*FX138|M*FX138,0,145|M
  340*FX138,0,128
  350ENDPROC

� FontStyler
� by Ray Favre
� (c) The Micro User
(	�init
2
*DIR F
<�cat
F
*DIR $
P	�quit
Z�
d:
n
��init
x� b%32,c%256
�O%=�"FileLst"
��
�:
���cat:� f$,g$:F%=0:G%=0
�� g$=f$:f$=�gf
�� f$<>g$ �out(f$)
�F%=F%+1:� f$=g$:�
�:
�ݤgf:�A%,X%,Y%
� ?c%=0:c%!1=b%:c%!5=1:c%!9=G%
�A%=8:X%=c%:Y%=X%�256:�&FFD1
�"G%=c%!9:b%?(?b%+1)=13:=$(b%+1)
�:
��out($c%)
� L%=0 � �$c%
�#O%,c%?L%:�
"�
,:
6
��quit
@�#O%
JP*KEY0*Wordwise|M:SE.SEG.1|M:LO.TE."SegOne"|M:SE.TEXT|M*FX138|M*FX138,0,145|M
T*FX138,0,128
^�
�
00000000  0d 00 0a 10 f4 20 46 6f  6e 74 53 74 79 6c 65 72  |..... FontStyler|
00000010  0d 00 14 12 f4 20 62 79  20 52 61 79 20 46 61 76  |..... by Ray Fav|
00000020  72 65 0d 00 1e 18 f4 20  28 63 29 20 54 68 65 20  |re..... (c) The |
00000030  4d 69 63 72 6f 20 55 73  65 72 0d 00 28 09 f2 69  |Micro User..(..i|
00000040  6e 69 74 0d 00 32 0a 2a  44 49 52 20 46 0d 00 3c  |nit..2.*DIR F..<|
00000050  08 f2 63 61 74 0d 00 46  0a 2a 44 49 52 20 24 0d  |..cat..F.*DIR $.|
00000060  00 50 09 f2 71 75 69 74  0d 00 5a 05 e0 0d 00 64  |.P..quit..Z....d|
00000070  05 3a 0d 00 6e 0a dd f2  69 6e 69 74 0d 00 78 10  |.:..n...init..x.|
00000080  de 20 62 25 33 32 2c 63  25 32 35 36 0d 00 82 11  |. b%32,c%256....|
00000090  4f 25 3d ae 22 46 69 6c  65 4c 73 74 22 0d 00 8c  |O%=."FileLst"...|
000000a0  05 e1 0d 00 96 05 3a 0d  00 a0 1b dd f2 63 61 74  |......:......cat|
000000b0  3a ea 20 66 24 2c 67 24  3a 46 25 3d 30 3a 47 25  |:. f$,g$:F%=0:G%|
000000c0  3d 30 0d 00 aa 12 f5 20  67 24 3d 66 24 3a 66 24  |=0..... g$=f$:f$|
000000d0  3d a4 67 66 0d 00 b4 15  e7 20 66 24 3c 3e 67 24  |=.gf..... f$<>g$|
000000e0  20 f2 6f 75 74 28 66 24  29 0d 00 be 15 46 25 3d  | .out(f$)....F%=|
000000f0  46 25 2b 31 3a fd 20 66  24 3d 67 24 3a e1 0d 00  |F%+1:. f$=g$:...|
00000100  c8 05 3a 0d 00 d2 12 dd  a4 67 66 3a ea 41 25 2c  |..:......gf:.A%,|
00000110  58 25 2c 59 25 0d 00 dc  20 3f 63 25 3d 30 3a 63  |X%,Y%... ?c%=0:c|
00000120  25 21 31 3d 62 25 3a 63  25 21 35 3d 31 3a 63 25  |%!1=b%:c%!5=1:c%|
00000130  21 39 3d 47 25 0d 00 e6  1f 41 25 3d 38 3a 58 25  |!9=G%....A%=8:X%|
00000140  3d 63 25 3a 59 25 3d 58  25 81 32 35 36 3a d6 26  |=c%:Y%=X%.256:.&|
00000150  46 46 44 31 0d 00 f0 22  47 25 3d 63 25 21 39 3a  |FFD1..."G%=c%!9:|
00000160  62 25 3f 28 3f 62 25 2b  31 29 3d 31 33 3a 3d 24  |b%?(?b%+1)=13:=$|
00000170  28 62 25 2b 31 29 0d 00  fa 05 3a 0d 01 04 0e dd  |(b%+1)....:.....|
00000180  f2 6f 75 74 28 24 63 25  29 0d 01 0e 11 e3 20 4c  |.out($c%)..... L|
00000190  25 3d 30 20 b8 20 a9 24  63 25 0d 01 18 10 d5 23  |%=0 . .$c%.....#|
000001a0  4f 25 2c 63 25 3f 4c 25  3a ed 0d 01 22 05 e1 0d  |O%,c%?L%:..."...|
000001b0  01 2c 05 3a 0d 01 36 0a  dd f2 71 75 69 74 0d 01  |.,.:..6...quit..|
000001c0  40 08 d9 23 4f 25 0d 01  4a 50 2a 4b 45 59 30 2a  |@..#O%..JP*KEY0*|
000001d0  57 6f 72 64 77 69 73 65  7c 4d 3a 53 45 2e 53 45  |Wordwise|M:SE.SE|
000001e0  47 2e 31 7c 4d 3a 4c 4f  2e 54 45 2e 22 53 65 67  |G.1|M:LO.TE."Seg|
000001f0  4f 6e 65 22 7c 4d 3a 53  45 2e 54 45 58 54 7c 4d  |One"|M:SE.TEXT|M|
00000200  2a 46 58 31 33 38 7c 4d  2a 46 58 31 33 38 2c 30  |*FX138|M*FX138,0|
00000210  2c 31 34 35 7c 4d 0d 01  54 10 2a 46 58 31 33 38  |,145|M..T.*FX138|
00000220  2c 30 2c 31 32 38 0d 01  5e 05 e1 0d ff           |,0,128..^....|
0000022d
!Start.m0
!Start.m1
!Start.m2
!Start.m4
!Start.m5