Home » Archimedes archive » Acorn User » AU 1997-04 A.adf » Features1 » StarInfo/Adcock/Squids32
StarInfo/Adcock/Squids32
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 1997-04 A.adf » Features1 |
| Filename: | StarInfo/Adcock/Squids32 |
| Read OK: | ✔ |
| File size: | 0839 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Squids32
20REM By Mark Adcock
30REM 19/11/96
40REM
50PROCmode("X640 Y480 C16M")
60ON ERROR REPORT:PRINTERL:END
70SYS "ColourTrans_SetGCOL",(0<<8)+(0<<16)+(255<<24)
80CIRCLEFILL 640,512,820
90DIM XR(10),YR(10)
100REPEAT
110PROCDRAWSCALLOP
120UNTIL FALSE
130END
140:
150:
160:
170DEF PROCDRAWSCALLOP
180ER=RND(128)+128
190EG=RND(128)+128
200EB=RND(128)+128
210X=RND(1280)
220Y=RND(1024)
230S=RND(200)
240XR=S
250YR=0
260PROCROT(XR,YR,RND(360))
270XR=NX
280YR=NY
290N=RND(5)+5
300SPREAD=RND((270/(N*2))-5)+5
310FOR L=1 TO N
320XR(L)=XR
330YR(L)=YR
340PROCROT(XR,YR,SPREAD)
350XR=NX
360YR=NY
370NEXT L
380:
390CN=128
400RP=(ER)/CN
410GP=(EG)/CN
420BP=(EB-255)/CN
430FOR C = 1 TO CN STEP 2.5
440SYS "ColourTrans_SetGCOL",((RP*(C-1))<<8)+((GP*(C-1))<<16)+((255+BP*(C-1))<<24),,,&333
450FOR L = 1 TO N
460PROCLINE(X-XR(L)/3,Y-YR(L)/3,X+XR(L),Y+YR(L),0.5*((CN-C)/CN)*(2*S*PI)/N)
470NEXTL
480NEXT C
490ENDPROC
500:
510:
520:
530DEF PROCROT(TX,TY,TR)
540TR=RAD(TR)
550NX=TX*COS(TR)-TY*SIN(TR)
560NY=TX*SIN(TR)+TY*COS(TR)
570ENDPROC
580:
590:
600:
610DEF PROCLINE(OLX,OLY,LX,LY,SIZE)
620LOCAL LXP,LYP,C,SX,SY,A,L
630IF LX=OLX LX+=1
640IF LY=OLY LY+=1
650IF ABS(LX-OLX)>ABS(LY-OLY) THEN
660 L=ABS(LX-OLX)
670 LXP=(LX-OLX)/L:LYP=(LY-OLY)/ABS(LX-OLX)
680ENDIF
690IF ABS(LY-OLY)>ABS(LX-OLX) THEN
700 L=ABS(LY-OLY)
710 LYP=(LY-OLY)/L:LXP=(LX-OLX)/ABS(LY-OLY)
720ENDIF
730IF L=0 L=1
740SX=OLX
750SY=OLY
760SP=SIZE/L
770FOR A = 1 TO L/6-2
780SX+=LXP*6
790SY+=LYP*6
800SIZE-=SP*6
810CIRCLEFILL SX,SY,SIZE
820NEXT A
830ENDPROC
840:
850:
860:
870DEF PROCmode(mode$)
880LOCAL c$,ex,ey,mode,end
890DIM mode 64
900end=mode+20
910!mode=1
920mode!4=VALFN_m(mode$,"X","")
930mode!8=VALFN_m(mode$,"Y","")
940c$=FN_m(mode$,"C","*")
950IF c$="*" THEN
960 c$=FN_m(mode$,"G","")
970 IF c$="256" !end=3:end!4=255:end+=8
980ENDIF
990mode!12=FN_bpp(c$)
1000mode!16=VALFN_m(mode$,"F","-1")
1010ex=VALFN_m(mode$,"EX","-1")
1020IF ex<>-1 !end=4:end!4=ex:end+=8
1030ey=VALFN_m(mode$,"EY","-1")
1040IF ey<>-1 !end=5:end!4=ey:end+=8
1050!end=-1
1060MODE mode
1070ENDPROC
1080
1090DEF FN_m(s$,p$,d$)
1100LOCAL i,j
1110i=INSTR(s$,p$)
1120IF i<1 AND d$="" ERROR 490,"Missing "+p$
1130IF i<1 THEN =d$
1140j=INSTR(s$+" "," ",i+1)
1150=MID$(s$,i+1,j-i-1)
1160
1170DEF FN_bpp(n$)
1180CASE n$ OF
1190 WHEN "2":=0
1200 WHEN "4":=1
1210 WHEN "16":=2
1220 WHEN "256":=3
1230 WHEN "32T","32t","32K","32k":=4
1240 WHEN "16M","16m":=5
1250 OTHERWISE: ERROR 490,"Bad parameter "+n$
1260ENDCASE
� Squids32
� By Mark Adcock
� 19/11/96
(�
2�mode("X640 Y480 C16M")
<� � �:�:�
F5ș "ColourTrans_SetGCOL",(0<<8)+(0<<16)+(255<<24)
PȏȐ 640,512,820
Z� XR(10),YR(10)
d�
n�DRAWSCALLOP
x� �
��
�:
�:
�:
�� �DRAWSCALLOP
�ER=�(128)+128
�EG=�(128)+128
�EB=�(128)+128
�
X=�(1280)
�
Y=�(1024)
� S=�(200)
�XR=S
�YR=0
�ROT(XR,YR,�(360))
XR=NX
YR=NY
" N=�(5)+5
, SPREAD=�((270/(N*2))-5)+5
6
� L=1 � N
@ XR(L)=XR
J YR(L)=YR
T�ROT(XR,YR,SPREAD)
^ XR=NX
h YR=NY
r� L
|:
�
CN=128
�RP=(ER)/CN
�GP=(EG)/CN
�BP=(EB-255)/CN
�� C = 1 � CN � 2.5
�Yș "ColourTrans_SetGCOL",((RP*(C-1))<<8)+((GP*(C-1))<<16)+((255+BP*(C-1))<<24),,,&333
�� L = 1 � N
�H�LINE(X-XR(L)/3,Y-YR(L)/3,X+XR(L),Y+YR(L),0.5*((CN-C)/CN)*(2*S*�)/N)
��L
�� C
��
�:
�:
:
� �ROT(TX,TY,TR)
TR=�(TR)
&NX=TX*�(TR)-TY*�(TR)
0NY=TX*�(TR)+TY*�(TR)
:�
D:
N:
X:
b � �LINE(OLX,OLY,LX,LY,SIZE)
l� LXP,LYP,C,SX,SY,A,L
v� LX=OLX LX+=1
�� LY=OLY LY+=1
�� �(LX-OLX)>�(LY-OLY) �
� L=�(LX-OLX)
�* LXP=(LX-OLX)/L:LYP=(LY-OLY)/�(LX-OLX)
��
�� �(LY-OLY)>�(LX-OLX) �
� L=�(LY-OLY)
�* LYP=(LY-OLY)/L:LXP=(LX-OLX)/�(LY-OLY)
��
�
� L=0 L=1
�
SX=OLX
�
SY=OLY
�
SP=SIZE/L
� A = 1 � L/6-2
SX+=LXP*6
SY+=LYP*6
SIZE-=SP*6
*ȏȐ SX,SY,SIZE
4� A
>�
H:
R:
\:
f� �mode(mode$)
p� c$,ex,ey,mode,end
z
� mode 64
�end=mode+20
� !mode=1
� mode!4=��_m(mode$,"X","")
� mode!8=��_m(mode$,"Y","")
�c$=�_m(mode$,"C","*")
�� c$="*" �
� c$=�_m(mode$,"G","")
�' � c$="256" !end=3:end!4=255:end+=8
��
�mode!12=�_bpp(c$)
� mode!16=��_m(mode$,"F","-1")
� ex=��_m(mode$,"EX","-1")
�#� ex<>-1 !end=4:end!4=ex:end+=8
ey=��_m(mode$,"EY","-1")
#� ey<>-1 !end=5:end!4=ey:end+=8
!end=-1
$
� mode
.�
8
B� �_m(s$,p$,d$)
L � i,j
V
i=�s$,p$)
`%� i<1 � d$="" � 490,"Missing "+p$
j� i<1 � =d$
tj=�s$+" "," ",i+1)
~=�s$,i+1,j-i-1)
�
�� �_bpp(n$)
� Ȏ n$ �
�
� "2":=0
�
� "4":=1
� � "16":=2
� � "256":=3
�! � "32T","32t","32K","32k":=4
� � "16M","16m":=5
�! : � 490,"Bad parameter "+n$
��
� 00000000 0d 00 0a 0e f4 20 53 71 75 69 64 73 33 32 0d 00 |..... Squids32..|
00000010 14 14 f4 20 42 79 20 4d 61 72 6b 20 41 64 63 6f |... By Mark Adco|
00000020 63 6b 0d 00 1e 0e f4 20 31 39 2f 31 31 2f 39 36 |ck..... 19/11/96|
00000030 0d 00 28 05 f4 0d 00 32 1b f2 6d 6f 64 65 28 22 |..(....2..mode("|
00000040 58 36 34 30 20 59 34 38 30 20 43 31 36 4d 22 29 |X640 Y480 C16M")|
00000050 0d 00 3c 0e ee 20 85 20 f6 3a f1 9e 3a e0 0d 00 |..<.. . .:..:...|
00000060 46 35 c8 99 20 22 43 6f 6c 6f 75 72 54 72 61 6e |F5.. "ColourTran|
00000070 73 5f 53 65 74 47 43 4f 4c 22 2c 28 30 3c 3c 38 |s_SetGCOL",(0<<8|
00000080 29 2b 28 30 3c 3c 31 36 29 2b 28 32 35 35 3c 3c |)+(0<<16)+(255<<|
00000090 32 34 29 0d 00 50 14 c8 8f c8 90 20 36 34 30 2c |24)..P..... 640,|
000000a0 35 31 32 2c 38 32 30 0d 00 5a 13 de 20 58 52 28 |512,820..Z.. XR(|
000000b0 31 30 29 2c 59 52 28 31 30 29 0d 00 64 05 f5 0d |10),YR(10)..d...|
000000c0 00 6e 10 f2 44 52 41 57 53 43 41 4c 4c 4f 50 0d |.n..DRAWSCALLOP.|
000000d0 00 78 07 fd 20 a3 0d 00 82 05 e0 0d 00 8c 05 3a |.x.. ..........:|
000000e0 0d 00 96 05 3a 0d 00 a0 05 3a 0d 00 aa 12 dd 20 |....:....:..... |
000000f0 f2 44 52 41 57 53 43 41 4c 4c 4f 50 0d 00 b4 11 |.DRAWSCALLOP....|
00000100 45 52 3d b3 28 31 32 38 29 2b 31 32 38 0d 00 be |ER=.(128)+128...|
00000110 11 45 47 3d b3 28 31 32 38 29 2b 31 32 38 0d 00 |.EG=.(128)+128..|
00000120 c8 11 45 42 3d b3 28 31 32 38 29 2b 31 32 38 0d |..EB=.(128)+128.|
00000130 00 d2 0d 58 3d b3 28 31 32 38 30 29 0d 00 dc 0d |...X=.(1280)....|
00000140 59 3d b3 28 31 30 32 34 29 0d 00 e6 0c 53 3d b3 |Y=.(1024)....S=.|
00000150 28 32 30 30 29 0d 00 f0 08 58 52 3d 53 0d 00 fa |(200)....XR=S...|
00000160 08 59 52 3d 30 0d 01 04 16 f2 52 4f 54 28 58 52 |.YR=0.....ROT(XR|
00000170 2c 59 52 2c b3 28 33 36 30 29 29 0d 01 0e 09 58 |,YR,.(360))....X|
00000180 52 3d 4e 58 0d 01 18 09 59 52 3d 4e 59 0d 01 22 |R=NX....YR=NY.."|
00000190 0c 4e 3d b3 28 35 29 2b 35 0d 01 2c 1d 53 50 52 |.N=.(5)+5..,.SPR|
000001a0 45 41 44 3d b3 28 28 32 37 30 2f 28 4e 2a 32 29 |EAD=.((270/(N*2)|
000001b0 29 2d 35 29 2b 35 0d 01 36 0d e3 20 4c 3d 31 20 |)-5)+5..6.. L=1 |
000001c0 b8 20 4e 0d 01 40 0c 58 52 28 4c 29 3d 58 52 0d |. N..@.XR(L)=XR.|
000001d0 01 4a 0c 59 52 28 4c 29 3d 59 52 0d 01 54 16 f2 |.J.YR(L)=YR..T..|
000001e0 52 4f 54 28 58 52 2c 59 52 2c 53 50 52 45 41 44 |ROT(XR,YR,SPREAD|
000001f0 29 0d 01 5e 09 58 52 3d 4e 58 0d 01 68 09 59 52 |)..^.XR=NX..h.YR|
00000200 3d 4e 59 0d 01 72 07 ed 20 4c 0d 01 7c 05 3a 0d |=NY..r.. L..|.:.|
00000210 01 86 0a 43 4e 3d 31 32 38 0d 01 90 0e 52 50 3d |...CN=128....RP=|
00000220 28 45 52 29 2f 43 4e 0d 01 9a 0e 47 50 3d 28 45 |(ER)/CN....GP=(E|
00000230 47 29 2f 43 4e 0d 01 a4 12 42 50 3d 28 45 42 2d |G)/CN....BP=(EB-|
00000240 32 35 35 29 2f 43 4e 0d 01 ae 16 e3 20 43 20 3d |255)/CN..... C =|
00000250 20 31 20 b8 20 43 4e 20 88 20 32 2e 35 0d 01 b8 | 1 . CN . 2.5...|
00000260 59 c8 99 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 |Y.. "ColourTrans|
00000270 5f 53 65 74 47 43 4f 4c 22 2c 28 28 52 50 2a 28 |_SetGCOL",((RP*(|
00000280 43 2d 31 29 29 3c 3c 38 29 2b 28 28 47 50 2a 28 |C-1))<<8)+((GP*(|
00000290 43 2d 31 29 29 3c 3c 31 36 29 2b 28 28 32 35 35 |C-1))<<16)+((255|
000002a0 2b 42 50 2a 28 43 2d 31 29 29 3c 3c 32 34 29 2c |+BP*(C-1))<<24),|
000002b0 2c 2c 26 33 33 33 0d 01 c2 0f e3 20 4c 20 3d 20 |,,&333..... L = |
000002c0 31 20 b8 20 4e 0d 01 cc 48 f2 4c 49 4e 45 28 58 |1 . N...H.LINE(X|
000002d0 2d 58 52 28 4c 29 2f 33 2c 59 2d 59 52 28 4c 29 |-XR(L)/3,Y-YR(L)|
000002e0 2f 33 2c 58 2b 58 52 28 4c 29 2c 59 2b 59 52 28 |/3,X+XR(L),Y+YR(|
000002f0 4c 29 2c 30 2e 35 2a 28 28 43 4e 2d 43 29 2f 43 |L),0.5*((CN-C)/C|
00000300 4e 29 2a 28 32 2a 53 2a af 29 2f 4e 29 0d 01 d6 |N)*(2*S*.)/N)...|
00000310 06 ed 4c 0d 01 e0 07 ed 20 43 0d 01 ea 05 e1 0d |..L..... C......|
00000320 01 f4 05 3a 0d 01 fe 05 3a 0d 02 08 05 3a 0d 02 |...:....:....:..|
00000330 12 14 dd 20 f2 52 4f 54 28 54 58 2c 54 59 2c 54 |... .ROT(TX,TY,T|
00000340 52 29 0d 02 1c 0c 54 52 3d b2 28 54 52 29 0d 02 |R)....TR=.(TR)..|
00000350 26 18 4e 58 3d 54 58 2a 9b 28 54 52 29 2d 54 59 |&.NX=TX*.(TR)-TY|
00000360 2a b5 28 54 52 29 0d 02 30 18 4e 59 3d 54 58 2a |*.(TR)..0.NY=TX*|
00000370 b5 28 54 52 29 2b 54 59 2a 9b 28 54 52 29 0d 02 |.(TR)+TY*.(TR)..|
00000380 3a 05 e1 0d 02 44 05 3a 0d 02 4e 05 3a 0d 02 58 |:....D.:..N.:..X|
00000390 05 3a 0d 02 62 1f dd 20 f2 4c 49 4e 45 28 4f 4c |.:..b.. .LINE(OL|
000003a0 58 2c 4f 4c 59 2c 4c 58 2c 4c 59 2c 53 49 5a 45 |X,OLY,LX,LY,SIZE|
000003b0 29 0d 02 6c 19 ea 20 4c 58 50 2c 4c 59 50 2c 43 |)..l.. LXP,LYP,C|
000003c0 2c 53 58 2c 53 59 2c 41 2c 4c 0d 02 76 12 e7 20 |,SX,SY,A,L..v.. |
000003d0 4c 58 3d 4f 4c 58 20 4c 58 2b 3d 31 0d 02 80 12 |LX=OLX LX+=1....|
000003e0 e7 20 4c 59 3d 4f 4c 59 20 4c 59 2b 3d 31 0d 02 |. LY=OLY LY+=1..|
000003f0 8a 1b e7 20 94 28 4c 58 2d 4f 4c 58 29 3e 94 28 |... .(LX-OLX)>.(|
00000400 4c 59 2d 4f 4c 59 29 20 8c 0d 02 94 10 20 4c 3d |LY-OLY) ..... L=|
00000410 94 28 4c 58 2d 4f 4c 58 29 0d 02 9e 2a 20 4c 58 |.(LX-OLX)...* LX|
00000420 50 3d 28 4c 58 2d 4f 4c 58 29 2f 4c 3a 4c 59 50 |P=(LX-OLX)/L:LYP|
00000430 3d 28 4c 59 2d 4f 4c 59 29 2f 94 28 4c 58 2d 4f |=(LY-OLY)/.(LX-O|
00000440 4c 58 29 0d 02 a8 05 cd 0d 02 b2 1b e7 20 94 28 |LX).......... .(|
00000450 4c 59 2d 4f 4c 59 29 3e 94 28 4c 58 2d 4f 4c 58 |LY-OLY)>.(LX-OLX|
00000460 29 20 8c 0d 02 bc 10 20 4c 3d 94 28 4c 59 2d 4f |) ..... L=.(LY-O|
00000470 4c 59 29 0d 02 c6 2a 20 4c 59 50 3d 28 4c 59 2d |LY)...* LYP=(LY-|
00000480 4f 4c 59 29 2f 4c 3a 4c 58 50 3d 28 4c 58 2d 4f |OLY)/L:LXP=(LX-O|
00000490 4c 58 29 2f 94 28 4c 59 2d 4f 4c 59 29 0d 02 d0 |LX)/.(LY-OLY)...|
000004a0 05 cd 0d 02 da 0d e7 20 4c 3d 30 20 4c 3d 31 0d |....... L=0 L=1.|
000004b0 02 e4 0a 53 58 3d 4f 4c 58 0d 02 ee 0a 53 59 3d |...SX=OLX....SY=|
000004c0 4f 4c 59 0d 02 f8 0d 53 50 3d 53 49 5a 45 2f 4c |OLY....SP=SIZE/L|
000004d0 0d 03 02 13 e3 20 41 20 3d 20 31 20 b8 20 4c 2f |..... A = 1 . L/|
000004e0 36 2d 32 0d 03 0c 0d 53 58 2b 3d 4c 58 50 2a 36 |6-2....SX+=LXP*6|
000004f0 0d 03 16 0d 53 59 2b 3d 4c 59 50 2a 36 0d 03 20 |....SY+=LYP*6.. |
00000500 0e 53 49 5a 45 2d 3d 53 50 2a 36 0d 03 2a 13 c8 |.SIZE-=SP*6..*..|
00000510 8f c8 90 20 53 58 2c 53 59 2c 53 49 5a 45 0d 03 |... SX,SY,SIZE..|
00000520 34 07 ed 20 41 0d 03 3e 05 e1 0d 03 48 05 3a 0d |4.. A..>....H.:.|
00000530 03 52 05 3a 0d 03 5c 05 3a 0d 03 66 12 dd 20 f2 |.R.:..\.:..f.. .|
00000540 6d 6f 64 65 28 6d 6f 64 65 24 29 0d 03 70 17 ea |mode(mode$)..p..|
00000550 20 63 24 2c 65 78 2c 65 79 2c 6d 6f 64 65 2c 65 | c$,ex,ey,mode,e|
00000560 6e 64 0d 03 7a 0d de 20 6d 6f 64 65 20 36 34 0d |nd..z.. mode 64.|
00000570 03 84 0f 65 6e 64 3d 6d 6f 64 65 2b 32 30 0d 03 |...end=mode+20..|
00000580 8e 0b 21 6d 6f 64 65 3d 31 0d 03 98 1d 6d 6f 64 |..!mode=1....mod|
00000590 65 21 34 3d bb a4 5f 6d 28 6d 6f 64 65 24 2c 22 |e!4=.._m(mode$,"|
000005a0 58 22 2c 22 22 29 0d 03 a2 1d 6d 6f 64 65 21 38 |X","")....mode!8|
000005b0 3d bb a4 5f 6d 28 6d 6f 64 65 24 2c 22 59 22 2c |=.._m(mode$,"Y",|
000005c0 22 22 29 0d 03 ac 19 63 24 3d a4 5f 6d 28 6d 6f |"")....c$=._m(mo|
000005d0 64 65 24 2c 22 43 22 2c 22 2a 22 29 0d 03 b6 0e |de$,"C","*")....|
000005e0 e7 20 63 24 3d 22 2a 22 20 8c 0d 03 c0 19 20 63 |. c$="*" ..... c|
000005f0 24 3d a4 5f 6d 28 6d 6f 64 65 24 2c 22 47 22 2c |$=._m(mode$,"G",|
00000600 22 22 29 0d 03 ca 27 20 e7 20 63 24 3d 22 32 35 |"")...' . c$="25|
00000610 36 22 20 21 65 6e 64 3d 33 3a 65 6e 64 21 34 3d |6" !end=3:end!4=|
00000620 32 35 35 3a 65 6e 64 2b 3d 38 0d 03 d4 05 cd 0d |255:end+=8......|
00000630 03 de 15 6d 6f 64 65 21 31 32 3d a4 5f 62 70 70 |...mode!12=._bpp|
00000640 28 63 24 29 0d 03 e8 20 6d 6f 64 65 21 31 36 3d |(c$)... mode!16=|
00000650 bb a4 5f 6d 28 6d 6f 64 65 24 2c 22 46 22 2c 22 |.._m(mode$,"F","|
00000660 2d 31 22 29 0d 03 f2 1c 65 78 3d bb a4 5f 6d 28 |-1")....ex=.._m(|
00000670 6d 6f 64 65 24 2c 22 45 58 22 2c 22 2d 31 22 29 |mode$,"EX","-1")|
00000680 0d 03 fc 23 e7 20 65 78 3c 3e 2d 31 20 21 65 6e |...#. ex<>-1 !en|
00000690 64 3d 34 3a 65 6e 64 21 34 3d 65 78 3a 65 6e 64 |d=4:end!4=ex:end|
000006a0 2b 3d 38 0d 04 06 1c 65 79 3d bb a4 5f 6d 28 6d |+=8....ey=.._m(m|
000006b0 6f 64 65 24 2c 22 45 59 22 2c 22 2d 31 22 29 0d |ode$,"EY","-1").|
000006c0 04 10 23 e7 20 65 79 3c 3e 2d 31 20 21 65 6e 64 |..#. ey<>-1 !end|
000006d0 3d 35 3a 65 6e 64 21 34 3d 65 79 3a 65 6e 64 2b |=5:end!4=ey:end+|
000006e0 3d 38 0d 04 1a 0b 21 65 6e 64 3d 2d 31 0d 04 24 |=8....!end=-1..$|
000006f0 0a eb 20 6d 6f 64 65 0d 04 2e 05 e1 0d 04 38 04 |.. mode.......8.|
00000700 0d 04 42 13 dd 20 a4 5f 6d 28 73 24 2c 70 24 2c |..B.. ._m(s$,p$,|
00000710 64 24 29 0d 04 4c 09 ea 20 69 2c 6a 0d 04 56 0d |d$)..L.. i,j..V.|
00000720 69 3d a7 73 24 2c 70 24 29 0d 04 60 25 e7 20 69 |i=.s$,p$)..`%. i|
00000730 3c 31 20 80 20 64 24 3d 22 22 20 85 20 34 39 30 |<1 . d$="" . 490|
00000740 2c 22 4d 69 73 73 69 6e 67 20 22 2b 70 24 0d 04 |,"Missing "+p$..|
00000750 6a 0f e7 20 69 3c 31 20 8c 20 3d 64 24 0d 04 74 |j.. i<1 . =d$..t|
00000760 16 6a 3d a7 73 24 2b 22 20 22 2c 22 20 22 2c 69 |.j=.s$+" "," ",i|
00000770 2b 31 29 0d 04 7e 13 3d c1 73 24 2c 69 2b 31 2c |+1)..~.=.s$,i+1,|
00000780 6a 2d 69 2d 31 29 0d 04 88 04 0d 04 92 0f dd 20 |j-i-1)......... |
00000790 a4 5f 62 70 70 28 6e 24 29 0d 04 9c 0b c8 8e 20 |._bpp(n$)...... |
000007a0 6e 24 20 ca 0d 04 a6 0d 20 c9 20 22 32 22 3a 3d |n$ ..... . "2":=|
000007b0 30 0d 04 b0 0d 20 c9 20 22 34 22 3a 3d 31 0d 04 |0.... . "4":=1..|
000007c0 ba 0e 20 c9 20 22 31 36 22 3a 3d 32 0d 04 c4 0f |.. . "16":=2....|
000007d0 20 c9 20 22 32 35 36 22 3a 3d 33 0d 04 ce 21 20 | . "256":=3...! |
000007e0 c9 20 22 33 32 54 22 2c 22 33 32 74 22 2c 22 33 |. "32T","32t","3|
000007f0 32 4b 22 2c 22 33 32 6b 22 3a 3d 34 0d 04 d8 15 |2K","32k":=4....|
00000800 20 c9 20 22 31 36 4d 22 2c 22 31 36 6d 22 3a 3d | . "16M","16m":=|
00000810 35 0d 04 e2 21 20 7f 3a 20 85 20 34 39 30 2c 22 |5...! .: . 490,"|
00000820 42 61 64 20 70 61 72 61 6d 65 74 65 72 20 22 2b |Bad parameter "+|
00000830 6e 24 0d 04 ec 05 cb 0d ff |n$.......|
00000839 
.