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 |
Duplicates
There are 7 duplicate copies of this file in the archive:
- AEW website » mu » mu_5_25_discs_Micro_User_09_02_D-MU09_02.ssd » !Start
- AEW website » mu » mu_5_25_discs_Micro_User_09_03_D-MU09_03.ssd » !Start
- AEW website » mu » mu_Micro_User_09_02_MU9-2_B.uef » !Start
- AEW website » mu » mu_Micro_User_09_03_MU9-3_B.uef » !Start
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape21b_acorn_eu_1991_april.wav » !Start
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape22a_acorn_eu_1991_may.wav » !Start
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape22b_acorn_eu_1991_may.wav » !Start
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape21a_acorn_eu_1991_april.wav » !Start
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
.