Home » CEEFAX disks » telesoftware6.adl » 28-03-88/RFSLANG

28-03-88/RFSLANG

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 » CEEFAX disks » telesoftware6.adl
Filename: 28-03-88/RFSLANG
Read OK:
File size: 086A bytes
Load address: 0800
Exec address: 8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM: RFSLANG
   20MODE7
   30HIMEM=&3C00
   40diff=&8000-HIMEM
   50H%=HIMEM
   60comvec=&F2
   70romnumber=&F4
   80phrom=&F5
   90rompoint=&F6
  100breakv=&202
  110gsread=&FFC5
  120osbyte=&FFF4
  130FOR pass = 0 TO 2 STEP 2
  140P%=HIMEM
  150[OPT pass
  160JMP language+diff
  170JMP service+diff
  180OPT FNequb(&C2)
  190OPT FNequb((copyright+diff) MOD 256)
  200BRK
  210.title
  220OPT FNequs("RFS")
  230.copyright
  240BRK
  250OPT FNequs("(C) Gordon Horsington 1987")
  260BRK
  270.service
  280PHA
  290CMP #4
  300BNE trythirteen
  310TXA
  320PHA
  330TYA
  340PHA
  350LDX #&FF
  360.comloop
  370INX
  380LDA title+diff,X
  390BEQ found
  400LDA (comvec),Y
  410INY
  420CMP #ASC(".")
  430BEQ found
  440AND #&DF
  450CMP title+diff,X
  460BEQ comloop
  470PLA
  480TAY
  490PLA
  500TAX
  510PLA
  520RTS
  530.found
  540LDA #&8E
  550LDX romnumber
  560JMP osbyte \ Enter this ROM
  570.trythirteen
  580CMP #13
  590BNE fourteen
  600TYA
  610EOR #&F
  620CMP romnumber
  630BCC out
  640LDA #(lastbyte+diff) MOD 256
  650STA rompoint
  660LDA #(lastbyte+diff) DIV 256
  670STA rompoint+1
  680LDA romnumber
  690EOR #&F
  700STA phrom
  710.exit
  720PLA
  730LDA #0
  740RTS
  750.fourteen
  760CMP #14
  770BNE out
  780LDA phrom
  790EOR #&F
  800CMP romnumber
  810BNE out
  820LDY #0
  830LDA (rompoint),Y
  840TAY
  850INC rompoint
  860BNE exit
  870INC rompoint+1
  880JMP exit+diff
  890.out
  900PLA
  910RTS
  920.language
  930CLI \ Enable interupt requests
  940LDX #&FF
  950TXS \ Reset stack
  960LDA #(basic+diff) MOD 256
  970STA breakv
  980LDA #(basic+diff) DIV 256
  990STA breakv+1
 1000LDA #&8D
 1010JSR osbyte \ *ROM
 1020LDA #&8B
 1030LDX #1
 1040LDY #0
 1050JSR osbyte \ *OPT1,0
 1060LDA #&0F
 1070LDX #0
 1080JSR osbyte \ Flush all buffers
 1090LDA #&FF
 1100PHA
 1110.keyboard
 1120PLA
 1130TAX
 1140INX
 1150TXA
 1160PHA
 1170LDY rfscomm+diff,X
 1180BEQ basic
 1190LDA #&8A
 1200LDX #0
 1210JSR osbyte
 1220JMP keyboard+diff
 1230.basic
 1240LDA #&BB
 1250LDX #0
 1260LDY #&FF
 1270JSR osbyte \ Find BASIC
 1280LDA #&8E
 1290JMP osbyte \ Enter BASIC
 1300.rfscomm
 1310OPT FNequs("CHAIN""DEMO""")
 1320OPT FNequb(&0D)
 1330BRK
 1340.lastbyte
 1350]
 1360NEXT
 1370O%=lastbyte
 1380CHAIN"RFSGEN"
 1390DEFFNequb(byte)
 1400?P%=byte
 1410P%=P%+1
 1420=pass
 1430DEFFNequw(word)
 1440?P%=word MOD 256
 1450P%?1=word DIV 256
 1460P%=P%+2
 1470=pass
 1480DEFFNequd(double)
 1490!P%=double
 1500P%=P%+4
 1510=pass
 1520DEFFNequs(string$)
 1530$P%=string$
 1540P%=P%+LEN(string$)
 1550=pass

