Home » Archimedes archive » Archimedes World » AW-1993-04.adf » AWApril93 » !AWApril93/Goodies/Xacretan/!Xacretan/!NewScores
!AWApril93/Goodies/Xacretan/!Xacretan/!NewScores
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 » Archimedes World » AW-1993-04.adf » AWApril93 |
| Filename: | !AWApril93/Goodies/Xacretan/!Xacretan/!NewScores |
| Read OK: | ✔ |
| File size: | 0313 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>!NewScores
20MODE 1
30COLOUR 2,6
40COLOUR 1,3
50VDU 19,3,17,128,32,32
60VDU 19,3,18,255,32,32
70OFF
80PROCp("W A R N I N G",1,3)
90PROCp("This program will reset the Xacretan",9,2)
100PROCp("High Score Table.",10,2)
110PROCp("Do you wish to continue?",15,1)
120MOUSE ON
130MOUSE TO 640,400
140SYS"OS_Confirm" TO a%
150MOUSE OFF
160IF a%<>121 THEN
170PROCp("Aborted",20,3)
180COLOUR 1:PRINTTAB(0,25)
190END
200ENDIF
210F%=OPENOUT("<Xacretan$Dir>.HighScores")
220IF F%=0 THEN VDU7:PROCp("Disc Error!",20,3):GOTO 180
230FOR X=0 TO 9
240READ N$,S%
250PRINT#F%,N$,S%
260NEXT
270CLOSE#F%
280PROCp("Finished",20,2)
290END
300DEFPROCp(a$,V%,C%)
310COLOUR C%
320PRINTTAB(20-(LEN(a$)/2),V%);a$
330ENDPROC
340DATA "Christopher.",30000
350DATA "David",25000
360DATA "Andy",20000
370DATA "Archimedes",15000
380DATA " World",10000
390DATA "Skid Row",8000
400DATA "Extreme",7000
410DATA "G 'N' R",6000
420DATA "Def Leppard",5000
430DATA "Poison",2500
�>!NewScores
� 1
� 2,6
( � 1,3
2� 19,3,17,128,32,32
<� 19,3,18,255,32,32
F�
P�p("W A R N I N G",1,3)
Z2�p("This program will reset the Xacretan",9,2)
d �p("High Score Table.",10,2)
n'�p("Do you wish to continue?",15,1)
xȗ �
�ȗ � 640,400
�ș"OS_Confirm" � a%
�ȗ �
�� a%<>121 �
��p("Aborted",20,3)
�� 1:�0,25)
��
��
�%F%=�("<Xacretan$Dir>.HighScores")
�-� F%=0 � �7:�p("Disc Error!",20,3):� �tt@
�
� X=0 � 9
� � N$,S%
��#F%,N$,S%
�
�#F%
�p("Finished",20,2)
"�
,��p(a$,V%,C%)
6� C%
@�20-(�(a$)/2),V%);a$
J�
T� "Christopher.",30000
^� "David",25000
h� "Andy",20000
r� "Archimedes",15000
|� " World",10000
�� "Skid Row",8000
�� "Extreme",7000
�� "G 'N' R",6000
�� "Def Leppard",5000
�� "Poison",2500
� 00000000 0d 00 0a 10 f4 3e 21 4e 65 77 53 63 6f 72 65 73 |.....>!NewScores|
00000010 0d 00 14 07 eb 20 31 0d 00 1e 09 fb 20 32 2c 36 |..... 1..... 2,6|
00000020 0d 00 28 09 fb 20 31 2c 33 0d 00 32 17 ef 20 31 |..(.. 1,3..2.. 1|
00000030 39 2c 33 2c 31 37 2c 31 32 38 2c 33 32 2c 33 32 |9,3,17,128,32,32|
00000040 0d 00 3c 17 ef 20 31 39 2c 33 2c 31 38 2c 32 35 |..<.. 19,3,18,25|
00000050 35 2c 33 32 2c 33 32 0d 00 46 05 87 0d 00 50 1b |5,32,32..F....P.|
00000060 f2 70 28 22 57 20 41 20 52 20 4e 20 49 20 4e 20 |.p("W A R N I N |
00000070 47 22 2c 31 2c 33 29 0d 00 5a 32 f2 70 28 22 54 |G",1,3)..Z2.p("T|
00000080 68 69 73 20 70 72 6f 67 72 61 6d 20 77 69 6c 6c |his program will|
00000090 20 72 65 73 65 74 20 74 68 65 20 58 61 63 72 65 | reset the Xacre|
000000a0 74 61 6e 22 2c 39 2c 32 29 0d 00 64 20 f2 70 28 |tan",9,2)..d .p(|
000000b0 22 48 69 67 68 20 53 63 6f 72 65 20 54 61 62 6c |"High Score Tabl|
000000c0 65 2e 22 2c 31 30 2c 32 29 0d 00 6e 27 f2 70 28 |e.",10,2)..n'.p(|
000000d0 22 44 6f 20 79 6f 75 20 77 69 73 68 20 74 6f 20 |"Do you wish to |
000000e0 63 6f 6e 74 69 6e 75 65 3f 22 2c 31 35 2c 31 29 |continue?",15,1)|
000000f0 0d 00 78 08 c8 97 20 ee 0d 00 82 10 c8 97 20 b8 |..x... ....... .|
00000100 20 36 34 30 2c 34 30 30 0d 00 8c 17 c8 99 22 4f | 640,400......"O|
00000110 53 5f 43 6f 6e 66 69 72 6d 22 20 b8 20 61 25 0d |S_Confirm" . a%.|
00000120 00 96 08 c8 97 20 87 0d 00 a0 0f e7 20 61 25 3c |..... ...... a%<|
00000130 3e 31 32 31 20 8c 0d 00 aa 16 f2 70 28 22 41 62 |>121 ......p("Ab|
00000140 6f 72 74 65 64 22 2c 32 30 2c 33 29 0d 00 b4 0f |orted",20,3)....|
00000150 fb 20 31 3a f1 8a 30 2c 32 35 29 0d 00 be 05 e0 |. 1:..0,25).....|
00000160 0d 00 c8 05 cd 0d 00 d2 25 46 25 3d ae 28 22 3c |........%F%=.("<|
00000170 58 61 63 72 65 74 61 6e 24 44 69 72 3e 2e 48 69 |Xacretan$Dir>.Hi|
00000180 67 68 53 63 6f 72 65 73 22 29 0d 00 dc 2d e7 20 |ghScores")...-. |
00000190 46 25 3d 30 20 8c 20 ef 37 3a f2 70 28 22 44 69 |F%=0 . .7:.p("Di|
000001a0 73 63 20 45 72 72 6f 72 21 22 2c 32 30 2c 33 29 |sc Error!",20,3)|
000001b0 3a e5 20 8d 74 74 40 0d 00 e6 0d e3 20 58 3d 30 |:. .tt@..... X=0|
000001c0 20 b8 20 39 0d 00 f0 0b f3 20 4e 24 2c 53 25 0d | . 9..... N$,S%.|
000001d0 00 fa 0e f1 23 46 25 2c 4e 24 2c 53 25 0d 01 04 |....#F%,N$,S%...|
000001e0 05 ed 0d 01 0e 08 d9 23 46 25 0d 01 18 17 f2 70 |.......#F%.....p|
000001f0 28 22 46 69 6e 69 73 68 65 64 22 2c 32 30 2c 32 |("Finished",20,2|
00000200 29 0d 01 22 05 e0 0d 01 2c 11 dd f2 70 28 61 24 |).."....,...p(a$|
00000210 2c 56 25 2c 43 25 29 0d 01 36 08 fb 20 43 25 0d |,V%,C%)..6.. C%.|
00000220 01 40 19 f1 8a 32 30 2d 28 a9 28 61 24 29 2f 32 |.@...20-(.(a$)/2|
00000230 29 2c 56 25 29 3b 61 24 0d 01 4a 05 e1 0d 01 54 |),V%);a$..J....T|
00000240 1a dc 20 22 43 68 72 69 73 74 6f 70 68 65 72 2e |.. "Christopher.|
00000250 22 2c 33 30 30 30 30 0d 01 5e 13 dc 20 22 44 61 |",30000..^.. "Da|
00000260 76 69 64 22 2c 32 35 30 30 30 0d 01 68 12 dc 20 |vid",25000..h.. |
00000270 22 41 6e 64 79 22 2c 32 30 30 30 30 0d 01 72 18 |"Andy",20000..r.|
00000280 dc 20 22 41 72 63 68 69 6d 65 64 65 73 22 2c 31 |. "Archimedes",1|
00000290 35 30 30 30 0d 01 7c 15 dc 20 22 20 20 57 6f 72 |5000..|.. " Wor|
000002a0 6c 64 22 2c 31 30 30 30 30 0d 01 86 15 dc 20 22 |ld",10000..... "|
000002b0 53 6b 69 64 20 52 6f 77 22 2c 38 30 30 30 0d 01 |Skid Row",8000..|
000002c0 90 14 dc 20 22 45 78 74 72 65 6d 65 22 2c 37 30 |... "Extreme",70|
000002d0 30 30 0d 01 9a 14 dc 20 22 47 20 27 4e 27 20 52 |00..... "G 'N' R|
000002e0 22 2c 36 30 30 30 0d 01 a4 18 dc 20 22 44 65 66 |",6000..... "Def|
000002f0 20 4c 65 70 70 61 72 64 22 2c 35 30 30 30 0d 01 | Leppard",5000..|
00000300 ae 13 dc 20 22 50 6f 69 73 6f 6e 22 2c 32 35 30 |... "Poison",250|
00000310 30 0d ff |0..|
00000313 
.