   10*TV255
   20MODE5:VDU23;8202;0;0;0;19,3,2;0;
   30*L.FONTS
   40PROClegal:*/SPEAKSC
   50?&76=8:?&75=1:CALL&4B00:TIME=0:REPEATUNTILTIME>30:?&75=2:CALL&4B00
   60ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1,126,0:ENVELOPE2,3,0,0,0,1,1,1,90,-20,-20,-2,90,0:ENVELOPE3,2,1,1,0,5,10,40,30,-10,-10,-15,127,0:ENVELOPE4,131,0,0,0,25,2,-2,110,0,-4,-8,110,80
   70*FX4,2
   80*FX16,2
   90A%=0:X%=255:T%=USR&FFF4:T%=(T%DIV&100)AND7
  100IF T%>2 THEN 600
  110VDU28,0,31,19,25,12,28,0,31,19,26
  120PROCrepton("PLEASE SELECT:",3,1)
  130PROCrepton("(1) THE GAME",3,3)
  140PROCrepton("(2) THE EDITOR",3,4)
  150*FX15
  160REPEAT:*FX20,1
  180S=GET
  190IFS<49 OR S>50 PROCerror
  200UNTILS-49<2
  210PROCchose
  220END
  230DEFPROCerror
  240VDU7:REPEAT
  250UNTILINKEY(-129)
  260ENDPROC
  270DEFPROCchose
  280CLS
  290IFS=50 PROCedits ELSE PROCgames
  300ENDPROC
  310DEFPROCedits
  320*DIR E
  330PROCrepton("EDITOR LOADING...",2,3)
  340PAGE=&1900:CHAIN"EDITOR"
  350ENDPROC
  360DEFPROCgames
  370*DIR D
  380PROCrepton("GAME LOADING...",3,3)
  390PAGE=&900:HIMEM=&C00:CHAIN"REPTON1"
  400ENDPROC
  410DEFPROCrepton(A$,X,Y)
  420COLOUR2
  430PRINTTAB(X,Y);
  440FORJ%=1TOLENA$:T$=MID$(A$,J%,1):T%=ASC(T$)
  450IFT%<65 OR T%>90:VDUT%:NEXT:ENDPROC
  460VDUT%+63
  470NEXT:ENDPROC
  480DEFPROClegal
  490FORA%=128TO159:VDU23,A%:FORX%=0TO7:VDU?(X%+&C00+((A%-128)*8)):NEXT:NEXT
  500ENDPROC
  600A%=68:T%=USR(&FFF4):T%=(T%/&100)AND&F
  610IF T%<>&F THEN 110
  620MODE7:PAGE=&7900:CHAIN"MV"



