PROGS/LOTT2

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_17.ADF » PROGS/LOTT2

PROGS/LOTT2

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 ADFS disks » Electron_User_Group » EUG_17.ADF
Filename:	PROGS/LOTT2
Read OK:	✔
File size:	046E bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

Duplicates

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

AEW website » eug » eug_5_25_discs_Eug-17_D-EUG17.dsd » U.LOTT1
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_17.ADF » PROGS/LOTT2

File contents

   10MODE6:VDU23;8202;0;0;0;19,0,4;0;
   20*FX16,0
   30DIMA%(50),C%(50),J(6)
   40C%=0:D%=4:E%=0:M%=0:f=0:FS=0
   50VDU17,0,17,129:REPEAT:FORB%=1TO7:VDU31,B%*5,D%-1:PRINTSTR$(B%+E%):NEXT:D%=D%+3:E%=E%+7:UNTILE%>42
   60PROCR:PROCF:VDU31,0,23:END
   70DEFPROCR:G%=RND(49):A%(G%)=A%(G%)+1:PROCRA:PROCRB:PROCRC:PROCRD:PROCRE:PROCG:M%=M%+1:IFM%<500PROCR 
   80ENDPROC
   90DEFPROCRA:H%=RND(49):IFH%=G%PROCRA
  100A%(H%)=A%(H%)+1:ENDPROC
  110DEFPROCRB:I%=RND(49):IFI%=G%ORI%=H%PROCRB
  120A%(I%)=A%(I%)+1:ENDPROC
  130DEFPROCRC:J%=RND(49):IFJ%=G%ORJ%=H%ORJ%=I%PROCRC
  140A%(J%)=A%(J%)+1:ENDPROC
  150DEFPROCRD:K%=RND(49):IFK%=G%ORK%=H%ORK%=I%ORK%=J%PROCRD
  160A%(K%)=A%(K%)+1:ENDPROC 
  170DEFPROCRE:L%=RND(49):IFL%=G%ORL%=H%ORL%=I%ORL%=J%ORL%=K%PROCRE
  180A%(L%)=A%(L%)+1:ENDPROC
  190DEFPROCG:E%=0:D%=4:PROCS:PROCSA:PROCT:PROCP:ENDPROC 
  200DEFPROCP:FORB%=1TO7:IFA%(B%+E%)>C%(B%+E%) C%(B%+E%)=C%(B%+E%)+1:VDU31,B%*5,D%:PRINTSTR$(A%(B%+E%))
  210NEXT:D%=D%+3:E%=E%+7:IFE%<43PROCP
  220ENDPROC
  230DEFPROCS:J(0)=G%:J(1)=H%:J(2)=I%:J(3)=J%:J(4)=K%:J(5)=L%:ENDPROC  
  240DEFPROCSA:PU=J(FS):FS=FS+1:FORP=FS TO 5:IF PU>J(P) IT=J(P):J(P)=PU:PU=IT
  250NEXTP:J(FS-1)=PU:IFFS<5PROCSA
  260FS=0:ENDPROC
  270DEFPROCT:VDU28,8,1,32,1,17,129,12,26,31,10,1,17,0:PRINTSTR$(J(0));"  ";STR$(J(1));"  ";STR$(J(2));"  ";STR$(J(3));"  ";STR$(J(4));"  ";STR$(J(5)):VDU17,1,17,128:ENDPROC
  280DEFPROCF:J(f)=0:FORI=1TO49
  290IFA%(I)>J(f) J(f)=A%(I):A%(0)=I
  300NEXT:J(f)=A%(0):A%(J(f))=0
  310f=f+1:IFf<6PROCF
  320PROCSA:PROCT:ENDPROC


