RNDpass/!RNDpass/Double

Home » Archimedes archive » Acorn User » AU 1998-12.adf » PD » RNDpass/!RNDpass/Double

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 » Acorn User » AU 1998-12.adf » PD
Filename:	RNDpass/!RNDpass/Double
Read OK:	✔
File size:	0144 bytes
Load address:	0000
Exec address:	0000

File contents

   10ONERROR REPORT:PRINT ERL:END
   20*shut
   30x%=OPENIN("RAM::RamDisc0.$.Tab_file")
   40y%=OPENOUT("SCSI::ISO_Image.$.!RNDpass.Lists.?.Output")
   50dupes%=0
   60old$=""
   70word$="":REPEAT:c%=BGET#x%:word$=word$+CHR$(c%):UNTILc%=&0A
   80IF word$=CHR$(&A) THEN 100
   90IF word$<>old$ THEN BPUT#y%,word$:PTR#y%=PTR#y%-1
  100IF word$=old$ THEN dupes%=dupes%+1 :REMPRINT dupes%
  110old$=word$
  120GOTO 70


� �:� �:�
	*shut
$x%=�("RAM::RamDisc0.$.Tab_file")
(5y%=�("SCSI::ISO_Image.$.!RNDpass.Lists.?.Output")
2dupes%=0
<old$=""
F0word$="":�:c%=�#x%:word$=word$+�(c%):�c%=&0A
P� word$=�(&A) � �Dd@
Z*� word$<>old$ � �#y%,word$:�#y%=�#y%-1
d1� word$=old$ � dupes%=dupes%+1 :�PRINT dupes%
nold$=word$
x
� �DF@
�

00000000  0d 00 0a 0e ee 85 20 f6  3a f1 20 9e 3a e0 0d 00  |...... .:. .:...|
00000010  14 09 2a 73 68 75 74 0d  00 1e 24 78 25 3d 8e 28  |..*shut...$x%=.(|
00000020  22 52 41 4d 3a 3a 52 61  6d 44 69 73 63 30 2e 24  |"RAM::RamDisc0.$|
00000030  2e 54 61 62 5f 66 69 6c  65 22 29 0d 00 28 35 79  |.Tab_file")..(5y|
00000040  25 3d ae 28 22 53 43 53  49 3a 3a 49 53 4f 5f 49  |%=.("SCSI::ISO_I|
00000050  6d 61 67 65 2e 24 2e 21  52 4e 44 70 61 73 73 2e  |mage.$.!RNDpass.|
00000060  4c 69 73 74 73 2e 3f 2e  4f 75 74 70 75 74 22 29  |Lists.?.Output")|
00000070  0d 00 32 0c 64 75 70 65  73 25 3d 30 0d 00 3c 0b  |..2.dupes%=0..<.|
00000080  6f 6c 64 24 3d 22 22 0d  00 46 30 77 6f 72 64 24  |old$=""..F0word$|
00000090  3d 22 22 3a f5 3a 63 25  3d 9a 23 78 25 3a 77 6f  |="":.:c%=.#x%:wo|
000000a0  72 64 24 3d 77 6f 72 64  24 2b bd 28 63 25 29 3a  |rd$=word$+.(c%):|
000000b0  fd 63 25 3d 26 30 41 0d  00 50 18 e7 20 77 6f 72  |.c%=&0A..P.. wor|
000000c0  64 24 3d bd 28 26 41 29  20 8c 20 8d 44 64 40 0d  |d$=.(&A) . .Dd@.|
000000d0  00 5a 2a e7 20 77 6f 72  64 24 3c 3e 6f 6c 64 24  |.Z*. word$<>old$|
000000e0  20 8c 20 d5 23 79 25 2c  77 6f 72 64 24 3a cf 23  | . .#y%,word$:.#|
000000f0  79 25 3d 8f 23 79 25 2d  31 0d 00 64 31 e7 20 77  |y%=.#y%-1..d1. w|
00000100  6f 72 64 24 3d 6f 6c 64  24 20 8c 20 64 75 70 65  |ord$=old$ . dupe|
00000110  73 25 3d 64 75 70 65 73  25 2b 31 20 3a f4 50 52  |s%=dupes%+1 :.PR|
00000120  49 4e 54 20 64 75 70 65  73 25 0d 00 6e 0e 6f 6c  |INT dupes%..n.ol|
00000130  64 24 3d 77 6f 72 64 24  0d 00 78 0a e5 20 8d 44  |d$=word$..x.. .D|
00000140  46 40 0d ff                                       |F@..|
00000144

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .