Home » Archimedes archive » Micro User » MU 1992-05.adf » Listings » 8bit/ELKMake
8bit/ELKMake
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 » Micro User » MU 1992-05.adf » Listings |
| Filename: | 8bit/ELKMake |
| Read OK: | ✔ |
| File size: | 038B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > <BasicSave$Dir>.ELKMake
20MODE7:HIMEM=TOP+&400:H$=" "+STR$~HIMEM:*FX21
30PRINT"Insert tape & press Space";
40REPEATUNTILGET=32:CLS:*FX21
50ONERRORPROCos("DISC"):REPORT:PRINT" at line ";ERL:END
60PRINTCHR$134SPC5"Micro User Tape Maker"
70TIME=0:P%=0:*TAPE
80REPEAT READ D$:IF D$<>"**" PROCxf
90VDU26:PRINTTAB(P%DIV18*15+2,P%MOD18+4)D$
100P%=P%+1:UNTIL D$="**":MODE7
110PRINTCHR$137CHR$130"All programs saved"
120T%=TIME/6000+1
130PRINT'CHR$129"The tape is approx ";T%" mins"
140PROCos("DISC"):END
150DEFPROCxf:VDU28,10,24,28,24:*FX21
160$&700=D$:!&70=&700:*DISC
170X%=&70:Y%=0:A%=5:CALL&FFDD
180ld$=" "+STR$~!&72
190ex$=" "+STR$~!&76
200F%=OPENIN D$:L%=EXT#F%:CLOSE#F%
210PROCos("LOAD "+D$+H$)
220PROCos("FX138,0,13"):*TAPE
230PROCos("MOTOR 1"):PROCd(100)
240PROCos("SAVE "+D$+H$+"+"+STR$~L%+ex$+ld$)
250ENDPROC
260DEF PROCos($&700):LOCALX%,Y%
270Y%=7:CALL&FFF7:ENDPROC
280DEF PROCd(T%):T%=TIME+T%
290REPEAT UNTIL TIME>T%:ENDPROC
300DATA !Header,!Menu
310DATA Arachno
320DATA Define5,Frame1,Frame2,Animate,Frame1,Frame2,Example,EXdata,EXpic
330DATA Heart
331DATA TP1,TP2,TP3,TP4,TP5,TP6,TP7,TP8,WORKS,MANUAL,README
340DATA **
� > <BasicSave$Dir>.ELKMake
!�7:�=�P+&400:H$=" "+�~�:*FX21
!�"Insert tape & press Space";
(���=32:�:*FX21
2$��os("DISC"):�:�" at line ";�:�
<"�134�5"Micro User Tape Maker"
F�=0:P%=0:*TAPE
P� � D$:� D$<>"**" �xf
Z �26:�P%�18*15+2,P%�18+4)D$
dP%=P%+1:� D$="**":�7
n!�137�130"All programs saved"
xT%=�/6000+1
�)�'�129"The tape is approx ";T%" mins"
��os("DISC"):�
� ��xf:�28,10,24,28,24:*FX21
� $&700=D$:!&70=&700:*DISC
�X%=&70:Y%=0:A%=5:�&FFDD
�ld$=" "+�~!&72
�ex$=" "+�~!&76
�F%=� D$:L%=�#F%:�#F%
��os("LOAD "+D$+H$)
��os("FX138,0,13"):*TAPE
��os("MOTOR 1"):�d(100)
�'�os("SAVE "+D$+H$+"+"+�~L%+ex$+ld$)
��
� �os($&700):�X%,Y%
Y%=7:�&FFF7:�
� �d(T%):T%=�+T%
"� � �>T%:�
,� !Header,!Menu
6
� Arachno
@F� Define5,Frame1,Frame2,Animate,Frame1,Frame2,Example,EXdata,EXpic
J � Heart
K9� TP1,TP2,TP3,TP4,TP5,TP6,TP7,TP8,WORKS,MANUAL,README
T� **
� 00000000 0d 00 0a 1f f4 20 3e 20 3c 42 61 73 69 63 53 61 |..... > <BasicSa|
00000010 76 65 24 44 69 72 3e 2e 45 4c 4b 4d 61 6b 65 0d |ve$Dir>.ELKMake.|
00000020 00 14 21 eb 37 3a d3 3d b8 50 2b 26 34 30 30 3a |..!.7:.=.P+&400:|
00000030 48 24 3d 22 20 22 2b c3 7e 93 3a 2a 46 58 32 31 |H$=" "+.~.:*FX21|
00000040 0d 00 1e 21 f1 22 49 6e 73 65 72 74 20 74 61 70 |...!."Insert tap|
00000050 65 20 26 20 70 72 65 73 73 20 53 70 61 63 65 22 |e & press Space"|
00000060 3b 0d 00 28 12 f5 fd a5 3d 33 32 3a db 3a 2a 46 |;..(....=32:.:*F|
00000070 58 32 31 0d 00 32 24 ee 85 f2 6f 73 28 22 44 49 |X21..2$...os("DI|
00000080 53 43 22 29 3a f6 3a f1 22 20 61 74 20 6c 69 6e |SC"):.:." at lin|
00000090 65 20 22 3b 9e 3a e0 0d 00 3c 22 f1 bd 31 33 34 |e ";.:...<"..134|
000000a0 89 35 22 4d 69 63 72 6f 20 55 73 65 72 20 54 61 |.5"Micro User Ta|
000000b0 70 65 20 4d 61 6b 65 72 22 0d 00 46 12 d1 3d 30 |pe Maker"..F..=0|
000000c0 3a 50 25 3d 30 3a 2a 54 41 50 45 0d 00 50 19 f5 |:P%=0:*TAPE..P..|
000000d0 20 f3 20 44 24 3a e7 20 44 24 3c 3e 22 2a 2a 22 | . D$:. D$<>"**"|
000000e0 20 f2 78 66 0d 00 5a 1f ef 32 36 3a f1 8a 50 25 | .xf..Z..26:..P%|
000000f0 81 31 38 2a 31 35 2b 32 2c 50 25 83 31 38 2b 34 |.18*15+2,P%.18+4|
00000100 29 44 24 0d 00 64 18 50 25 3d 50 25 2b 31 3a fd |)D$..d.P%=P%+1:.|
00000110 20 44 24 3d 22 2a 2a 22 3a eb 37 0d 00 6e 21 f1 | D$="**":.7..n!.|
00000120 bd 31 33 37 bd 31 33 30 22 41 6c 6c 20 70 72 6f |.137.130"All pro|
00000130 67 72 61 6d 73 20 73 61 76 65 64 22 0d 00 78 0f |grams saved"..x.|
00000140 54 25 3d 91 2f 36 30 30 30 2b 31 0d 00 82 29 f1 |T%=./6000+1...).|
00000150 27 bd 31 32 39 22 54 68 65 20 74 61 70 65 20 69 |'.129"The tape i|
00000160 73 20 61 70 70 72 6f 78 20 22 3b 54 25 22 20 6d |s approx ";T%" m|
00000170 69 6e 73 22 0d 00 8c 11 f2 6f 73 28 22 44 49 53 |ins".....os("DIS|
00000180 43 22 29 3a e0 0d 00 96 1e dd f2 78 66 3a ef 32 |C"):.......xf:.2|
00000190 38 2c 31 30 2c 32 34 2c 32 38 2c 32 34 3a 2a 46 |8,10,24,28,24:*F|
000001a0 58 32 31 0d 00 a0 1c 24 26 37 30 30 3d 44 24 3a |X21....$&700=D$:|
000001b0 21 26 37 30 3d 26 37 30 30 3a 2a 44 49 53 43 0d |!&70=&700:*DISC.|
000001c0 00 aa 1b 58 25 3d 26 37 30 3a 59 25 3d 30 3a 41 |...X%=&70:Y%=0:A|
000001d0 25 3d 35 3a d6 26 46 46 44 44 0d 00 b4 12 6c 64 |%=5:.&FFDD....ld|
000001e0 24 3d 22 20 22 2b c3 7e 21 26 37 32 0d 00 be 12 |$=" "+.~!&72....|
000001f0 65 78 24 3d 22 20 22 2b c3 7e 21 26 37 36 0d 00 |ex$=" "+.~!&76..|
00000200 c8 18 46 25 3d 8e 20 44 24 3a 4c 25 3d a2 23 46 |..F%=. D$:L%=.#F|
00000210 25 3a d9 23 46 25 0d 00 d2 16 f2 6f 73 28 22 4c |%:.#F%.....os("L|
00000220 4f 41 44 20 22 2b 44 24 2b 48 24 29 0d 00 dc 1b |OAD "+D$+H$)....|
00000230 f2 6f 73 28 22 46 58 31 33 38 2c 30 2c 31 33 22 |.os("FX138,0,13"|
00000240 29 3a 2a 54 41 50 45 0d 00 e6 1a f2 6f 73 28 22 |):*TAPE.....os("|
00000250 4d 4f 54 4f 52 20 31 22 29 3a f2 64 28 31 30 30 |MOTOR 1"):.d(100|
00000260 29 0d 00 f0 27 f2 6f 73 28 22 53 41 56 45 20 22 |)...'.os("SAVE "|
00000270 2b 44 24 2b 48 24 2b 22 2b 22 2b c3 7e 4c 25 2b |+D$+H$+"+"+.~L%+|
00000280 65 78 24 2b 6c 64 24 29 0d 00 fa 05 e1 0d 01 04 |ex$+ld$)........|
00000290 17 dd 20 f2 6f 73 28 24 26 37 30 30 29 3a ea 58 |.. .os($&700):.X|
000002a0 25 2c 59 25 0d 01 0e 11 59 25 3d 37 3a d6 26 46 |%,Y%....Y%=7:.&F|
000002b0 46 46 37 3a e1 0d 01 18 14 dd 20 f2 64 28 54 25 |FF7:...... .d(T%|
000002c0 29 3a 54 25 3d 91 2b 54 25 0d 01 22 0e f5 20 fd |):T%=.+T%..".. .|
000002d0 20 91 3e 54 25 3a e1 0d 01 2c 13 dc 20 21 48 65 | .>T%:...,.. !He|
000002e0 61 64 65 72 2c 21 4d 65 6e 75 0d 01 36 0d dc 20 |ader,!Menu..6.. |
000002f0 41 72 61 63 68 6e 6f 0d 01 40 46 dc 20 44 65 66 |Arachno..@F. Def|
00000300 69 6e 65 35 2c 46 72 61 6d 65 31 2c 46 72 61 6d |ine5,Frame1,Fram|
00000310 65 32 2c 41 6e 69 6d 61 74 65 2c 46 72 61 6d 65 |e2,Animate,Frame|
00000320 31 2c 46 72 61 6d 65 32 2c 45 78 61 6d 70 6c 65 |1,Frame2,Example|
00000330 2c 45 58 64 61 74 61 2c 45 58 70 69 63 0d 01 4a |,EXdata,EXpic..J|
00000340 0b dc 20 48 65 61 72 74 0d 01 4b 39 dc 20 54 50 |.. Heart..K9. TP|
00000350 31 2c 54 50 32 2c 54 50 33 2c 54 50 34 2c 54 50 |1,TP2,TP3,TP4,TP|
00000360 35 2c 54 50 36 2c 54 50 37 2c 54 50 38 2c 57 4f |5,TP6,TP7,TP8,WO|
00000370 52 4b 53 2c 4d 41 4e 55 41 4c 2c 52 45 41 44 4d |RKS,MANUAL,READM|
00000380 45 0d 01 54 08 dc 20 2a 2a 0d ff |E..T.. **..|
0000038b 
.