�6:�23;8202;0;0;0;19,0,4;0;
*FX16,0
�A%(50),C%(50),J(6)
( C%=0:D%=4:E%=0:M%=0:f=0:FS=0
2K�17,0,17,129:�:�B%=1�7:�31,B%*5,D%-1:��(B%+E%):�:D%=D%+3:E%=E%+7:�E%>42
<�R:�F:�31,0,23:�
FJ��R:G%=�(49):A%(G%)=A%(G%)+1:�RA:�RB:�RC:�RD:�RE:�G:M%=M%+1:�M%<500�R 
P�
Z��RA:H%=�(49):�H%=G%�RA
dA%(H%)=A%(H%)+1:�
n!��RB:I%=�(49):�I%=G%�I%=H%�RB
xA%(I%)=A%(I%)+1:�
�'��RC:J%=�(49):�J%=G%�J%=H%�J%=I%�RC
�A%(J%)=A%(J%)+1:�
�-��RD:K%=�(49):�K%=G%�K%=H%�K%=I%�K%=J%�RD
�A%(K%)=A%(K%)+1:� 
�3��RE:L%=�(49):�L%=G%�L%=H%�L%=I%�L%=J%�L%=K%�RE
�A%(L%)=A%(L%)+1:�
�!��G:E%=0:D%=4:�S:�SA:�T:�P:� 
�T��P:�B%=1�7:�A%(B%+E%)>C%(B%+E%) C%(B%+E%)=C%(B%+E%)+1:�31,B%*5,D%:��(A%(B%+E%))
��:D%=D%+3:E%=E%+7:�E%<43�P
��
�;��S:J(0)=G%:J(1)=H%:J(2)=I%:J(3)=J%:J(4)=K%:J(5)=L%:�  
�C��SA:PU=J(FS):FS=FS+1:�P=FS � 5:� PU>J(P) IT=J(P):J(P)=PU:PU=IT
��P:J(FS-1)=PU:�FS<5�SA
FS=0:�
���T:�28,8,1,32,1,17,129,12,26,31,10,1,17,0:��(J(0));"  ";�(J(1));"  ";�(J(2));"  ";�(J(3));"  ";�(J(4));"  ";�(J(5)):�17,1,17,128:�
��F:J(f)=0:�I=1�49
""�A%(I)>J(f) J(f)=A%(I):A%(0)=I
,�:J(f)=A%(0):A%(J(f))=0
6f=f+1:�f<6�F
@�SA:�T:�
�

00000000  0d 00 0a 1f eb 36 3a ef  32 33 3b 38 32 30 32 3b  |.....6:.23;8202;|
00000010  30 3b 30 3b 30 3b 31 39  2c 30 2c 34 3b 30 3b 0d  |0;0;0;19,0,4;0;.|
00000020  00 14 0b 2a 46 58 31 36  2c 30 0d 00 1e 17 de 41  |...*FX16,0.....A|
00000030  25 28 35 30 29 2c 43 25  28 35 30 29 2c 4a 28 36  |%(50),C%(50),J(6|
00000040  29 0d 00 28 20 43 25 3d  30 3a 44 25 3d 34 3a 45  |)..( C%=0:D%=4:E|
00000050  25 3d 30 3a 4d 25 3d 30  3a 66 3d 30 3a 46 53 3d  |%=0:M%=0:f=0:FS=|
00000060  30 0d 00 32 4b ef 31 37  2c 30 2c 31 37 2c 31 32  |0..2K.17,0,17,12|
00000070  39 3a f5 3a e3 42 25 3d  31 b8 37 3a ef 33 31 2c  |9:.:.B%=1.7:.31,|
00000080  42 25 2a 35 2c 44 25 2d  31 3a f1 c3 28 42 25 2b  |B%*5,D%-1:..(B%+|
00000090  45 25 29 3a ed 3a 44 25  3d 44 25 2b 33 3a 45 25  |E%):.:D%=D%+3:E%|
000000a0  3d 45 25 2b 37 3a fd 45  25 3e 34 32 0d 00 3c 14  |=E%+7:.E%>42..<.|
000000b0  f2 52 3a f2 46 3a ef 33  31 2c 30 2c 32 33 3a e0  |.R:.F:.31,0,23:.|
000000c0  0d 00 46 4a dd f2 52 3a  47 25 3d b3 28 34 39 29  |..FJ..R:G%=.(49)|
000000d0  3a 41 25 28 47 25 29 3d  41 25 28 47 25 29 2b 31  |:A%(G%)=A%(G%)+1|
000000e0  3a f2 52 41 3a f2 52 42  3a f2 52 43 3a f2 52 44  |:.RA:.RB:.RC:.RD|
000000f0  3a f2 52 45 3a f2 47 3a  4d 25 3d 4d 25 2b 31 3a  |:.RE:.G:M%=M%+1:|
00000100  e7 4d 25 3c 35 30 30 f2  52 20 0d 00 50 05 e1 0d  |.M%<500.R ..P...|
00000110  00 5a 1b dd f2 52 41 3a  48 25 3d b3 28 34 39 29  |.Z...RA:H%=.(49)|
00000120  3a e7 48 25 3d 47 25 f2  52 41 0d 00 64 15 41 25  |:.H%=G%.RA..d.A%|
00000130  28 48 25 29 3d 41 25 28  48 25 29 2b 31 3a e1 0d  |(H%)=A%(H%)+1:..|
00000140  00 6e 21 dd f2 52 42 3a  49 25 3d b3 28 34 39 29  |.n!..RB:I%=.(49)|
00000150  3a e7 49 25 3d 47 25 84  49 25 3d 48 25 f2 52 42  |:.I%=G%.I%=H%.RB|
00000160  0d 00 78 15 41 25 28 49  25 29 3d 41 25 28 49 25  |..x.A%(I%)=A%(I%|
00000170  29 2b 31 3a e1 0d 00 82  27 dd f2 52 43 3a 4a 25  |)+1:....'..RC:J%|
00000180  3d b3 28 34 39 29 3a e7  4a 25 3d 47 25 84 4a 25  |=.(49):.J%=G%.J%|
00000190  3d 48 25 84 4a 25 3d 49  25 f2 52 43 0d 00 8c 15  |=H%.J%=I%.RC....|
000001a0  41 25 28 4a 25 29 3d 41  25 28 4a 25 29 2b 31 3a  |A%(J%)=A%(J%)+1:|
000001b0  e1 0d 00 96 2d dd f2 52  44 3a 4b 25 3d b3 28 34  |....-..RD:K%=.(4|
000001c0  39 29 3a e7 4b 25 3d 47  25 84 4b 25 3d 48 25 84  |9):.K%=G%.K%=H%.|
000001d0  4b 25 3d 49 25 84 4b 25  3d 4a 25 f2 52 44 0d 00  |K%=I%.K%=J%.RD..|
000001e0  a0 16 41 25 28 4b 25 29  3d 41 25 28 4b 25 29 2b  |..A%(K%)=A%(K%)+|
000001f0  31 3a e1 20 0d 00 aa 33  dd f2 52 45 3a 4c 25 3d  |1:. ...3..RE:L%=|
00000200  b3 28 34 39 29 3a e7 4c  25 3d 47 25 84 4c 25 3d  |.(49):.L%=G%.L%=|
00000210  48 25 84 4c 25 3d 49 25  84 4c 25 3d 4a 25 84 4c  |H%.L%=I%.L%=J%.L|
00000220  25 3d 4b 25 f2 52 45 0d  00 b4 15 41 25 28 4c 25  |%=K%.RE....A%(L%|
00000230  29 3d 41 25 28 4c 25 29  2b 31 3a e1 0d 00 be 21  |)=A%(L%)+1:....!|
00000240  dd f2 47 3a 45 25 3d 30  3a 44 25 3d 34 3a f2 53  |..G:E%=0:D%=4:.S|
00000250  3a f2 53 41 3a f2 54 3a  f2 50 3a e1 20 0d 00 c8  |:.SA:.T:.P:. ...|
00000260  54 dd f2 50 3a e3 42 25  3d 31 b8 37 3a e7 41 25  |T..P:.B%=1.7:.A%|
00000270  28 42 25 2b 45 25 29 3e  43 25 28 42 25 2b 45 25  |(B%+E%)>C%(B%+E%|
00000280  29 20 43 25 28 42 25 2b  45 25 29 3d 43 25 28 42  |) C%(B%+E%)=C%(B|
00000290  25 2b 45 25 29 2b 31 3a  ef 33 31 2c 42 25 2a 35  |%+E%)+1:.31,B%*5|
000002a0  2c 44 25 3a f1 c3 28 41  25 28 42 25 2b 45 25 29  |,D%:..(A%(B%+E%)|
000002b0  29 0d 00 d2 1e ed 3a 44  25 3d 44 25 2b 33 3a 45  |).....:D%=D%+3:E|
000002c0  25 3d 45 25 2b 37 3a e7  45 25 3c 34 33 f2 50 0d  |%=E%+7:.E%<43.P.|
000002d0  00 dc 05 e1 0d 00 e6 3b  dd f2 53 3a 4a 28 30 29  |.......;..S:J(0)|
000002e0  3d 47 25 3a 4a 28 31 29  3d 48 25 3a 4a 28 32 29  |=G%:J(1)=H%:J(2)|
000002f0  3d 49 25 3a 4a 28 33 29  3d 4a 25 3a 4a 28 34 29  |=I%:J(3)=J%:J(4)|
00000300  3d 4b 25 3a 4a 28 35 29  3d 4c 25 3a e1 20 20 0d  |=K%:J(5)=L%:.  .|
00000310  00 f0 43 dd f2 53 41 3a  50 55 3d 4a 28 46 53 29  |..C..SA:PU=J(FS)|
00000320  3a 46 53 3d 46 53 2b 31  3a e3 50 3d 46 53 20 b8  |:FS=FS+1:.P=FS .|
00000330  20 35 3a e7 20 50 55 3e  4a 28 50 29 20 49 54 3d  | 5:. PU>J(P) IT=|
00000340  4a 28 50 29 3a 4a 28 50  29 3d 50 55 3a 50 55 3d  |J(P):J(P)=PU:PU=|
00000350  49 54 0d 00 fa 1a ed 50  3a 4a 28 46 53 2d 31 29  |IT.....P:J(FS-1)|
00000360  3d 50 55 3a e7 46 53 3c  35 f2 53 41 0d 01 04 0a  |=PU:.FS<5.SA....|
00000370  46 53 3d 30 3a e1 0d 01  0e 87 dd f2 54 3a ef 32  |FS=0:.......T:.2|
00000380  38 2c 38 2c 31 2c 33 32  2c 31 2c 31 37 2c 31 32  |8,8,1,32,1,17,12|
00000390  39 2c 31 32 2c 32 36 2c  33 31 2c 31 30 2c 31 2c  |9,12,26,31,10,1,|
000003a0  31 37 2c 30 3a f1 c3 28  4a 28 30 29 29 3b 22 20  |17,0:..(J(0));" |
000003b0  20 22 3b c3 28 4a 28 31  29 29 3b 22 20 20 22 3b  | ";.(J(1));"  ";|
000003c0  c3 28 4a 28 32 29 29 3b  22 20 20 22 3b c3 28 4a  |.(J(2));"  ";.(J|
000003d0  28 33 29 29 3b 22 20 20  22 3b c3 28 4a 28 34 29  |(3));"  ";.(J(4)|
000003e0  29 3b 22 20 20 22 3b c3  28 4a 28 35 29 29 3a ef  |);"  ";.(J(5)):.|
000003f0  31 37 2c 31 2c 31 37 2c  31 32 38 3a e1 0d 01 18  |17,1,17,128:....|
00000400  16 dd f2 46 3a 4a 28 66  29 3d 30 3a e3 49 3d 31  |...F:J(f)=0:.I=1|
00000410  b8 34 39 0d 01 22 22 e7  41 25 28 49 29 3e 4a 28  |.49.."".A%(I)>J(|
00000420  66 29 20 4a 28 66 29 3d  41 25 28 49 29 3a 41 25  |f) J(f)=A%(I):A%|
00000430  28 30 29 3d 49 0d 01 2c  1b ed 3a 4a 28 66 29 3d  |(0)=I..,..:J(f)=|
00000440  41 25 28 30 29 3a 41 25  28 4a 28 66 29 29 3d 30  |A%(0):A%(J(f))=0|
00000450  0d 01 36 10 66 3d 66 2b  31 3a e7 66 3c 36 f2 46  |..6.f=f+1:.f<6.F|
00000460  0d 01 40 0c f2 53 41 3a  f2 54 3a e1 0d ff        |..@..SA:.T:...|
0000046e

PROGS/LOTT2.m0

PROGS/LOTT2.m1

PROGS/LOTT2.m2

PROGS/LOTT2.m4

PROGS/LOTT2.m5

Our privacy policy is here.
Last updated: 13 Jul 2024, 14:29 UTC
Website designed by .