Home » Personal collection » Acorn tapes » Own_Work » box02_tape04a_c15_acorn_school_progs.wav » THUNT2

THUNT2

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 » Own_Work » box02_tape04a_c15_acorn_school_progs.wav
Filename: THUNT2
Read OK: ✔
File size: 0726 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10 @%=&900
   20 *OPT 1,2
   30 DIM C$(50)
   40 DIM C%(51)
   50 MODE 6
   60 COLOUR 128:CLS:VDU 19,1,1,0;0;0;
   70 PRINT TAB(1,2)"1) DISPLAY CLUE"; TAB(1,4)"2) TYPE CLUE"; TAB(1,6)"3) DISPLAY CODE"; TAB(1,8)"4) TYPE CODE"; TAB(1,10)"5) LOAD HUNT"; TAB(1,12)"6) SAVE HUNT"; TAB(1,14)"7) PLAY"; TAB(1,16)"8) END"; TAB(1,18)"9) PRINT OUT HUNT DETAILS"
   80 INPUT TAB(1,22)"ENTER CHOICE - "A
   90 IF A<1 OR A>9 THEN 60
  100 ON A GOTO 110,110,200,200,470,550,290,460,630
  110 CLS:INPUT TAB(1,15)"WHICH CLUE",B
  120 IF B<0 OR B>50 THEN 110
  130 CLS:PRINT TAB(1,5)"CLUE ";B; TAB(1,6)"======="
  140 IF A=1 THEN 150 ELSE 160
  150 PRINT TAB(0,10) C$(B):GOTO 170
  160 INPUT LINE TAB(0,10) clue$
  170 PRINT TAB(13,22)"PRESS ANY KEY"
  180 A$=GET$
  190 IF A=1 THEN 60 ELSE IF clue$="" THEN 60 ELSE C$(B)=clue$:B=B+1:GOTO 120
  200 CLS:INPUT TAB(1,15)"WHICH CODE",B
  210 IF B<0 OR B>51 THEN 200
  220 CLS:PRINT TAB(1,5)"CODE ";B; TAB(1,6)"======="
  230 IF A=3 THEN 240 ELSE 250
  240 PRINT TAB(1,10) C%(B):GOTO 260
  250 INPUT TAB(1,10) code
  260 PRINT TAB(13,22)"PRESS ANY KEY"
  270 A$=GET$
  280 IF A=3 THEN 60 ELSE IF code=0 THEN 60 ELSE C%(B)=code:B=B+1:GOTO 210
  290 CLS:INPUT TAB(12,1)"ENTER CODE - "B
  300 E=-1:FOR D=0 TO 51:IF B=C%(D) OR B=123456 THEN E=D
  310 NEXT D:IF E=-1 THEN 320 ELSE 360
  320 PRINT TAB(9,10)"CODE NOT RECOGNIZED"
  330 PRINT TAB(13,22)"PRESS ANY KEY"
  340 A$=GET$
  350 GOTO 290
  360 IF B=123456 THEN 60 ELSE IF E=51 THEN 420
  370 PRINT TAB(1,5)"CLUE ";E; TAB(1,6)"======="
  380 PRINT TAB(0,10) C$(E)
  390 PRINT TAB(13,22)"PRESS ANY KEY"
  400 A$=GET$
  410 GOTO 290
  420 PRINT TAB(7,10)"YOU'VE DONE IT AT LAST!"
  430 PRINT TAB(13,22)"PRESS ANY KEY"
  440 A$=GET$
  450 GOTO 60
  460 END
  470 CLS
  480 INPUT TAB(1,5);"Name of file to load",file$
  490 A=OPENIN(file$)
  500 FOR clue=0 TO 50
  510 INPUT#A,C$(clue),C%(clue)
  520 NEXT
  530 INPUT#A,C%(51)
  540 CLOSE#0:GOTO 60
  550 CLS
  560 INPUT TAB(1,5);"Name of file to save",file$
  570 A=OPENOUT(file$)
  580 FOR clue=0 TO 50
  590 PRINT#A,C$(clue),C%(clue)
  600 NEXT
  610 PRINT#A,C%(51)
  620 CLOSE#0:GOTO 60
  630 VDU 2
  640 PRINT"No.   Code     Clue"''"Tr    ";C%(0);TAB(14);C$(0)
  650 FOR clue=1 TO 50
  660 IF C%(clue)<>0 OR C$(clue)<>"" THEN PRINT clue;TAB(6);C%(clue);TAB(14);C$(clue)
  670 NEXT
  680 PRINT"End   ";C%(51)
  690 VDU 3:GOTO 60


 @%=&900

 *OPT 1,2

 � C$(50)
