Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape22b_acorn_eu_1991_may.wav » R.HofFame

R.HofFame

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 tapes » Electron_User » Electron_User_tape22b_acorn_eu_1991_may.wav
Filename: R.HofFame
Read OK:
File size: 0329 bytes
Load address: FFFF1A00
Exec address: FFFF8023
File contents
   10REM Hall of Fame
   20REM by Pete Goodliffe
   30REM (c) The Micro User
   40MODE 7:VDU 23,1,0;0;0;0;
   50DIM NAME$(9):DIM SCORE(10):RESTORE:FOR N=0 TO 9:READ NAME$(N):SCORE(N+1)=(10-N)*10:NEXT:PROCdisplay:END
   60DEF PROChall(SCORE):IF SCORE<SCORE(10) PROCdisplay:ENDPROC
   70M=10:REPEAT M=M-1:UNTIL SCORE<SCORE(M+1) OR M=-1:FOR N=9 TO M+2 STEP-1:NAME$(N)=NAME$(N-1):SCORE(N+1)=SCORE(N):NEXT:NAME$(M+1)=FNinput:SCORE(M+2)=SCORE:PROCdisplay:ENDPROC
   80DEF FNinput:CLS:PRINT'''''CHR$131"CONGRATULATIONS!"''CHR$132"Your score is in the top 10"''CHR$129"Please enter your name..."''CHR$133"   >";:INPUT "" A$:IF LEN(A$)>20 THEN A$=LEFT$(A$,20):=A$ ELSE =A$
   90DEF PROCdisplay:CLS:FOR N=0 TO 9:PRINT TAB(13,0)CHR$141CHR$130"HALL OF FAME"TAB(13,1)CHR$141CHR$130"HALL OF FAME"TAB(6,3+N)CHR$132;N+1")"TAB(10,3+N)CHR$131;NAME$(N)STRING$(20-LEN NAME$(N),".")TAB(31,3+N)CHR$129;SCORE(N+1)
  100NEXT:ENDPROC
  110DATA ...Pete Goodliffe,...,......presents,...,......a simple,...,....Hall of Fame,...,......routine,...

� Hall of Fame
� by Pete Goodliffe
� (c) The Micro User
(� 7:� 23,1,0;0;0;0;
2S� NAME$(9):� SCORE(10):�:� N=0 � 9:� NAME$(N):SCORE(N+1)=(10-N)*10:�:�display:�
</� �hall(SCORE):� SCORE<SCORE(10) �display:�
F�M=10:� M=M-1:� SCORE<SCORE(M+1) � M=-1:� N=9 � M+2 �-1:NAME$(N)=NAME$(N-1):SCORE(N+1)=SCORE(N):�:NAME$(M+1)=�input:SCORE(M+2)=SCORE:�display:�
P�� �input:�:�'''''�131"CONGRATULATIONS!"''�132"Your score is in the top 10"''�129"Please enter your name..."''�133"   >";:� "" A$:� �(A$)>20 � A$=�A$,20):=A$ � =A$
Z�� �display:�:� N=0 � 9:� �13,0)�141�130"HALL OF FAME"�13,1)�141�130"HALL OF FAME"�6,3+N)�132;N+1")"�10,3+N)�131;NAME$(N)�20-� NAME$(N),".")�31,3+N)�129;SCORE(N+1)
d�:�
nh� ...Pete Goodliffe,...,......presents,...,......a simple,...,....Hall of Fame,...,......routine,...
�
00000000  0d 00 0a 12 f4 20 48 61  6c 6c 20 6f 66 20 46 61  |..... Hall of Fa|
00000010  6d 65 0d 00 14 17 f4 20  62 79 20 50 65 74 65 20  |me..... by Pete |
00000020  47 6f 6f 64 6c 69 66 66  65 0d 00 1e 18 f4 20 28  |Goodliffe..... (|
00000030  63 29 20 54 68 65 20 4d  69 63 72 6f 20 55 73 65  |c) The Micro Use|
00000040  72 0d 00 28 17 eb 20 37  3a ef 20 32 33 2c 31 2c  |r..(.. 7:. 23,1,|
00000050  30 3b 30 3b 30 3b 30 3b  0d 00 32 53 de 20 4e 41  |0;0;0;0;..2S. NA|
00000060  4d 45 24 28 39 29 3a de  20 53 43 4f 52 45 28 31  |ME$(9):. SCORE(1|
00000070  30 29 3a f7 3a e3 20 4e  3d 30 20 b8 20 39 3a f3  |0):.:. N=0 . 9:.|
00000080  20 4e 41 4d 45 24 28 4e  29 3a 53 43 4f 52 45 28  | NAME$(N):SCORE(|
00000090  4e 2b 31 29 3d 28 31 30  2d 4e 29 2a 31 30 3a ed  |N+1)=(10-N)*10:.|
000000a0  3a f2 64 69 73 70 6c 61  79 3a e0 0d 00 3c 2f dd  |:.display:...</.|
000000b0  20 f2 68 61 6c 6c 28 53  43 4f 52 45 29 3a e7 20  | .hall(SCORE):. |
000000c0  53 43 4f 52 45 3c 53 43  4f 52 45 28 31 30 29 20  |SCORE<SCORE(10) |
000000d0  f2 64 69 73 70 6c 61 79  3a e1 0d 00 46 92 4d 3d  |.display:...F.M=|
000000e0  31 30 3a f5 20 4d 3d 4d  2d 31 3a fd 20 53 43 4f  |10:. M=M-1:. SCO|
000000f0  52 45 3c 53 43 4f 52 45  28 4d 2b 31 29 20 84 20  |RE<SCORE(M+1) . |
00000100  4d 3d 2d 31 3a e3 20 4e  3d 39 20 b8 20 4d 2b 32  |M=-1:. N=9 . M+2|
00000110  20 88 2d 31 3a 4e 41 4d  45 24 28 4e 29 3d 4e 41  | .-1:NAME$(N)=NA|
00000120  4d 45 24 28 4e 2d 31 29  3a 53 43 4f 52 45 28 4e  |ME$(N-1):SCORE(N|
00000130  2b 31 29 3d 53 43 4f 52  45 28 4e 29 3a ed 3a 4e  |+1)=SCORE(N):.:N|
00000140  41 4d 45 24 28 4d 2b 31  29 3d a4 69 6e 70 75 74  |AME$(M+1)=.input|
00000150  3a 53 43 4f 52 45 28 4d  2b 32 29 3d 53 43 4f 52  |:SCORE(M+2)=SCOR|
00000160  45 3a f2 64 69 73 70 6c  61 79 3a e1 0d 00 50 a6  |E:.display:...P.|
00000170  dd 20 a4 69 6e 70 75 74  3a db 3a f1 27 27 27 27  |. .input:.:.''''|
00000180  27 bd 31 33 31 22 43 4f  4e 47 52 41 54 55 4c 41  |'.131"CONGRATULA|
00000190  54 49 4f 4e 53 21 22 27  27 bd 31 33 32 22 59 6f  |TIONS!"''.132"Yo|
000001a0  75 72 20 73 63 6f 72 65  20 69 73 20 69 6e 20 74  |ur score is in t|
000001b0  68 65 20 74 6f 70 20 31  30 22 27 27 bd 31 32 39  |he top 10"''.129|
000001c0  22 50 6c 65 61 73 65 20  65 6e 74 65 72 20 79 6f  |"Please enter yo|
000001d0  75 72 20 6e 61 6d 65 2e  2e 2e 22 27 27 bd 31 33  |ur name..."''.13|
000001e0  33 22 20 20 20 3e 22 3b  3a e8 20 22 22 20 41 24  |3"   >";:. "" A$|
000001f0  3a e7 20 a9 28 41 24 29  3e 32 30 20 8c 20 41 24  |:. .(A$)>20 . A$|
00000200  3d c0 41 24 2c 32 30 29  3a 3d 41 24 20 8b 20 3d  |=.A$,20):=A$ . =|
00000210  41 24 0d 00 5a a6 dd 20  f2 64 69 73 70 6c 61 79  |A$..Z.. .display|
00000220  3a db 3a e3 20 4e 3d 30  20 b8 20 39 3a f1 20 8a  |:.:. N=0 . 9:. .|
00000230  31 33 2c 30 29 bd 31 34  31 bd 31 33 30 22 48 41  |13,0).141.130"HA|
00000240  4c 4c 20 4f 46 20 46 41  4d 45 22 8a 31 33 2c 31  |LL OF FAME".13,1|
00000250  29 bd 31 34 31 bd 31 33  30 22 48 41 4c 4c 20 4f  |).141.130"HALL O|
00000260  46 20 46 41 4d 45 22 8a  36 2c 33 2b 4e 29 bd 31  |F FAME".6,3+N).1|
00000270  33 32 3b 4e 2b 31 22 29  22 8a 31 30 2c 33 2b 4e  |32;N+1")".10,3+N|
00000280  29 bd 31 33 31 3b 4e 41  4d 45 24 28 4e 29 c4 32  |).131;NAME$(N).2|
00000290  30 2d a9 20 4e 41 4d 45  24 28 4e 29 2c 22 2e 22  |0-. NAME$(N),"."|
000002a0  29 8a 33 31 2c 33 2b 4e  29 bd 31 32 39 3b 53 43  |).31,3+N).129;SC|
000002b0  4f 52 45 28 4e 2b 31 29  0d 00 64 07 ed 3a e1 0d  |ORE(N+1)..d..:..|
000002c0  00 6e 68 dc 20 2e 2e 2e  50 65 74 65 20 47 6f 6f  |.nh. ...Pete Goo|
000002d0  64 6c 69 66 66 65 2c 2e  2e 2e 2c 2e 2e 2e 2e 2e  |dliffe,...,.....|
000002e0  2e 70 72 65 73 65 6e 74  73 2c 2e 2e 2e 2c 2e 2e  |.presents,...,..|
000002f0  2e 2e 2e 2e 61 20 73 69  6d 70 6c 65 2c 2e 2e 2e  |....a simple,...|
00000300  2c 2e 2e 2e 2e 48 61 6c  6c 20 6f 66 20 46 61 6d  |,....Hall of Fam|
00000310  65 2c 2e 2e 2e 2c 2e 2e  2e 2e 2e 2e 72 6f 75 74  |e,...,......rout|
00000320  69 6e 65 2c 2e 2e 2e 0d  ff                       |ine,.....|
00000329
R.HofFame.m0
R.HofFame.m1
R.HofFame.m2
R.HofFame.m4
R.HofFame.m5