Home » Archimedes archive » Acorn User » AU 1995-10.adf » !Regulars » Regulars/StarInfo/Norman/CorkScrew

Regulars/StarInfo/Norman/CorkScrew

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 » !Regulars
Filename: Regulars/StarInfo/Norman/CorkScrew
Read OK: ✔
File size: 0848 bytes
Load address: 0000
Exec address: 0000
File contents
    1xres%=800    :    yres%=600
    2xmax%=xres%*2:    ymax%=yres%*2
    3PROCselect_mode
    4ON ERROR MODE 0:REPORT:PRINT ERL:STOP
    5
    6
    7DIM pal 256*4*2
    8pal1=pal
    9pal2=pal+256*4
   10FOR c=0 TO 255:COLOUR c,c,c,c
   11 pal1!(c*4)=(c<<24) OR (c<<16) OR (c<<8)
   12 pal2!(c*4)=pal1!(c*4)
   13NEXT
   14
   15PROCbackground
   16
   17DIM silly(1800,2)
   18r=300
   19FOR x=1 TO 1800
   20 addbit=(SIN RAD(x/2.5-180)+1)*0.1
   21 silly(x,1)=COS RAD(x/5)+addbit*COS RAD(x/5)
   22 silly(x,2)=SIN RAD(x/5)+addbit*SIN RAD(x/5)
   23 silly(x,0)=(SIN RAD(x/5)+1)/2
   24NEXT
   25
   26coldir%=1
   27xpos=-50
   28ypos=-300
   29tilt=1
   30tmove=1
   31xmove=1
   32ymove=1
   33x1o=0:x2o=0:y2o=0:y1o=0:cnum=180
   34REPEAT
   35 r-=.0015
   36 PROCplotit
   37UNTIL xpos>xmax%+r OR ypos>ymax%+r
   38
   39
   40
   41
   42G$=GET$
   43
   44rf=(RND(1)*2+1)
   45gf=(RND(1)*2+1)
   46bf=(RND(1)*2+1)
   47SYS "OS_SWINumberFromString",,"ColourTrans_WritePalette" TO wp
   48i=0
   49REPEAT
   50 WAIT:WAIT
   51 SYS wp,-1,,pal+(i MOD 256)*4
   52 r=127+127*COS RAD(rf*i)
   53 g=127+127*COS RAD(gf*i)
   54 b=127+127*COS RAD(bf*i)
   55 w=(b<<24) OR (g<<16) OR (r<<8)
   56 j=4*(i MOD 256)
   57 pal1!j=w
   58 pal2!j=w
   59 i+=1
   60UNTIL 0
   61
   62
   63
   64DEF PROCselect_mode
   65DIM mode% 32
   66!mode%=1
   67mode%!4=xres%
   68mode%!8=yres%
   69mode%!12=3
   70mode%!16=-1
   71mode%!20=3
   72mode%!24=255
   73mode%!28=-1
   74MODE mode%
   75OFF
   76SYS "OS_ReadModeVariable",-1,11 TO ,,XWindLimit
   77SYS "OS_ReadModeVariable",-1,12 TO ,,YWindLimit
   78SYS "OS_ReadModeVariable",-1,4  TO ,,XEigFactor
   79SYS "OS_ReadModeVariable",-1,5  TO ,,YEigFactor
   80width=(XWindLimit+1)<<XEigFactor
   81height=(YWindLimit+1)<<YEigFactor
   82ENDPROC
   83
   84DEF PROCplotit
   85 x1=xpos+silly(tilt,1)*r
   86 y1=ypos+silly(tilt,2)*r
   87 x2=xpos
   88 y2=ypos
   89 cnum+=1
   90 IF cnum=1801 cnum=1
   91 SYS "OS_SetColour",0,256*silly(cnum,0)
   92 LINE x1+1,y1,x2+1,y2
   93 LINE x1,y1,x2,y2
   94 LINE x1+1,y1+1,x2+1,y2+1
   95 LINE x1,y1+1,x2,y2+1
   96 xpos+=xmove/10
   97 ypos+=ymove/10
   98 IF xmove*ymove=1 THEN tmove=1
   99 IF xmove*ymove=-1 THEN tmove=-1
  100 tilt+=tmove
  101 IF tilt=1801 THEN tilt=1
  102 IF tilt=0 THEN tilt=1800
  103ENDPROC
  104
  105DEF PROCbackground
  106ORIGIN xres%,yres%
  107FOR a=0 TO 180 STEP 0.04
  108 SYS "OS_SetColour",0,a*256/180
  109 x=SIN RAD(a)*1000
  110 y=COS RAD(a)*1000
  111 LINE 0,0,x,-y
  112 LINE 0,0,-x,-y
  113 LINE 0,0,x+1,-y
  114 LINE 0,0,-x-1,-y
  115NEXT
  116ORIGIN 0,0
  117ENDPROC

