Home » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_1_scp.adf » !ProFiler_ProFiler » !ProFiler/Utilities/GenCon/Output
!ProFiler/Utilities/GenCon/Output
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 » Archimedes World » archimedes_world_volume_15_issue_1_scp.adf » !ProFiler_ProFiler |
| Filename: | !ProFiler/Utilities/GenCon/Output |
| Read OK: | ✔ |
| File size: | 0189 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Find out what a function will output
11REM Usage: Output -parm <converter> <type>
20
30END=PAGE+&10000
40SYS"OS_GetEnv"TOE$
50E$=MID$(E$,INSTR(E$,"-parm")+6)
60C$=FNpar(E$):T$=FNpar(E$)
61IFC$=""ORT$=""END
260LIBRARY"Filer:Utilities.GenCon.Functions."+C$
330T%=FNOutput(EVALT$)
360OSCLI("%SetEval GenCon%Out "+STR$T%)
390END
400
440DEFFNpar(RETURN E$)LOCALP%,P$
450P%=INSTR(E$," "):IFP%<=0 P$=E$:E$="":=P$
470P$=LEFT$(E$,P%-1):E$=MID$(E$,P%+1):=P$
*� Find out what a function will output
,� Usage: Output -parm <converter> <type>
�=�+&10000
(ș"OS_GetEnv"�E$
2E$=�E$,�E$,"-parm")+6)
<C$=�par(E$):T$=�par(E$)
=�C$=""�T$=""�
,ț"Filer:Utilities.GenCon.Functions."+C$
JT%=�Output(�T$)
h!�("%SetEval GenCon%Out "+�T%)
��
�
�ݤpar(� E$)�P%,P$
�&P%=�E$," "):�P%<=0 P$=E$:E$="":=P$
�!P$=�E$,P%-1):E$=�E$,P%+1):=P$
� 00000000 0d 00 0a 2a f4 20 46 69 6e 64 20 6f 75 74 20 77 |...*. Find out w|
00000010 68 61 74 20 61 20 66 75 6e 63 74 69 6f 6e 20 77 |hat a function w|
00000020 69 6c 6c 20 6f 75 74 70 75 74 0d 00 0b 2c f4 20 |ill output...,. |
00000030 55 73 61 67 65 3a 20 4f 75 74 70 75 74 20 2d 70 |Usage: Output -p|
00000040 61 72 6d 20 3c 63 6f 6e 76 65 72 74 65 72 3e 20 |arm <converter> |
00000050 3c 74 79 70 65 3e 0d 00 14 04 0d 00 1e 0e e0 3d |<type>.........=|
00000060 90 2b 26 31 30 30 30 30 0d 00 28 14 c8 99 22 4f |.+&10000..(..."O|
00000070 53 5f 47 65 74 45 6e 76 22 b8 45 24 0d 00 32 1a |S_GetEnv".E$..2.|
00000080 45 24 3d c1 45 24 2c a7 45 24 2c 22 2d 70 61 72 |E$=.E$,.E$,"-par|
00000090 6d 22 29 2b 36 29 0d 00 3c 1b 43 24 3d a4 70 61 |m")+6)..<.C$=.pa|
000000a0 72 28 45 24 29 3a 54 24 3d a4 70 61 72 28 45 24 |r(E$):T$=.par(E$|
000000b0 29 0d 00 3d 11 e7 43 24 3d 22 22 84 54 24 3d 22 |)..=..C$="".T$="|
000000c0 22 e0 0d 01 04 2c c8 9b 22 46 69 6c 65 72 3a 55 |"....,.."Filer:U|
000000d0 74 69 6c 69 74 69 65 73 2e 47 65 6e 43 6f 6e 2e |tilities.GenCon.|
000000e0 46 75 6e 63 74 69 6f 6e 73 2e 22 2b 43 24 0d 01 |Functions."+C$..|
000000f0 4a 13 54 25 3d a4 4f 75 74 70 75 74 28 a0 54 24 |J.T%=.Output(.T$|
00000100 29 0d 01 68 21 ff 28 22 25 53 65 74 45 76 61 6c |)..h!.("%SetEval|
00000110 20 47 65 6e 43 6f 6e 25 4f 75 74 20 22 2b c3 54 | GenCon%Out "+.T|
00000120 25 29 0d 01 86 05 e0 0d 01 90 04 0d 01 b8 15 dd |%)..............|
00000130 a4 70 61 72 28 f8 20 45 24 29 ea 50 25 2c 50 24 |.par(. E$).P%,P$|
00000140 0d 01 c2 26 50 25 3d a7 45 24 2c 22 20 22 29 3a |...&P%=.E$," "):|
00000150 e7 50 25 3c 3d 30 20 50 24 3d 45 24 3a 45 24 3d |.P%<=0 P$=E$:E$=|
00000160 22 22 3a 3d 50 24 0d 01 d6 21 50 24 3d c0 45 24 |"":=P$...!P$=.E$|
00000170 2c 50 25 2d 31 29 3a 45 24 3d c1 45 24 2c 50 25 |,P%-1):E$=.E$,P%|
00000180 2b 31 29 3a 3d 50 24 0d ff |+1):=P$..|
00000189 
.