Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_30.ADF » P/FINDNOS
P/FINDNOS
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_30.ADF |
| Filename: | P/FINDNOS |
| Read OK: | ✔ |
| File size: | 038A bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
File contents
10MODE3 20PRINT 30PRINT 40PRINT"LOWEST NUMBER" 50INPUTG 60PRINT"SECOND NUMBER" 70INPUTH 80PRINT"THIRD NUMBER" 90INPUT J 100PRINT"FOURTH NUMBER" 110INPUTR 120PRINT"FIFTH NUMBER" 130INPUTS 140PRINT"HIGHEST NUMBER" 150INPUTZ 160Y=0 170 DIM Q(50) 180 A%=RND(TIME) 190A=RND(49):B=RND(49) 200IF A=B THEN190 210LET C=RND(49) 220 IF A=C THEN190 230 IFB=C THEN190 240 LET D=RND(49) 250 IF A=D THEN 190 260 IF B=D THEN 190 270 IF C=D THEN 190 280 LET E=RND(49) 290 IF A=E THEN 190 300 IF B=E THEN 190 310 IF C=E THEN 190 320 IF D=E THEN 190 330 LET F=RND(49) 340 IF A=F THEN 190 350 IF B=F THEN 190 360 IF C=F THEN 190 370 IF D=F THEN 190 380 IF E=F THEN 190 390Y=Y+1 400Q(1)=A:Q(2)=B:Q(3)=C:Q(4)=D:Q(5)=E:Q(6)=F 410FORK=1 TO 5 420 FOR L=K+1 TO 6 430 IF Q(L) >= Q(K) THEN 470 440 T=Q(L) 450 Q(L)=Q(K) 460 Q(K)=T 470 NEXT L 480 NEXTK 490FOR V=1TO6:PRINTQ(V);:NEXTV:PRINT" No. ";Y 500 IF G<>Q(1) THEN180 510 IF H<>Q(2)THEN180 520 IF J<>Q(3)THEN180 530 IF R<>Q(4)THEN180 540 IF S<>Q(5)THEN180 550 IF Z=Q(6)THEN580 560VDU3 570GOTO180 580PRINT "BINGO";Q(1);Q(2);Q(3);Q(4);Q(5);Q(6) 590PRINTY
�3 � � (�"LOWEST NUMBER" 2�G <�"SECOND NUMBER" F�H P�"THIRD NUMBER" Z� J d�"FOURTH NUMBER" n�R x�"FIFTH NUMBER" ��S ��"HIGHEST NUMBER" ��Z �Y=0 � � Q(50) � A%=�(�) �A=�(49):B=�(49) �� A=B ��t~@ � � C=�(49) � � A=C ��t~@ � �B=C ��t~@ � � D=�(49) � � A=D � �t~@ � B=D � �t~@ � C=D � �t~@ � E=�(49) " � A=E � �t~@ , � B=E � �t~@ 6 � C=E � �t~@ @ � D=E � �t~@ J � F=�(49) T � A=F � �t~@ ^ � B=F � �t~@ h � C=F � �t~@ r � D=F � �t~@ | � E=F � �t~@ � Y=Y+1 �-Q(1)=A:Q(2)=B:Q(3)=C:Q(4)=D:Q(5)=E:Q(6)=F � �K=1 � 5 � � L=K+1 � 6 � � Q(L) >= Q(K) � �dVA � T=Q(L) � Q(L)=Q(K) � Q(K)=T � � L � �K �"� V=1�6:�Q(V);:�V:�" No. ";Y � � G<>Q(1) ��tt@ � � H<>Q(2)��tt@ � J<>Q(3)��tt@ � R<>Q(4)��tt@ � S<>Q(5)��tt@ & � Z=Q(6)��DDB 0�3 : �tt@ D+� "BINGO";Q(1);Q(2);Q(3);Q(4);Q(5);Q(6) N�Y �
00000000 0d 00 0a 06 eb 33 0d 00 14 05 f1 0d 00 1e 05 f1 |.....3..........| 00000010 0d 00 28 14 f1 22 4c 4f 57 45 53 54 20 4e 55 4d |..(.."LOWEST NUM| 00000020 42 45 52 22 0d 00 32 06 e8 47 0d 00 3c 14 f1 22 |BER"..2..G..<.."| 00000030 53 45 43 4f 4e 44 20 4e 55 4d 42 45 52 22 0d 00 |SECOND NUMBER"..| 00000040 46 06 e8 48 0d 00 50 13 f1 22 54 48 49 52 44 20 |F..H..P.."THIRD | 00000050 4e 55 4d 42 45 52 22 0d 00 5a 07 e8 20 4a 0d 00 |NUMBER"..Z.. J..| 00000060 64 14 f1 22 46 4f 55 52 54 48 20 4e 55 4d 42 45 |d.."FOURTH NUMBE| 00000070 52 22 0d 00 6e 06 e8 52 0d 00 78 13 f1 22 46 49 |R"..n..R..x.."FI| 00000080 46 54 48 20 4e 55 4d 42 45 52 22 0d 00 82 06 e8 |FTH NUMBER".....| 00000090 53 0d 00 8c 15 f1 22 48 49 47 48 45 53 54 20 4e |S....."HIGHEST N| 000000a0 55 4d 42 45 52 22 0d 00 96 06 e8 5a 0d 00 a0 07 |UMBER".....Z....| 000000b0 59 3d 30 0d 00 aa 0c 20 de 20 51 28 35 30 29 0d |Y=0.... . Q(50).| 000000c0 00 b4 0c 20 41 25 3d b3 28 91 29 0d 00 be 13 41 |... A%=.(.)....A| 000000d0 3d b3 28 34 39 29 3a 42 3d b3 28 34 39 29 0d 00 |=.(49):B=.(49)..| 000000e0 c8 0f e7 20 41 3d 42 20 8c 8d 74 7e 40 0d 00 d2 |... A=B ..t~@...| 000000f0 0d e9 20 43 3d b3 28 34 39 29 0d 00 dc 10 20 e7 |.. C=.(49).... .| 00000100 20 41 3d 43 20 8c 8d 74 7e 40 0d 00 e6 0f 20 e7 | A=C ..t~@.... .| 00000110 42 3d 43 20 8c 8d 74 7e 40 0d 00 f0 0e 20 e9 20 |B=C ..t~@.... . | 00000120 44 3d b3 28 34 39 29 0d 00 fa 11 20 e7 20 41 3d |D=.(49).... . A=| 00000130 44 20 8c 20 8d 74 7e 40 0d 01 04 11 20 e7 20 42 |D . .t~@.... . B| 00000140 3d 44 20 8c 20 8d 74 7e 40 0d 01 0e 11 20 e7 20 |=D . .t~@.... . | 00000150 43 3d 44 20 8c 20 8d 74 7e 40 0d 01 18 0e 20 e9 |C=D . .t~@.... .| 00000160 20 45 3d b3 28 34 39 29 0d 01 22 11 20 e7 20 41 | E=.(49)..". . A| 00000170 3d 45 20 8c 20 8d 74 7e 40 0d 01 2c 11 20 e7 20 |=E . .t~@..,. . | 00000180 42 3d 45 20 8c 20 8d 74 7e 40 0d 01 36 11 20 e7 |B=E . .t~@..6. .| 00000190 20 43 3d 45 20 8c 20 8d 74 7e 40 0d 01 40 11 20 | C=E . .t~@..@. | 000001a0 e7 20 44 3d 45 20 8c 20 8d 74 7e 40 0d 01 4a 0e |. D=E . .t~@..J.| 000001b0 20 e9 20 46 3d b3 28 34 39 29 0d 01 54 11 20 e7 | . F=.(49)..T. .| 000001c0 20 41 3d 46 20 8c 20 8d 74 7e 40 0d 01 5e 11 20 | A=F . .t~@..^. | 000001d0 e7 20 42 3d 46 20 8c 20 8d 74 7e 40 0d 01 68 11 |. B=F . .t~@..h.| 000001e0 20 e7 20 43 3d 46 20 8c 20 8d 74 7e 40 0d 01 72 | . C=F . .t~@..r| 000001f0 11 20 e7 20 44 3d 46 20 8c 20 8d 74 7e 40 0d 01 |. . D=F . .t~@..| 00000200 7c 11 20 e7 20 45 3d 46 20 8c 20 8d 74 7e 40 0d ||. . E=F . .t~@.| 00000210 01 86 09 59 3d 59 2b 31 0d 01 90 2d 51 28 31 29 |...Y=Y+1...-Q(1)| 00000220 3d 41 3a 51 28 32 29 3d 42 3a 51 28 33 29 3d 43 |=A:Q(2)=B:Q(3)=C| 00000230 3a 51 28 34 29 3d 44 3a 51 28 35 29 3d 45 3a 51 |:Q(4)=D:Q(5)=E:Q| 00000240 28 36 29 3d 46 0d 01 9a 0c e3 4b 3d 31 20 b8 20 |(6)=F.....K=1 . | 00000250 35 0d 01 a4 10 20 e3 20 4c 3d 4b 2b 31 20 b8 20 |5.... . L=K+1 . | 00000260 36 0d 01 ae 1a 20 e7 20 51 28 4c 29 20 3e 3d 20 |6.... . Q(L) >= | 00000270 51 28 4b 29 20 8c 20 8d 64 56 41 0d 01 b8 0b 20 |Q(K) . .dVA.... | 00000280 54 3d 51 28 4c 29 0d 01 c2 0e 20 51 28 4c 29 3d |T=Q(L).... Q(L)=| 00000290 51 28 4b 29 0d 01 cc 0b 20 51 28 4b 29 3d 54 0d |Q(K).... Q(K)=T.| 000002a0 01 d6 08 20 ed 20 4c 0d 01 e0 07 20 ed 4b 0d 01 |... . L.... .K..| 000002b0 ea 22 e3 20 56 3d 31 b8 36 3a f1 51 28 56 29 3b |.". V=1.6:.Q(V);| 000002c0 3a ed 56 3a f1 22 20 20 4e 6f 2e 20 22 3b 59 20 |:.V:." No. ";Y | 000002d0 0d 01 f4 14 20 e7 20 47 3c 3e 51 28 31 29 20 8c |.... . G<>Q(1) .| 000002e0 8d 74 74 40 0d 01 fe 13 20 e7 20 48 3c 3e 51 28 |.tt@.... . H<>Q(| 000002f0 32 29 8c 8d 74 74 40 0d 02 08 13 20 e7 20 4a 3c |2)..tt@.... . J<| 00000300 3e 51 28 33 29 8c 8d 74 74 40 0d 02 12 13 20 e7 |>Q(3)..tt@.... .| 00000310 20 52 3c 3e 51 28 34 29 8c 8d 74 74 40 0d 02 1c | R<>Q(4)..tt@...| 00000320 13 20 e7 20 53 3c 3e 51 28 35 29 8c 8d 74 74 40 |. . S<>Q(5)..tt@| 00000330 0d 02 26 18 20 e7 20 5a 3d 51 28 36 29 8c 8d 44 |..&. . Z=Q(6)..D| 00000340 44 42 20 20 20 20 20 20 0d 02 30 06 ef 33 0d 02 |DB ..0..3..| 00000350 3a 09 e5 8d 74 74 40 0d 02 44 2b f1 20 22 42 49 |:...tt@..D+. "BI| 00000360 4e 47 4f 22 3b 51 28 31 29 3b 51 28 32 29 3b 51 |NGO";Q(1);Q(2);Q| 00000370 28 33 29 3b 51 28 34 29 3b 51 28 35 29 3b 51 28 |(3);Q(4);Q(5);Q(| 00000380 36 29 0d 02 4e 06 f1 59 0d ff |6)..N..Y..| 0000038a
P/FINDNOS.m0
P/FINDNOS.m1
P/FINDNOS.m2
P/FINDNOS.m4
P/FINDNOS.m5
.