StarInfo/Osted/!Tidbits/TIDBITS

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

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/TIDBITS
Read OK:	✔
File size:	0D82 bytes
Load address:	0000
Exec address:	0000

File contents

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


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

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