xres%=800    :    yres%=600
#xmax%=xres%*2:    ymax%=yres%*2
�select_mode
� � � 0:�:� �:�


� pal 256*4*2
pal1=pal
	pal2=pal+256*4

� c=0 � 255:� c,c,c,c
* pal1!(c*4)=(c<<24) � (c<<16) � (c<<8)
 pal2!(c*4)=pal1!(c*4)

�

�background

� silly(1800,2)
	r=300
� x=1 � 1800
" addbit=(� �(x/2.5-180)+1)*0.1
( silly(x,1)=� �(x/5)+addbit*� �(x/5)
( silly(x,2)=� �(x/5)+addbit*� �(x/5)
 silly(x,0)=(� �(x/5)+1)/2
�


coldir%=1
xpos=-50

ypos=-300

tilt=1
tmove=1
xmove=1
 ymove=1
!$x1o=0:x2o=0:y2o=0:y1o=0:cnum=180
"�
#
 r-=.0015
$ �plotit
%!� xpos>xmax%+r � ypos>ymax%+r
&
'
(
)
*G$=�
+
,rf=(�(1)*2+1)
-gf=(�(1)*2+1)
.bf=(�(1)*2+1)
/@ș "OS_SWINumberFromString",,"ColourTrans_WritePalette" � wp
0i=0
1�
2
 Ȗ:Ȗ
3 ș wp,-1,,pal+(i � 256)*4
4 r=127+127*� �(rf*i)
5 g=127+127*� �(gf*i)
6 b=127+127*� �(bf*i)
7! w=(b<<24) � (g<<16) � (r<<8)
8 j=4*(i � 256)
9
 pal1!j=w
:
 pal2!j=w
;	 i+=1
<� 0
=
>
?
@� �select_mode
A� mode% 32
B!mode%=1
Cmode%!4=xres%
Dmode%!8=yres%
Emode%!12=3
Fmode%!16=-1
Gmode%!20=3
Hmode%!24=255
Imode%!28=-1
J� mode%
K�
L1ș "OS_ReadModeVariable",-1,11 � ,,XWindLimit
M1ș "OS_ReadModeVariable",-1,12 � ,,YWindLimit
N1ș "OS_ReadModeVariable",-1,4  � ,,XEigFactor
O1ș "OS_ReadModeVariable",-1,5  � ,,YEigFactor
P$width=(XWindLimit+1)<<XEigFactor
Q%height=(YWindLimit+1)<<YEigFactor
R�
S
T
� �plotit
U x1=xpos+silly(tilt,1)*r
V y1=ypos+silly(tilt,2)*r
W x2=xpos
X y2=ypos
Y cnum+=1
Z � cnum=1801 cnum=1
[* ș "OS_SetColour",0,256*silly(cnum,0)
\ � x1+1,y1,x2+1,y2
] � x1,y1,x2,y2
^ � x1+1,y1+1,x2+1,y2+1
_ � x1,y1+1,x2,y2+1
` xpos+=xmove/10
a ypos+=ymove/10
b � xmove*ymove=1 � tmove=1
c  � xmove*ymove=-1 � tmove=-1
d tilt+=tmove
e � tilt=1801 � tilt=1
f � tilt=0 � tilt=1800
g�
h
i� �background
jȑ xres%,yres%
k� a=0 � 180 � 0.04
l" ș "OS_SetColour",0,a*256/180
m x=� �(a)*1000
n y=� �(a)*1000
o � 0,0,x,-y
p � 0,0,-x,-y
q � 0,0,x+1,-y
r � 0,0,-x-1,-y
s�
t
ȑ 0,0
u�
�
00000000  0d 00 01 1f 78 72 65 73  25 3d 38 30 30 20 20 20  |....xres%=800   |
00000010  20 3a 20 20 20 20 79 72  65 73 25 3d 36 30 30 0d  | :    yres%=600.|
00000020  00 02 23 78 6d 61 78 25  3d 78 72 65 73 25 2a 32  |..#xmax%=xres%*2|
00000030  3a 20 20 20 20 79 6d 61  78 25 3d 79 72 65 73 25  |:    ymax%=yres%|
00000040  2a 32 0d 00 03 10 f2 73  65 6c 65 63 74 5f 6d 6f  |*2.....select_mo|
00000050  64 65 0d 00 04 13 ee 20  85 20 eb 20 30 3a f6 3a  |de..... . . 0:.:|
00000060  f1 20 9e 3a fa 0d 00 05  04 0d 00 06 04 0d 00 07  |. .:............|
00000070  11 de 20 70 61 6c 20 32  35 36 2a 34 2a 32 0d 00  |.. pal 256*4*2..|
00000080  08 0c 70 61 6c 31 3d 70  61 6c 0d 00 09 12 70 61  |..pal1=pal....pa|
00000090  6c 32 3d 70 61 6c 2b 32  35 36 2a 34 0d 00 0a 19  |l2=pal+256*4....|
000000a0  e3 20 63 3d 30 20 b8 20  32 35 35 3a fb 20 63 2c  |. c=0 . 255:. c,|
000000b0  63 2c 63 2c 63 0d 00 0b  2a 20 70 61 6c 31 21 28  |c,c,c...* pal1!(|
000000c0  63 2a 34 29 3d 28 63 3c  3c 32 34 29 20 84 20 28  |c*4)=(c<<24) . (|
000000d0  63 3c 3c 31 36 29 20 84  20 28 63 3c 3c 38 29 0d  |c<<16) . (c<<8).|
000000e0  00 0c 1a 20 70 61 6c 32  21 28 63 2a 34 29 3d 70  |... pal2!(c*4)=p|
000000f0  61 6c 31 21 28 63 2a 34  29 0d 00 0d 05 ed 0d 00  |al1!(c*4).......|
00000100  0e 04 0d 00 0f 0f f2 62  61 63 6b 67 72 6f 75 6e  |.......backgroun|
00000110  64 0d 00 10 04 0d 00 11  13 de 20 73 69 6c 6c 79  |d......... silly|
00000120  28 31 38 30 30 2c 32 29  0d 00 12 09 72 3d 33 30  |(1800,2)....r=30|
00000130  30 0d 00 13 10 e3 20 78  3d 31 20 b8 20 31 38 30  |0..... x=1 . 180|
00000140  30 0d 00 14 22 20 61 64  64 62 69 74 3d 28 b5 20  |0..." addbit=(. |
00000150  b2 28 78 2f 32 2e 35 2d  31 38 30 29 2b 31 29 2a  |.(x/2.5-180)+1)*|
00000160  30 2e 31 0d 00 15 28 20  73 69 6c 6c 79 28 78 2c  |0.1...( silly(x,|
00000170  31 29 3d 9b 20 b2 28 78  2f 35 29 2b 61 64 64 62  |1)=. .(x/5)+addb|
00000180  69 74 2a 9b 20 b2 28 78  2f 35 29 0d 00 16 28 20  |it*. .(x/5)...( |
00000190  73 69 6c 6c 79 28 78 2c  32 29 3d b5 20 b2 28 78  |silly(x,2)=. .(x|
000001a0  2f 35 29 2b 61 64 64 62  69 74 2a b5 20 b2 28 78  |/5)+addbit*. .(x|
000001b0  2f 35 29 0d 00 17 1e 20  73 69 6c 6c 79 28 78 2c  |/5).... silly(x,|
000001c0  30 29 3d 28 b5 20 b2 28  78 2f 35 29 2b 31 29 2f  |0)=(. .(x/5)+1)/|
000001d0  32 0d 00 18 05 ed 0d 00  19 04 0d 00 1a 0d 63 6f  |2.............co|
000001e0  6c 64 69 72 25 3d 31 0d  00 1b 0c 78 70 6f 73 3d  |ldir%=1....xpos=|
000001f0  2d 35 30 0d 00 1c 0d 79  70 6f 73 3d 2d 33 30 30  |-50....ypos=-300|
00000200  0d 00 1d 0a 74 69 6c 74  3d 31 0d 00 1e 0b 74 6d  |....tilt=1....tm|
00000210  6f 76 65 3d 31 0d 00 1f  0b 78 6d 6f 76 65 3d 31  |ove=1....xmove=1|
00000220  0d 00 20 0b 79 6d 6f 76  65 3d 31 0d 00 21 24 78  |.. .ymove=1..!$x|
00000230  31 6f 3d 30 3a 78 32 6f  3d 30 3a 79 32 6f 3d 30  |1o=0:x2o=0:y2o=0|
00000240  3a 79 31 6f 3d 30 3a 63  6e 75 6d 3d 31 38 30 0d  |:y1o=0:cnum=180.|
00000250  00 22 05 f5 0d 00 23 0d  20 72 2d 3d 2e 30 30 31  |."....#. r-=.001|
00000260  35 0d 00 24 0c 20 f2 70  6c 6f 74 69 74 0d 00 25  |5..$. .plotit..%|
00000270  21 fd 20 78 70 6f 73 3e  78 6d 61 78 25 2b 72 20  |!. xpos>xmax%+r |
00000280  84 20 79 70 6f 73 3e 79  6d 61 78 25 2b 72 0d 00  |. ypos>ymax%+r..|
00000290  26 04 0d 00 27 04 0d 00  28 04 0d 00 29 04 0d 00  |&...'...(...)...|
000002a0  2a 08 47 24 3d be 0d 00  2b 04 0d 00 2c 11 72 66  |*.G$=...+...,.rf|
000002b0  3d 28 b3 28 31 29 2a 32  2b 31 29 0d 00 2d 11 67  |=(.(1)*2+1)..-.g|
000002c0  66 3d 28 b3 28 31 29 2a  32 2b 31 29 0d 00 2e 11  |f=(.(1)*2+1)....|
000002d0  62 66 3d 28 b3 28 31 29  2a 32 2b 31 29 0d 00 2f  |bf=(.(1)*2+1)../|
000002e0  40 c8 99 20 22 4f 53 5f  53 57 49 4e 75 6d 62 65  |@.. "OS_SWINumbe|
000002f0  72 46 72 6f 6d 53 74 72  69 6e 67 22 2c 2c 22 43  |rFromString",,"C|
00000300  6f 6c 6f 75 72 54 72 61  6e 73 5f 57 72 69 74 65  |olourTrans_Write|
00000310  50 61 6c 65 74 74 65 22  20 b8 20 77 70 0d 00 30  |Palette" . wp..0|
00000320  07 69 3d 30 0d 00 31 05  f5 0d 00 32 0a 20 c8 96  |.i=0..1....2. ..|
00000330  3a c8 96 0d 00 33 1e 20  c8 99 20 77 70 2c 2d 31  |:....3. .. wp,-1|
00000340  2c 2c 70 61 6c 2b 28 69  20 83 20 32 35 36 29 2a  |,,pal+(i . 256)*|
00000350  34 0d 00 34 18 20 72 3d  31 32 37 2b 31 32 37 2a  |4..4. r=127+127*|
00000360  9b 20 b2 28 72 66 2a 69  29 0d 00 35 18 20 67 3d  |. .(rf*i)..5. g=|
00000370  31 32 37 2b 31 32 37 2a  9b 20 b2 28 67 66 2a 69  |127+127*. .(gf*i|
00000380  29 0d 00 36 18 20 62 3d  31 32 37 2b 31 32 37 2a  |)..6. b=127+127*|
00000390  9b 20 b2 28 62 66 2a 69  29 0d 00 37 21 20 77 3d  |. .(bf*i)..7! w=|
000003a0  28 62 3c 3c 32 34 29 20  84 20 28 67 3c 3c 31 36  |(b<<24) . (g<<16|
000003b0  29 20 84 20 28 72 3c 3c  38 29 0d 00 38 12 20 6a  |) . (r<<8)..8. j|
000003c0  3d 34 2a 28 69 20 83 20  32 35 36 29 0d 00 39 0d  |=4*(i . 256)..9.|
000003d0  20 70 61 6c 31 21 6a 3d  77 0d 00 3a 0d 20 70 61  | pal1!j=w..:. pa|
000003e0  6c 32 21 6a 3d 77 0d 00  3b 09 20 69 2b 3d 31 0d  |l2!j=w..;. i+=1.|
000003f0  00 3c 07 fd 20 30 0d 00  3d 04 0d 00 3e 04 0d 00  |.<.. 0..=...>...|
00000400  3f 04 0d 00 40 12 dd 20  f2 73 65 6c 65 63 74 5f  |?...@.. .select_|
00000410  6d 6f 64 65 0d 00 41 0e  de 20 6d 6f 64 65 25 20  |mode..A.. mode% |
00000420  33 32 0d 00 42 0c 21 6d  6f 64 65 25 3d 31 0d 00  |32..B.!mode%=1..|
00000430  43 11 6d 6f 64 65 25 21  34 3d 78 72 65 73 25 0d  |C.mode%!4=xres%.|
00000440  00 44 11 6d 6f 64 65 25  21 38 3d 79 72 65 73 25  |.D.mode%!8=yres%|
00000450  0d 00 45 0e 6d 6f 64 65  25 21 31 32 3d 33 0d 00  |..E.mode%!12=3..|
00000460  46 0f 6d 6f 64 65 25 21  31 36 3d 2d 31 0d 00 47  |F.mode%!16=-1..G|
00000470  0e 6d 6f 64 65 25 21 32  30 3d 33 0d 00 48 10 6d  |.mode%!20=3..H.m|
00000480  6f 64 65 25 21 32 34 3d  32 35 35 0d 00 49 0f 6d  |ode%!24=255..I.m|
00000490  6f 64 65 25 21 32 38 3d  2d 31 0d 00 4a 0b eb 20  |ode%!28=-1..J.. |
000004a0  6d 6f 64 65 25 0d 00 4b  05 87 0d 00 4c 31 c8 99  |mode%..K....L1..|
000004b0  20 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  | "OS_ReadModeVar|
000004c0  69 61 62 6c 65 22 2c 2d  31 2c 31 31 20 b8 20 2c  |iable",-1,11 . ,|
000004d0  2c 58 57 69 6e 64 4c 69  6d 69 74 0d 00 4d 31 c8  |,XWindLimit..M1.|
000004e0  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
000004f0  72 69 61 62 6c 65 22 2c  2d 31 2c 31 32 20 b8 20  |riable",-1,12 . |
00000500  2c 2c 59 57 69 6e 64 4c  69 6d 69 74 0d 00 4e 31  |,,YWindLimit..N1|
00000510  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.. "OS_ReadModeV|
00000520  61 72 69 61 62 6c 65 22  2c 2d 31 2c 34 20 20 b8  |ariable",-1,4  .|
00000530  20 2c 2c 58 45 69 67 46  61 63 74 6f 72 0d 00 4f  | ,,XEigFactor..O|
00000540  31 c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |1.. "OS_ReadMode|
00000550  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 35 20 20  |Variable",-1,5  |
00000560  b8 20 2c 2c 59 45 69 67  46 61 63 74 6f 72 0d 00  |. ,,YEigFactor..|
00000570  50 24 77 69 64 74 68 3d  28 58 57 69 6e 64 4c 69  |P$width=(XWindLi|
00000580  6d 69 74 2b 31 29 3c 3c  58 45 69 67 46 61 63 74  |mit+1)<<XEigFact|
00000590  6f 72 0d 00 51 25 68 65  69 67 68 74 3d 28 59 57  |or..Q%height=(YW|
000005a0  69 6e 64 4c 69 6d 69 74  2b 31 29 3c 3c 59 45 69  |indLimit+1)<<YEi|
000005b0  67 46 61 63 74 6f 72 0d  00 52 05 e1 0d 00 53 04  |gFactor..R....S.|
000005c0  0d 00 54 0d dd 20 f2 70  6c 6f 74 69 74 0d 00 55  |..T.. .plotit..U|
000005d0  1c 20 78 31 3d 78 70 6f  73 2b 73 69 6c 6c 79 28  |. x1=xpos+silly(|
000005e0  74 69 6c 74 2c 31 29 2a  72 0d 00 56 1c 20 79 31  |tilt,1)*r..V. y1|
000005f0  3d 79 70 6f 73 2b 73 69  6c 6c 79 28 74 69 6c 74  |=ypos+silly(tilt|
00000600  2c 32 29 2a 72 0d 00 57  0c 20 78 32 3d 78 70 6f  |,2)*r..W. x2=xpo|
00000610  73 0d 00 58 0c 20 79 32  3d 79 70 6f 73 0d 00 59  |s..X. y2=ypos..Y|
00000620  0c 20 63 6e 75 6d 2b 3d  31 0d 00 5a 17 20 e7 20  |. cnum+=1..Z. . |
00000630  63 6e 75 6d 3d 31 38 30  31 20 63 6e 75 6d 3d 31  |cnum=1801 cnum=1|
00000640  0d 00 5b 2a 20 c8 99 20  22 4f 53 5f 53 65 74 43  |..[* .. "OS_SetC|
00000650  6f 6c 6f 75 72 22 2c 30  2c 32 35 36 2a 73 69 6c  |olour",0,256*sil|
00000660  6c 79 28 63 6e 75 6d 2c  30 29 0d 00 5c 16 20 86  |ly(cnum,0)..\. .|
00000670  20 78 31 2b 31 2c 79 31  2c 78 32 2b 31 2c 79 32  | x1+1,y1,x2+1,y2|
00000680  0d 00 5d 12 20 86 20 78  31 2c 79 31 2c 78 32 2c  |..]. . x1,y1,x2,|
00000690  79 32 0d 00 5e 1a 20 86  20 78 31 2b 31 2c 79 31  |y2..^. . x1+1,y1|
000006a0  2b 31 2c 78 32 2b 31 2c  79 32 2b 31 0d 00 5f 16  |+1,x2+1,y2+1.._.|
000006b0  20 86 20 78 31 2c 79 31  2b 31 2c 78 32 2c 79 32  | . x1,y1+1,x2,y2|
000006c0  2b 31 0d 00 60 13 20 78  70 6f 73 2b 3d 78 6d 6f  |+1..`. xpos+=xmo|
000006d0  76 65 2f 31 30 0d 00 61  13 20 79 70 6f 73 2b 3d  |ve/10..a. ypos+=|
000006e0  79 6d 6f 76 65 2f 31 30  0d 00 62 1e 20 e7 20 78  |ymove/10..b. . x|
000006f0  6d 6f 76 65 2a 79 6d 6f  76 65 3d 31 20 8c 20 74  |move*ymove=1 . t|
00000700  6d 6f 76 65 3d 31 0d 00  63 20 20 e7 20 78 6d 6f  |move=1..c  . xmo|
00000710  76 65 2a 79 6d 6f 76 65  3d 2d 31 20 8c 20 74 6d  |ve*ymove=-1 . tm|
00000720  6f 76 65 3d 2d 31 0d 00  64 10 20 74 69 6c 74 2b  |ove=-1..d. tilt+|
00000730  3d 74 6d 6f 76 65 0d 00  65 19 20 e7 20 74 69 6c  |=tmove..e. . til|
00000740  74 3d 31 38 30 31 20 8c  20 74 69 6c 74 3d 31 0d  |t=1801 . tilt=1.|
00000750  00 66 19 20 e7 20 74 69  6c 74 3d 30 20 8c 20 74  |.f. . tilt=0 . t|
00000760  69 6c 74 3d 31 38 30 30  0d 00 67 05 e1 0d 00 68  |ilt=1800..g....h|
00000770  04 0d 00 69 11 dd 20 f2  62 61 63 6b 67 72 6f 75  |...i.. .backgrou|
00000780  6e 64 0d 00 6a 12 c8 91  20 78 72 65 73 25 2c 79  |nd..j... xres%,y|
00000790  72 65 73 25 0d 00 6b 16  e3 20 61 3d 30 20 b8 20  |res%..k.. a=0 . |
000007a0  31 38 30 20 88 20 30 2e  30 34 0d 00 6c 22 20 c8  |180 . 0.04..l" .|
000007b0  99 20 22 4f 53 5f 53 65  74 43 6f 6c 6f 75 72 22  |. "OS_SetColour"|
000007c0  2c 30 2c 61 2a 32 35 36  2f 31 38 30 0d 00 6d 12  |,0,a*256/180..m.|
000007d0  20 78 3d b5 20 b2 28 61  29 2a 31 30 30 30 0d 00  | x=. .(a)*1000..|
000007e0  6e 12 20 79 3d 9b 20 b2  28 61 29 2a 31 30 30 30  |n. y=. .(a)*1000|
000007f0  0d 00 6f 0f 20 86 20 30  2c 30 2c 78 2c 2d 79 0d  |..o. . 0,0,x,-y.|
00000800  00 70 10 20 86 20 30 2c  30 2c 2d 78 2c 2d 79 0d  |.p. . 0,0,-x,-y.|
00000810  00 71 11 20 86 20 30 2c  30 2c 78 2b 31 2c 2d 79  |.q. . 0,0,x+1,-y|
00000820  0d 00 72 12 20 86 20 30  2c 30 2c 2d 78 2d 31 2c  |..r. . 0,0,-x-1,|
00000830  2d 79 0d 00 73 05 ed 0d  00 74 0a c8 91 20 30 2c  |-y..s....t... 0,|
00000840  30 0d 00 75 05 e1 0d ff                           |0..u....|
00000848

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .