Home » CEEFAX disks » telesoftware14.adl » 18-03-89/Flow

18-03-89/Flow

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 » CEEFAX disks » telesoftware14.adl
Filename: 18-03-89/Flow
Read OK:
File size: 09FC bytes
Load address: FFFF1A00
Exec address: FFFF801F
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM FLO
   20REM by George Speller
   30REM (c) The Micro User
   40:
   50ON ERROR MODE 7:PROCerror:END
   60:
   70MODE 7:PROCinstr
   80MODE 2:VDU 23;11,0;0;0;0;
   90PROCsetup:PROCinit
  100REPEAT PROCkeys:PROCbaseline
  110REPEAT UNTIL NOTINKEY-129
  120PROCbaseline:UNTIL FALSE:END
  130:
  140DEFPROCinstr
  150VDU 28,8,20,32,5
  160PRINTTAB(7,0)"FLO"
  170PRINT'"A/B....select colour"
  180PRINT "C/D....continous or dots"
  190PRINT "M......check motion"
  200PRINT "L/S....load or save"
  210PRINT "Tab....draw a block"
  220PRINT'"Arrows.move"
  230PRINT "Z/X....grow left/right"
  240PRINT "*/?....grow up/down"
  250PRINT "</>....rotate"
  260PRINT "Shift..extra speed"
  270PRINT'"Press space"
  280REPEAT UNTIL GET=32:ENDPROC
  290:
  300DEFPROCinit:DIM b%256:*FX4,1
  310addc%=0:start%=8:curcol%=1
  320x1%=0:x2%=0:y1%=0:y2%=0
  330X%=500:Y%=500:colA%=1:colB%=4
  340side%=100:base%=40
  350type%=5:F$="":GCOL3,1:ENDPROC
  360:
  370DEFPROCsetup:COLOUR 132
  380FOR N%=1 TO 4:READ a%,b%,c%,d%
  390VDU 28,a%,b%,c%,d%,12
  400PRINTTAB(6)"Window ";N%;:NEXT
  410DATA 0,30,0,1,0,0,19,0
  420DATA 19,31,19,1,0,31,19,31
  430VDU26:PRINTTAB(8,5)"FLO"
  440PRINTTAB(3,7)"Please choose"TAB(3,9)"display window"TAB(8,12)"1-4";
  450REPEAT W%=GET-48:UNTIL W%>0ANDW%<5
  460COLOUR 128:CLS:RESTORE
  470FOR N%=1TOW%:READ a%,b%,c%,d%:NEXT
  480VDU 28,a%,b%,c%,d%:ENDPROC
  490:
  500DEFPROClns(X%,Y%,W%,H%,A,T%,S%,A%)
  510LOCALx%,y%,x1%,y1%:p=COSA:q=SINA
  520FOR O%=0 TO 3:GCOL 0,S%+A%+O%
  530FOR N%=O%*10 TO H% STEP 40
  540x%=p*N%:y%=q*N%:x1%=q*W%:y1%=p*W%
  550MOVEX%+x%,Y%-y%
  560PLOTT%,X%+x1%+x%,Y%+y1%-y%
  570NEXT:NEXT:PROCcolsoff:ENDPROC
  580:
  590DEFPROCcolsoff
  600FORN%=8TO15:VDU19,N%;0;0;:NEXT
  610VDU19,start%,colA%;0;
  620VDU19,start%+4,colB%;0;
  630ENDPROC
  640:
  650DEFPROCanimate:LOCAL L%,C%
  660REPEAT L%=C%:C%=(C%+1)MOD4
  670VDU19,start%+C%,colA%;0;0;
  680VDU19,start%+L%;0;0;:*FX19
  690VDU19,start%+C%+4,colB%;0;
  700VDU19,start%+L%+4;0;0;:*FX19
  710UNTIL NOTINKEY-102:*FX21
  720PROCcolsoff:ENDPROC
  730:
  740DEFPROCmove
  750IF INKEY-1 s%=5 ELSE s%=1
  760X%=X%-4*s%*INKEY-122+4*s%*INKEY-26
  770Y%=Y%-4*s%*INKEY-58+4*s%*INKEY-42
  780ENDPROC
  790:
  800DEFPROCrotline
  810IF INKEY-1 s%=20 ELSE s%=1
  820ang=ang-INKEY-104*s%/60+INKEY-103*s%/60
  830side%=ABS(side%-INKEY-67*s%+INKEY-98*s%)
  840base%=ABS(base%-INKEY-73*s%+INKEY-105*s%)
  850p=COS(ang):q=SIN(ang)
  860x1%=side%*p:y1%=side%*q
  870x2%=base%*q:y2%=base%*p
  880ENDPROC
  890:
  900DEFPROCbaseline:MOVEX%,Y%:*FX19
  910GCOL3,7:PLOTtype%,X%+x1%,Y%-y1%
  920MOVEX%,Y%:GCOL3,curcol%
  930PLOT5,X%+x2%,Y%+y2%:GCOL3,7
  940PLOT69,X%+x2%,Y%+y2%:ENDPROC
  950:
  960DEFPROCload
  970REPEAT UNTIL INKEY-87=0:*FX15
  980INPUT"Load filename",F$:CLS
  990IF F$>"" PROCos("LOAD "+F$)
 1000PROCcolsoff:ENDPROC
 1010:
 1020DEFPROCsave
 1030REPEAT UNTIL INKEY-82=0:*FX15
 1040INPUT"Save filename",F$:CLS
 1050IF F$>"" PROCos("SAVE "+F$+" 3000 8000")
 1060ENDPROC
 1070:
 1080DEF PROCkeys
 1090PROCmove:PROCrotline:*FX21
 1100IF INKEY-97 PROClns(X%,Y%,base%,side%,ang,type%,start%,addc%)
 1110IF INKEY-87 PROCload
 1120IF INKEY-82 PROCsave
 1130IF INKEY-102 PROCanimate
 1140IF INKEY-66 addc%=0:curcol%=1
 1150IF INKEY-101 addc%=4:curcol%=4
 1160IF INKEY-51 type%=21
 1170IF INKEY-83 type%=5
 1180ENDPROC
 1190:
 1200DEFPROCos($b%):LOCALX%,Y%:X%=b%
 1210Y%=X%DIV256:CALL&FFF7:ENDPROC
 1220:
 1230DEF PROCerror:*FX4
 1240IF ERR=17 PRINT"Finished" ELSE REPORT:PRINT" at line ";ERL
 1250ENDPROC

	� FLO
