Home » Archimedes archive » Acorn User » AU 1995-07.adf » !Regulars_Regulars » StarInfo/Osted/Answers/!Tidbits2/RunImage
StarInfo/Osted/Answers/!Tidbits2/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/Answers/!Tidbits2/RunImage |
| Read OK: | ✔ |
| File size: | 0DDA bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM > TidBits2
20 REM by Torben Osted
21 REM Skovhegnet 5
22 REM 2680 Solroed Strand
23 REM Denmark
30 :
40 MODE9:OFF
50 F%=OPENIN("<Tidbits2$Dir>.MOVES")
60 @%=0:onemore=FALSE
70 PROCcolourdef
80 COLOUR 12
90 PRINTTAB(8,5)"Move the large square to"
100 PRINTTAB(8,6)"the lower right corner..."
110 PRINTTAB(35,9)0
120 PROCramme
130 *SLOAD <Tidbits2$Dir>.SPRITES
140 PROCbrikker
150 MO=FALSE
160 :
170 REPEAT
180 INPUT# F%,x,y,z
190 FARVE=POINT(x,y)
200 IF FARVE>0 AND FARVE<7 AND z=4 THEN
210 PROCcorners(x,y,FARVE)
220 PROCretning
230 PROCmove(Xretn,Yretn,FARVE)
240 ENDIF
250 UNTIL FALSE
260 END
270 :
280 DEFPROCramme
290 GCOL10
300 RECTANGLE 208,12,868,724
310 RECTANGLE 204,8,876,732
320 RECTANGLE 200,4,884,740
330 ENDPROC
340 :
350 DEFPROCcolourdef
360 COLOUR13,16*0,16*0,16*0
370 COLOUR12,16*12,16*11,16*10
380 COLOUR11,16*11,16*8,16*8
390 COLOUR10,16*14,16*14,16*12
400 COLOUR9,16*14,16*5,16*2
410 COLOUR8,16*1,16*1,16*1
420 COLOUR1,16*10,16*7,16*0
430 COLOUR2,16*9,16*8,16*0
440 COLOUR3,16*6,16*6,16*7
450 COLOUR4,16*7,16*5,16*6
460 COLOUR5,16*10,16*8,16*7
470 COLOUR6,16*4,16*6,16*8
480 COLOUR7,16*11,16*11,16*11
490 ENDPROC
500 :
510 DEFPROCmove(Xretn,Yretn,FARVE)
520 PROCcheckpoints
530 IF FARVE=1 THEN *SCHOOSE FIG1
540 IF FARVE=2 THEN *SCHOOSE FIG2
550 IF FARVE=3 THEN *SCHOOSE FIG3
560 IF FARVE=4 THEN *SCHOOSE FIG4
570 IF FARVE=5 THEN *SCHOOSE FIG5
580 IF FARVE=6 THEN *SCHOOSE FIG6
590 IF POINT(P1x+Xretn,P1y+Yretn)=0 AND POINT(P2x+Xretn,P2y+Yretn)=0 THEN
600 onemore=TRUE
610 FOR M=1 TO 18
620 GCOL3,0:WAIT:PLOT &ED,LLx,LLy
630 LLx=LLx+Xretn:LLy=LLy+Yretn
640 GCOL1,0:PLOT &ED,LLx,LLy
650 NEXT M
660 IF FARVE=6 AND LLx=788 AND LLy=16 N=N+1:PRINTTAB(35,9)N:SOUND1,-15,200,20:CLOSE#F%: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 :
� > TidBits2
� by Torben Osted
� Skovhegnet 5
� 2680 Solroed Strand
� Denmark
:
( �9:�
2! F%=�("<Tidbits2$Dir>.MOVES")
< @%=0:onemore=�
F �colourdef
P � 12
Z% �8,5)"Move the large square to"
d& �8,6)"the lower right corner..."
n
�35,9)0
x �ramme
�" *SLOAD <Tidbits2$Dir>.SPRITES
�
�brikker
� MO=�
� :
� �
� �# F%,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
6 ȓ 204,8,876,732
@ ȓ 200,4,884,740
J �
T :
^ ��colourdef
h �13,16*0,16*0,16*0
r �12,16*12,16*11,16*10
| �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
0 � FARVE=4 � *SCHOOSE FIG4
: � FARVE=5 � *SCHOOSE FIG5
D � FARVE=6 � *SCHOOSE FIG6
N: � �P1x+Xretn,P1y+Yretn)=0 � �P2x+Xretn,P2y+Yretn)=0 �
X onemore=�
b � M=1 � 18
l �3,0:Ȗ:� &ED,LLx,LLy
v LLx=LLx+Xretn:LLy=LLy+Yretn
� �1,0:� &ED,LLx,LLy
� � M
�E � FARVE=6 � LLx=788 � LLy=16 N=N+1:�35,9)N:�1,-15,200,20:�#F%:�
� �
�) � 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 12 20 f4 20 3e 20 20 54 69 64 42 69 74 |.... . > TidBit|
00000010 73 32 0d 00 14 16 20 f4 20 62 79 20 54 6f 72 62 |s2.... . by Torb|
00000020 65 6e 20 4f 73 74 65 64 0d 00 15 16 20 f4 20 20 |en Osted.... . |
00000030 20 20 53 6b 6f 76 68 65 67 6e 65 74 20 35 0d 00 | Skovhegnet 5..|
00000040 16 1d 20 f4 20 20 20 20 32 36 38 30 20 53 6f 6c |.. . 2680 Sol|
00000050 72 6f 65 64 20 53 74 72 61 6e 64 0d 00 17 11 20 |roed Strand.... |
00000060 f4 20 20 20 20 44 65 6e 6d 61 72 6b 0d 00 1e 06 |. Denmark....|
00000070 20 3a 0d 00 28 09 20 eb 39 3a 87 0d 00 32 21 20 | :..(. .9:...2! |
00000080 46 25 3d 8e 28 22 3c 54 69 64 62 69 74 73 32 24 |F%=.("<Tidbits2$|
00000090 44 69 72 3e 2e 4d 4f 56 45 53 22 29 0d 00 3c 13 |Dir>.MOVES")..<.|
000000a0 20 40 25 3d 30 3a 6f 6e 65 6d 6f 72 65 3d a3 0d | @%=0:onemore=..|
000000b0 00 46 0f 20 f2 63 6f 6c 6f 75 72 64 65 66 0d 00 |.F. .colourdef..|
000000c0 50 09 20 fb 20 31 32 0d 00 5a 25 20 f1 8a 38 2c |P. . 12..Z% ..8,|
000000d0 35 29 22 4d 6f 76 65 20 74 68 65 20 6c 61 72 67 |5)"Move the larg|
000000e0 65 20 73 71 75 61 72 65 20 74 6f 22 0d 00 64 26 |e square to"..d&|
000000f0 20 f1 8a 38 2c 36 29 22 74 68 65 20 6c 6f 77 65 | ..8,6)"the lowe|
00000100 72 20 72 69 67 68 74 20 63 6f 72 6e 65 72 2e 2e |r right corner..|
00000110 2e 22 0d 00 6e 0d 20 f1 8a 33 35 2c 39 29 30 0d |."..n. ..35,9)0.|
00000120 00 78 0b 20 f2 72 61 6d 6d 65 0d 00 82 22 20 2a |.x. .ramme..." *|
00000130 53 4c 4f 41 44 20 3c 54 69 64 62 69 74 73 32 24 |SLOAD <Tidbits2$|
00000140 44 69 72 3e 2e 53 50 52 49 54 45 53 0d 00 8c 0d |Dir>.SPRITES....|
00000150 20 f2 62 72 69 6b 6b 65 72 0d 00 96 09 20 4d 4f | .brikker.... MO|
00000160 3d a3 0d 00 a0 06 20 3a 0d 00 aa 06 20 f5 0d 00 |=..... :.... ...|
00000170 b4 10 20 e8 23 20 46 25 2c 78 2c 79 2c 7a 0d 00 |.. .# F%,x,y,z..|
00000180 be 10 20 46 41 52 56 45 3d b0 78 2c 79 29 0d 00 |.. FARVE=.x,y)..|
00000190 c8 20 20 e7 20 46 41 52 56 45 3e 30 20 80 20 46 |. . FARVE>0 . F|
000001a0 41 52 56 45 3c 37 20 80 20 7a 3d 34 20 8c 0d 00 |ARVE<7 . z=4 ...|
000001b0 d2 18 20 f2 63 6f 72 6e 65 72 73 28 78 2c 79 2c |.. .corners(x,y,|
000001c0 46 41 52 56 45 29 0d 00 dc 0d 20 f2 72 65 74 6e |FARVE).... .retn|
000001d0 69 6e 67 0d 00 e6 1d 20 f2 6d 6f 76 65 28 58 72 |ing.... .move(Xr|
000001e0 65 74 6e 2c 59 72 65 74 6e 2c 46 41 52 56 45 29 |etn,Yretn,FARVE)|
000001f0 0d 00 f0 06 20 cd 0d 00 fa 08 20 fd 20 a3 0d 01 |.... ..... . ...|
00000200 04 06 20 e0 0d 01 0e 06 20 3a 0d 01 18 0c 20 dd |.. ..... :.... .|
00000210 f2 72 61 6d 6d 65 0d 01 22 08 20 e6 31 30 0d 01 |.ramme..". .10..|
00000220 2c 16 20 c8 93 20 32 30 38 2c 31 32 2c 38 36 38 |,. .. 208,12,868|
00000230 2c 37 32 34 0d 01 36 15 20 c8 93 20 32 30 34 2c |,724..6. .. 204,|
00000240 38 2c 38 37 36 2c 37 33 32 0d 01 40 15 20 c8 93 |8,876,732..@. ..|
00000250 20 32 30 30 2c 34 2c 38 38 34 2c 37 34 30 0d 01 | 200,4,884,740..|
00000260 4a 06 20 e1 0d 01 54 06 20 3a 0d 01 5e 10 20 dd |J. ...T. :..^. .|
00000270 f2 63 6f 6c 6f 75 72 64 65 66 0d 01 68 17 20 fb |.colourdef..h. .|
00000280 31 33 2c 31 36 2a 30 2c 31 36 2a 30 2c 31 36 2a |13,16*0,16*0,16*|
00000290 30 0d 01 72 1a 20 fb 31 32 2c 31 36 2a 31 32 2c |0..r. .12,16*12,|
000002a0 31 36 2a 31 31 2c 31 36 2a 31 30 0d 01 7c 18 20 |16*11,16*10..|. |
000002b0 fb 31 31 2c 31 36 2a 31 31 2c 31 36 2a 38 2c 31 |.11,16*11,16*8,1|
000002c0 36 2a 38 0d 01 86 1a 20 fb 31 30 2c 31 36 2a 31 |6*8.... .10,16*1|
000002d0 34 2c 31 36 2a 31 34 2c 31 36 2a 31 32 0d 01 90 |4,16*14,16*12...|
000002e0 17 20 fb 39 2c 31 36 2a 31 34 2c 31 36 2a 35 2c |. .9,16*14,16*5,|
000002f0 31 36 2a 32 0d 01 9a 16 20 fb 38 2c 31 36 2a 31 |16*2.... .8,16*1|
00000300 2c 31 36 2a 31 2c 31 36 2a 31 0d 01 a4 17 20 fb |,16*1,16*1.... .|
00000310 31 2c 31 36 2a 31 30 2c 31 36 2a 37 2c 31 36 2a |1,16*10,16*7,16*|
00000320 30 0d 01 ae 16 20 fb 32 2c 31 36 2a 39 2c 31 36 |0.... .2,16*9,16|
00000330 2a 38 2c 31 36 2a 30 0d 01 b8 16 20 fb 33 2c 31 |*8,16*0.... .3,1|
00000340 36 2a 36 2c 31 36 2a 36 2c 31 36 2a 37 0d 01 c2 |6*6,16*6,16*7...|
00000350 16 20 fb 34 2c 31 36 2a 37 2c 31 36 2a 35 2c 31 |. .4,16*7,16*5,1|
00000360 36 2a 36 0d 01 cc 17 20 fb 35 2c 31 36 2a 31 30 |6*6.... .5,16*10|
00000370 2c 31 36 2a 38 2c 31 36 2a 37 0d 01 d6 16 20 fb |,16*8,16*7.... .|
00000380 36 2c 31 36 2a 34 2c 31 36 2a 36 2c 31 36 2a 38 |6,16*4,16*6,16*8|
00000390 0d 01 e0 19 20 fb 37 2c 31 36 2a 31 31 2c 31 36 |.... .7,16*11,16|
000003a0 2a 31 31 2c 31 36 2a 31 31 0d 01 ea 06 20 e1 0d |*11,16*11.... ..|
000003b0 01 f4 06 20 3a 0d 01 fe 1e 20 dd f2 6d 6f 76 65 |... :.... ..move|
000003c0 28 58 72 65 74 6e 2c 59 72 65 74 6e 2c 46 41 52 |(Xretn,Yretn,FAR|
000003d0 56 45 29 0d 02 08 11 20 f2 63 68 65 63 6b 70 6f |VE).... .checkpo|
000003e0 69 6e 74 73 0d 02 12 1e 20 e7 20 46 41 52 56 45 |ints.... . FARVE|
000003f0 3d 31 20 8c 20 2a 53 43 48 4f 4f 53 45 20 46 49 |=1 . *SCHOOSE FI|
00000400 47 31 0d 02 1c 1e 20 e7 20 46 41 52 56 45 3d 32 |G1.... . FARVE=2|
00000410 20 8c 20 2a 53 43 48 4f 4f 53 45 20 46 49 47 32 | . *SCHOOSE FIG2|
00000420 0d 02 26 1e 20 e7 20 46 41 52 56 45 3d 33 20 8c |..&. . FARVE=3 .|
00000430 20 2a 53 43 48 4f 4f 53 45 20 46 49 47 33 0d 02 | *SCHOOSE FIG3..|
00000440 30 1e 20 e7 20 46 41 52 56 45 3d 34 20 8c 20 2a |0. . FARVE=4 . *|
00000450 53 43 48 4f 4f 53 45 20 46 49 47 34 0d 02 3a 1e |SCHOOSE FIG4..:.|
00000460 20 e7 20 46 41 52 56 45 3d 35 20 8c 20 2a 53 43 | . FARVE=5 . *SC|
00000470 48 4f 4f 53 45 20 46 49 47 35 0d 02 44 1e 20 e7 |HOOSE FIG5..D. .|
00000480 20 46 41 52 56 45 3d 36 20 8c 20 2a 53 43 48 4f | FARVE=6 . *SCHO|
00000490 4f 53 45 20 46 49 47 36 0d 02 4e 3a 20 e7 20 b0 |OSE FIG6..N: . .|
000004a0 50 31 78 2b 58 72 65 74 6e 2c 50 31 79 2b 59 72 |P1x+Xretn,P1y+Yr|
000004b0 65 74 6e 29 3d 30 20 80 20 b0 50 32 78 2b 58 72 |etn)=0 . .P2x+Xr|
000004c0 65 74 6e 2c 50 32 79 2b 59 72 65 74 6e 29 3d 30 |etn,P2y+Yretn)=0|
000004d0 20 8c 0d 02 58 0e 20 6f 6e 65 6d 6f 72 65 3d b9 | ...X. onemore=.|
000004e0 0d 02 62 0f 20 e3 20 4d 3d 31 20 b8 20 31 38 0d |..b. . M=1 . 18.|
000004f0 02 6c 1a 20 e6 33 2c 30 3a c8 96 3a f0 20 26 45 |.l. .3,0:..:. &E|
00000500 44 2c 4c 4c 78 2c 4c 4c 79 0d 02 76 20 20 4c 4c |D,LLx,LLy..v LL|
00000510 78 3d 4c 4c 78 2b 58 72 65 74 6e 3a 4c 4c 79 3d |x=LLx+Xretn:LLy=|
00000520 4c 4c 79 2b 59 72 65 74 6e 0d 02 80 17 20 e6 31 |LLy+Yretn.... .1|
00000530 2c 30 3a f0 20 26 45 44 2c 4c 4c 78 2c 4c 4c 79 |,0:. &ED,LLx,LLy|
00000540 0d 02 8a 08 20 ed 20 4d 0d 02 94 45 20 e7 20 46 |.... . M...E . F|
00000550 41 52 56 45 3d 36 20 80 20 4c 4c 78 3d 37 38 38 |ARVE=6 . LLx=788|
00000560 20 80 20 4c 4c 79 3d 31 36 20 4e 3d 4e 2b 31 3a | . LLy=16 N=N+1:|
00000570 f1 8a 33 35 2c 39 29 4e 3a d4 31 2c 2d 31 35 2c |..35,9)N:.1,-15,|
00000580 32 30 30 2c 32 30 3a d9 23 46 25 3a e0 0d 02 9e |200,20:.#F%:....|
00000590 06 20 cd 0d 02 a8 29 20 e7 20 6f 6e 65 6d 6f 72 |. ....) . onemor|
000005a0 65 3d b9 20 4e 3d 4e 2b 31 3a f1 8a 33 35 2c 39 |e=. N=N+1:..35,9|
000005b0 29 4e 3a 6f 6e 65 6d 6f 72 65 3d a3 0d 02 b2 06 |)N:onemore=.....|
000005c0 20 e1 0d 02 bc 06 20 3a 0d 02 c6 0e 20 dd f2 62 | ..... :.... ..b|
000005d0 72 69 6b 6b 65 72 0d 02 d0 09 20 e6 31 2c 30 0d |rikker.... .1,0.|
000005e0 02 da 12 20 2a 53 43 48 4f 4f 53 45 20 46 49 47 |... *SCHOOSE FIG|
000005f0 36 0d 02 e4 12 20 f0 20 26 45 44 2c 32 31 32 2c |6.... . &ED,212,|
00000600 34 34 38 0d 02 ee 12 20 2a 53 43 48 4f 4f 53 45 |448.... *SCHOOSE|
00000610 20 46 49 47 35 0d 02 f8 1f 20 f0 20 26 45 44 2c | FIG5.... . &ED,|
00000620 36 34 34 2c 34 34 38 3a f0 20 26 45 44 2c 32 31 |644,448:. &ED,21|
00000630 32 2c 31 36 0d 03 02 12 20 2a 53 43 48 4f 4f 53 |2,16.... *SCHOOS|
00000640 45 20 46 49 47 34 0d 03 0c 1f 20 f0 20 26 45 44 |E FIG4.... . &ED|
00000650 2c 33 35 36 2c 31 36 3a f0 20 26 45 44 2c 37 38 |,356,16:. &ED,78|
00000660 38 2c 33 30 34 0d 03 16 12 20 2a 53 43 48 4f 4f |8,304.... *SCHOO|
00000670 53 45 20 46 49 47 33 0d 03 20 1e 20 f0 20 26 45 |SE FIG3.. . . &E|
00000680 44 2c 37 38 38 2c 31 36 3a f0 20 26 45 44 2c 39 |D,788,16:. &ED,9|
00000690 33 32 2c 31 36 0d 03 2a 12 20 2a 53 43 48 4f 4f |32,16..*. *SCHOO|
000006a0 53 45 20 46 49 47 32 0d 03 34 12 20 f0 20 26 45 |SE FIG2..4. . &E|
000006b0 44 2c 32 31 32 2c 33 30 34 0d 03 3e 12 20 2a 53 |D,212,304..>. *S|
000006c0 43 48 4f 4f 53 45 20 46 49 47 31 0d 03 48 2d 20 |CHOOSE FIG1..H- |
000006d0 f0 20 26 45 44 2c 36 34 34 2c 31 36 3a f0 20 26 |. &ED,644,16:. &|
000006e0 45 44 2c 36 34 34 2c 31 36 30 3a f0 20 26 45 44 |ED,644,160:. &ED|
000006f0 2c 36 34 34 2c 33 30 34 0d 03 52 2e 20 f0 20 26 |,644,304..R. . &|
00000700 45 44 2c 37 38 38 2c 34 34 38 3a f0 20 26 45 44 |ED,788,448:. &ED|
00000710 2c 39 33 32 2c 35 39 32 3a f0 20 26 45 44 2c 35 |,932,592:. &ED,5|
00000720 30 30 2c 33 30 34 0d 03 5c 09 20 e6 30 2c 30 0d |00,304..\. .0,0.|
00000730 03 66 06 20 e1 0d 03 70 06 20 3a 0d 03 7a 19 20 |.f. ...p. :..z. |
00000740 dd f2 63 6f 72 6e 65 72 73 28 78 2c 79 2c 46 41 |..corners(x,y,FA|
00000750 52 56 45 29 0d 03 84 36 20 4c 4c 78 3d 32 31 32 |RVE)...6 LLx=212|
00000760 2b 31 34 34 2a 28 28 78 2d 32 31 32 29 81 31 34 |+144*((x-212).14|
00000770 34 29 3a 4c 4c 79 3d 31 36 2b 31 34 34 2a 28 28 |4):LLy=16+144*((|
00000780 79 2d 31 36 29 81 31 34 34 29 0d 03 8e 10 20 e7 |y-16).144).... .|
00000790 20 46 41 52 56 45 3d 31 20 8c 0d 03 98 16 20 62 | FARVE=1 ..... b|
000007a0 72 65 64 3d 31 34 30 3a 68 6f 6a 64 3d 31 34 30 |red=140:hojd=140|
000007b0 0d 03 a2 06 20 cd 0d 03 ac 10 20 e7 20 46 41 52 |.... ..... . FAR|
000007c0 56 45 3d 32 20 8c 0d 03 b6 16 20 62 72 65 64 3d |VE=2 ..... bred=|
000007d0 32 38 34 3a 68 6f 6a 64 3d 31 34 30 0d 03 c0 20 |284:hojd=140... |
000007e0 20 e7 20 b0 4c 4c 78 2c 4c 4c 79 2b 38 29 3d 32 | . .LLx,LLy+8)=2|
000007f0 20 4c 4c 78 3d 4c 4c 78 2d 31 34 34 0d 03 ca 06 | LLx=LLx-144....|
00000800 20 cd 0d 03 d4 10 20 e7 20 46 41 52 56 45 3d 33 | ..... . FARVE=3|
00000810 20 8c 0d 03 de 16 20 62 72 65 64 3d 31 34 30 3a | ..... bred=140:|
00000820 68 6f 6a 64 3d 32 38 34 0d 03 e8 20 20 e7 20 b0 |hojd=284... . .|
00000830 4c 4c 78 2b 38 2c 4c 4c 79 29 3d 33 20 4c 4c 79 |LLx+8,LLy)=3 LLy|
00000840 3d 4c 4c 79 2d 31 34 34 0d 03 f2 06 20 cd 0d 03 |=LLy-144.... ...|
00000850 fc 10 20 e7 20 46 41 52 56 45 3d 34 20 8c 0d 04 |.. . FARVE=4 ...|
00000860 06 16 20 62 72 65 64 3d 32 38 34 3a 68 6f 6a 64 |.. bred=284:hojd|
00000870 3d 32 38 34 0d 04 10 20 20 e7 20 b0 4c 4c 78 2b |=284... . .LLx+|
00000880 38 2c 4c 4c 79 29 3d 34 20 4c 4c 79 3d 4c 4c 79 |8,LLy)=4 LLy=LLy|
00000890 2d 31 34 34 0d 04 1a 20 20 e7 20 b0 4c 4c 78 2c |-144... . .LLx,|
000008a0 4c 4c 79 2b 38 29 3d 34 20 4c 4c 78 3d 4c 4c 78 |LLy+8)=4 LLx=LLx|
000008b0 2d 31 34 34 0d 04 24 06 20 cd 0d 04 2e 10 20 e7 |-144..$. ..... .|
000008c0 20 46 41 52 56 45 3d 35 20 8c 0d 04 38 16 20 62 | FARVE=5 ...8. b|
000008d0 72 65 64 3d 32 38 34 3a 68 6f 6a 64 3d 32 38 34 |red=284:hojd=284|
000008e0 0d 04 42 20 20 e7 20 b0 4c 4c 78 2c 4c 4c 79 2b |..B . .LLx,LLy+|
000008f0 38 29 3d 35 20 4c 4c 78 3d 4c 4c 78 2d 31 34 34 |8)=5 LLx=LLx-144|
00000900 0d 04 4c 20 20 e7 20 b0 4c 4c 78 2b 38 2c 4c 4c |..L . .LLx+8,LL|
00000910 79 29 3d 35 20 4c 4c 79 3d 4c 4c 79 2d 31 34 34 |y)=5 LLy=LLy-144|
00000920 0d 04 56 06 20 cd 0d 04 60 10 20 e7 20 46 41 52 |..V. ...`. . FAR|
00000930 56 45 3d 36 20 8c 0d 04 6a 16 20 62 72 65 64 3d |VE=6 ...j. bred=|
00000940 32 38 34 3a 68 6f 6a 64 3d 32 38 34 0d 04 74 20 |284:hojd=284..t |
00000950 20 e7 20 b0 4c 4c 78 2c 4c 4c 79 2b 38 29 3d 36 | . .LLx,LLy+8)=6|
00000960 20 4c 4c 78 3d 4c 4c 78 2d 31 34 34 0d 04 7e 20 | LLx=LLx-144..~ |
00000970 20 e7 20 b0 4c 4c 78 2b 38 2c 4c 4c 79 29 3d 36 | . .LLx+8,LLy)=6|
00000980 20 4c 4c 79 3d 4c 4c 79 2d 31 34 34 0d 04 88 06 | LLy=LLy-144....|
00000990 20 cd 0d 04 92 19 20 4c 52 78 3d 4c 4c 78 2b 62 | ..... LRx=LLx+b|
000009a0 72 65 64 3a 4c 52 79 3d 4c 4c 79 0d 04 9c 19 20 |red:LRy=LLy.... |
000009b0 55 4c 78 3d 4c 4c 78 3a 55 4c 79 3d 4c 4c 79 2b |ULx=LLx:ULy=LLy+|
000009c0 68 6f 6a 64 0d 04 a6 14 20 55 52 78 3d 4c 52 78 |hojd.... URx=LRx|
000009d0 3a 55 52 79 3d 55 4c 79 0d 04 b0 06 20 e1 0d 04 |:URy=ULy.... ...|
000009e0 ba 06 20 3a 0d 04 c4 0e 20 dd f2 72 65 74 6e 69 |.. :.... ..retni|
000009f0 6e 67 0d 04 ce 1a 20 58 72 65 74 6e 3d 31 30 30 |ng.... Xretn=100|
00000a00 30 3a 59 72 65 74 6e 3d 31 30 30 30 0d 04 d8 44 |0:Yretn=1000...D|
00000a10 20 e7 20 28 28 78 2d 4c 4c 78 3e 79 2d 4c 4c 79 | . ((x-LLx>y-LLy|
00000a20 29 80 28 4c 52 78 2d 78 3e 79 2d 4c 52 79 29 29 |).(LRx-x>y-LRy))|
00000a30 84 28 28 4c 52 78 2d 78 3e 55 52 79 2d 79 29 80 |.((LRx-x>URy-y).|
00000a40 28 78 2d 55 4c 78 3e 55 4c 79 2d 79 29 29 20 8c |(x-ULx>ULy-y)) .|
00000a50 0d 04 e2 0c 20 58 72 65 74 6e 3d 30 0d 04 ec 06 |.... Xretn=0....|
00000a60 20 cc 0d 04 f6 0c 20 59 72 65 74 6e 3d 30 0d 05 | ..... Yretn=0..|
00000a70 00 06 20 cd 0d 05 0a 26 20 e7 20 59 72 65 74 6e |.. ....& . Yretn|
00000a80 3d 30 20 80 20 78 2d 4c 4c 78 3e 4c 52 78 2d 78 |=0 . x-LLx>LRx-x|
00000a90 20 8c 20 58 72 65 74 6e 3d 38 0d 05 14 28 20 e7 | . Xretn=8...( .|
00000aa0 20 59 72 65 74 6e 3d 30 20 80 20 78 2d 4c 4c 78 | Yretn=0 . x-LLx|
00000ab0 3c 3d 4c 52 78 2d 78 20 8c 20 58 72 65 74 6e 3d |<=LRx-x . Xretn=|
00000ac0 2d 38 0d 05 1e 26 20 e7 20 58 72 65 74 6e 3d 30 |-8...& . Xretn=0|
00000ad0 20 80 20 79 2d 4c 4c 79 3e 55 4c 79 2d 79 20 8c | . y-LLy>ULy-y .|
00000ae0 20 59 72 65 74 6e 3d 38 0d 05 28 28 20 e7 20 58 | Yretn=8..(( . X|
00000af0 72 65 74 6e 3d 30 20 80 20 79 2d 4c 4c 79 3c 3d |retn=0 . y-LLy<=|
00000b00 55 4c 79 2d 79 20 8c 20 59 72 65 74 6e 3d 2d 38 |ULy-y . Yretn=-8|
00000b10 0d 05 32 06 20 e1 0d 05 3c 06 20 3a 0d 05 46 12 |..2. ...<. :..F.|
00000b20 20 dd f2 63 68 65 63 6b 70 6f 69 6e 74 73 0d 05 | ..checkpoints..|
00000b30 50 2e 20 e7 20 46 41 52 56 45 3d 31 20 84 20 46 |P. . FARVE=1 . F|
00000b40 41 52 56 45 3d 32 20 84 20 46 41 52 56 45 3d 33 |ARVE=2 . FARVE=3|
00000b50 20 84 20 46 41 52 56 45 3d 36 20 8c 0d 05 5a 2e | . FARVE=6 ...Z.|
00000b60 20 e7 20 58 72 65 74 6e 3d 38 20 50 31 78 3d 4c | . Xretn=8 P1x=L|
00000b70 52 78 3a 50 31 79 3d 4c 52 79 3a 50 32 78 3d 55 |Rx:P1y=LRy:P2x=U|
00000b80 52 78 3a 50 32 79 3d 55 52 79 0d 05 64 2f 20 e7 |Rx:P2y=URy..d/ .|
00000b90 20 58 72 65 74 6e 3d 2d 38 20 50 31 78 3d 4c 4c | Xretn=-8 P1x=LL|
00000ba0 78 3a 50 31 79 3d 4c 4c 79 3a 50 32 78 3d 55 4c |x:P1y=LLy:P2x=UL|
00000bb0 78 3a 50 32 79 3d 55 4c 79 0d 05 6e 2e 20 e7 20 |x:P2y=ULy..n. . |
00000bc0 59 72 65 74 6e 3d 38 20 50 31 78 3d 55 4c 78 3a |Yretn=8 P1x=ULx:|
00000bd0 50 31 79 3d 55 4c 79 3a 50 32 78 3d 55 52 78 3a |P1y=ULy:P2x=URx:|
00000be0 50 32 79 3d 55 52 79 0d 05 78 2f 20 e7 20 59 72 |P2y=URy..x/ . Yr|
00000bf0 65 74 6e 3d 2d 38 20 50 31 78 3d 4c 4c 78 3a 50 |etn=-8 P1x=LLx:P|
00000c00 31 79 3d 4c 4c 79 3a 50 32 78 3d 4c 52 78 3a 50 |1y=LLy:P2x=LRx:P|
00000c10 32 79 3d 4c 52 79 0d 05 82 06 20 cd 0d 05 8c 10 |2y=LRy.... .....|
00000c20 20 e7 20 46 41 52 56 45 3d 34 20 8c 0d 05 96 2e | . FARVE=4 .....|
00000c30 20 e7 20 58 72 65 74 6e 3d 38 20 50 31 78 3d 4c | . Xretn=8 P1x=L|
00000c40 52 78 3a 50 31 79 3d 4c 52 79 3a 50 32 78 3d 55 |Rx:P1y=LRy:P2x=U|
00000c50 52 78 3a 50 32 79 3d 55 52 79 0d 05 a0 33 20 e7 |Rx:P2y=URy...3 .|
00000c60 20 58 72 65 74 6e 3d 2d 38 20 50 31 78 3d 4c 4c | Xretn=-8 P1x=LL|
00000c70 78 3a 50 31 79 3d 4c 4c 79 3a 50 32 78 3d 55 4c |x:P1y=LLy:P2x=UL|
00000c80 78 2b 31 34 34 3a 50 32 79 3d 55 4c 79 0d 05 aa |x+144:P2y=ULy...|
00000c90 32 20 e7 20 59 72 65 74 6e 3d 38 20 50 31 78 3d |2 . Yretn=8 P1x=|
00000ca0 55 4c 78 3a 50 31 79 3d 55 4c 79 2d 31 34 34 3a |ULx:P1y=ULy-144:|
00000cb0 50 32 78 3d 55 52 78 3a 50 32 79 3d 55 52 79 0d |P2x=URx:P2y=URy.|
00000cc0 05 b4 2f 20 e7 20 59 72 65 74 6e 3d 2d 38 20 50 |../ . Yretn=-8 P|
00000cd0 31 78 3d 4c 4c 78 3a 50 31 79 3d 4c 4c 79 3a 50 |1x=LLx:P1y=LLy:P|
00000ce0 32 78 3d 4c 52 78 3a 50 32 79 3d 4c 52 79 0d 05 |2x=LRx:P2y=LRy..|
00000cf0 be 06 20 cd 0d 05 c8 10 20 e7 20 46 41 52 56 45 |.. ..... . FARVE|
00000d00 3d 35 20 8c 0d 05 d2 32 20 e7 20 58 72 65 74 6e |=5 ....2 . Xretn|
00000d10 3d 38 20 50 31 78 3d 4c 52 78 2d 31 34 34 3a 50 |=8 P1x=LRx-144:P|
00000d20 31 79 3d 4c 52 79 3a 50 32 78 3d 55 52 78 3a 50 |1y=LRy:P2x=URx:P|
00000d30 32 79 3d 55 52 79 0d 05 dc 2f 20 e7 20 58 72 65 |2y=URy.../ . Xre|
00000d40 74 6e 3d 2d 38 20 50 31 78 3d 4c 4c 78 3a 50 31 |tn=-8 P1x=LLx:P1|
00000d50 79 3d 4c 4c 79 3a 50 32 78 3d 55 4c 78 3a 50 32 |y=LLy:P2x=ULx:P2|
00000d60 79 3d 55 4c 79 0d 05 e6 2e 20 e7 20 59 72 65 74 |y=ULy.... . Yret|
00000d70 6e 3d 38 20 50 31 78 3d 55 4c 78 3a 50 31 79 3d |n=8 P1x=ULx:P1y=|
00000d80 55 4c 79 3a 50 32 78 3d 55 52 78 3a 50 32 79 3d |ULy:P2x=URx:P2y=|
00000d90 55 52 79 0d 05 f0 33 20 e7 20 59 72 65 74 6e 3d |URy...3 . Yretn=|
00000da0 2d 38 20 50 31 78 3d 4c 4c 78 3a 50 31 79 3d 4c |-8 P1x=LLx:P1y=L|
00000db0 4c 79 3a 50 32 78 3d 4c 52 78 3a 50 32 79 3d 4c |Ly:P2x=LRx:P2y=L|
00000dc0 52 79 2b 31 34 34 0d 05 fa 06 20 cd 0d 06 04 06 |Ry+144.... .....|
00000dd0 20 e1 0d 06 0e 06 20 3a 0d ff | ..... :..|
00000dda 
.