StarInfo/Osted/!Tidbits/RunImage

Home » Archimedes archive » Acorn User » AU 1995-07.adf » !Regulars_Regulars » StarInfo/Osted/!Tidbits/RunImage

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-07.adf » !Regulars_Regulars
Filename:	StarInfo/Osted/!Tidbits/RunImage
Read OK:	✔
File size:	0DC4 bytes
Load address:	0000
Exec address:	0000

File contents

   10 REM >  TidBits
   20 REM by Torben Osted
   21 REM    Skovhegnet 5
   22 REM    2680 Solroed Strand
   23 REM    Denmark
   30 :
   40 MODE9:OFF
   50 @%=0:onemore=FALSE
   60 PROCcolourdef
   70 COLOUR 12
   80 PRINTTAB(8,5)"Move the large square to"
   90 PRINTTAB(8,6)"the lower right corner..."
  100 PRINTTAB(35,9)0
  110 PROCramme
  120 *SLOAD <Tidbits$Dir>.SPRITES
  130 PROCbrikker
  140 MOUSE ON:MO=FALSE
  150 :
  160 REPEAT
  170 MOUSE x,y,z
  180 FARVE=POINT(x,y)
  190 IF FARVE>0 AND FARVE<7 AND z=4 THEN
  200 PROCcorners(x,y,FARVE)
  210 PROCretning
  220 PROCmove(Xretn,Yretn,FARVE)
  230 ENDIF
  240 UNTIL FALSE
  250 END
  260 :
  270 DEFPROCramme
  280 GCOL10
  290 RECTANGLE 208,12,868,724
  300 RECTANGLE 204,8,876,732
  310 RECTANGLE 200,4,884,740
  320 ENDPROC
  330 :
  340 DEFPROCcolourdef
  350 COLOUR13,16*0,16*0,16*0
  360 COLOUR12,16*12,16*11,16*10
  370 COLOUR11,16*11,16*8,16*8
  380 COLOUR10,16*14,16*14,16*12
  390 COLOUR9,16*14,16*5,16*2
  400 COLOUR8,16*1,16*1,16*1
  410 COLOUR1,16*10,16*7,16*0
  420 COLOUR2,16*9,16*8,16*0
  430 COLOUR3,16*6,16*6,16*7
  440 COLOUR4,16*7,16*5,16*6
  450 COLOUR5,16*10,16*8,16*7
  460 COLOUR6,16*4,16*6,16*8
  470 COLOUR7,16*11,16*11,16*11
  480 ENDPROC
  490 :
  500 DEFPROCmove(Xretn,Yretn,FARVE)
  510 PROCcheckpoints
  520 IF FARVE=1 THEN *SCHOOSE FIG1
  530 IF FARVE=2 THEN *SCHOOSE FIG2
  540 IF FARVE=3 THEN *SCHOOSE FIG3
  550 IF FARVE=4 THEN *SCHOOSE FIG4
  560 IF FARVE=5 THEN *SCHOOSE FIG5
  570 IF FARVE=6 THEN *SCHOOSE FIG6
  580 IF POINT(P1x+Xretn,P1y+Yretn)=0 AND POINT(P2x+Xretn,P2y+Yretn)=0 THEN
  590 onemore=TRUE
  600 FOR M=1 TO 18
  610 GCOL3,0:WAIT:PLOT &ED,LLx,LLy
  620 LLx=LLx+Xretn:LLy=LLy+Yretn
  630 GCOL1,0:PLOT &ED,LLx,LLy
  640 NEXT M
  650 SOUND1,-15,40,2
  660 IF FARVE=6 AND LLx=788 AND LLy=16 N=N+1:PRINTTAB(35,9)N:SOUND1,-15,200,20:END
  670 ENDIF
  680 IF onemore=TRUE N=N+1:PRINTTAB(35,9)N:onemore=FALSE
  690 ENDPROC
  700 :
  710 DEFPROCbrikker
  720 GCOL1,0
  730 *SCHOOSE FIG6
  740 PLOT &ED,212,448
  750 *SCHOOSE FIG5
  760 PLOT &ED,644,448:PLOT &ED,212,16
  770 *SCHOOSE FIG4
  780 PLOT &ED,356,16:PLOT &ED,788,304
  790 *SCHOOSE FIG3
  800 PLOT &ED,788,16:PLOT &ED,932,16
  810 *SCHOOSE FIG2
  820 PLOT &ED,212,304
  830 *SCHOOSE FIG1
  840 PLOT &ED,644,16:PLOT &ED,644,160:PLOT &ED,644,304
  850 PLOT &ED,788,448:PLOT &ED,932,592:PLOT &ED,500,304
  860 GCOL0,0
  870 ENDPROC
  880 :
  890 DEFPROCcorners(x,y,FARVE)
  900 LLx=212+144*((x-212)DIV144):LLy=16+144*((y-16)DIV144)
  910 IF FARVE=1 THEN
  920 bred=140:hojd=140
  930 ENDIF
  940 IF FARVE=2 THEN
  950 bred=284:hojd=140
  960 IF POINT(LLx,LLy+8)=2 LLx=LLx-144
  970 ENDIF
  980 IF FARVE=3 THEN
  990 bred=140:hojd=284
 1000 IF POINT(LLx+8,LLy)=3 LLy=LLy-144
 1010 ENDIF
 1020 IF FARVE=4 THEN
 1030 bred=284:hojd=284
 1040 IF POINT(LLx+8,LLy)=4 LLy=LLy-144
 1050 IF POINT(LLx,LLy+8)=4 LLx=LLx-144
 1060 ENDIF
 1070 IF FARVE=5 THEN
 1080 bred=284:hojd=284
 1090 IF POINT(LLx,LLy+8)=5 LLx=LLx-144
 1100 IF POINT(LLx+8,LLy)=5 LLy=LLy-144
 1110 ENDIF
 1120 IF FARVE=6 THEN
 1130 bred=284:hojd=284
 1140 IF POINT(LLx,LLy+8)=6 LLx=LLx-144
 1150 IF POINT(LLx+8,LLy)=6 LLy=LLy-144
 1160 ENDIF
 1170 LRx=LLx+bred:LRy=LLy
 1180 ULx=LLx:ULy=LLy+hojd
 1190 URx=LRx:URy=ULy
 1200 ENDPROC
 1210 :
 1220 DEFPROCretning
 1230 Xretn=1000:Yretn=1000
 1240 IF ((x-LLx>y-LLy)AND(LRx-x>y-LRy))OR((LRx-x>URy-y)AND(x-ULx>ULy-y)) THEN
 1250 Xretn=0
 1260 ELSE
 1270 Yretn=0
 1280 ENDIF
 1290 IF Yretn=0 AND x-LLx>LRx-x THEN Xretn=8
 1300 IF Yretn=0 AND x-LLx<=LRx-x THEN Xretn=-8
 1310 IF Xretn=0 AND y-LLy>ULy-y THEN Yretn=8
 1320 IF Xretn=0 AND y-LLy<=ULy-y THEN Yretn=-8
 1330 ENDPROC
 1340 :
 1350 DEFPROCcheckpoints
 1360 IF FARVE=1 OR FARVE=2 OR FARVE=3 OR FARVE=6 THEN
 1370 IF Xretn=8 P1x=LRx:P1y=LRy:P2x=URx:P2y=URy
 1380 IF Xretn=-8 P1x=LLx:P1y=LLy:P2x=ULx:P2y=ULy
 1390 IF Yretn=8 P1x=ULx:P1y=ULy:P2x=URx:P2y=URy
 1400 IF Yretn=-8 P1x=LLx:P1y=LLy:P2x=LRx:P2y=LRy
 1410 ENDIF
 1420 IF FARVE=4 THEN
 1430 IF Xretn=8 P1x=LRx:P1y=LRy:P2x=URx:P2y=URy
 1440 IF Xretn=-8 P1x=LLx:P1y=LLy:P2x=ULx+144:P2y=ULy
 1450 IF Yretn=8 P1x=ULx:P1y=ULy-144:P2x=URx:P2y=URy
 1460 IF Yretn=-8 P1x=LLx:P1y=LLy:P2x=LRx:P2y=LRy
 1470 ENDIF
 1480 IF FARVE=5 THEN
 1490 IF Xretn=8 P1x=LRx-144:P1y=LRy:P2x=URx:P2y=URy
 1500 IF Xretn=-8 P1x=LLx:P1y=LLy:P2x=ULx:P2y=ULy
 1510 IF Yretn=8 P1x=ULx:P1y=ULy:P2x=URx:P2y=URy
 1520 IF Yretn=-8 P1x=LLx:P1y=LLy:P2x=LRx:P2y=LRy+144
 1530 ENDIF
 1540 ENDPROC
 1550 :


 � >  TidBits
 � by Torben Osted
 �    Skovhegnet 5
 �    2680 Solroed Strand
 �    Denmark
 :