*TV255
�5:�23;8202;0;0;0;19,3,2;0;
*L.FONTS
(�legal:*/SPEAKSC
21?&76=8:?&75=1:�&4B00:�=0:���>30:?&75=2:�&4B00
<��1,1,0,0,0,0,0,0,126,-1,0,-1,126,0:�2,3,0,0,0,1,1,1,90,-20,-20,-2,90,0:�3,2,1,1,0,5,10,40,30,-10,-10,-15,127,0:�4,131,0,0,0,25,2,-2,110,0,-4,-8,110,80
F
*FX4,2
P*FX16,2
Z(A%=0:X%=255:T%=�&FFF4:T%=(T%�&100)�7
d� T%>2 � �DXB
n#�28,0,31,19,25,12,28,0,31,19,26
x!�repton("PLEASE SELECT:",3,1)
��repton("(1) THE GAME",3,3)
�!�repton("(2) THE EDITOR",3,4)
�	*FX15
�
�:*FX20,1
�S=�
��S<49 � S>50 �error
��S-49<2
�
�chose
��
���error
��7:�
���(-129)
�
��chose
�
"�S=50 �edits � �games
,�
6��edits
@
*DIR E
J$�repton("EDITOR LOADING...",2,3)
T�=&1900:�"EDITOR"
^�
h��games
r
*DIR D
|"�repton("GAME LOADING...",3,3)
��=&900:�=&C00:�"REPTON1"
��
���repton(A$,X,Y)
��2
��X,Y);
�#�J%=1��A$:T$=�A$,J%,1):T%=�(T$)
��T%<65 � T%>90:�T%:�:�
�
�T%+63
��:�
���legal
�;�A%=128�159:�23,A%:�X%=0�7:�?(X%+&C00+((A%-128)*8)):�:�
��
X%A%=68:T%=�(&FFF4):T%=(T%/&100)�&F
b� T%<>&F � �Dn@
l�7:�=&7900:�"MV"
�

00000000  0d 00 0a 0a 2a 54 56 32  35 35 0d 00 14 1f eb 35  |....*TV255.....5|
00000010  3a ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |:.23;8202;0;0;0;|
00000020  31 39 2c 33 2c 32 3b 30  3b 0d 00 1e 0c 2a 4c 2e  |19,3,2;0;....*L.|
00000030  46 4f 4e 54 53 0d 00 28  14 f2 6c 65 67 61 6c 3a  |FONTS..(..legal:|
00000040  2a 2f 53 50 45 41 4b 53  43 0d 00 32 31 3f 26 37  |*/SPEAKSC..21?&7|
00000050  36 3d 38 3a 3f 26 37 35  3d 31 3a d6 26 34 42 30  |6=8:?&75=1:.&4B0|
00000060  30 3a d1 3d 30 3a f5 fd  91 3e 33 30 3a 3f 26 37  |0:.=0:...>30:?&7|
00000070  35 3d 32 3a d6 26 34 42  30 30 0d 00 3c 9a e2 31  |5=2:.&4B00..<..1|
00000080  2c 31 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 31  |,1,0,0,0,0,0,0,1|
00000090  32 36 2c 2d 31 2c 30 2c  2d 31 2c 31 32 36 2c 30  |26,-1,0,-1,126,0|
000000a0  3a e2 32 2c 33 2c 30 2c  30 2c 30 2c 31 2c 31 2c  |:.2,3,0,0,0,1,1,|
000000b0  31 2c 39 30 2c 2d 32 30  2c 2d 32 30 2c 2d 32 2c  |1,90,-20,-20,-2,|
000000c0  39 30 2c 30 3a e2 33 2c  32 2c 31 2c 31 2c 30 2c  |90,0:.3,2,1,1,0,|
000000d0  35 2c 31 30 2c 34 30 2c  33 30 2c 2d 31 30 2c 2d  |5,10,40,30,-10,-|
000000e0  31 30 2c 2d 31 35 2c 31  32 37 2c 30 3a e2 34 2c  |10,-15,127,0:.4,|
000000f0  31 33 31 2c 30 2c 30 2c  30 2c 32 35 2c 32 2c 2d  |131,0,0,0,25,2,-|
00000100  32 2c 31 31 30 2c 30 2c  2d 34 2c 2d 38 2c 31 31  |2,110,0,-4,-8,11|
00000110  30 2c 38 30 0d 00 46 0a  2a 46 58 34 2c 32 0d 00  |0,80..F.*FX4,2..|
00000120  50 0b 2a 46 58 31 36 2c  32 0d 00 5a 28 41 25 3d  |P.*FX16,2..Z(A%=|
00000130  30 3a 58 25 3d 32 35 35  3a 54 25 3d ba 26 46 46  |0:X%=255:T%=.&FF|
00000140  46 34 3a 54 25 3d 28 54  25 81 26 31 30 30 29 80  |F4:T%=(T%.&100).|
00000150  37 0d 00 64 11 e7 20 54  25 3e 32 20 8c 20 8d 44  |7..d.. T%>2 . .D|
00000160  58 42 0d 00 6e 23 ef 32  38 2c 30 2c 33 31 2c 31  |XB..n#.28,0,31,1|
00000170  39 2c 32 35 2c 31 32 2c  32 38 2c 30 2c 33 31 2c  |9,25,12,28,0,31,|
00000180  31 39 2c 32 36 0d 00 78  21 f2 72 65 70 74 6f 6e  |19,26..x!.repton|
00000190  28 22 50 4c 45 41 53 45  20 53 45 4c 45 43 54 3a  |("PLEASE SELECT:|
000001a0  22 2c 33 2c 31 29 0d 00  82 1f f2 72 65 70 74 6f  |",3,1).....repto|
000001b0  6e 28 22 28 31 29 20 54  48 45 20 47 41 4d 45 22  |n("(1) THE GAME"|
000001c0  2c 33 2c 33 29 0d 00 8c  21 f2 72 65 70 74 6f 6e  |,3,3)...!.repton|
000001d0  28 22 28 32 29 20 54 48  45 20 45 44 49 54 4f 52  |("(2) THE EDITOR|
000001e0  22 2c 33 2c 34 29 0d 00  96 09 2a 46 58 31 35 0d  |",3,4)....*FX15.|
000001f0  00 a0 0d f5 3a 2a 46 58  32 30 2c 31 0d 00 b4 07  |....:*FX20,1....|
00000200  53 3d a5 0d 00 be 17 e7  53 3c 34 39 20 84 20 53  |S=......S<49 . S|
00000210  3e 35 30 20 f2 65 72 72  6f 72 0d 00 c8 0b fd 53  |>50 .error.....S|
00000220  2d 34 39 3c 32 0d 00 d2  0a f2 63 68 6f 73 65 0d  |-49<2.....chose.|
00000230  00 dc 05 e0 0d 00 e6 0b  dd f2 65 72 72 6f 72 0d  |..........error.|
00000240  00 f0 08 ef 37 3a f5 0d  00 fa 0c fd a6 28 2d 31  |....7:.......(-1|
00000250  32 39 29 0d 01 04 05 e1  0d 01 0e 0b dd f2 63 68  |29)...........ch|
00000260  6f 73 65 0d 01 18 05 db  0d 01 22 19 e7 53 3d 35  |ose......."..S=5|
00000270  30 20 f2 65 64 69 74 73  20 8b 20 f2 67 61 6d 65  |0 .edits . .game|
00000280  73 0d 01 2c 05 e1 0d 01  36 0b dd f2 65 64 69 74  |s..,....6...edit|
00000290  73 0d 01 40 0a 2a 44 49  52 20 45 0d 01 4a 24 f2  |s..@.*DIR E..J$.|
000002a0  72 65 70 74 6f 6e 28 22  45 44 49 54 4f 52 20 4c  |repton("EDITOR L|
000002b0  4f 41 44 49 4e 47 2e 2e  2e 22 2c 32 2c 33 29 0d  |OADING...",2,3).|
000002c0  01 54 15 d0 3d 26 31 39  30 30 3a d7 22 45 44 49  |.T..=&1900:."EDI|
000002d0  54 4f 52 22 0d 01 5e 05  e1 0d 01 68 0b dd f2 67  |TOR"..^....h...g|
000002e0  61 6d 65 73 0d 01 72 0a  2a 44 49 52 20 44 0d 01  |ames..r.*DIR D..|
000002f0  7c 22 f2 72 65 70 74 6f  6e 28 22 47 41 4d 45 20  ||".repton("GAME |
00000300  4c 4f 41 44 49 4e 47 2e  2e 2e 22 2c 33 2c 33 29  |LOADING...",3,3)|
00000310  0d 01 86 1c d0 3d 26 39  30 30 3a d3 3d 26 43 30  |.....=&900:.=&C0|
00000320  30 3a d7 22 52 45 50 54  4f 4e 31 22 0d 01 90 05  |0:."REPTON1"....|
00000330  e1 0d 01 9a 14 dd f2 72  65 70 74 6f 6e 28 41 24  |.......repton(A$|
00000340  2c 58 2c 59 29 0d 01 a4  06 fb 32 0d 01 ae 0b f1  |,X,Y).....2.....|
00000350  8a 58 2c 59 29 3b 0d 01  b8 23 e3 4a 25 3d 31 b8  |.X,Y);...#.J%=1.|
00000360  a9 41 24 3a 54 24 3d c1  41 24 2c 4a 25 2c 31 29  |.A$:T$=.A$,J%,1)|
00000370  3a 54 25 3d 97 28 54 24  29 0d 01 c2 1a e7 54 25  |:T%=.(T$).....T%|
00000380  3c 36 35 20 84 20 54 25  3e 39 30 3a ef 54 25 3a  |<65 . T%>90:.T%:|
00000390  ed 3a e1 0d 01 cc 0a ef  54 25 2b 36 33 0d 01 d6  |.:......T%+63...|
000003a0  07 ed 3a e1 0d 01 e0 0b  dd f2 6c 65 67 61 6c 0d  |..:.......legal.|
000003b0  01 ea 3b e3 41 25 3d 31  32 38 b8 31 35 39 3a ef  |..;.A%=128.159:.|
000003c0  32 33 2c 41 25 3a e3 58  25 3d 30 b8 37 3a ef 3f  |23,A%:.X%=0.7:.?|
000003d0  28 58 25 2b 26 43 30 30  2b 28 28 41 25 2d 31 32  |(X%+&C00+((A%-12|
000003e0  38 29 2a 38 29 29 3a ed  3a ed 0d 01 f4 05 e1 0d  |8)*8)):.:.......|
000003f0  02 58 25 41 25 3d 36 38  3a 54 25 3d ba 28 26 46  |.X%A%=68:T%=.(&F|
00000400  46 46 34 29 3a 54 25 3d  28 54 25 2f 26 31 30 30  |FF4):T%=(T%/&100|
00000410  29 80 26 46 0d 02 62 13  e7 20 54 25 3c 3e 26 46  |).&F..b.. T%<>&F|
00000420  20 8c 20 8d 44 6e 40 0d  02 6c 14 eb 37 3a d0 3d  | . .Dn@..l..7:.=|
00000430  26 37 39 30 30 3a d7 22  4d 56 22 0d ff           |&7900:."MV"..|
0000043d

MENU.m0

MENU.m1

MENU.m2

MENU.m4

MENU.m5

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

Tape/disk:	Home » Personal collection » Acorn DFS disks » dfs_box02_disk02b_repton_3.scp
Filename:	MENU
Read OK:	✔
File size:	043D bytes
Load address:	1900
Exec address:	FF8023

Duplicates

File contents