� by George Speller
� (c) The Micro User
(:
2� � � 7:�error:�
<:
F� 7:�instr
P� 2:� 23;11,0;0;0;0;
Z�setup:�init
d� �keys:�baseline
n� � ��-129
x�baseline:� �:�
�:
���instr
�� 28,8,20,32,5
��7,0)"FLO"
��'"A/B....select colour"
� � "C/D....continous or dots"
�� "M......check motion"
�� "L/S....load or save"
�� "Tab....draw a block"
��'"Arrows.move"
�� "Z/X....grow left/right"
�� "*/?....grow up/down"
�� "</>....rotate"
� "Shift..extra speed"
�'"Press space"
� � �=32:�
":
,��init:� b%256:*FX4,1
6addc%=0:start%=8:curcol%=1
@x1%=0:x2%=0:y1%=0:y2%=0
J!X%=500:Y%=500:colA%=1:colB%=4
Tside%=100:base%=40
^type%=5:F$="":�3,1:�
h:
r��setup:� 132
|� N%=1 � 4:� a%,b%,c%,d%
�� 28,a%,b%,c%,d%,12
��6)"Window ";N%;:�
�� 0,30,0,1,0,0,19,0
�� 19,31,19,1,0,31,19,31
��26:�8,5)"FLO"
�:�3,7)"Please choose"�3,9)"display window"�8,12)"1-4";
�� W%=�-48:� W%>0�W%<5
�
� 128:�:�
�� N%=1�W%:� a%,b%,c%,d%:�
�� 28,a%,b%,c%,d%:�
�:
�!��lns(X%,Y%,W%,H%,A,T%,S%,A%)
��x%,y%,x1%,y1%:p=�A:q=�A
� O%=0 � 3:� 0,S%+A%+O%
� N%=O%*10 � H% � 40
%x%=p*N%:y%=q*N%:x1%=q*W%:y1%=p*W%
&�X%+x%,Y%-y%
0�T%,X%+x1%+x%,Y%+y1%-y%
:�:�:�colsoff:�
D:
N
��colsoff
X�N%=8�15:�19,N%;0;0;:�
b�19,start%,colA%;0;
l�19,start%+4,colB%;0;
v�
�:
���animate:� L%,C%
�� L%=C%:C%=(C%+1)�4
��19,start%+C%,colA%;0;0;
��19,start%+L%;0;0;:*FX19
��19,start%+C%+4,colB%;0;
��19,start%+L%+4;0;0;:*FX19
�� ��-102:*FX21
��colsoff:�
�:
�
��move
�� �-1 s%=5 � s%=1
�X%=X%-4*s%*�-122+4*s%*�-26
Y%=Y%-4*s%*�-58+4*s%*�-42
�
:
 