(	 �9:�
2 @%=0:onemore=�
< �colourdef
F	 � 12
P% �8,5)"Move the large square to"
Z& �8,6)"the lower right corner..."
d
 �35,9)0
n �ramme
x! *SLOAD <Tidbits$Dir>.SPRITES
�
 �brikker
� ȗ �:MO=�
� :
� �
�
 ȗ x,y,z
� FARVE=�x,y)
�  � FARVE>0 � FARVE<7 � z=4 �
� �corners(x,y,FARVE)
�
 �retning
� �move(Xretn,Yretn,FARVE)
� �
� � �
� �
 :
 ��ramme
 �10
" ȓ 208,12,868,724
, ȓ 204,8,876,732
6 ȓ 200,4,884,740
@ �
J :
T ��colourdef
^ �13,16*0,16*0,16*0
h �12,16*12,16*11,16*10
r �11,16*11,16*8,16*8
| �10,16*14,16*14,16*12
� �9,16*14,16*5,16*2
� �8,16*1,16*1,16*1
� �1,16*10,16*7,16*0
� �2,16*9,16*8,16*0
� �3,16*6,16*6,16*7
� �4,16*7,16*5,16*6
� �5,16*10,16*8,16*7
� �6,16*4,16*6,16*8
� �7,16*11,16*11,16*11
� �
� :
� ��move(Xretn,Yretn,FARVE)
� �checkpoints
 � FARVE=1 � *SCHOOSE FIG1
 � FARVE=2 � *SCHOOSE FIG2
 � FARVE=3 � *SCHOOSE FIG3
& � FARVE=4 � *SCHOOSE FIG4
0 � FARVE=5 � *SCHOOSE FIG5
: � FARVE=6 � *SCHOOSE FIG6
D: � �P1x+Xretn,P1y+Yretn)=0 � �P2x+Xretn,P2y+Yretn)=0 �
N onemore=�
X � M=1 � 18
b �3,0:Ȗ:� &ED,LLx,LLy
l  LLx=LLx+Xretn:LLy=LLy+Yretn
v �1,0:� &ED,LLx,LLy
� � M
� �1,-15,40,2
�@ � FARVE=6 � LLx=788 � LLy=16 N=N+1:�35,9)N:�1,-15,200,20:�
� �
�) � onemore=� N=N+1:�35,9)N:onemore=�
� �
� :
� ��brikker
�	 �1,0
� *SCHOOSE FIG6
� � &ED,212,448
� *SCHOOSE FIG5
� � &ED,644,448:� &ED,212,16
 *SCHOOSE FIG4
 � &ED,356,16:� &ED,788,304
 *SCHOOSE FIG3
  � &ED,788,16:� &ED,932,16
* *SCHOOSE FIG2
4 � &ED,212,304
> *SCHOOSE FIG1
H- � &ED,644,16:� &ED,644,160:� &ED,644,304
R. � &ED,788,448:� &ED,932,592:� &ED,500,304
\	 �0,0
f �
p :
z ��corners(x,y,FARVE)
�6 LLx=212+144*((x-212)�144):LLy=16+144*((y-16)�144)
� � FARVE=1 �
� bred=140:hojd=140
� �
� � FARVE=2 �
� bred=284:hojd=140
�  � �LLx,LLy+8)=2 LLx=LLx-144
� �
� � FARVE=3 �
� bred=140:hojd=284
�  � �LLx+8,LLy)=3 LLy=LLy-144
� �
� � FARVE=4 �
 bred=284:hojd=284
  � �LLx+8,LLy)=4 LLy=LLy-144
  � �LLx,LLy+8)=4 LLx=LLx-144
$ �
. � FARVE=5 �
8 bred=284:hojd=284
B  � �LLx,LLy+8)=5 LLx=LLx-144
L  � �LLx+8,LLy)=5 LLy=LLy-144
V �
` � FARVE=6 �
j bred=284:hojd=284
t  � �LLx,LLy+8)=6 LLx=LLx-144
~  � �LLx+8,LLy)=6 LLy=LLy-144
� �
� LRx=LLx+bred:LRy=LLy
� ULx=LLx:ULy=LLy+hojd
� URx=LRx:URy=ULy
� �
� :
� ��retning
� Xretn=1000:Yretn=1000
�D � ((x-LLx>y-LLy)�(LRx-x>y-LRy))�((LRx-x>URy-y)�(x-ULx>ULy-y)) �
� Xretn=0
� �
� Yretn=0
 �

& � Yretn=0 � x-LLx>LRx-x � Xretn=8
( � Yretn=0 � x-LLx<=LRx-x � Xretn=-8
& � Xretn=0 � y-LLy>ULy-y � Yretn=8
(( � Xretn=0 � y-LLy<=ULy-y � Yretn=-8
2 �
< :
F ��checkpoints
P. � FARVE=1 � FARVE=2 � FARVE=3 � FARVE=6 �
Z. � Xretn=8 P1x=LRx:P1y=LRy:P2x=URx:P2y=URy
d/ � Xretn=-8 P1x=LLx:P1y=LLy:P2x=ULx:P2y=ULy
n. � Yretn=8 P1x=ULx:P1y=ULy:P2x=URx:P2y=URy
x/ � Yretn=-8 P1x=LLx:P1y=LLy:P2x=LRx:P2y=LRy
� �
� � FARVE=4 �
�. � Xretn=8 P1x=LRx:P1y=LRy:P2x=URx:P2y=URy
�3 � Xretn=-8 P1x=LLx:P1y=LLy:P2x=ULx+144:P2y=ULy
�2 � Yretn=8 P1x=ULx:P1y=ULy-144:P2x=URx:P2y=URy
�/ � Yretn=-8 P1x=LLx:P1y=LLy:P2x=LRx:P2y=LRy
� �
� � FARVE=5 �
�2 � Xretn=8 P1x=LRx-144:P1y=LRy:P2x=URx:P2y=URy
�/ � Xretn=-8 P1x=LLx:P1y=LLy:P2x=ULx:P2y=ULy
�. � Yretn=8 P1x=ULx:P1y=ULy:P2x=URx:P2y=URy
�3 � Yretn=-8 P1x=LLx:P1y=LLy:P2x=LRx:P2y=LRy+144
� �
 �
 :
�

00000000  0d 00 0a 11 20 f4 20 3e  20 20 54 69 64 42 69 74  |.... . >  TidBit|
00000010  73 0d 00 14 16 20 f4 20  62 79 20 54 6f 72 62 65  |s.... . by Torbe|
00000020  6e 20 4f 73 74 65 64 0d  00 15 16 20 f4 20 20 20  |n Osted.... .   |
00000030  20 53 6b 6f 76 68 65 67  6e 65 74 20 35 0d 00 16  | Skovhegnet 5...|
00000040  1d 20 f4 20 20 20 20 32  36 38 30 20 53 6f 6c 72  |. .    2680 Solr|
00000050  6f 65 64 20 53 74 72 61  6e 64 0d 00 17 11 20 f4  |oed Strand.... .|
00000060  20 20 20 20 44 65 6e 6d  61 72 6b 0d 00 1e 06 20  |    Denmark.... |
00000070  3a 0d 00 28 09 20 eb 39  3a 87 0d 00 32 13 20 40  |:..(. .9:...2. @|
00000080  25 3d 30 3a 6f 6e 65 6d  6f 72 65 3d a3 0d 00 3c  |%=0:onemore=...<|
00000090  0f 20 f2 63 6f 6c 6f 75  72 64 65 66 0d 00 46 09  |. .colourdef..F.|
000000a0  20 fb 20 31 32 0d 00 50  25 20 f1 8a 38 2c 35 29  | . 12..P% ..8,5)|
000000b0  22 4d 6f 76 65 20 74 68  65 20 6c 61 72 67 65 20  |"Move the large |
000000c0  73 71 75 61 72 65 20 74  6f 22 0d 00 5a 26 20 f1  |square to"..Z& .|
000000d0  8a 38 2c 36 29 22 74 68  65 20 6c 6f 77 65 72 20  |.8,6)"the lower |
000000e0  72 69 67 68 74 20 63 6f  72 6e 65 72 2e 2e 2e 22  |right corner..."|
000000f0  0d 00 64 0d 20 f1 8a 33  35 2c 39 29 30 0d 00 6e  |..d. ..35,9)0..n|
00000100  0b 20 f2 72 61 6d 6d 65  0d 00 78 21 20 2a 53 4c  |. .ramme..x! *SL|
00000110  4f 41 44 20 3c 54 69 64  62 69 74 73 24 44 69 72  |OAD <Tidbits$Dir|
00000120  3e 2e 53 50 52 49 54 45  53 0d 00 82 0d 20 f2 62  |>.SPRITES.... .b|
00000130  72 69 6b 6b 65 72 0d 00  8c 0e 20 c8 97 20 ee 3a  |rikker.... .. .:|
00000140  4d 4f 3d a3 0d 00 96 06  20 3a 0d 00 a0 06 20 f5  |MO=..... :.... .|
00000150  0d 00 aa 0d 20 c8 97 20  78 2c 79 2c 7a 0d 00 b4  |.... .. x,y,z...|
00000160  10 20 46 41 52 56 45 3d  b0 78 2c 79 29 0d 00 be  |. FARVE=.x,y)...|
00000170  20 20 e7 20 46 41 52 56  45 3e 30 20 80 20 46 41  |  . FARVE>0 . FA|
00000180  52 56 45 3c 37 20 80 20  7a 3d 34 20 8c 0d 00 c8  |RVE<7 . z=4 ....|
00000190  18 20 f2 63 6f 72 6e 65  72 73 28 78 2c 79 2c 46  |. .corners(x,y,F|
000001a0  41 52 56 45 29 0d 00 d2  0d 20 f2 72 65 74 6e 69  |ARVE).... .retni|
000001b0  6e 67 0d 00 dc 1d 20 f2  6d 6f 76 65 28 58 72 65  |ng.... .move(Xre|
000001c0  74 6e 2c 59 72 65 74 6e  2c 46 41 52 56 45 29 0d  |tn,Yretn,FARVE).|
000001d0  00 e6 06 20 cd 0d 00 f0  08 20 fd 20 a3 0d 00 fa  |... ..... . ....|
000001e0  06 20 e0 0d 01 04 06 20  3a 0d 01 0e 0c 20 dd f2  |. ..... :.... ..|
000001f0  72 61 6d 6d 65 0d 01 18  08 20 e6 31 30 0d 01 22  |ramme.... .10.."|
00000200  16 20 c8 93 20 32 30 38  2c 31 32 2c 38 36 38 2c  |. .. 208,12,868,|
00000210  37 32 34 0d 01 2c 15 20  c8 93 20 32 30 34 2c 38  |724..,. .. 204,8|
00000220  2c 38 37 36 2c 37 33 32  0d 01 36 15 20 c8 93 20  |,876,732..6. .. |
00000230  32 30 30 2c 34 2c 38 38  34 2c 37 34 30 0d 01 40  |200,4,884,740..@|
00000240  06 20 e1 0d 01 4a 06 20  3a 0d 01 54 10 20 dd f2  |. ...J. :..T. ..|
00000250  63 6f 6c 6f 75 72 64 65  66 0d 01 5e 17 20 fb 31  |colourdef..^. .1|
00000260  33 2c 31 36 2a 30 2c 31  36 2a 30 2c 31 36 2a 30  |3,16*0,16*0,16*0|
00000270  0d 01 68 1a 20 fb 31 32  2c 31 36 2a 31 32 2c 31  |..h. .12,16*12,1|
00000280  36 2a 31 31 2c 31 36 2a  31 30 0d 01 72 18 20 fb  |6*11,16*10..r. .|
00000290  31 31 2c 31 36 2a 31 31  2c 31 36 2a 38 2c 31 36  |11,16*11,16*8,16|
000002a0  2a 38 0d 01 7c 1a 20 fb  31 30 2c 31 36 2a 31 34  |*8..|. .10,16*14|
000002b0  2c 31 36 2a 31 34 2c 31  36 2a 31 32 0d 01 86 17  |,16*14,16*12....|
000002c0  20 fb 39 2c 31 36 2a 31  34 2c 31 36 2a 35 2c 31  | .9,16*14,16*5,1|
000002d0  36 2a 32 0d 01 90 16 20  fb 38 2c 31 36 2a 31 2c  |6*2.... .8,16*1,|
000002e0  31 36 2a 31 2c 31 36 2a  31 0d 01 9a 17 20 fb 31  |16*1,16*1.... .1|
000002f0  2c 31 36 2a 31 30 2c 31  36 2a 37 2c 31 36 2a 30  |,16*10,16*7,16*0|
00000300  0d 01 a4 16 20 fb 32 2c  31 36 2a 39 2c 31 36 2a  |.... .2,16*9,16*|
00000310  38 2c 31 36 2a 30 0d 01  ae 16 20 fb 33 2c 31 36  |8,16*0.... .3,16|
00000320  2a 36 2c 31 36 2a 36 2c  31 36 2a 37 0d 01 b8 16  |*6,16*6,16*7....|
00000330  20 fb 34 2c 31 36 2a 37  2c 31 36 2a 35 2c 31 36  | .4,16*7,16*5,16|
00000340  2a 36 0d 01 c2 17 20 fb  35 2c 31 36 2a 31 30 2c  |*6.... .5,16*10,|
00000350  31 36 2a 38 2c 31 36 2a  37 0d 01 cc 16 20 fb 36  |16*8,16*7.... .6|
00000360  2c 31 36 2a 34 2c 31 36  2a 36 2c 31 36 2a 38 0d  |,16*4,16*6,16*8.|
00000370  01 d6 19 20 fb 37 2c 31  36 2a 31 31 2c 31 36 2a  |... .7,16*11,16*|
00000380  31 31 2c 31 36 2a 31 31  0d 01 e0 06 20 e1 0d 01  |11,16*11.... ...|
00000390  ea 06 20 3a 0d 01 f4 1e  20 dd f2 6d 6f 76 65 28  |.. :.... ..move(|
000003a0  58 72 65 74 6e 2c 59 72  65 74 6e 2c 46 41 52 56  |Xretn,Yretn,FARV|
000003b0  45 29 0d 01 fe 11 20 f2  63 68 65 63 6b 70 6f 69  |E).... .checkpoi|
000003c0  6e 74 73 0d 02 08 1e 20  e7 20 46 41 52 56 45 3d  |nts.... . FARVE=|
000003d0  31 20 8c 20 2a 53 43 48  4f 4f 53 45 20 46 49 47  |1 . *SCHOOSE FIG|
000003e0  31 0d 02 12 1e 20 e7 20  46 41 52 56 45 3d 32 20  |1.... . FARVE=2 |
000003f0  8c 20 2a 53 43 48 4f 4f  53 45 20 46 49 47 32 0d  |. *SCHOOSE FIG2.|
00000400  02 1c 1e 20 e7 20 46 41  52 56 45 3d 33 20 8c 20  |... . FARVE=3 . |
00000410  2a 53 43 48 4f 4f 53 45  20 46 49 47 33 0d 02 26  |*SCHOOSE FIG3..&|
00000420  1e 20 e7 20 46 41 52 56  45 3d 34 20 8c 20 2a 53  |. . FARVE=4 . *S|
00000430  43 48 4f 4f 53 45 20 46  49 47 34 0d 02 30 1e 20  |CHOOSE FIG4..0. |
00000440  e7 20 46 41 52 56 45 3d  35 20 8c 20 2a 53 43 48  |. FARVE=5 . *SCH|
00000450  4f 4f 53 45 20 46 49 47  35 0d 02 3a 1e 20 e7 20  |OOSE FIG5..:. . |
00000460  46 41 52 56 45 3d 36 20  8c 20 2a 53 43 48 4f 4f  |FARVE=6 . *SCHOO|
00000470  53 45 20 46 49 47 36 0d  02 44 3a 20 e7 20 b0 50  |SE FIG6..D: . .P|
00000480  31 78 2b 58 72 65 74 6e  2c 50 31 79 2b 59 72 65  |1x+Xretn,P1y+Yre|
00000490  74 6e 29 3d 30 20 80 20  b0 50 32 78 2b 58 72 65  |tn)=0 . .P2x+Xre|
000004a0  74 6e 2c 50 32 79 2b 59  72 65 74 6e 29 3d 30 20  |tn,P2y+Yretn)=0 |
000004b0  8c 0d 02 4e 0e 20 6f 6e  65 6d 6f 72 65 3d b9 0d  |...N. onemore=..|
000004c0  02 58 0f 20 e3 20 4d 3d  31 20 b8 20 31 38 0d 02  |.X. . M=1 . 18..|
000004d0  62 1a 20 e6 33 2c 30 3a  c8 96 3a f0 20 26 45 44  |b. .3,0:..:. &ED|
000004e0  2c 4c 4c 78 2c 4c 4c 79  0d 02 6c 20 20 4c 4c 78  |,LLx,LLy..l  LLx|
000004f0  3d 4c 4c 78 2b 58 72 65  74 6e 3a 4c 4c 79 3d 4c  |=LLx+Xretn:LLy=L|
00000500  4c 79 2b 59 72 65 74 6e  0d 02 76 17 20 e6 31 2c  |Ly+Yretn..v. .1,|
00000510  30 3a f0 20 26 45 44 2c  4c 4c 78 2c 4c 4c 79 0d  |0:. &ED,LLx,LLy.|
00000520  02 80 08 20 ed 20 4d 0d  02 8a 10 20 d4 31 2c 2d  |... . M.... .1,-|
00000530  31 35 2c 34 30 2c 32 0d  02 94 40 20 e7 20 46 41  |15,40,2...@ . FA|
00000540  52 56 45 3d 36 20 80 20  4c 4c 78 3d 37 38 38 20  |RVE=6 . LLx=788 |
00000550  80 20 4c 4c 79 3d 31 36  20 4e 3d 4e 2b 31 3a f1  |. LLy=16 N=N+1:.|
00000560  8a 33 35 2c 39 29 4e 3a  d4 31 2c 2d 31 35 2c 32  |.35,9)N:.1,-15,2|
00000570  30 30 2c 32 30 3a e0 0d  02 9e 06 20 cd 0d 02 a8  |00,20:..... ....|
00000580  29 20 e7 20 6f 6e 65 6d  6f 72 65 3d b9 20 4e 3d  |) . onemore=. N=|
00000590  4e 2b 31 3a f1 8a 33 35  2c 39 29 4e 3a 6f 6e 65  |N+1:..35,9)N:one|
000005a0  6d 6f 72 65 3d a3 0d 02  b2 06 20 e1 0d 02 bc 06  |more=..... .....|
000005b0  20 3a 0d 02 c6 0e 20 dd  f2 62 72 69 6b 6b 65 72  | :.... ..brikker|
000005c0  0d 02 d0 09 20 e6 31 2c  30 0d 02 da 12 20 2a 53  |.... .1,0.... *S|
000005d0  43 48 4f 4f 53 45 20 46  49 47 36 0d 02 e4 12 20  |CHOOSE FIG6.... |
000005e0  f0 20 26 45 44 2c 32 31  32 2c 34 34 38 0d 02 ee  |. &ED,212,448...|
000005f0  12 20 2a 53 43 48 4f 4f  53 45 20 46 49 47 35 0d  |. *SCHOOSE FIG5.|
00000600  02 f8 1f 20 f0 20 26 45  44 2c 36 34 34 2c 34 34  |... . &ED,644,44|
00000610  38 3a f0 20 26 45 44 2c  32 31 32 2c 31 36 0d 03  |8:. &ED,212,16..|
00000620  02 12 20 2a 53 43 48 4f  4f 53 45 20 46 49 47 34  |.. *SCHOOSE FIG4|
00000630  0d 03 0c 1f 20 f0 20 26  45 44 2c 33 35 36 2c 31  |.... . &ED,356,1|
00000640  36 3a f0 20 26 45 44 2c  37 38 38 2c 33 30 34 0d  |6:. &ED,788,304.|
00000650  03 16 12 20 2a 53 43 48  4f 4f 53 45 20 46 49 47  |... *SCHOOSE FIG|
00000660  33 0d 03 20 1e 20 f0 20  26 45 44 2c 37 38 38 2c  |3.. . . &ED,788,|
00000670  31 36 3a f0 20 26 45 44  2c 39 33 32 2c 31 36 0d  |16:. &ED,932,16.|
00000680  03 2a 12 20 2a 53 43 48  4f 4f 53 45 20 46 49 47  |.*. *SCHOOSE FIG|
00000690  32 0d 03 34 12 20 f0 20  26 45 44 2c 32 31 32 2c  |2..4. . &ED,212,|
000006a0  33 30 34 0d 03 3e 12 20  2a 53 43 48 4f 4f 53 45  |304..>. *SCHOOSE|
000006b0  20 46 49 47 31 0d 03 48  2d 20 f0 20 26 45 44 2c  | FIG1..H- . &ED,|
000006c0  36 34 34 2c 31 36 3a f0  20 26 45 44 2c 36 34 34  |644,16:. &ED,644|
000006d0  2c 31 36 30 3a f0 20 26  45 44 2c 36 34 34 2c 33  |,160:. &ED,644,3|
000006e0  30 34 0d 03 52 2e 20 f0  20 26 45 44 2c 37 38 38  |04..R. . &ED,788|
000006f0  2c 34 34 38 3a f0 20 26  45 44 2c 39 33 32 2c 35  |,448:. &ED,932,5|
00000700  39 32 3a f0 20 26 45 44  2c 35 30 30 2c 33 30 34  |92:. &ED,500,304|
00000710  0d 03 5c 09 20 e6 30 2c  30 0d 03 66 06 20 e1 0d  |..\. .0,0..f. ..|
00000720  03 70 06 20 3a 0d 03 7a  19 20 dd f2 63 6f 72 6e  |.p. :..z. ..corn|
00000730  65 72 73 28 78 2c 79 2c  46 41 52 56 45 29 0d 03  |ers(x,y,FARVE)..|
00000740  84 36 20 4c 4c 78 3d 32  31 32 2b 31 34 34 2a 28  |.6 LLx=212+144*(|
00000750  28 78 2d 32 31 32 29 81  31 34 34 29 3a 4c 4c 79  |(x-212).144):LLy|
00000760  3d 31 36 2b 31 34 34 2a  28 28 79 2d 31 36 29 81  |=16+144*((y-16).|
00000770  31 34 34 29 0d 03 8e 10  20 e7 20 46 41 52 56 45  |144).... . FARVE|
00000780  3d 31 20 8c 0d 03 98 16  20 62 72 65 64 3d 31 34  |=1 ..... bred=14|
00000790  30 3a 68 6f 6a 64 3d 31  34 30 0d 03 a2 06 20 cd  |0:hojd=140.... .|
000007a0  0d 03 ac 10 20 e7 20 46  41 52 56 45 3d 32 20 8c  |.... . FARVE=2 .|
000007b0  0d 03 b6 16 20 62 72 65  64 3d 32 38 34 3a 68 6f  |.... bred=284:ho|
000007c0  6a 64 3d 31 34 30 0d 03  c0 20 20 e7 20 b0 4c 4c  |jd=140...  . .LL|
000007d0  78 2c 4c 4c 79 2b 38 29  3d 32 20 4c 4c 78 3d 4c  |x,LLy+8)=2 LLx=L|
000007e0  4c 78 2d 31 34 34 0d 03  ca 06 20 cd 0d 03 d4 10  |Lx-144.... .....|
000007f0  20 e7 20 46 41 52 56 45  3d 33 20 8c 0d 03 de 16  | . FARVE=3 .....|
00000800  20 62 72 65 64 3d 31 34  30 3a 68 6f 6a 64 3d 32  | bred=140:hojd=2|
00000810  38 34 0d 03 e8 20 20 e7  20 b0 4c 4c 78 2b 38 2c  |84...  . .LLx+8,|
00000820  4c 4c 79 29 3d 33 20 4c  4c 79 3d 4c 4c 79 2d 31  |LLy)=3 LLy=LLy-1|
00000830  34 34 0d 03 f2 06 20 cd  0d 03 fc 10 20 e7 20 46  |44.... ..... . F|
00000840  41 52 56 45 3d 34 20 8c  0d 04 06 16 20 62 72 65  |ARVE=4 ..... bre|
00000850  64 3d 32 38 34 3a 68 6f  6a 64 3d 32 38 34 0d 04  |d=284:hojd=284..|
00000860  10 20 20 e7 20 b0 4c 4c  78 2b 38 2c 4c 4c 79 29  |.  . .LLx+8,LLy)|
00000870  3d 34 20 4c 4c 79 3d 4c  4c 79 2d 31 34 34 0d 04  |=4 LLy=LLy-144..|
00000880  1a 20 20 e7 20 b0 4c 4c  78 2c 4c 4c 79 2b 38 29  |.  . .LLx,LLy+8)|
00000890  3d 34 20 4c 4c 78 3d 4c  4c 78 2d 31 34 34 0d 04  |=4 LLx=LLx-144..|
000008a0  24 06 20 cd 0d 04 2e 10  20 e7 20 46 41 52 56 45  |$. ..... . FARVE|
000008b0  3d 35 20 8c 0d 04 38 16  20 62 72 65 64 3d 32 38  |=5 ...8. bred=28|
000008c0  34 3a 68 6f 6a 64 3d 32  38 34 0d 04 42 20 20 e7  |4:hojd=284..B  .|
000008d0  20 b0 4c 4c 78 2c 4c 4c  79 2b 38 29 3d 35 20 4c  | .LLx,LLy+8)=5 L|
000008e0  4c 78 3d 4c 4c 78 2d 31  34 34 0d 04 4c 20 20 e7  |Lx=LLx-144..L  .|
000008f0  20 b0 4c 4c 78 2b 38 2c  4c 4c 79 29 3d 35 20 4c  | .LLx+8,LLy)=5 L|
00000900  4c 79 3d 4c 4c 79 2d 31  34 34 0d 04 56 06 20 cd  |Ly=LLy-144..V. .|
00000910  0d 04 60 10 20 e7 20 46  41 52 56 45 3d 36 20 8c  |..`. . FARVE=6 .|
00000920  0d 04 6a 16 20 62 72 65  64 3d 32 38 34 3a 68 6f  |..j. bred=284:ho|
00000930  6a 64 3d 32 38 34 0d 04  74 20 20 e7 20 b0 4c 4c  |jd=284..t  . .LL|
00000940  78 2c 4c 4c 79 2b 38 29  3d 36 20 4c 4c 78 3d 4c  |x,LLy+8)=6 LLx=L|
00000950  4c 78 2d 31 34 34 0d 04  7e 20 20 e7 20 b0 4c 4c  |Lx-144..~  . .LL|
00000960  78 2b 38 2c 4c 4c 79 29  3d 36 20 4c 4c 79 3d 4c  |x+8,LLy)=6 LLy=L|
00000970  4c 79 2d 31 34 34 0d 04  88 06 20 cd 0d 04 92 19  |Ly-144.... .....|
00000980  20 4c 52 78 3d 4c 4c 78  2b 62 72 65 64 3a 4c 52  | LRx=LLx+bred:LR|
00000990  79 3d 4c 4c 79 0d 04 9c  19 20 55 4c 78 3d 4c 4c  |y=LLy.... ULx=LL|
000009a0  78 3a 55 4c 79 3d 4c 4c  79 2b 68 6f 6a 64 0d 04  |x:ULy=LLy+hojd..|
000009b0  a6 14 20 55 52 78 3d 4c  52 78 3a 55 52 79 3d 55  |.. URx=LRx:URy=U|
000009c0  4c 79 0d 04 b0 06 20 e1  0d 04 ba 06 20 3a 0d 04  |Ly.... ..... :..|
000009d0  c4 0e 20 dd f2 72 65 74  6e 69 6e 67 0d 04 ce 1a  |.. ..retning....|
000009e0  20 58 72 65 74 6e 3d 31  30 30 30 3a 59 72 65 74  | Xretn=1000:Yret|
000009f0  6e 3d 31 30 30 30 0d 04  d8 44 20 e7 20 28 28 78  |n=1000...D . ((x|
00000a00  2d 4c 4c 78 3e 79 2d 4c  4c 79 29 80 28 4c 52 78  |-LLx>y-LLy).(LRx|
00000a10  2d 78 3e 79 2d 4c 52 79  29 29 84 28 28 4c 52 78  |-x>y-LRy)).((LRx|
00000a20  2d 78 3e 55 52 79 2d 79  29 80 28 78 2d 55 4c 78  |-x>URy-y).(x-ULx|
00000a30  3e 55 4c 79 2d 79 29 29  20 8c 0d 04 e2 0c 20 58  |>ULy-y)) ..... X|
00000a40  72 65 74 6e 3d 30 0d 04  ec 06 20 cc 0d 04 f6 0c  |retn=0.... .....|
00000a50  20 59 72 65 74 6e 3d 30  0d 05 00 06 20 cd 0d 05  | Yretn=0.... ...|
00000a60  0a 26 20 e7 20 59 72 65  74 6e 3d 30 20 80 20 78  |.& . Yretn=0 . x|
00000a70  2d 4c 4c 78 3e 4c 52 78  2d 78 20 8c 20 58 72 65  |-LLx>LRx-x . Xre|
00000a80  74 6e 3d 38 0d 05 14 28  20 e7 20 59 72 65 74 6e  |tn=8...( . Yretn|
00000a90  3d 30 20 80 20 78 2d 4c  4c 78 3c 3d 4c 52 78 2d  |=0 . x-LLx<=LRx-|
00000aa0  78 20 8c 20 58 72 65 74  6e 3d 2d 38 0d 05 1e 26  |x . Xretn=-8...&|
00000ab0  20 e7 20 58 72 65 74 6e  3d 30 20 80 20 79 2d 4c  | . Xretn=0 . y-L|
00000ac0  4c 79 3e 55 4c 79 2d 79  20 8c 20 59 72 65 74 6e  |Ly>ULy-y . Yretn|
00000ad0  3d 38 0d 05 28 28 20 e7  20 58 72 65 74 6e 3d 30  |=8..(( . Xretn=0|
00000ae0  20 80 20 79 2d 4c 4c 79  3c 3d 55 4c 79 2d 79 20  | . y-LLy<=ULy-y |
00000af0  8c 20 59 72 65 74 6e 3d  2d 38 0d 05 32 06 20 e1  |. Yretn=-8..2. .|
00000b00  0d 05 3c 06 20 3a 0d 05  46 12 20 dd f2 63 68 65  |..<. :..F. ..che|
00000b10  63 6b 70 6f 69 6e 74 73  0d 05 50 2e 20 e7 20 46  |ckpoints..P. . F|
00000b20  41 52 56 45 3d 31 20 84  20 46 41 52 56 45 3d 32  |ARVE=1 . FARVE=2|
00000b30  20 84 20 46 41 52 56 45  3d 33 20 84 20 46 41 52  | . FARVE=3 . FAR|
00000b40  56 45 3d 36 20 8c 0d 05  5a 2e 20 e7 20 58 72 65  |VE=6 ...Z. . Xre|
00000b50  74 6e 3d 38 20 50 31 78  3d 4c 52 78 3a 50 31 79  |tn=8 P1x=LRx:P1y|
00000b60  3d 4c 52 79 3a 50 32 78  3d 55 52 78 3a 50 32 79  |=LRy:P2x=URx:P2y|
00000b70  3d 55 52 79 0d 05 64 2f  20 e7 20 58 72 65 74 6e  |=URy..d/ . Xretn|
00000b80  3d 2d 38 20 50 31 78 3d  4c 4c 78 3a 50 31 79 3d  |=-8 P1x=LLx:P1y=|
00000b90  4c 4c 79 3a 50 32 78 3d  55 4c 78 3a 50 32 79 3d  |LLy:P2x=ULx:P2y=|
00000ba0  55 4c 79 0d 05 6e 2e 20  e7 20 59 72 65 74 6e 3d  |ULy..n. . Yretn=|
00000bb0  38 20 50 31 78 3d 55 4c  78 3a 50 31 79 3d 55 4c  |8 P1x=ULx:P1y=UL|
00000bc0  79 3a 50 32 78 3d 55 52  78 3a 50 32 79 3d 55 52  |y:P2x=URx:P2y=UR|
00000bd0  79 0d 05 78 2f 20 e7 20  59 72 65 74 6e 3d 2d 38  |y..x/ . Yretn=-8|
00000be0  20 50 31 78 3d 4c 4c 78  3a 50 31 79 3d 4c 4c 79  | P1x=LLx:P1y=LLy|
00000bf0  3a 50 32 78 3d 4c 52 78  3a 50 32 79 3d 4c 52 79  |:P2x=LRx:P2y=LRy|
00000c00  0d 05 82 06 20 cd 0d 05  8c 10 20 e7 20 46 41 52  |.... ..... . FAR|
00000c10  56 45 3d 34 20 8c 0d 05  96 2e 20 e7 20 58 72 65  |VE=4 ..... . Xre|
00000c20  74 6e 3d 38 20 50 31 78  3d 4c 52 78 3a 50 31 79  |tn=8 P1x=LRx:P1y|
00000c30  3d 4c 52 79 3a 50 32 78  3d 55 52 78 3a 50 32 79  |=LRy:P2x=URx:P2y|
00000c40  3d 55 52 79 0d 05 a0 33  20 e7 20 58 72 65 74 6e  |=URy...3 . Xretn|
00000c50  3d 2d 38 20 50 31 78 3d  4c 4c 78 3a 50 31 79 3d  |=-8 P1x=LLx:P1y=|
00000c60  4c 4c 79 3a 50 32 78 3d  55 4c 78 2b 31 34 34 3a  |LLy:P2x=ULx+144:|
00000c70  50 32 79 3d 55 4c 79 0d  05 aa 32 20 e7 20 59 72  |P2y=ULy...2 . Yr|
00000c80  65 74 6e 3d 38 20 50 31  78 3d 55 4c 78 3a 50 31  |etn=8 P1x=ULx:P1|
00000c90  79 3d 55 4c 79 2d 31 34  34 3a 50 32 78 3d 55 52  |y=ULy-144:P2x=UR|
00000ca0  78 3a 50 32 79 3d 55 52  79 0d 05 b4 2f 20 e7 20  |x:P2y=URy.../ . |
00000cb0  59 72 65 74 6e 3d 2d 38  20 50 31 78 3d 4c 4c 78  |Yretn=-8 P1x=LLx|
00000cc0  3a 50 31 79 3d 4c 4c 79  3a 50 32 78 3d 4c 52 78  |:P1y=LLy:P2x=LRx|
00000cd0  3a 50 32 79 3d 4c 52 79  0d 05 be 06 20 cd 0d 05  |:P2y=LRy.... ...|
00000ce0  c8 10 20 e7 20 46 41 52  56 45 3d 35 20 8c 0d 05  |.. . FARVE=5 ...|
00000cf0  d2 32 20 e7 20 58 72 65  74 6e 3d 38 20 50 31 78  |.2 . Xretn=8 P1x|
00000d00  3d 4c 52 78 2d 31 34 34  3a 50 31 79 3d 4c 52 79  |=LRx-144:P1y=LRy|
00000d10  3a 50 32 78 3d 55 52 78  3a 50 32 79 3d 55 52 79  |:P2x=URx:P2y=URy|
00000d20  0d 05 dc 2f 20 e7 20 58  72 65 74 6e 3d 2d 38 20  |.../ . Xretn=-8 |
00000d30  50 31 78 3d 4c 4c 78 3a  50 31 79 3d 4c 4c 79 3a  |P1x=LLx:P1y=LLy:|
00000d40  50 32 78 3d 55 4c 78 3a  50 32 79 3d 55 4c 79 0d  |P2x=ULx:P2y=ULy.|
00000d50  05 e6 2e 20 e7 20 59 72  65 74 6e 3d 38 20 50 31  |... . Yretn=8 P1|
00000d60  78 3d 55 4c 78 3a 50 31  79 3d 55 4c 79 3a 50 32  |x=ULx:P1y=ULy:P2|
00000d70  78 3d 55 52 78 3a 50 32  79 3d 55 52 79 0d 05 f0  |x=URx:P2y=URy...|
00000d80  33 20 e7 20 59 72 65 74  6e 3d 2d 38 20 50 31 78  |3 . Yretn=-8 P1x|
00000d90  3d 4c 4c 78 3a 50 31 79  3d 4c 4c 79 3a 50 32 78  |=LLx:P1y=LLy:P2x|
00000da0  3d 4c 52 78 3a 50 32 79  3d 4c 52 79 2b 31 34 34  |=LRx:P2y=LRy+144|
00000db0  0d 05 fa 06 20 cd 0d 06  04 06 20 e1 0d 06 0e 06  |.... ..... .....|
00000dc0  20 3a 0d ff                                       | :..|
00000dc4

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