�: RFSLANG
�7
�=&3C00
(diff=&8000-�
2H%=�
<comvec=&F2
Fromnumber=&F4
P
phrom=&F5
Zrompoint=&F6
dbreakv=&202
ngsread=&FFC5
xosbyte=&FFF4
�� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�JMP language+diff
�JMP service+diff
�OPT �equb(&C2)
�%OPT �equb((copyright+diff) � 256)
�BRK
�
.title
�OPT �equs("RFS")
�.copyright
�BRK
�+OPT �equs("(C) Gordon Horsington 1987")
BRK
.service
PHA
"
CMP #4
,BNE trythirteen
6TXA
@PHA
JTYA
TPHA
^LDX #&FF
h.comloop
rINX
|LDA title+diff,X
�
BEQ found
�LDA (comvec),Y
�INY
�CMP #�(".")
�
BEQ found
�
� #&DF
�CMP title+diff,X
�BEQ comloop
�PLA
�TAY
�PLA
�TAX
�PLA
RTS

.found
LDA #&8E
&LDX romnumber
0JMP osbyte \ Enter this ROM
:.trythirteen
DCMP #13
NBNE fourteen
XTYA
b	� #&F
lCMP romnumber
vBCC out
�LDA #(lastbyte+diff) � 256
�STA rompoint
�LDA #(lastbyte+diff) � 256
�STA rompoint+1
�LDA romnumber
�	� #&F
�
STA phrom
�	.exit
�PLA
�
LDA #0
�RTS
�
.fourteen
�CMP #14
BNE out

LDA phrom
	� #&F
 CMP romnumber
*BNE out
4
LDY #0
>LDA (rompoint),Y
HTAY
RINC rompoint
\BNE exit
fINC rompoint+1
pJMP exit+diff
z.out
�PLA
�RTS
�
.language
�"CLI \ Enable interupt requests
�LDX #&FF
�TXS \ Reset stack
�LDA #(basic+diff) � 256
�STA breakv
�LDA #(basic+diff) � 256
�STA breakv+1
�LDA #&8D
�JSR osbyte \ *ROM
�LDA #&8B

LDX #1

LDY #0
JSR osbyte \ *OPT1,0
$LDA #&0F
.
LDX #0
8"JSR osbyte \ Flush all buffers
BLDA #&FF
LPHA
V
.keyboard
`PLA
jTAX
tINX
~TXA
�PHA
�LDY rfscomm+diff,X
�
BEQ basic
�LDA #&8A
�
LDX #0
�JSR osbyte
�JMP keyboard+diff
�
.basic
�LDA #&BB
�
LDX #0
�LDY #&FF
�JSR osbyte \ Find BASIC
LDA #&8E

JMP osbyte \ Enter BASIC
.rfscomm
OPT �equs("CHAIN""DEMO""")
(OPT �equb(&0D)
2BRK
<
.lastbyte
F]
P�
ZO%=lastbyte
d
�"RFSGEN"
nݤequb(byte)
x?P%=byte
�P%=P%+1
�	=pass
�ݤequw(word)
�?P%=word � 256
�P%?1=word � 256
�P%=P%+2
�	=pass
�ݤequd(double)
�!P%=double
�P%=P%+4
�	=pass
�ݤequs(string$)
�$P%=string$
P%=P%+�(string$)
	=pass
�
00000000  0d 00 0a 0e f4 3a 20 52  46 53 4c 41 4e 47 0d 00  |.....: RFSLANG..|
00000010  14 06 eb 37 0d 00 1e 0b  d3 3d 26 33 43 30 30 0d  |...7.....=&3C00.|
00000020  00 28 10 64 69 66 66 3d  26 38 30 30 30 2d 93 0d  |.(.diff=&8000-..|
00000030  00 32 08 48 25 3d 93 0d  00 3c 0e 63 6f 6d 76 65  |.2.H%=...<.comve|
00000040  63 3d 26 46 32 0d 00 46  11 72 6f 6d 6e 75 6d 62  |c=&F2..F.romnumb|
00000050  65 72 3d 26 46 34 0d 00  50 0d 70 68 72 6f 6d 3d  |er=&F4..P.phrom=|
00000060  26 46 35 0d 00 5a 10 72  6f 6d 70 6f 69 6e 74 3d  |&F5..Z.rompoint=|
00000070  26 46 36 0d 00 64 0f 62  72 65 61 6b 76 3d 26 32  |&F6..d.breakv=&2|
00000080  30 32 0d 00 6e 10 67 73  72 65 61 64 3d 26 46 46  |02..n.gsread=&FF|
00000090  43 35 0d 00 78 10 6f 73  62 79 74 65 3d 26 46 46  |C5..x.osbyte=&FF|
000000a0  46 34 0d 00 82 16 e3 20  70 61 73 73 20 3d 20 30  |F4..... pass = 0|
000000b0  20 b8 20 32 20 88 20 32  0d 00 8c 08 50 25 3d 93  | . 2 . 2....P%=.|
000000c0  0d 00 96 0d 5b 4f 50 54  20 70 61 73 73 0d 00 a0  |....[OPT pass...|
000000d0  15 4a 4d 50 20 6c 61 6e  67 75 61 67 65 2b 64 69  |.JMP language+di|
000000e0  66 66 0d 00 aa 14 4a 4d  50 20 73 65 72 76 69 63  |ff....JMP servic|
000000f0  65 2b 64 69 66 66 0d 00  b4 12 4f 50 54 20 a4 65  |e+diff....OPT .e|
00000100  71 75 62 28 26 43 32 29  0d 00 be 25 4f 50 54 20  |qub(&C2)...%OPT |
00000110  a4 65 71 75 62 28 28 63  6f 70 79 72 69 67 68 74  |.equb((copyright|
00000120  2b 64 69 66 66 29 20 83  20 32 35 36 29 0d 00 c8  |+diff) . 256)...|
00000130  07 42 52 4b 0d 00 d2 0a  2e 74 69 74 6c 65 0d 00  |.BRK.....title..|
00000140  dc 14 4f 50 54 20 a4 65  71 75 73 28 22 52 46 53  |..OPT .equs("RFS|
00000150  22 29 0d 00 e6 0e 2e 63  6f 70 79 72 69 67 68 74  |").....copyright|
00000160  0d 00 f0 07 42 52 4b 0d  00 fa 2b 4f 50 54 20 a4  |....BRK...+OPT .|
00000170  65 71 75 73 28 22 28 43  29 20 47 6f 72 64 6f 6e  |equs("(C) Gordon|
00000180  20 48 6f 72 73 69 6e 67  74 6f 6e 20 31 39 38 37  | Horsington 1987|
00000190  22 29 0d 01 04 07 42 52  4b 0d 01 0e 0c 2e 73 65  |")....BRK.....se|
000001a0  72 76 69 63 65 0d 01 18  07 50 48 41 0d 01 22 0a  |rvice....PHA..".|
000001b0  43 4d 50 20 23 34 0d 01  2c 13 42 4e 45 20 74 72  |CMP #4..,.BNE tr|
000001c0  79 74 68 69 72 74 65 65  6e 0d 01 36 07 54 58 41  |ythirteen..6.TXA|
000001d0  0d 01 40 07 50 48 41 0d  01 4a 07 54 59 41 0d 01  |..@.PHA..J.TYA..|
000001e0  54 07 50 48 41 0d 01 5e  0c 4c 44 58 20 23 26 46  |T.PHA..^.LDX #&F|
000001f0  46 0d 01 68 0c 2e 63 6f  6d 6c 6f 6f 70 0d 01 72  |F..h..comloop..r|
00000200  07 49 4e 58 0d 01 7c 14  4c 44 41 20 74 69 74 6c  |.INX..|.LDA titl|
00000210  65 2b 64 69 66 66 2c 58  0d 01 86 0d 42 45 51 20  |e+diff,X....BEQ |
00000220  66 6f 75 6e 64 0d 01 90  12 4c 44 41 20 28 63 6f  |found....LDA (co|
00000230  6d 76 65 63 29 2c 59 0d  01 9a 07 49 4e 59 0d 01  |mvec),Y....INY..|
00000240  a4 0f 43 4d 50 20 23 97  28 22 2e 22 29 0d 01 ae  |..CMP #.(".")...|
00000250  0d 42 45 51 20 66 6f 75  6e 64 0d 01 b8 0a 80 20  |.BEQ found..... |
00000260  23 26 44 46 0d 01 c2 14  43 4d 50 20 74 69 74 6c  |#&DF....CMP titl|
00000270  65 2b 64 69 66 66 2c 58  0d 01 cc 0f 42 45 51 20  |e+diff,X....BEQ |
00000280  63 6f 6d 6c 6f 6f 70 0d  01 d6 07 50 4c 41 0d 01  |comloop....PLA..|
00000290  e0 07 54 41 59 0d 01 ea  07 50 4c 41 0d 01 f4 07  |..TAY....PLA....|
000002a0  54 41 58 0d 01 fe 07 50  4c 41 0d 02 08 07 52 54  |TAX....PLA....RT|
000002b0  53 0d 02 12 0a 2e 66 6f  75 6e 64 0d 02 1c 0c 4c  |S.....found....L|
000002c0  44 41 20 23 26 38 45 0d  02 26 11 4c 44 58 20 72  |DA #&8E..&.LDX r|
000002d0  6f 6d 6e 75 6d 62 65 72  0d 02 30 1f 4a 4d 50 20  |omnumber..0.JMP |
000002e0  6f 73 62 79 74 65 20 5c  20 45 6e 74 65 72 20 74  |osbyte \ Enter t|
000002f0  68 69 73 20 52 4f 4d 0d  02 3a 10 2e 74 72 79 74  |his ROM..:..tryt|
00000300  68 69 72 74 65 65 6e 0d  02 44 0b 43 4d 50 20 23  |hirteen..D.CMP #|
00000310  31 33 0d 02 4e 10 42 4e  45 20 66 6f 75 72 74 65  |13..N.BNE fourte|
00000320  65 6e 0d 02 58 07 54 59  41 0d 02 62 09 82 20 23  |en..X.TYA..b.. #|
00000330  26 46 0d 02 6c 11 43 4d  50 20 72 6f 6d 6e 75 6d  |&F..l.CMP romnum|
00000340  62 65 72 0d 02 76 0b 42  43 43 20 6f 75 74 0d 02  |ber..v.BCC out..|
00000350  80 1e 4c 44 41 20 23 28  6c 61 73 74 62 79 74 65  |..LDA #(lastbyte|
00000360  2b 64 69 66 66 29 20 83  20 32 35 36 0d 02 8a 10  |+diff) . 256....|
00000370  53 54 41 20 72 6f 6d 70  6f 69 6e 74 0d 02 94 1e  |STA rompoint....|
00000380  4c 44 41 20 23 28 6c 61  73 74 62 79 74 65 2b 64  |LDA #(lastbyte+d|
00000390  69 66 66 29 20 81 20 32  35 36 0d 02 9e 12 53 54  |iff) . 256....ST|
000003a0  41 20 72 6f 6d 70 6f 69  6e 74 2b 31 0d 02 a8 11  |A rompoint+1....|
000003b0  4c 44 41 20 72 6f 6d 6e  75 6d 62 65 72 0d 02 b2  |LDA romnumber...|
000003c0  09 82 20 23 26 46 0d 02  bc 0d 53 54 41 20 70 68  |.. #&F....STA ph|
000003d0  72 6f 6d 0d 02 c6 09 2e  65 78 69 74 0d 02 d0 07  |rom.....exit....|
000003e0  50 4c 41 0d 02 da 0a 4c  44 41 20 23 30 0d 02 e4  |PLA....LDA #0...|
000003f0  07 52 54 53 0d 02 ee 0d  2e 66 6f 75 72 74 65 65  |.RTS.....fourtee|
00000400  6e 0d 02 f8 0b 43 4d 50  20 23 31 34 0d 03 02 0b  |n....CMP #14....|
00000410  42 4e 45 20 6f 75 74 0d  03 0c 0d 4c 44 41 20 70  |BNE out....LDA p|
00000420  68 72 6f 6d 0d 03 16 09  82 20 23 26 46 0d 03 20  |hrom..... #&F.. |
00000430  11 43 4d 50 20 72 6f 6d  6e 75 6d 62 65 72 0d 03  |.CMP romnumber..|
00000440  2a 0b 42 4e 45 20 6f 75  74 0d 03 34 0a 4c 44 59  |*.BNE out..4.LDY|
00000450  20 23 30 0d 03 3e 14 4c  44 41 20 28 72 6f 6d 70  | #0..>.LDA (romp|
00000460  6f 69 6e 74 29 2c 59 0d  03 48 07 54 41 59 0d 03  |oint),Y..H.TAY..|
00000470  52 10 49 4e 43 20 72 6f  6d 70 6f 69 6e 74 0d 03  |R.INC rompoint..|
00000480  5c 0c 42 4e 45 20 65 78  69 74 0d 03 66 12 49 4e  |\.BNE exit..f.IN|
00000490  43 20 72 6f 6d 70 6f 69  6e 74 2b 31 0d 03 70 11  |C rompoint+1..p.|
000004a0  4a 4d 50 20 65 78 69 74  2b 64 69 66 66 0d 03 7a  |JMP exit+diff..z|
000004b0  08 2e 6f 75 74 0d 03 84  07 50 4c 41 0d 03 8e 07  |..out....PLA....|
000004c0  52 54 53 0d 03 98 0d 2e  6c 61 6e 67 75 61 67 65  |RTS.....language|
000004d0  0d 03 a2 22 43 4c 49 20  5c 20 45 6e 61 62 6c 65  |..."CLI \ Enable|
000004e0  20 69 6e 74 65 72 75 70  74 20 72 65 71 75 65 73  | interupt reques|
000004f0  74 73 0d 03 ac 0c 4c 44  58 20 23 26 46 46 0d 03  |ts....LDX #&FF..|
00000500  b6 15 54 58 53 20 5c 20  52 65 73 65 74 20 73 74  |..TXS \ Reset st|
00000510  61 63 6b 0d 03 c0 1b 4c  44 41 20 23 28 62 61 73  |ack....LDA #(bas|
00000520  69 63 2b 64 69 66 66 29  20 83 20 32 35 36 0d 03  |ic+diff) . 256..|
00000530  ca 0e 53 54 41 20 62 72  65 61 6b 76 0d 03 d4 1b  |..STA breakv....|
00000540  4c 44 41 20 23 28 62 61  73 69 63 2b 64 69 66 66  |LDA #(basic+diff|
00000550  29 20 81 20 32 35 36 0d  03 de 10 53 54 41 20 62  |) . 256....STA b|
00000560  72 65 61 6b 76 2b 31 0d  03 e8 0c 4c 44 41 20 23  |reakv+1....LDA #|
00000570  26 38 44 0d 03 f2 15 4a  53 52 20 6f 73 62 79 74  |&8D....JSR osbyt|
00000580  65 20 5c 20 2a 52 4f 4d  0d 03 fc 0c 4c 44 41 20  |e \ *ROM....LDA |
00000590  23 26 38 42 0d 04 06 0a  4c 44 58 20 23 31 0d 04  |#&8B....LDX #1..|
000005a0  10 0a 4c 44 59 20 23 30  0d 04 1a 18 4a 53 52 20  |..LDY #0....JSR |
000005b0  6f 73 62 79 74 65 20 5c  20 2a 4f 50 54 31 2c 30  |osbyte \ *OPT1,0|
000005c0  0d 04 24 0c 4c 44 41 20  23 26 30 46 0d 04 2e 0a  |..$.LDA #&0F....|
000005d0  4c 44 58 20 23 30 0d 04  38 22 4a 53 52 20 6f 73  |LDX #0..8"JSR os|
000005e0  62 79 74 65 20 5c 20 46  6c 75 73 68 20 61 6c 6c  |byte \ Flush all|
000005f0  20 62 75 66 66 65 72 73  0d 04 42 0c 4c 44 41 20  | buffers..B.LDA |
00000600  23 26 46 46 0d 04 4c 07  50 48 41 0d 04 56 0d 2e  |#&FF..L.PHA..V..|
00000610  6b 65 79 62 6f 61 72 64  0d 04 60 07 50 4c 41 0d  |keyboard..`.PLA.|
00000620  04 6a 07 54 41 58 0d 04  74 07 49 4e 58 0d 04 7e  |.j.TAX..t.INX..~|
00000630  07 54 58 41 0d 04 88 07  50 48 41 0d 04 92 16 4c  |.TXA....PHA....L|
00000640  44 59 20 72 66 73 63 6f  6d 6d 2b 64 69 66 66 2c  |DY rfscomm+diff,|
00000650  58 0d 04 9c 0d 42 45 51  20 62 61 73 69 63 0d 04  |X....BEQ basic..|
00000660  a6 0c 4c 44 41 20 23 26  38 41 0d 04 b0 0a 4c 44  |..LDA #&8A....LD|
00000670  58 20 23 30 0d 04 ba 0e  4a 53 52 20 6f 73 62 79  |X #0....JSR osby|
00000680  74 65 0d 04 c4 15 4a 4d  50 20 6b 65 79 62 6f 61  |te....JMP keyboa|
00000690  72 64 2b 64 69 66 66 0d  04 ce 0a 2e 62 61 73 69  |rd+diff.....basi|
000006a0  63 0d 04 d8 0c 4c 44 41  20 23 26 42 42 0d 04 e2  |c....LDA #&BB...|
000006b0  0a 4c 44 58 20 23 30 0d  04 ec 0c 4c 44 59 20 23  |.LDX #0....LDY #|
000006c0  26 46 46 0d 04 f6 1b 4a  53 52 20 6f 73 62 79 74  |&FF....JSR osbyt|
000006d0  65 20 5c 20 46 69 6e 64  20 42 41 53 49 43 0d 05  |e \ Find BASIC..|
000006e0  00 0c 4c 44 41 20 23 26  38 45 0d 05 0a 1c 4a 4d  |..LDA #&8E....JM|
000006f0  50 20 6f 73 62 79 74 65  20 5c 20 45 6e 74 65 72  |P osbyte \ Enter|
00000700  20 42 41 53 49 43 0d 05  14 0c 2e 72 66 73 63 6f  | BASIC.....rfsco|
00000710  6d 6d 0d 05 1e 1e 4f 50  54 20 a4 65 71 75 73 28  |mm....OPT .equs(|
00000720  22 43 48 41 49 4e 22 22  44 45 4d 4f 22 22 22 29  |"CHAIN""DEMO""")|
00000730  0d 05 28 12 4f 50 54 20  a4 65 71 75 62 28 26 30  |..(.OPT .equb(&0|
00000740  44 29 0d 05 32 07 42 52  4b 0d 05 3c 0d 2e 6c 61  |D)..2.BRK..<..la|
00000750  73 74 62 79 74 65 0d 05  46 05 5d 0d 05 50 05 ed  |stbyte..F.]..P..|
00000760  0d 05 5a 0f 4f 25 3d 6c  61 73 74 62 79 74 65 0d  |..Z.O%=lastbyte.|
00000770  05 64 0d d7 22 52 46 53  47 45 4e 22 0d 05 6e 10  |.d.."RFSGEN"..n.|
00000780  dd a4 65 71 75 62 28 62  79 74 65 29 0d 05 78 0c  |..equb(byte)..x.|
00000790  3f 50 25 3d 62 79 74 65  0d 05 82 0b 50 25 3d 50  |?P%=byte....P%=P|
000007a0  25 2b 31 0d 05 8c 09 3d  70 61 73 73 0d 05 96 10  |%+1....=pass....|
000007b0  dd a4 65 71 75 77 28 77  6f 72 64 29 0d 05 a0 12  |..equw(word)....|
000007c0  3f 50 25 3d 77 6f 72 64  20 83 20 32 35 36 0d 05  |?P%=word . 256..|
000007d0  aa 13 50 25 3f 31 3d 77  6f 72 64 20 81 20 32 35  |..P%?1=word . 25|
000007e0  36 0d 05 b4 0b 50 25 3d  50 25 2b 32 0d 05 be 09  |6....P%=P%+2....|
000007f0  3d 70 61 73 73 0d 05 c8  12 dd a4 65 71 75 64 28  |=pass......equd(|
00000800  64 6f 75 62 6c 65 29 0d  05 d2 0e 21 50 25 3d 64  |double)....!P%=d|
00000810  6f 75 62 6c 65 0d 05 dc  0b 50 25 3d 50 25 2b 34  |ouble....P%=P%+4|
00000820  0d 05 e6 09 3d 70 61 73  73 0d 05 f0 13 dd a4 65  |....=pass......e|
00000830  71 75 73 28 73 74 72 69  6e 67 24 29 0d 05 fa 0f  |qus(string$)....|
00000840  24 50 25 3d 73 74 72 69  6e 67 24 0d 06 04 14 50  |$P%=string$....P|
00000850  25 3d 50 25 2b a9 28 73  74 72 69 6e 67 24 29 0d  |%=P%+.(string$).|
00000860  06 0e 09 3d 70 61 73 73  0d ff                    |...=pass..|
0000086a
28-03-88/RFSLANG.m0
28-03-88/RFSLANG.m1
28-03-88/RFSLANG.m2
28-03-88/RFSLANG.m4
28-03-88/RFSLANG.m5