Home » Archimedes archive » Acorn User » AU 1995-10.adf » !Direct » Director/!Director/Menus/Modes/ByXxY
Director/!Director/Menus/Modes/ByXxY
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 » Acorn User » AU 1995-10.adf » !Direct |
| Filename: | Director/!Director/Menus/Modes/ByXxY |
| Read OK: | ✔ |
| File size: | 04CE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn User » AU 1995-10.adf » !Direct » Director/!Director/Menus/Modes/ByXxY
- Archimedes archive » Acorn User » AU 1998-09.adf » Features » DesktopPD/Director/!Director/Menus/Modes/ByXxY
File contents
1REM >Director:Menus.Modes.ByXxY
2ON ERROR PRINT REPORT$;" at line ";ERL:END
3SYS "OS_GetEnv" TO in$
4log2bpp=EVAL(FNarg(in$,"-lbpp","-1"))
5block_size = 1024
6DIM block block_size
7SYS "OS_ScreenMode",2 TO ,,modes
8modes=-modes
9
10menu=FNswi_number("Director_Menu")
11endmenu=FNswi_number("Director_EndMenu")
12option=FNswi_number("Director_Option")
13command=FNswi_number("Director_Command")
14dash=FNswi_number("Director_Dash")
15
16
17index=0
18SYS menu,"Resolutions -temp"
19
20lastx=0:lasty=0
21REPEAT
22 SYS "OS_ScreenMode",2,,index,,,,block,block_size TO ,ok,,,,,end
23 a=block
24 WHILE a<>end
25 x=a!8
26 y=a!12
27 bpp=a!16
28 fr=a!20
29 IF a?24<>0 THEN
30 IF x<>lastx OR y<>lasty THEN
31 SYS option,""""+FNc(x)+" x "+FNc(y)+""" -sub ""Dynamic:Run Director:Menus.Modes.XxYsub -x "+STR$x+" -y "+STR$y+""""
32 ENDIF
33 lastx=x
34 lasty=y
35 ENDIF
36 a+=!a
37 index+=1
38 ENDWHILE
39UNTIL ok<>0
40SYS endmenu
41IF index<>modes ERROR 1,"Peculiar number of modes"
42*Set Director$Menu Resolutions
43END
44
45DEF FNarg(str$,arg$,def$)
46LOCAL i,j
47i=INSTR(str$,arg$)
48IF i=0 THEN =def$
49i+=LENarg$+1
50j=INSTR(str$+" <"," ",i)
51=MID$(str$,i,j-i)
52
53DEF FNswi_number(swi$)
54SYS "OS_SWINumberFromString",,swi$ TO swi%
55=swi%
56
57DEF FNc(n)
58=RIGHT$(" "+STR$n,4)
!� >Director:Menus.Modes.ByXxY
� � � �$;" at line ";�:�
ș "OS_GetEnv" � in$
%log2bpp=�(�arg(in$,"-lbpp","-1"))
block_size = 1024
� block block_size
"ș "OS_ScreenMode",2 � ,,modes
modes=-modes
%menu=�swi_number("Director_Menu")
+endmenu=�swi_number("Director_EndMenu")
)option=�swi_number("Director_Option")
+command=�swi_number("Director_Command")
%dash=�swi_number("Director_Dash")
index=0
ș menu,"Resolutions -temp"
lastx=0:lasty=0
�
B ș "OS_ScreenMode",2,,index,,,,block,block_size � ,ok,,,,,end
a=block
ȕ a<>end
x=a!8
y=a!12
bpp=a!16
fr=a!20
� a?24<>0 �
� x<>lastx � y<>lasty �
r ș option,""""+�c(x)+" x "+�c(y)+""" -sub ""Dynamic:Run Director:Menus.Modes.XxYsub -x "+�x+" -y "+�y+""""
�
! lastx=x
" lasty=y
# �
$ a+=!a
% index+=1
& �
' � ok<>0
(ș endmenu
)1� index<>modes � 1,"Peculiar number of modes"
*"*Set Director$Menu Resolutions
+�
,
-� �arg(str$,arg$,def$)
. � i,j
/i=�str$,arg$)
0� i=0 � =def$
1i+=�arg$+1
2j=�str$+" <"," ",i)
3=�str$,i,j-i)
4
5� �swi_number(swi$)
6,ș "OS_SWINumberFromString",,swi$ � swi%
7 =swi%
8
9 � �c(n)
:=�" "+�n,4)
� 00000000 0d 00 01 21 f4 20 3e 44 69 72 65 63 74 6f 72 3a |...!. >Director:|
00000010 4d 65 6e 75 73 2e 4d 6f 64 65 73 2e 42 79 58 78 |Menus.Modes.ByXx|
00000020 59 0d 00 02 1c ee 20 85 20 f1 20 f6 24 3b 22 20 |Y..... . . .$;" |
00000030 61 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d 00 03 |at line ";.:....|
00000040 18 c8 99 20 22 4f 53 5f 47 65 74 45 6e 76 22 20 |... "OS_GetEnv" |
00000050 b8 20 69 6e 24 0d 00 04 25 6c 6f 67 32 62 70 70 |. in$...%log2bpp|
00000060 3d a0 28 a4 61 72 67 28 69 6e 24 2c 22 2d 6c 62 |=.(.arg(in$,"-lb|
00000070 70 70 22 2c 22 2d 31 22 29 29 0d 00 05 15 62 6c |pp","-1"))....bl|
00000080 6f 63 6b 5f 73 69 7a 65 20 3d 20 31 30 32 34 0d |ock_size = 1024.|
00000090 00 06 16 de 20 62 6c 6f 63 6b 20 62 6c 6f 63 6b |.... block block|
000000a0 5f 73 69 7a 65 0d 00 07 22 c8 99 20 22 4f 53 5f |_size...".. "OS_|
000000b0 53 63 72 65 65 6e 4d 6f 64 65 22 2c 32 20 b8 20 |ScreenMode",2 . |
000000c0 2c 2c 6d 6f 64 65 73 0d 00 08 10 6d 6f 64 65 73 |,,modes....modes|
000000d0 3d 2d 6d 6f 64 65 73 0d 00 09 04 0d 00 0a 25 6d |=-modes.......%m|
000000e0 65 6e 75 3d a4 73 77 69 5f 6e 75 6d 62 65 72 28 |enu=.swi_number(|
000000f0 22 44 69 72 65 63 74 6f 72 5f 4d 65 6e 75 22 29 |"Director_Menu")|
00000100 0d 00 0b 2b 65 6e 64 6d 65 6e 75 3d a4 73 77 69 |...+endmenu=.swi|
00000110 5f 6e 75 6d 62 65 72 28 22 44 69 72 65 63 74 6f |_number("Directo|
00000120 72 5f 45 6e 64 4d 65 6e 75 22 29 0d 00 0c 29 6f |r_EndMenu")...)o|
00000130 70 74 69 6f 6e 3d a4 73 77 69 5f 6e 75 6d 62 65 |ption=.swi_numbe|
00000140 72 28 22 44 69 72 65 63 74 6f 72 5f 4f 70 74 69 |r("Director_Opti|
00000150 6f 6e 22 29 0d 00 0d 2b 63 6f 6d 6d 61 6e 64 3d |on")...+command=|
00000160 a4 73 77 69 5f 6e 75 6d 62 65 72 28 22 44 69 72 |.swi_number("Dir|
00000170 65 63 74 6f 72 5f 43 6f 6d 6d 61 6e 64 22 29 0d |ector_Command").|
00000180 00 0e 25 64 61 73 68 3d a4 73 77 69 5f 6e 75 6d |..%dash=.swi_num|
00000190 62 65 72 28 22 44 69 72 65 63 74 6f 72 5f 44 61 |ber("Director_Da|
000001a0 73 68 22 29 0d 00 0f 04 0d 00 10 04 0d 00 11 0b |sh")............|
000001b0 69 6e 64 65 78 3d 30 0d 00 12 1f c8 99 20 6d 65 |index=0...... me|
000001c0 6e 75 2c 22 52 65 73 6f 6c 75 74 69 6f 6e 73 20 |nu,"Resolutions |
000001d0 2d 74 65 6d 70 22 0d 00 13 04 0d 00 14 13 6c 61 |-temp"........la|
000001e0 73 74 78 3d 30 3a 6c 61 73 74 79 3d 30 0d 00 15 |stx=0:lasty=0...|
000001f0 05 f5 0d 00 16 42 20 c8 99 20 22 4f 53 5f 53 63 |.....B .. "OS_Sc|
00000200 72 65 65 6e 4d 6f 64 65 22 2c 32 2c 2c 69 6e 64 |reenMode",2,,ind|
00000210 65 78 2c 2c 2c 2c 62 6c 6f 63 6b 2c 62 6c 6f 63 |ex,,,,block,bloc|
00000220 6b 5f 73 69 7a 65 20 b8 20 2c 6f 6b 2c 2c 2c 2c |k_size . ,ok,,,,|
00000230 2c 65 6e 64 0d 00 17 0c 20 61 3d 62 6c 6f 63 6b |,end.... a=block|
00000240 0d 00 18 0e 20 c8 95 20 61 3c 3e 65 6e 64 0d 00 |.... .. a<>end..|
00000250 19 0b 20 20 78 3d 61 21 38 0d 00 1a 0c 20 20 79 |.. x=a!8.... y|
00000260 3d 61 21 31 32 0d 00 1b 0e 20 20 62 70 70 3d 61 |=a!12.... bpp=a|
00000270 21 31 36 0d 00 1c 0d 20 20 66 72 3d 61 21 32 30 |!16.... fr=a!20|
00000280 0d 00 1d 11 20 20 e7 20 61 3f 32 34 3c 3e 30 20 |.... . a?24<>0 |
00000290 8c 0d 00 1e 1e 20 20 20 e7 20 78 3c 3e 6c 61 73 |..... . x<>las|
000002a0 74 78 20 84 20 79 3c 3e 6c 61 73 74 79 20 8c 0d |tx . y<>lasty ..|
000002b0 00 1f 72 20 20 20 20 c8 99 20 6f 70 74 69 6f 6e |..r .. option|
000002c0 2c 22 22 22 22 2b a4 63 28 78 29 2b 22 20 78 20 |,""""+.c(x)+" x |
000002d0 22 2b a4 63 28 79 29 2b 22 22 22 20 2d 73 75 62 |"+.c(y)+""" -sub|
000002e0 20 22 22 44 79 6e 61 6d 69 63 3a 52 75 6e 20 44 | ""Dynamic:Run D|
000002f0 69 72 65 63 74 6f 72 3a 4d 65 6e 75 73 2e 4d 6f |irector:Menus.Mo|
00000300 64 65 73 2e 58 78 59 73 75 62 20 2d 78 20 22 2b |des.XxYsub -x "+|
00000310 c3 78 2b 22 20 2d 79 20 22 2b c3 79 2b 22 22 22 |.x+" -y "+.y+"""|
00000320 22 0d 00 20 08 20 20 20 cd 0d 00 21 0e 20 20 20 |".. . ...!. |
00000330 6c 61 73 74 78 3d 78 0d 00 22 0e 20 20 20 6c 61 |lastx=x..". la|
00000340 73 74 79 3d 79 0d 00 23 07 20 20 cd 0d 00 24 0b |sty=y..#. ...$.|
00000350 20 20 61 2b 3d 21 61 0d 00 25 0e 20 20 69 6e 64 | a+=!a..%. ind|
00000360 65 78 2b 3d 31 0d 00 26 06 20 ce 0d 00 27 0b fd |ex+=1..&. ...'..|
00000370 20 6f 6b 3c 3e 30 0d 00 28 0e c8 99 20 65 6e 64 | ok<>0..(... end|
00000380 6d 65 6e 75 0d 00 29 31 e7 20 69 6e 64 65 78 3c |menu..)1. index<|
00000390 3e 6d 6f 64 65 73 20 85 20 31 2c 22 50 65 63 75 |>modes . 1,"Pecu|
000003a0 6c 69 61 72 20 6e 75 6d 62 65 72 20 6f 66 20 6d |liar number of m|
000003b0 6f 64 65 73 22 0d 00 2a 22 2a 53 65 74 20 44 69 |odes"..*"*Set Di|
000003c0 72 65 63 74 6f 72 24 4d 65 6e 75 20 52 65 73 6f |rector$Menu Reso|
000003d0 6c 75 74 69 6f 6e 73 0d 00 2b 05 e0 0d 00 2c 04 |lutions..+....,.|
000003e0 0d 00 2d 1a dd 20 a4 61 72 67 28 73 74 72 24 2c |..-.. .arg(str$,|
000003f0 61 72 67 24 2c 64 65 66 24 29 0d 00 2e 09 ea 20 |arg$,def$)..... |
00000400 69 2c 6a 0d 00 2f 11 69 3d a7 73 74 72 24 2c 61 |i,j../.i=.str$,a|
00000410 72 67 24 29 0d 00 30 11 e7 20 69 3d 30 20 8c 20 |rg$)..0.. i=0 . |
00000420 3d 64 65 66 24 0d 00 31 0e 69 2b 3d a9 61 72 67 |=def$..1.i+=.arg|
00000430 24 2b 31 0d 00 32 17 6a 3d a7 73 74 72 24 2b 22 |$+1..2.j=.str$+"|
00000440 20 3c 22 2c 22 20 22 2c 69 29 0d 00 33 11 3d c1 | <"," ",i)..3.=.|
00000450 73 74 72 24 2c 69 2c 6a 2d 69 29 0d 00 34 04 0d |str$,i,j-i)..4..|
00000460 00 35 17 dd 20 a4 73 77 69 5f 6e 75 6d 62 65 72 |.5.. .swi_number|
00000470 28 73 77 69 24 29 0d 00 36 2c c8 99 20 22 4f 53 |(swi$)..6,.. "OS|
00000480 5f 53 57 49 4e 75 6d 62 65 72 46 72 6f 6d 53 74 |_SWINumberFromSt|
00000490 72 69 6e 67 22 2c 2c 73 77 69 24 20 b8 20 73 77 |ring",,swi$ . sw|
000004a0 69 25 0d 00 37 09 3d 73 77 69 25 0d 00 38 04 0d |i%..7.=swi%..8..|
000004b0 00 39 0b dd 20 a4 63 28 6e 29 0d 00 3a 12 3d c2 |.9.. .c(n)..:.=.|
000004c0 22 20 20 20 20 22 2b c3 6e 2c 34 29 0d ff |" "+.n,4)..|
000004ce 
.