��rotline
*� �-1 s%=20 � s%=1
4#ang=ang-�-104*s%/60+�-103*s%/60
>"side%=�(side%-�-67*s%+�-98*s%)
H#base%=�(base%-�-73*s%+�-105*s%)
Rp=�(ang):q=�(ang)
\x1%=side%*p:y1%=side%*q
fx2%=base%*q:y2%=base%*p
p�
z:
���baseline:�X%,Y%:*FX19
��3,7:�type%,X%+x1%,Y%-y1%
��X%,Y%:�3,curcol%
��5,X%+x2%,Y%+y2%:�3,7
��69,X%+x2%,Y%+y2%:�
�:
�
��load
�� � �-87=0:*FX15
��"Load filename",F$:�
�� F$>"" �os("LOAD "+F$)
��colsoff:�
�:
�
��save
� � �-82=0:*FX15
�"Save filename",F$:�
(� F$>"" �os("SAVE "+F$+" 3000 8000")
$�
.:
8� �keys
B�move:�rotline:*FX21
L9� �-97 �lns(X%,Y%,base%,side%,ang,type%,start%,addc%)
V� �-87 �load
`� �-82 �save
j� �-102 �animate
t� �-66 addc%=0:curcol%=1
~� �-101 addc%=4:curcol%=4
�� �-51 type%=21
�� �-83 type%=5
��
�:
���os($b%):�X%,Y%:X%=b%
�Y%=X%�256:�&FFF7:�
�:
�� �error:*FX4
�)� �=17 �"Finished" � �:�" at line ";�
��
�
00000000  0d 00 0a 09 f4 20 46 4c  4f 0d 00 14 17 f4 20 62  |..... FLO..... b|
00000010  79 20 47 65 6f 72 67 65  20 53 70 65 6c 6c 65 72  |y George Speller|
00000020  0d 00 1e 18 f4 20 28 63  29 20 54 68 65 20 4d 69  |..... (c) The Mi|
00000030  63 72 6f 20 55 73 65 72  0d 00 28 05 3a 0d 00 32  |cro User..(.:..2|
00000040  14 ee 20 85 20 eb 20 37  3a f2 65 72 72 6f 72 3a  |.. . . 7:.error:|
00000050  e0 0d 00 3c 05 3a 0d 00  46 0e eb 20 37 3a f2 69  |...<.:..F.. 7:.i|
00000060  6e 73 74 72 0d 00 50 18  eb 20 32 3a ef 20 32 33  |nstr..P.. 2:. 23|
00000070  3b 31 31 2c 30 3b 30 3b  30 3b 30 3b 0d 00 5a 10  |;11,0;0;0;0;..Z.|
00000080  f2 73 65 74 75 70 3a f2  69 6e 69 74 0d 00 64 15  |.setup:.init..d.|
00000090  f5 20 f2 6b 65 79 73 3a  f2 62 61 73 65 6c 69 6e  |. .keys:.baselin|
000000a0  65 0d 00 6e 0e f5 20 fd  20 ac a6 2d 31 32 39 0d  |e..n.. . ..-129.|
000000b0  00 78 13 f2 62 61 73 65  6c 69 6e 65 3a fd 20 a3  |.x..baseline:. .|
000000c0  3a e0 0d 00 82 05 3a 0d  00 8c 0b dd f2 69 6e 73  |:.....:......ins|
000000d0  74 72 0d 00 96 12 ef 20  32 38 2c 38 2c 32 30 2c  |tr..... 28,8,20,|
000000e0  33 32 2c 35 0d 00 a0 0f  f1 8a 37 2c 30 29 22 46  |32,5......7,0)"F|
000000f0  4c 4f 22 0d 00 aa 1c f1  27 22 41 2f 42 2e 2e 2e  |LO".....'"A/B...|
00000100  2e 73 65 6c 65 63 74 20  63 6f 6c 6f 75 72 22 0d  |.select colour".|
00000110  00 b4 20 f1 20 22 43 2f  44 2e 2e 2e 2e 63 6f 6e  |.. . "C/D....con|
00000120  74 69 6e 6f 75 73 20 6f  72 20 64 6f 74 73 22 0d  |tinous or dots".|
00000130  00 be 1b f1 20 22 4d 2e  2e 2e 2e 2e 2e 63 68 65  |.... "M......che|
00000140  63 6b 20 6d 6f 74 69 6f  6e 22 0d 00 c8 1b f1 20  |ck motion"..... |
00000150  22 4c 2f 53 2e 2e 2e 2e  6c 6f 61 64 20 6f 72 20  |"L/S....load or |
00000160  73 61 76 65 22 0d 00 d2  1b f1 20 22 54 61 62 2e  |save"..... "Tab.|
00000170  2e 2e 2e 64 72 61 77 20  61 20 62 6c 6f 63 6b 22  |...draw a block"|
00000180  0d 00 dc 13 f1 27 22 41  72 72 6f 77 73 2e 6d 6f  |.....'"Arrows.mo|
00000190  76 65 22 0d 00 e6 1e f1  20 22 5a 2f 58 2e 2e 2e  |ve"..... "Z/X...|
000001a0  2e 67 72 6f 77 20 6c 65  66 74 2f 72 69 67 68 74  |.grow left/right|
000001b0  22 0d 00 f0 1b f1 20 22  2a 2f 3f 2e 2e 2e 2e 67  |"..... "*/?....g|
000001c0  72 6f 77 20 75 70 2f 64  6f 77 6e 22 0d 00 fa 15  |row up/down"....|
000001d0  f1 20 22 3c 2f 3e 2e 2e  2e 2e 72 6f 74 61 74 65  |. "</>....rotate|
000001e0  22 0d 01 04 1a f1 20 22  53 68 69 66 74 2e 2e 65  |"..... "Shift..e|
000001f0  78 74 72 61 20 73 70 65  65 64 22 0d 01 0e 13 f1  |xtra speed".....|
00000200  27 22 50 72 65 73 73 20  73 70 61 63 65 22 0d 01  |'"Press space"..|
00000210  18 0e f5 20 fd 20 a5 3d  33 32 3a e1 0d 01 22 05  |... . .=32:...".|
00000220  3a 0d 01 2c 19 dd f2 69  6e 69 74 3a de 20 62 25  |:..,...init:. b%|
00000230  32 35 36 3a 2a 46 58 34  2c 31 0d 01 36 1e 61 64  |256:*FX4,1..6.ad|
00000240  64 63 25 3d 30 3a 73 74  61 72 74 25 3d 38 3a 63  |dc%=0:start%=8:c|
00000250  75 72 63 6f 6c 25 3d 31  0d 01 40 1b 78 31 25 3d  |urcol%=1..@.x1%=|
00000260  30 3a 78 32 25 3d 30 3a  79 31 25 3d 30 3a 79 32  |0:x2%=0:y1%=0:y2|
00000270  25 3d 30 0d 01 4a 21 58  25 3d 35 30 30 3a 59 25  |%=0..J!X%=500:Y%|
00000280  3d 35 30 30 3a 63 6f 6c  41 25 3d 31 3a 63 6f 6c  |=500:colA%=1:col|
00000290  42 25 3d 34 0d 01 54 16  73 69 64 65 25 3d 31 30  |B%=4..T.side%=10|
000002a0  30 3a 62 61 73 65 25 3d  34 30 0d 01 5e 18 74 79  |0:base%=40..^.ty|
000002b0  70 65 25 3d 35 3a 46 24  3d 22 22 3a e6 33 2c 31  |pe%=5:F$="":.3,1|
000002c0  3a e1 0d 01 68 05 3a 0d  01 72 11 dd f2 73 65 74  |:...h.:..r...set|
000002d0  75 70 3a fb 20 31 33 32  0d 01 7c 1c e3 20 4e 25  |up:. 132..|.. N%|
000002e0  3d 31 20 b8 20 34 3a f3  20 61 25 2c 62 25 2c 63  |=1 . 4:. a%,b%,c|
000002f0  25 2c 64 25 0d 01 86 17  ef 20 32 38 2c 61 25 2c  |%,d%..... 28,a%,|
00000300  62 25 2c 63 25 2c 64 25  2c 31 32 0d 01 90 17 f1  |b%,c%,d%,12.....|
00000310  8a 36 29 22 57 69 6e 64  6f 77 20 22 3b 4e 25 3b  |.6)"Window ";N%;|
00000320  3a ed 0d 01 9a 17 dc 20  30 2c 33 30 2c 30 2c 31  |:...... 0,30,0,1|
00000330  2c 30 2c 30 2c 31 39 2c  30 0d 01 a4 1b dc 20 31  |,0,0,19,0..... 1|
00000340  39 2c 33 31 2c 31 39 2c  31 2c 30 2c 33 31 2c 31  |9,31,19,1,0,31,1|
00000350  39 2c 33 31 0d 01 ae 13  ef 32 36 3a f1 8a 38 2c  |9,31.....26:..8,|
00000360  35 29 22 46 4c 4f 22 0d  01 b8 3a f1 8a 33 2c 37  |5)"FLO"...:..3,7|
00000370  29 22 50 6c 65 61 73 65  20 63 68 6f 6f 73 65 22  |)"Please choose"|
00000380  8a 33 2c 39 29 22 64 69  73 70 6c 61 79 20 77 69  |.3,9)"display wi|
00000390  6e 64 6f 77 22 8a 38 2c  31 32 29 22 31 2d 34 22  |ndow".8,12)"1-4"|
000003a0  3b 0d 01 c2 19 f5 20 57  25 3d a5 2d 34 38 3a fd  |;..... W%=.-48:.|
000003b0  20 57 25 3e 30 80 57 25  3c 35 0d 01 cc 0d fb 20  | W%>0.W%<5..... |
000003c0  31 32 38 3a db 3a f7 0d  01 d6 1d e3 20 4e 25 3d  |128:.:...... N%=|
000003d0  31 b8 57 25 3a f3 20 61  25 2c 62 25 2c 63 25 2c  |1.W%:. a%,b%,c%,|
000003e0  64 25 3a ed 0d 01 e0 16  ef 20 32 38 2c 61 25 2c  |d%:...... 28,a%,|
000003f0  62 25 2c 63 25 2c 64 25  3a e1 0d 01 ea 05 3a 0d  |b%,c%,d%:.....:.|
00000400  01 f4 21 dd f2 6c 6e 73  28 58 25 2c 59 25 2c 57  |..!..lns(X%,Y%,W|
00000410  25 2c 48 25 2c 41 2c 54  25 2c 53 25 2c 41 25 29  |%,H%,A,T%,S%,A%)|
00000420  0d 01 fe 1c ea 78 25 2c  79 25 2c 78 31 25 2c 79  |.....x%,y%,x1%,y|
00000430  31 25 3a 70 3d 9b 41 3a  71 3d b5 41 0d 02 08 1b  |1%:p=.A:q=.A....|
00000440  e3 20 4f 25 3d 30 20 b8  20 33 3a e6 20 30 2c 53  |. O%=0 . 3:. 0,S|
00000450  25 2b 41 25 2b 4f 25 0d  02 12 18 e3 20 4e 25 3d  |%+A%+O%..... N%=|
00000460  4f 25 2a 31 30 20 b8 20  48 25 20 88 20 34 30 0d  |O%*10 . H% . 40.|
00000470  02 1c 25 78 25 3d 70 2a  4e 25 3a 79 25 3d 71 2a  |..%x%=p*N%:y%=q*|
00000480  4e 25 3a 78 31 25 3d 71  2a 57 25 3a 79 31 25 3d  |N%:x1%=q*W%:y1%=|
00000490  70 2a 57 25 0d 02 26 10  ec 58 25 2b 78 25 2c 59  |p*W%..&..X%+x%,Y|
000004a0  25 2d 79 25 0d 02 30 1b  f0 54 25 2c 58 25 2b 78  |%-y%..0..T%,X%+x|
000004b0  31 25 2b 78 25 2c 59 25  2b 79 31 25 2d 79 25 0d  |1%+x%,Y%+y1%-y%.|
000004c0  02 3a 12 ed 3a ed 3a f2  63 6f 6c 73 6f 66 66 3a  |.:..:.:.colsoff:|
000004d0  e1 0d 02 44 05 3a 0d 02  4e 0d dd f2 63 6f 6c 73  |...D.:..N...cols|
000004e0  6f 66 66 0d 02 58 1a e3  4e 25 3d 38 b8 31 35 3a  |off..X..N%=8.15:|
000004f0  ef 31 39 2c 4e 25 3b 30  3b 30 3b 3a ed 0d 02 62  |.19,N%;0;0;:...b|
00000500  17 ef 31 39 2c 73 74 61  72 74 25 2c 63 6f 6c 41  |..19,start%,colA|
00000510  25 3b 30 3b 0d 02 6c 19  ef 31 39 2c 73 74 61 72  |%;0;..l..19,star|
00000520  74 25 2b 34 2c 63 6f 6c  42 25 3b 30 3b 0d 02 76  |t%+4,colB%;0;..v|
00000530  05 e1 0d 02 80 05 3a 0d  02 8a 15 dd f2 61 6e 69  |......:......ani|
00000540  6d 61 74 65 3a ea 20 4c  25 2c 43 25 0d 02 94 17  |mate:. L%,C%....|
00000550  f5 20 4c 25 3d 43 25 3a  43 25 3d 28 43 25 2b 31  |. L%=C%:C%=(C%+1|
00000560  29 83 34 0d 02 9e 1c ef  31 39 2c 73 74 61 72 74  |).4.....19,start|
00000570  25 2b 43 25 2c 63 6f 6c  41 25 3b 30 3b 30 3b 0d  |%+C%,colA%;0;0;.|
00000580  02 a8 1c ef 31 39 2c 73  74 61 72 74 25 2b 4c 25  |....19,start%+L%|
00000590  3b 30 3b 30 3b 3a 2a 46  58 31 39 0d 02 b2 1c ef  |;0;0;:*FX19.....|
000005a0  31 39 2c 73 74 61 72 74  25 2b 43 25 2b 34 2c 63  |19,start%+C%+4,c|
000005b0  6f 6c 42 25 3b 30 3b 0d  02 bc 1e ef 31 39 2c 73  |olB%;0;.....19,s|
000005c0  74 61 72 74 25 2b 4c 25  2b 34 3b 30 3b 30 3b 3a  |tart%+L%+4;0;0;:|
000005d0  2a 46 58 31 39 0d 02 c6  12 fd 20 ac a6 2d 31 30  |*FX19..... ..-10|
000005e0  32 3a 2a 46 58 32 31 0d  02 d0 0e f2 63 6f 6c 73  |2:*FX21.....cols|
000005f0  6f 66 66 3a e1 0d 02 da  05 3a 0d 02 e4 0a dd f2  |off:.....:......|
00000600  6d 6f 76 65 0d 02 ee 15  e7 20 a6 2d 31 20 73 25  |move..... .-1 s%|
00000610  3d 35 20 8b 20 73 25 3d  31 0d 02 f8 1e 58 25 3d  |=5 . s%=1....X%=|
00000620  58 25 2d 34 2a 73 25 2a  a6 2d 31 32 32 2b 34 2a  |X%-4*s%*.-122+4*|
00000630  73 25 2a a6 2d 32 36 0d  03 02 1d 59 25 3d 59 25  |s%*.-26....Y%=Y%|
00000640  2d 34 2a 73 25 2a a6 2d  35 38 2b 34 2a 73 25 2a  |-4*s%*.-58+4*s%*|
00000650  a6 2d 34 32 0d 03 0c 05  e1 0d 03 16 05 3a 0d 03  |.-42.........:..|
00000660  20 0d dd f2 72 6f 74 6c  69 6e 65 0d 03 2a 16 e7  | ...rotline..*..|
00000670  20 a6 2d 31 20 73 25 3d  32 30 20 8b 20 73 25 3d  | .-1 s%=20 . s%=|
00000680  31 0d 03 34 23 61 6e 67  3d 61 6e 67 2d a6 2d 31  |1..4#ang=ang-.-1|
00000690  30 34 2a 73 25 2f 36 30  2b a6 2d 31 30 33 2a 73  |04*s%/60+.-103*s|
000006a0  25 2f 36 30 0d 03 3e 22  73 69 64 65 25 3d 94 28  |%/60..>"side%=.(|
000006b0  73 69 64 65 25 2d a6 2d  36 37 2a 73 25 2b a6 2d  |side%-.-67*s%+.-|
000006c0  39 38 2a 73 25 29 0d 03  48 23 62 61 73 65 25 3d  |98*s%)..H#base%=|
000006d0  94 28 62 61 73 65 25 2d  a6 2d 37 33 2a 73 25 2b  |.(base%-.-73*s%+|
000006e0  a6 2d 31 30 35 2a 73 25  29 0d 03 52 15 70 3d 9b  |.-105*s%)..R.p=.|
000006f0  28 61 6e 67 29 3a 71 3d  b5 28 61 6e 67 29 0d 03  |(ang):q=.(ang)..|
00000700  5c 1b 78 31 25 3d 73 69  64 65 25 2a 70 3a 79 31  |\.x1%=side%*p:y1|
00000710  25 3d 73 69 64 65 25 2a  71 0d 03 66 1b 78 32 25  |%=side%*q..f.x2%|
00000720  3d 62 61 73 65 25 2a 71  3a 79 32 25 3d 62 61 73  |=base%*q:y2%=bas|
00000730  65 25 2a 70 0d 03 70 05  e1 0d 03 7a 05 3a 0d 03  |e%*p..p....z.:..|
00000740  84 1b dd f2 62 61 73 65  6c 69 6e 65 3a ec 58 25  |....baseline:.X%|
00000750  2c 59 25 3a 2a 46 58 31  39 0d 03 8e 1d e6 33 2c  |,Y%:*FX19.....3,|
00000760  37 3a f0 74 79 70 65 25  2c 58 25 2b 78 31 25 2c  |7:.type%,X%+x1%,|
00000770  59 25 2d 79 31 25 0d 03  98 15 ec 58 25 2c 59 25  |Y%-y1%.....X%,Y%|
00000780  3a e6 33 2c 63 75 72 63  6f 6c 25 0d 03 a2 19 f0  |:.3,curcol%.....|
00000790  35 2c 58 25 2b 78 32 25  2c 59 25 2b 79 32 25 3a  |5,X%+x2%,Y%+y2%:|
000007a0  e6 33 2c 37 0d 03 ac 17  f0 36 39 2c 58 25 2b 78  |.3,7.....69,X%+x|
000007b0  32 25 2c 59 25 2b 79 32  25 3a e1 0d 03 b6 05 3a  |2%,Y%+y2%:.....:|
000007c0  0d 03 c0 0a dd f2 6c 6f  61 64 0d 03 ca 14 f5 20  |......load..... |
000007d0  fd 20 a6 2d 38 37 3d 30  3a 2a 46 58 31 35 0d 03  |. .-87=0:*FX15..|
000007e0  d4 19 e8 22 4c 6f 61 64  20 66 69 6c 65 6e 61 6d  |..."Load filenam|
000007f0  65 22 2c 46 24 3a db 0d  03 de 1b e7 20 46 24 3e  |e",F$:...... F$>|
00000800  22 22 20 f2 6f 73 28 22  4c 4f 41 44 20 22 2b 46  |"" .os("LOAD "+F|
00000810  24 29 0d 03 e8 0e f2 63  6f 6c 73 6f 66 66 3a e1  |$).....colsoff:.|
00000820  0d 03 f2 05 3a 0d 03 fc  0a dd f2 73 61 76 65 0d  |....:......save.|
00000830  04 06 14 f5 20 fd 20 a6  2d 38 32 3d 30 3a 2a 46  |.... . .-82=0:*F|
00000840  58 31 35 0d 04 10 19 e8  22 53 61 76 65 20 66 69  |X15....."Save fi|
00000850  6c 65 6e 61 6d 65 22 2c  46 24 3a db 0d 04 1a 28  |lename",F$:....(|
00000860  e7 20 46 24 3e 22 22 20  f2 6f 73 28 22 53 41 56  |. F$>"" .os("SAV|
00000870  45 20 22 2b 46 24 2b 22  20 33 30 30 30 20 38 30  |E "+F$+" 3000 80|
00000880  30 30 22 29 0d 04 24 05  e1 0d 04 2e 05 3a 0d 04  |00")..$......:..|
00000890  38 0b dd 20 f2 6b 65 79  73 0d 04 42 18 f2 6d 6f  |8.. .keys..B..mo|
000008a0  76 65 3a f2 72 6f 74 6c  69 6e 65 3a 2a 46 58 32  |ve:.rotline:*FX2|
000008b0  31 0d 04 4c 39 e7 20 a6  2d 39 37 20 f2 6c 6e 73  |1..L9. .-97 .lns|
000008c0  28 58 25 2c 59 25 2c 62  61 73 65 25 2c 73 69 64  |(X%,Y%,base%,sid|
000008d0  65 25 2c 61 6e 67 2c 74  79 70 65 25 2c 73 74 61  |e%,ang,type%,sta|
000008e0  72 74 25 2c 61 64 64 63  25 29 0d 04 56 10 e7 20  |rt%,addc%)..V.. |
000008f0  a6 2d 38 37 20 f2 6c 6f  61 64 0d 04 60 10 e7 20  |.-87 .load..`.. |
00000900  a6 2d 38 32 20 f2 73 61  76 65 0d 04 6a 14 e7 20  |.-82 .save..j.. |
00000910  a6 2d 31 30 32 20 f2 61  6e 69 6d 61 74 65 0d 04  |.-102 .animate..|
00000920  74 1c e7 20 a6 2d 36 36  20 61 64 64 63 25 3d 30  |t.. .-66 addc%=0|
00000930  3a 63 75 72 63 6f 6c 25  3d 31 0d 04 7e 1d e7 20  |:curcol%=1..~.. |
00000940  a6 2d 31 30 31 20 61 64  64 63 25 3d 34 3a 63 75  |.-101 addc%=4:cu|
00000950  72 63 6f 6c 25 3d 34 0d  04 88 13 e7 20 a6 2d 35  |rcol%=4..... .-5|
00000960  31 20 74 79 70 65 25 3d  32 31 0d 04 92 12 e7 20  |1 type%=21..... |
00000970  a6 2d 38 33 20 74 79 70  65 25 3d 35 0d 04 9c 05  |.-83 type%=5....|
00000980  e1 0d 04 a6 05 3a 0d 04  b0 1a dd f2 6f 73 28 24  |.....:......os($|
00000990  62 25 29 3a ea 58 25 2c  59 25 3a 58 25 3d 62 25  |b%):.X%,Y%:X%=b%|
000009a0  0d 04 ba 16 59 25 3d 58  25 81 32 35 36 3a d6 26  |....Y%=X%.256:.&|
000009b0  46 46 46 37 3a e1 0d 04  c4 05 3a 0d 04 ce 11 dd  |FFF7:.....:.....|
000009c0  20 f2 65 72 72 6f 72 3a  2a 46 58 34 0d 04 d8 29  | .error:*FX4...)|
000009d0  e7 20 9f 3d 31 37 20 f1  22 46 69 6e 69 73 68 65  |. .=17 ."Finishe|
000009e0  64 22 20 8b 20 f6 3a f1  22 20 61 74 20 6c 69 6e  |d" . .:." at lin|
000009f0  65 20 22 3b 9e 0d 04 e2  05 e1 0d ff              |e ";........|
000009fc
18-03-89/Flow.m0
18-03-89/Flow.m1
18-03-89/Flow.m2
18-03-89/Flow.m4
18-03-89/Flow.m5