(
 � C%(51)
2 � 6
< � 128:�:� 19,1,1,0;0;0;
F� � �1,2)"1) DISPLAY CLUE"; �1,4)"2) TYPE CLUE"; �1,6)"3) DISPLAY CODE"; �1,8)"4) TYPE CODE"; �1,10)"5) LOAD HUNT"; �1,12)"6) SAVE HUNT"; �1,14)"7) PLAY"; �1,16)"8) END"; �1,18)"9) PRINT OUT HUNT DETAILS"
P � �1,22)"ENTER CHOICE - "A
Z � A<1 � A>9 � �T|@
d7 � A � �Dn@,�Dn@,�dH@,�dH@,�dVA,�TfB,�TbA,�dLA,�DvB
n �:� �1,15)"WHICH CLUE",B
x � B<0 � B>50 � �Dn@
�' �:� �1,5)"CLUE ";B; �1,6)"======="
� � A=1 � �tV@ � �t`@
� � �0,10) C$(B):� �tj@
� � � �0,10) clue$
� � �13,22)"PRESS ANY KEY"
�	 A$=�
�@ � A=1 � �T|@ � � clue$="" � �T|@ � C$(B)=clue$:B=B+1:� �Dx@
� �:� �1,15)"WHICH CODE",B
� � B<0 � B>51 � �dH@
�' �:� �1,5)"CODE ";B; �1,6)"======="
� � A=3 � �dp@ � �dz@
� � �1,10) C%(B):� �TDA
� � �1,10) code
 � �13,22)"PRESS ANY KEY"
	 A$=�
= � A=3 � �T|@ � � code=0 � �T|@ � C%(B)=code:B=B+1:� �dR@
" �:� �12,1)"ENTER CODE - "B
,/ E=-1:� D=0 � 51:� B=C%(D) � B=123456 � E=D
6 � D:� E=-1 � �D@A � �DhA
@" � �9,10)"CODE NOT RECOGNIZED"
J � �13,22)"PRESS ANY KEY"
T	 A$=�
^ � �TbA
h& � B=123456 � �T|@ � � E=51 � �tdA
r% � �1,5)"CLUE ";E; �1,6)"======="
| � �0,10) C$(E)
� � �13,22)"PRESS ANY KEY"
�	 A$=�
� � �TbA
�& � �7,10)"YOU'VE DONE IT AT LAST!"
� � �13,22)"PRESS ANY KEY"
�	 A$=�
� � �T|@
� �
� �
�) � �1,5);"Name of file to load",file$
� A=�(file$)
� � clue=0 � 50
� �#A,C$(clue),C%(clue)
 �
 �#A,C%(51)
 �#0:� �T|@
& �
0) � �1,5);"Name of file to save",file$
: A=�(file$)
D � clue=0 � 50
N �#A,C$(clue),C%(clue)
X �
b �#A,C%(51)
l �#0:� �T|@
v � 2
�6 �"No.   Code     Clue"''"Tr    ";C%(0);�14);C$(0)
� � clue=1 � 50
�E � C%(clue)<>0 � C$(clue)<>"" � � clue;�6);C%(clue);�14);C$(clue)
� �
� �"End   ";C%(51)
� � 3:� �T|@
�
00000000  0d 00 0a 0c 20 40 25 3d  26 39 30 30 0d 00 14 0d  |.... @%=&900....|
00000010  20 2a 4f 50 54 20 31 2c  32 0d 00 1e 0d 20 de 20  | *OPT 1,2.... . |
00000020  43 24 28 35 30 29 0d 00  28 0d 20 de 20 43 25 28  |C$(50)..(. . C%(|
00000030  35 31 29 0d 00 32 08 20  eb 20 36 0d 00 3c 1c 20  |51)..2. . 6..<. |
00000040  fb 20 31 32 38 3a db 3a  ef 20 31 39 2c 31 2c 31  |. 128:.:. 19,1,1|
00000050  2c 30 3b 30 3b 30 3b 0d  00 46 cf 20 f1 20 8a 31  |,0;0;0;..F. . .1|
00000060  2c 32 29 22 31 29 20 44  49 53 50 4c 41 59 20 43  |,2)"1) DISPLAY C|
00000070  4c 55 45 22 3b 20 8a 31  2c 34 29 22 32 29 20 54  |LUE"; .1,4)"2) T|
00000080  59 50 45 20 43 4c 55 45  22 3b 20 8a 31 2c 36 29  |YPE CLUE"; .1,6)|
00000090  22 33 29 20 44 49 53 50  4c 41 59 20 43 4f 44 45  |"3) DISPLAY CODE|
000000a0  22 3b 20 8a 31 2c 38 29  22 34 29 20 54 59 50 45  |"; .1,8)"4) TYPE|
000000b0  20 43 4f 44 45 22 3b 20  8a 31 2c 31 30 29 22 35  | CODE"; .1,10)"5|
000000c0  29 20 4c 4f 41 44 20 48  55 4e 54 22 3b 20 8a 31  |) LOAD HUNT"; .1|
000000d0  2c 31 32 29 22 36 29 20  53 41 56 45 20 48 55 4e  |,12)"6) SAVE HUN|
000000e0  54 22 3b 20 8a 31 2c 31  34 29 22 37 29 20 50 4c  |T"; .1,14)"7) PL|
000000f0  41 59 22 3b 20 8a 31 2c  31 36 29 22 38 29 20 45  |AY"; .1,16)"8) E|
00000100  4e 44 22 3b 20 8a 31 2c  31 38 29 22 39 29 20 50  |ND"; .1,18)"9) P|
00000110  52 49 4e 54 20 4f 55 54  20 48 55 4e 54 20 44 45  |RINT OUT HUNT DE|
00000120  54 41 49 4c 53 22 0d 00  50 1f 20 e8 20 8a 31 2c  |TAILS"..P. . .1,|
00000130  32 32 29 22 45 4e 54 45  52 20 43 48 4f 49 43 45  |22)"ENTER CHOICE|
00000140  20 2d 20 22 41 0d 00 5a  17 20 e7 20 41 3c 31 20  | - "A..Z. . A<1 |
00000150  84 20 41 3e 39 20 8c 20  8d 54 7c 40 0d 00 64 37  |. A>9 . .T|@..d7|
00000160  20 ee 20 41 20 e5 20 8d  44 6e 40 2c 8d 44 6e 40  | . A . .Dn@,.Dn@|
00000170  2c 8d 64 48 40 2c 8d 64  48 40 2c 8d 64 56 41 2c  |,.dH@,.dH@,.dVA,|
00000180  8d 54 66 42 2c 8d 54 62  41 2c 8d 64 4c 41 2c 8d  |.TfB,.TbA,.dLA,.|
00000190  44 76 42 0d 00 6e 1d 20  db 3a e8 20 8a 31 2c 31  |DvB..n. .:. .1,1|
000001a0  35 29 22 57 48 49 43 48  20 43 4c 55 45 22 2c 42  |5)"WHICH CLUE",B|
000001b0  0d 00 78 18 20 e7 20 42  3c 30 20 84 20 42 3e 35  |..x. . B<0 . B>5|
000001c0  30 20 8c 20 8d 44 6e 40  0d 00 82 27 20 db 3a f1  |0 . .Dn@...' .:.|
000001d0  20 8a 31 2c 35 29 22 43  4c 55 45 20 22 3b 42 3b  | .1,5)"CLUE ";B;|
000001e0  20 8a 31 2c 36 29 22 3d  3d 3d 3d 3d 3d 3d 22 0d  | .1,6)"=======".|
000001f0  00 8c 18 20 e7 20 41 3d  31 20 8c 20 8d 74 56 40  |... . A=1 . .tV@|
00000200  20 8b 20 8d 74 60 40 0d  00 96 1a 20 f1 20 8a 30  | . .t`@.... . .0|
00000210  2c 31 30 29 20 43 24 28  42 29 3a e5 20 8d 74 6a  |,10) C$(B):. .tj|
00000220  40 0d 00 a0 15 20 e8 20  86 20 8a 30 2c 31 30 29  |@.... . . .0,10)|
00000230  20 63 6c 75 65 24 0d 00  aa 1d 20 f1 20 8a 31 33  | clue$.... . .13|
00000240  2c 32 32 29 22 50 52 45  53 53 20 41 4e 59 20 4b  |,22)"PRESS ANY K|
00000250  45 59 22 0d 00 b4 09 20  41 24 3d be 0d 00 be 40  |EY".... A$=....@|
00000260  20 e7 20 41 3d 31 20 8c  20 8d 54 7c 40 20 8b 20  | . A=1 . .T|@ . |
00000270  e7 20 63 6c 75 65 24 3d  22 22 20 8c 20 8d 54 7c  |. clue$="" . .T||
00000280  40 20 8b 20 43 24 28 42  29 3d 63 6c 75 65 24 3a  |@ . C$(B)=clue$:|
00000290  42 3d 42 2b 31 3a e5 20  8d 44 78 40 0d 00 c8 1d  |B=B+1:. .Dx@....|
000002a0  20 db 3a e8 20 8a 31 2c  31 35 29 22 57 48 49 43  | .:. .1,15)"WHIC|
000002b0  48 20 43 4f 44 45 22 2c  42 0d 00 d2 18 20 e7 20  |H CODE",B.... . |
000002c0  42 3c 30 20 84 20 42 3e  35 31 20 8c 20 8d 64 48  |B<0 . B>51 . .dH|
000002d0  40 0d 00 dc 27 20 db 3a  f1 20 8a 31 2c 35 29 22  |@...' .:. .1,5)"|
000002e0  43 4f 44 45 20 22 3b 42  3b 20 8a 31 2c 36 29 22  |CODE ";B; .1,6)"|
000002f0  3d 3d 3d 3d 3d 3d 3d 22  0d 00 e6 18 20 e7 20 41  |=======".... . A|
00000300  3d 33 20 8c 20 8d 64 70  40 20 8b 20 8d 64 7a 40  |=3 . .dp@ . .dz@|
00000310  0d 00 f0 1a 20 f1 20 8a  31 2c 31 30 29 20 43 25  |.... . .1,10) C%|
00000320  28 42 29 3a e5 20 8d 54  44 41 0d 00 fa 12 20 e8  |(B):. .TDA.... .|
00000330  20 8a 31 2c 31 30 29 20  63 6f 64 65 0d 01 04 1d  | .1,10) code....|
00000340  20 f1 20 8a 31 33 2c 32  32 29 22 50 52 45 53 53  | . .13,22)"PRESS|
00000350  20 41 4e 59 20 4b 45 59  22 0d 01 0e 09 20 41 24  | ANY KEY".... A$|
00000360  3d be 0d 01 18 3d 20 e7  20 41 3d 33 20 8c 20 8d  |=....= . A=3 . .|
00000370  54 7c 40 20 8b 20 e7 20  63 6f 64 65 3d 30 20 8c  |T|@ . . code=0 .|
00000380  20 8d 54 7c 40 20 8b 20  43 25 28 42 29 3d 63 6f  | .T|@ . C%(B)=co|
00000390  64 65 3a 42 3d 42 2b 31  3a e5 20 8d 64 52 40 0d  |de:B=B+1:. .dR@.|
000003a0  01 22 1f 20 db 3a e8 20  8a 31 32 2c 31 29 22 45  |.". .:. .12,1)"E|
000003b0  4e 54 45 52 20 43 4f 44  45 20 2d 20 22 42 0d 01  |NTER CODE - "B..|
000003c0  2c 2f 20 45 3d 2d 31 3a  e3 20 44 3d 30 20 b8 20  |,/ E=-1:. D=0 . |
000003d0  35 31 3a e7 20 42 3d 43  25 28 44 29 20 84 20 42  |51:. B=C%(D) . B|
000003e0  3d 31 32 33 34 35 36 20  8c 20 45 3d 44 0d 01 36  |=123456 . E=D..6|
000003f0  1d 20 ed 20 44 3a e7 20  45 3d 2d 31 20 8c 20 8d  |. . D:. E=-1 . .|
00000400  44 40 41 20 8b 20 8d 44  68 41 0d 01 40 22 20 f1  |D@A . .DhA..@" .|
00000410  20 8a 39 2c 31 30 29 22  43 4f 44 45 20 4e 4f 54  | .9,10)"CODE NOT|
00000420  20 52 45 43 4f 47 4e 49  5a 45 44 22 0d 01 4a 1d  | RECOGNIZED"..J.|
00000430  20 f1 20 8a 31 33 2c 32  32 29 22 50 52 45 53 53  | . .13,22)"PRESS|
00000440  20 41 4e 59 20 4b 45 59  22 0d 01 54 09 20 41 24  | ANY KEY"..T. A$|
00000450  3d be 0d 01 5e 0b 20 e5  20 8d 54 62 41 0d 01 68  |=...^. . .TbA..h|
00000460  26 20 e7 20 42 3d 31 32  33 34 35 36 20 8c 20 8d  |& . B=123456 . .|
00000470  54 7c 40 20 8b 20 e7 20  45 3d 35 31 20 8c 20 8d  |T|@ . . E=51 . .|
00000480  74 64 41 0d 01 72 25 20  f1 20 8a 31 2c 35 29 22  |tdA..r% . .1,5)"|
00000490  43 4c 55 45 20 22 3b 45  3b 20 8a 31 2c 36 29 22  |CLUE ";E; .1,6)"|
000004a0  3d 3d 3d 3d 3d 3d 3d 22  0d 01 7c 13 20 f1 20 8a  |======="..|. . .|
000004b0  30 2c 31 30 29 20 43 24  28 45 29 0d 01 86 1d 20  |0,10) C$(E).... |
000004c0  f1 20 8a 31 33 2c 32 32  29 22 50 52 45 53 53 20  |. .13,22)"PRESS |
000004d0  41 4e 59 20 4b 45 59 22  0d 01 90 09 20 41 24 3d  |ANY KEY".... A$=|
000004e0  be 0d 01 9a 0b 20 e5 20  8d 54 62 41 0d 01 a4 26  |..... . .TbA...&|
000004f0  20 f1 20 8a 37 2c 31 30  29 22 59 4f 55 27 56 45  | . .7,10)"YOU'VE|
00000500  20 44 4f 4e 45 20 49 54  20 41 54 20 4c 41 53 54  | DONE IT AT LAST|
00000510  21 22 0d 01 ae 1d 20 f1  20 8a 31 33 2c 32 32 29  |!".... . .13,22)|
00000520  22 50 52 45 53 53 20 41  4e 59 20 4b 45 59 22 0d  |"PRESS ANY KEY".|
00000530  01 b8 09 20 41 24 3d be  0d 01 c2 0b 20 e5 20 8d  |... A$=..... . .|
00000540  54 7c 40 0d 01 cc 06 20  e0 0d 01 d6 06 20 db 0d  |T|@.... ..... ..|
00000550  01 e0 29 20 e8 20 8a 31  2c 35 29 3b 22 4e 61 6d  |..) . .1,5);"Nam|
00000560  65 20 6f 66 20 66 69 6c  65 20 74 6f 20 6c 6f 61  |e of file to loa|
00000570  64 22 2c 66 69 6c 65 24  0d 01 ea 0f 20 41 3d 8e  |d",file$.... A=.|
00000580  28 66 69 6c 65 24 29 0d  01 f4 12 20 e3 20 63 6c  |(file$).... . cl|
00000590  75 65 3d 30 20 b8 20 35  30 0d 01 fe 1a 20 e8 23  |ue=0 . 50.... .#|
000005a0  41 2c 43 24 28 63 6c 75  65 29 2c 43 25 28 63 6c  |A,C$(clue),C%(cl|
000005b0  75 65 29 0d 02 08 06 20  ed 0d 02 12 0f 20 e8 23  |ue).... ..... .#|
000005c0  41 2c 43 25 28 35 31 29  0d 02 1c 0f 20 d9 23 30  |A,C%(51).... .#0|
000005d0  3a e5 20 8d 54 7c 40 0d  02 26 06 20 db 0d 02 30  |:. .T|@..&. ...0|
000005e0  29 20 e8 20 8a 31 2c 35  29 3b 22 4e 61 6d 65 20  |) . .1,5);"Name |
000005f0  6f 66 20 66 69 6c 65 20  74 6f 20 73 61 76 65 22  |of file to save"|
00000600  2c 66 69 6c 65 24 0d 02  3a 0f 20 41 3d ae 28 66  |,file$..:. A=.(f|
00000610  69 6c 65 24 29 0d 02 44  12 20 e3 20 63 6c 75 65  |ile$)..D. . clue|
00000620  3d 30 20 b8 20 35 30 0d  02 4e 1a 20 f1 23 41 2c  |=0 . 50..N. .#A,|
00000630  43 24 28 63 6c 75 65 29  2c 43 25 28 63 6c 75 65  |C$(clue),C%(clue|
00000640  29 0d 02 58 06 20 ed 0d  02 62 0f 20 f1 23 41 2c  |)..X. ...b. .#A,|
00000650  43 25 28 35 31 29 0d 02  6c 0f 20 d9 23 30 3a e5  |C%(51)..l. .#0:.|
00000660  20 8d 54 7c 40 0d 02 76  08 20 ef 20 32 0d 02 80  | .T|@..v. . 2...|
00000670  36 20 f1 22 4e 6f 2e 20  20 20 43 6f 64 65 20 20  |6 ."No.   Code  |
00000680  20 20 20 43 6c 75 65 22  27 27 22 54 72 20 20 20  |   Clue"''"Tr   |
00000690  20 22 3b 43 25 28 30 29  3b 8a 31 34 29 3b 43 24  | ";C%(0);.14);C$|
000006a0  28 30 29 0d 02 8a 12 20  e3 20 63 6c 75 65 3d 31  |(0).... . clue=1|
000006b0  20 b8 20 35 30 0d 02 94  45 20 e7 20 43 25 28 63  | . 50...E . C%(c|
000006c0  6c 75 65 29 3c 3e 30 20  84 20 43 24 28 63 6c 75  |lue)<>0 . C$(clu|
000006d0  65 29 3c 3e 22 22 20 8c  20 f1 20 63 6c 75 65 3b  |e)<>"" . . clue;|
000006e0  8a 36 29 3b 43 25 28 63  6c 75 65 29 3b 8a 31 34  |.6);C%(clue);.14|
000006f0  29 3b 43 24 28 63 6c 75  65 29 0d 02 9e 06 20 ed  |);C$(clue).... .|
00000700  0d 02 a8 15 20 f1 22 45  6e 64 20 20 20 22 3b 43  |.... ."End   ";C|
00000710  25 28 35 31 29 0d 02 b2  0f 20 ef 20 33 3a e5 20  |%(51).... . 3:. |
00000720  8d 54 7c 40 0d ff                                 |.T|@..|
00000726
THUNT2.m0
THUNT2.m1
THUNT2.m2
THUNT2.m4
THUNT2.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .