Home » Recent acquisitions » Acorn DFS disks » dfs_box10_disk04b_play_it_again_sam_17.scp » MENU

MENU

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 » Recent acquisitions » Acorn DFS disks » dfs_box10_disk04b_play_it_again_sam_17.scp
Filename: MENU
Read OK:
File size: 024B bytes
Load address: FF0E00
Exec address: FF802B
File contents
   10?&224=?(&24+!&FFB7)
   20*DISC
   30*TV0,1
   40*FX200,3
   50MODE1
   60VDU23;8202;0;0;0;19,1,0;0;19,2,0;0;19,3,0;0;
   70*RUN PLAY17
   80VDU19,1,7;0;19,2,1;0;19,3,4;0;
   90A=GET
  100IF A<49 OR A>51 THEN 90
  110A=A-48
  120ON A GOTO 130,180,190
  130 MODE7:VDU23;8202;0;0;0;0;:*/TACLOAD
  180 CHAIN"VIDEO1"
  190*TV255
  200MODE1:VDU23;8202;0;0;0;
  210FrameNo=&77
  220Seed=&80
  230Constant=&84
  240!Seed=RND(-TIME):!&82=RND(-TIME)
  250?Constant=&57
  260?(Constant+1)=&B0
  270?(Constant+2)=&76
  280*FX9,1
  290*FX10,1
  300*FX200,2
  310?&70=0
  320?FrameNo=ASC("1")
  330ENVELOPE4,2,-1,-1,-1,10,10,50,90,-4,-4,-4,90,0
  340 ENVELOPE3,2,10,10,10,10,10,50,90,-5,-5,-5,90,0
  350*GAME

?&224=?(&24+!&FFB7)
	*DISC

*TV0,1
(*FX200,3
2�1
<.�23;8202;0;0;0;19,1,0;0;19,2,0;0;19,3,0;0;
F*RUN PLAY17
P �19,1,7;0;19,2,1;0;19,3,4;0;
ZA=�
d� A<49 � A>51 � �DZ@
n
A=A-48
x� A � �tB@,�tt@,�t~@
�# �7:�23;8202;0;0;0;0;:*/TACLOAD
� �"VIDEO1"
�
*TV255
��1:�23;8202;0;0;0;
�FrameNo=&77
�Seed=&80
�Constant=&84
�!Seed=�(-�):!&82=�(-�)
�?Constant=&57
?(Constant+1)=&B0
?(Constant+2)=&76

*FX9,1
"*FX10,1
,*FX200,2
6
?&70=0
@?FrameNo=�("1")
J+�4,2,-1,-1,-1,10,10,50,90,-4,-4,-4,90,0
T, �3,2,10,10,10,10,10,50,90,-5,-5,-5,90,0
^	*GAME
�
00000000  0d 00 0a 17 3f 26 32 32  34 3d 3f 28 26 32 34 2b  |....?&224=?(&24+|
00000010  21 26 46 46 42 37 29 0d  00 14 09 2a 44 49 53 43  |!&FFB7)....*DISC|
00000020  0d 00 1e 0a 2a 54 56 30  2c 31 0d 00 28 0c 2a 46  |....*TV0,1..(.*F|
00000030  58 32 30 30 2c 33 0d 00  32 06 eb 31 0d 00 3c 2e  |X200,3..2..1..<.|
00000040  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 31  |.23;8202;0;0;0;1|
00000050  39 2c 31 2c 30 3b 30 3b  31 39 2c 32 2c 30 3b 30  |9,1,0;0;19,2,0;0|
00000060  3b 31 39 2c 33 2c 30 3b  30 3b 0d 00 46 0f 2a 52  |;19,3,0;0;..F.*R|
00000070  55 4e 20 50 4c 41 59 31  37 0d 00 50 20 ef 31 39  |UN PLAY17..P .19|
00000080  2c 31 2c 37 3b 30 3b 31  39 2c 32 2c 31 3b 30 3b  |,1,7;0;19,2,1;0;|
00000090  31 39 2c 33 2c 34 3b 30  3b 0d 00 5a 07 41 3d a5  |19,3,4;0;..Z.A=.|
000000a0  0d 00 64 18 e7 20 41 3c  34 39 20 84 20 41 3e 35  |..d.. A<49 . A>5|
000000b0  31 20 8c 20 8d 44 5a 40  0d 00 6e 0a 41 3d 41 2d  |1 . .DZ@..n.A=A-|
000000c0  34 38 0d 00 78 18 ee 20  41 20 e5 20 8d 74 42 40  |48..x.. A . .tB@|
000000d0  2c 8d 74 74 40 2c 8d 74  7e 40 0d 00 82 23 20 eb  |,.tt@,.t~@...# .|
000000e0  37 3a ef 32 33 3b 38 32  30 32 3b 30 3b 30 3b 30  |7:.23;8202;0;0;0|
000000f0  3b 30 3b 3a 2a 2f 54 41  43 4c 4f 41 44 0d 00 b4  |;0;:*/TACLOAD...|
00000100  0e 20 d7 22 56 49 44 45  4f 31 22 0d 00 be 0a 2a  |. ."VIDEO1"....*|
00000110  54 56 32 35 35 0d 00 c8  16 eb 31 3a ef 32 33 3b  |TV255.....1:.23;|
00000120  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 00 d2 0f 46  |8202;0;0;0;....F|
00000130  72 61 6d 65 4e 6f 3d 26  37 37 0d 00 dc 0c 53 65  |rameNo=&77....Se|
00000140  65 64 3d 26 38 30 0d 00  e6 10 43 6f 6e 73 74 61  |ed=&80....Consta|
00000150  6e 74 3d 26 38 34 0d 00  f0 1a 21 53 65 65 64 3d  |nt=&84....!Seed=|
00000160  b3 28 2d 91 29 3a 21 26  38 32 3d b3 28 2d 91 29  |.(-.):!&82=.(-.)|
00000170  0d 00 fa 11 3f 43 6f 6e  73 74 61 6e 74 3d 26 35  |....?Constant=&5|
00000180  37 0d 01 04 15 3f 28 43  6f 6e 73 74 61 6e 74 2b  |7....?(Constant+|
00000190  31 29 3d 26 42 30 0d 01  0e 15 3f 28 43 6f 6e 73  |1)=&B0....?(Cons|
000001a0  74 61 6e 74 2b 32 29 3d  26 37 36 0d 01 18 0a 2a  |tant+2)=&76....*|
000001b0  46 58 39 2c 31 0d 01 22  0b 2a 46 58 31 30 2c 31  |FX9,1..".*FX10,1|
000001c0  0d 01 2c 0c 2a 46 58 32  30 30 2c 32 0d 01 36 0a  |..,.*FX200,2..6.|
000001d0  3f 26 37 30 3d 30 0d 01  40 13 3f 46 72 61 6d 65  |?&70=0..@.?Frame|
000001e0  4e 6f 3d 97 28 22 31 22  29 0d 01 4a 2b e2 34 2c  |No=.("1")..J+.4,|
000001f0  32 2c 2d 31 2c 2d 31 2c  2d 31 2c 31 30 2c 31 30  |2,-1,-1,-1,10,10|
00000200  2c 35 30 2c 39 30 2c 2d  34 2c 2d 34 2c 2d 34 2c  |,50,90,-4,-4,-4,|
00000210  39 30 2c 30 0d 01 54 2c  20 e2 33 2c 32 2c 31 30  |90,0..T, .3,2,10|
00000220  2c 31 30 2c 31 30 2c 31  30 2c 31 30 2c 35 30 2c  |,10,10,10,10,50,|
00000230  39 30 2c 2d 35 2c 2d 35  2c 2d 35 2c 39 30 2c 30  |90,-5,-5,-5,90,0|
00000240  0d 01 5e 09 2a 47 41 4d  45 0d ff                 |..^.*GAME..|
0000024b
MENU.m0
MENU.m1
MENU.m2
MENU.m4
MENU.m5