Home » Archimedes archive » Acorn Computing » 1994 09 subscription disc.adf » 9409s » BeebDisk/STERENG
BeebDisk/STERENG
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 Computing » 1994 09 subscription disc.adf » 9409s |
| Filename: | BeebDisk/STERENG |
| Read OK: | ✔ |
| File size: | 09D9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn Computing » 1994 09 subscription disc.adf » 9409s » BeebDisk/STERENG
- AEW website » mu » mu_5_25_discs_Micro_User_12_07_D-MU12_07.ssd » STERENG
File contents
10*TV255
20MODE 1
30DIM st(30,2):rpt%=25
40DIM CLI% 50
50DIM t$(4)
60REM ** Stereo Engine Main Program **
70REM ** J westbury **
80REM ** 7/1/93 **
90VDU23,224,255,255,255,255,255,255,255,255
100VDU23,225,85,170,85,170,85,170,85,170
110VDU23,226,85,0,85,0,85,0,85,0
120PRINTTAB(0,1)"STEREO ENGINE"
130PRINTTAB(0,2)"by JOSHUA WESTBURY"
140PROCinput(4,"Load filename",7):lf$=g$
150PROCinput(6,"Save filename",7):sf$=g$
160PROCinput(9,"H for high-res L for low-res",1):IF g$="H" res%=1 ELSE res%=2
170PROCinput(11,"Y for miniature N for no miniature",1):IF g$="Y" min%=1 ELSE min%=0
180PROCinput(13,"C for color/greyscale T for 2-tone",1):IF g$="C" col%=1 ELSE col%=0
190PROCinput(15,"Title (14 letters)",14):title$=g$
200FOR L=1 TO 4
210PROCinput(15+L*2,"Line "+STR$(L)+" of text (28 letters)",28):t$(L)=g$
220NEXT
230PROCinput(26,"All O.K.? (Y/N)",1):IF g$<>"Y" RUN
240CLS
250PROCoscli("*LOAD "+lf$+" 3000")
255GCOL0,0:MOVE0,0:MOVE1279,0:PLOT85,0,156:PLOT85,1279,156
260IF col%=1 PROCbdr(1) ELSE PROCbdr(0)
270IF min%=1 PROCmin
280PROClabel
285COLOUR3
290PRINTTAB(16-LEN(title$)/2,27)title$
295COLOUR2
300FOR L=1 TO 4:PRINTTAB(16-LEN(t$(L))/2,27+L)t$(L);:NEXT
310PROCstereo(100,923,1179,260,res%)
320PROCoscli("*SAVE "+sf$+" 3000 7FFF")
330END
340END
350 DEFPROCstereo(xa,ya,xb,yb,n)
360 FOR Y=ya TO yb STEP -4*n
370FOR P=1 TO rpt%
380st(P,1)=0
390IF col%=1 st(P,0)=RND(4)-1 ELSE st(P,0)=RND(2)-1
400NEXT
410OL%=0:NL%=0
420 P%=1
430FOR X=xa TO xb STEP 4
440OL%=NL%
450P=POINT(X,Y):IF P=0 NL%=0 ELSE NL%=P+4
460R=NL%-OL%
470IF R>0 FOR I=1 TO R:PROCrise:NEXT
480IF R<0 FOR I=1 TO -R:PROCfall:NEXT
490PROCnextpt
500NEXT:NEXT:ENDPROC
510DEFPROCnextpt
520GCOL0,st(P%,0):PLOT69,X,Y
530IF n=2 PLOT69,X,Y-4
540 REPEAT:P%=P%+1:IF P%>rpt% P%=1
550 UNTIL st(P%,1)=0
560ENDPROC
570DEFPROCrise
580st(P%,1)=1
590REPEAT:P%=P%+1:IF P%>rpt% P%=1
600UNTIL st(P%,1)=0
610ENDPROC
620DEFPROCfall
630Q%=P%
635R=st(P%,0):IF col%=1 st(P%,0)=RND(4)-1 ELSE st(P%,0)=RND(2)-1
640REPEAT:P%=P%+1:IF P%>rpt% P%=1
645S=st(P%,0):st(P%,0)=R:R=S
650 UNTIL st(P%,1)=1
660st(P%,1)=0
670P%=Q%
700ENDPROC
710DEFPROCbdr(n)
720 COLOUR3
730FOR I=0 TO 2
740IF n=1 COLOUR3-I:char=224 ELSE char=224+I
750PRINTTAB(I,I)STRING$(40-2*I,CHR$(char))
760PRINTTAB(I,26-I)STRING$(40-2*I,CHR$(char))
770FOR J=I+1 TO 25-I
780PRINTTAB(I,J)CHR$(char)
790PRINTTAB(39-I,J)CHR$(char)
800NEXT
810NEXT
820 ENDPROC
830DEFPROCinput(y,a$,len)
840PRINTTAB(0,y)a$
850g$=""
860*FX15,0
870REPEAT
880A=GET
890IF A>31 AND A<127 AND LEN(g$)<len g$=g$+CHR$(A)
900IF A=127 AND LEN(g$)>0 g$=LEFT$(g$,LEN(g$)-1)
910PRINTTAB(0,y+1)g$;" "
920UNTIL A=13
930ENDPROC
940DEFPROCoscli(a$)
950$CLI%=a$
960X%=CLI% MOD &100
970Y%=CLI% DIV &100
980CALL &FFF7
990ENDPROC
1000DEFPROCmin
1010FOR I=0 TO 1079 STEP 13
1020 FOR J=0 TO 663 STEP 16.5
1025 K=POINT(100+I,260+J)
1030 IF K>0 GCOL0,K:PLOT69,960+I/1079*320,J/663*160
1040NEXT:NEXT:ENDPROC
1050DEFPROClabel
1060PRINTTAB(3,30)"STEREO"
1070PRINTTAB(3,31)"ENGINE";
1075GCOL0,3
1080FOR I=0 TO 48:FOR J=0 TO 7.5 STEP 0.5
1090IF POINT(96+I*4,J*8)>0 PLOT69,(8.5-J)*8,I*160/48
1100NEXT:NEXT
1105PRINTTAB(3,30)" "
1106PRINTTAB(3,31)" ";
1110ENDPROC
*TV255
� 1
� st(30,2):rpt%=25
(
� CLI% 50
2 � t$(4)
<&� ** Stereo Engine Main Program **
F� ** J westbury **
P� ** 7/1/93 **
Z+�23,224,255,255,255,255,255,255,255,255
d'�23,225,85,170,85,170,85,170,85,170
n �23,226,85,0,85,0,85,0,85,0
x�0,1)"STEREO ENGINE"
� �0,2)"by JOSHUA WESTBURY"
�&�input(4,"Load filename",7):lf$=g$
�&�input(6,"Save filename",7):sf$=g$
�G�input(9,"H for high-res L for low-res",1):� g$="H" res%=1 � res%=2
�N�input(11,"Y for miniature N for no miniature",1):� g$="Y" min%=1 � min%=0
�N�input(13,"C for color/greyscale T for 2-tone",1):� g$="C" col%=1 � col%=0
�0�input(15,"Title (14 letters)",14):title$=g$
�
� L=1 � 4
�C�input(15+L*2,"Line "+�(L)+" of text (28 letters)",28):t$(L)=g$
��
�.�input(26,"All O.K.? (Y/N)",1):� g$<>"Y" �
��
� �oscli("*LOAD "+lf$+" 3000")
�,�0,0:�0,0:�1279,0:�85,0,156:�85,1279,156
� col%=1 �bdr(1) � �bdr(0)
� min%=1 �min
�label
�3
" �16-�(title$)/2,27)title$
'�2
,+� L=1 � 4:�16-�(t$(L))/2,27+L)t$(L);:�
6"�stereo(100,923,1179,260,res%)
@%�oscli("*SAVE "+sf$+" 3000 7FFF")
J�
T�
^ ��stereo(xa,ya,xb,yb,n)
h � Y=ya � yb � -4*n
r� P=1 � rpt%
|
st(P,1)=0
�,� col%=1 st(P,0)=�(4)-1 � st(P,0)=�(2)-1
��
�OL%=0:NL%=0
� P%=1
�� X=xa � xb � 4
� OL%=NL%
�!P=�X,Y):� P=0 NL%=0 � NL%=P+4
�
R=NL%-OL%
�� R>0 � I=1 � R:�rise:�
� � R<0 � I=1 � -R:�fall:�
� �nextpt
� �:�:�
� ��nextpt
�0,st(P%,0):�69,X,Y
� n=2 �69,X,Y-4
�:P%=P%+1:� P%>rpt% P%=1
& � st(P%,1)=0
0�
:
��rise
Dst(P%,1)=1
N �:P%=P%+1:� P%>rpt% P%=1
X� st(P%,1)=0
b�
l
��fall
v Q%=P%
{9R=st(P%,0):� col%=1 st(P%,0)=�(4)-1 � st(P%,0)=�(2)-1
� �:P%=P%+1:� P%>rpt% P%=1
� S=st(P%,0):st(P%,0)=R:R=S
� � st(P%,1)=1
�st(P%,1)=0
� P%=Q%
��
� ��bdr(n)
� �3
�
� I=0 � 2
�$� n=1 �3-I:char=224 � char=224+I
��I,I)�40-2*I,�(char))
� �I,26-I)�40-2*I,�(char))
� J=I+1 � 25-I
�I,J)�(char)
�39-I,J)�(char)
�
*�
4 �
>��input(y,a$,len)
H �0,y)a$
R g$=""
\ *FX15,0
f�
pA=�
z)� A>31 � A<127 � �(g$)<len g$=g$+�(A)
�%� A=127 � �(g$)>0 g$=�g$,�(g$)-1)
��0,y+1)g$;" "
�
� A=13
��
���oscli(a$)
� $CLI%=a$
�X%=CLI% � &100
�Y%=CLI% � &100
� � &FFF7
��
� ��min
�� I=0 � 1079 � 13
� � J=0 � 663 � 16.5
K=�100+I,260+J)
, � K>0 �0,K:�69,960+I/1079*320,J/663*160
�:�:�
��label
$�3,30)"STEREO"
.�3,31)"ENGINE";
3�0,3
8 � I=0 � 48:� J=0 � 7.5 � 0.5
B+� �96+I*4,J*8)>0 �69,(8.5-J)*8,I*160/48
L�:�
Q�3,30)" "
R�3,31)" ";
V�
� 00000000 0d 00 0a 0a 2a 54 56 32 35 35 0d 00 14 07 eb 20 |....*TV255..... |
00000010 31 0d 00 1e 1b de 20 73 74 28 33 30 2c 32 29 3a |1..... st(30,2):|
00000020 72 70 74 25 3d 32 35 20 20 20 20 20 0d 00 28 0d |rpt%=25 ..(.|
00000030 de 20 43 4c 49 25 20 35 30 0d 00 32 0b de 20 74 |. CLI% 50..2.. t|
00000040 24 28 34 29 0d 00 3c 26 f4 20 2a 2a 20 53 74 65 |$(4)..<&. ** Ste|
00000050 72 65 6f 20 45 6e 67 69 6e 65 20 4d 61 69 6e 20 |reo Engine Main |
00000060 50 72 6f 67 72 61 6d 20 2a 2a 0d 00 46 16 f4 20 |Program **..F.. |
00000070 2a 2a 20 4a 20 77 65 73 74 62 75 72 79 20 2a 2a |** J westbury **|
00000080 0d 00 50 12 f4 20 2a 2a 20 37 2f 31 2f 39 33 20 |..P.. ** 7/1/93 |
00000090 2a 2a 0d 00 5a 2b ef 32 33 2c 32 32 34 2c 32 35 |**..Z+.23,224,25|
000000a0 35 2c 32 35 35 2c 32 35 35 2c 32 35 35 2c 32 35 |5,255,255,255,25|
000000b0 35 2c 32 35 35 2c 32 35 35 2c 32 35 35 0d 00 64 |5,255,255,255..d|
000000c0 27 ef 32 33 2c 32 32 35 2c 38 35 2c 31 37 30 2c |'.23,225,85,170,|
000000d0 38 35 2c 31 37 30 2c 38 35 2c 31 37 30 2c 38 35 |85,170,85,170,85|
000000e0 2c 31 37 30 0d 00 6e 1f ef 32 33 2c 32 32 36 2c |,170..n..23,226,|
000000f0 38 35 2c 30 2c 38 35 2c 30 2c 38 35 2c 30 2c 38 |85,0,85,0,85,0,8|
00000100 35 2c 30 0d 00 78 19 f1 8a 30 2c 31 29 22 53 54 |5,0..x...0,1)"ST|
00000110 45 52 45 4f 20 45 4e 47 49 4e 45 22 0d 00 82 1e |EREO ENGINE"....|
00000120 f1 8a 30 2c 32 29 22 62 79 20 4a 4f 53 48 55 41 |..0,2)"by JOSHUA|
00000130 20 57 45 53 54 42 55 52 59 22 0d 00 8c 26 f2 69 | WESTBURY"...&.i|
00000140 6e 70 75 74 28 34 2c 22 4c 6f 61 64 20 66 69 6c |nput(4,"Load fil|
00000150 65 6e 61 6d 65 22 2c 37 29 3a 6c 66 24 3d 67 24 |ename",7):lf$=g$|
00000160 0d 00 96 26 f2 69 6e 70 75 74 28 36 2c 22 53 61 |...&.input(6,"Sa|
00000170 76 65 20 66 69 6c 65 6e 61 6d 65 22 2c 37 29 3a |ve filename",7):|
00000180 73 66 24 3d 67 24 0d 00 a0 47 f2 69 6e 70 75 74 |sf$=g$...G.input|
00000190 28 39 2c 22 48 20 66 6f 72 20 68 69 67 68 2d 72 |(9,"H for high-r|
000001a0 65 73 20 4c 20 66 6f 72 20 6c 6f 77 2d 72 65 73 |es L for low-res|
000001b0 22 2c 31 29 3a e7 20 67 24 3d 22 48 22 20 72 65 |",1):. g$="H" re|
000001c0 73 25 3d 31 20 8b 20 72 65 73 25 3d 32 0d 00 aa |s%=1 . res%=2...|
000001d0 4e f2 69 6e 70 75 74 28 31 31 2c 22 59 20 66 6f |N.input(11,"Y fo|
000001e0 72 20 6d 69 6e 69 61 74 75 72 65 20 4e 20 66 6f |r miniature N fo|
000001f0 72 20 6e 6f 20 6d 69 6e 69 61 74 75 72 65 22 2c |r no miniature",|
00000200 31 29 3a e7 20 67 24 3d 22 59 22 20 6d 69 6e 25 |1):. g$="Y" min%|
00000210 3d 31 20 8b 20 6d 69 6e 25 3d 30 0d 00 b4 4e f2 |=1 . min%=0...N.|
00000220 69 6e 70 75 74 28 31 33 2c 22 43 20 66 6f 72 20 |input(13,"C for |
00000230 63 6f 6c 6f 72 2f 67 72 65 79 73 63 61 6c 65 20 |color/greyscale |
00000240 54 20 66 6f 72 20 32 2d 74 6f 6e 65 22 2c 31 29 |T for 2-tone",1)|
00000250 3a e7 20 67 24 3d 22 43 22 20 63 6f 6c 25 3d 31 |:. g$="C" col%=1|
00000260 20 8b 20 63 6f 6c 25 3d 30 0d 00 be 30 f2 69 6e | . col%=0...0.in|
00000270 70 75 74 28 31 35 2c 22 54 69 74 6c 65 20 28 31 |put(15,"Title (1|
00000280 34 20 6c 65 74 74 65 72 73 29 22 2c 31 34 29 3a |4 letters)",14):|
00000290 74 69 74 6c 65 24 3d 67 24 0d 00 c8 0d e3 20 4c |title$=g$..... L|
000002a0 3d 31 20 b8 20 34 0d 00 d2 43 f2 69 6e 70 75 74 |=1 . 4...C.input|
000002b0 28 31 35 2b 4c 2a 32 2c 22 4c 69 6e 65 20 22 2b |(15+L*2,"Line "+|
000002c0 c3 28 4c 29 2b 22 20 6f 66 20 74 65 78 74 20 28 |.(L)+" of text (|
000002d0 32 38 20 6c 65 74 74 65 72 73 29 22 2c 32 38 29 |28 letters)",28)|
000002e0 3a 74 24 28 4c 29 3d 67 24 0d 00 dc 05 ed 0d 00 |:t$(L)=g$.......|
000002f0 e6 2e f2 69 6e 70 75 74 28 32 36 2c 22 41 6c 6c |...input(26,"All|
00000300 20 4f 2e 4b 2e 3f 20 28 59 2f 4e 29 22 2c 31 29 | O.K.? (Y/N)",1)|
00000310 3a e7 20 67 24 3c 3e 22 59 22 20 f9 0d 00 f0 05 |:. g$<>"Y" .....|
00000320 db 0d 00 fa 20 f2 6f 73 63 6c 69 28 22 2a 4c 4f |.... .oscli("*LO|
00000330 41 44 20 22 2b 6c 66 24 2b 22 20 33 30 30 30 22 |AD "+lf$+" 3000"|
00000340 29 0d 00 ff 2c e6 30 2c 30 3a ec 30 2c 30 3a ec |)...,.0,0:.0,0:.|
00000350 31 32 37 39 2c 30 3a f0 38 35 2c 30 2c 31 35 36 |1279,0:.85,0,156|
00000360 3a f0 38 35 2c 31 32 37 39 2c 31 35 36 0d 01 04 |:.85,1279,156...|
00000370 1e e7 20 63 6f 6c 25 3d 31 20 f2 62 64 72 28 31 |.. col%=1 .bdr(1|
00000380 29 20 8b 20 f2 62 64 72 28 30 29 0d 01 0e 11 e7 |) . .bdr(0).....|
00000390 20 6d 69 6e 25 3d 31 20 f2 6d 69 6e 0d 01 18 0a | min%=1 .min....|
000003a0 f2 6c 61 62 65 6c 0d 01 1d 06 fb 33 0d 01 22 1e |.label.....3..".|
000003b0 f1 8a 31 36 2d a9 28 74 69 74 6c 65 24 29 2f 32 |..16-.(title$)/2|
000003c0 2c 32 37 29 74 69 74 6c 65 24 0d 01 27 06 fb 32 |,27)title$..'..2|
000003d0 0d 01 2c 2b e3 20 4c 3d 31 20 b8 20 34 3a f1 8a |..,+. L=1 . 4:..|
000003e0 31 36 2d a9 28 74 24 28 4c 29 29 2f 32 2c 32 37 |16-.(t$(L))/2,27|
000003f0 2b 4c 29 74 24 28 4c 29 3b 3a ed 0d 01 36 22 f2 |+L)t$(L);:...6".|
00000400 73 74 65 72 65 6f 28 31 30 30 2c 39 32 33 2c 31 |stereo(100,923,1|
00000410 31 37 39 2c 32 36 30 2c 72 65 73 25 29 0d 01 40 |179,260,res%)..@|
00000420 25 f2 6f 73 63 6c 69 28 22 2a 53 41 56 45 20 22 |%.oscli("*SAVE "|
00000430 2b 73 66 24 2b 22 20 33 30 30 30 20 37 46 46 46 |+sf$+" 3000 7FFF|
00000440 22 29 0d 01 4a 05 e0 0d 01 54 05 e0 0d 01 5e 1c |")..J....T....^.|
00000450 20 dd f2 73 74 65 72 65 6f 28 78 61 2c 79 61 2c | ..stereo(xa,ya,|
00000460 78 62 2c 79 62 2c 6e 29 0d 01 68 17 20 e3 20 59 |xb,yb,n)..h. . Y|
00000470 3d 79 61 20 b8 20 79 62 20 88 20 2d 34 2a 6e 0d |=ya . yb . -4*n.|
00000480 01 72 10 e3 20 50 3d 31 20 b8 20 72 70 74 25 0d |.r.. P=1 . rpt%.|
00000490 01 7c 0d 73 74 28 50 2c 31 29 3d 30 0d 01 86 2c |.|.st(P,1)=0...,|
000004a0 e7 20 63 6f 6c 25 3d 31 20 73 74 28 50 2c 30 29 |. col%=1 st(P,0)|
000004b0 3d b3 28 34 29 2d 31 20 8b 20 73 74 28 50 2c 30 |=.(4)-1 . st(P,0|
000004c0 29 3d b3 28 32 29 2d 31 0d 01 90 05 ed 0d 01 9a |)=.(2)-1........|
000004d0 0f 4f 4c 25 3d 30 3a 4e 4c 25 3d 30 0d 01 a4 09 |.OL%=0:NL%=0....|
000004e0 20 50 25 3d 31 0d 01 ae 13 e3 20 58 3d 78 61 20 | P%=1..... X=xa |
000004f0 b8 20 78 62 20 88 20 34 0d 01 b8 0b 4f 4c 25 3d |. xb . 4....OL%=|
00000500 4e 4c 25 0d 01 c2 21 50 3d b0 58 2c 59 29 3a e7 |NL%...!P=.X,Y):.|
00000510 20 50 3d 30 20 4e 4c 25 3d 30 20 8b 20 4e 4c 25 | P=0 NL%=0 . NL%|
00000520 3d 50 2b 34 0d 01 cc 0d 52 3d 4e 4c 25 2d 4f 4c |=P+4....R=NL%-OL|
00000530 25 0d 01 d6 1b e7 20 52 3e 30 20 e3 20 49 3d 31 |%..... R>0 . I=1|
00000540 20 b8 20 52 3a f2 72 69 73 65 3a ed 0d 01 e0 1c | . R:.rise:.....|
00000550 e7 20 52 3c 30 20 e3 20 49 3d 31 20 b8 20 2d 52 |. R<0 . I=1 . -R|
00000560 3a f2 66 61 6c 6c 3a ed 0d 01 ea 0b f2 6e 65 78 |:.fall:......nex|
00000570 74 70 74 0d 01 f4 09 ed 3a ed 3a e1 0d 01 fe 0c |tpt.....:.:.....|
00000580 dd f2 6e 65 78 74 70 74 0d 02 08 17 e6 30 2c 73 |..nextpt.....0,s|
00000590 74 28 50 25 2c 30 29 3a f0 36 39 2c 58 2c 59 0d |t(P%,0):.69,X,Y.|
000005a0 02 12 13 e7 20 6e 3d 32 20 f0 36 39 2c 58 2c 59 |.... n=2 .69,X,Y|
000005b0 2d 34 0d 02 1c 1d 20 f5 3a 50 25 3d 50 25 2b 31 |-4.... .:P%=P%+1|
000005c0 3a e7 20 50 25 3e 72 70 74 25 20 50 25 3d 31 0d |:. P%>rpt% P%=1.|
000005d0 02 26 11 20 fd 20 73 74 28 50 25 2c 31 29 3d 30 |.&. . st(P%,1)=0|
000005e0 0d 02 30 05 e1 0d 02 3a 0a dd f2 72 69 73 65 0d |..0....:...rise.|
000005f0 02 44 0e 73 74 28 50 25 2c 31 29 3d 31 0d 02 4e |.D.st(P%,1)=1..N|
00000600 1c f5 3a 50 25 3d 50 25 2b 31 3a e7 20 50 25 3e |..:P%=P%+1:. P%>|
00000610 72 70 74 25 20 50 25 3d 31 0d 02 58 10 fd 20 73 |rpt% P%=1..X.. s|
00000620 74 28 50 25 2c 31 29 3d 30 0d 02 62 05 e1 0d 02 |t(P%,1)=0..b....|
00000630 6c 0a dd f2 66 61 6c 6c 0d 02 76 09 51 25 3d 50 |l...fall..v.Q%=P|
00000640 25 0d 02 7b 39 52 3d 73 74 28 50 25 2c 30 29 3a |%..{9R=st(P%,0):|
00000650 e7 20 63 6f 6c 25 3d 31 20 73 74 28 50 25 2c 30 |. col%=1 st(P%,0|
00000660 29 3d b3 28 34 29 2d 31 20 8b 20 73 74 28 50 25 |)=.(4)-1 . st(P%|
00000670 2c 30 29 3d b3 28 32 29 2d 31 0d 02 80 1c f5 3a |,0)=.(2)-1.....:|
00000680 50 25 3d 50 25 2b 31 3a e7 20 50 25 3e 72 70 74 |P%=P%+1:. P%>rpt|
00000690 25 20 50 25 3d 31 0d 02 85 1d 53 3d 73 74 28 50 |% P%=1....S=st(P|
000006a0 25 2c 30 29 3a 73 74 28 50 25 2c 30 29 3d 52 3a |%,0):st(P%,0)=R:|
000006b0 52 3d 53 0d 02 8a 11 20 fd 20 73 74 28 50 25 2c |R=S.... . st(P%,|
000006c0 31 29 3d 31 0d 02 94 0e 73 74 28 50 25 2c 31 29 |1)=1....st(P%,1)|
000006d0 3d 30 0d 02 9e 09 50 25 3d 51 25 0d 02 bc 05 e1 |=0....P%=Q%.....|
000006e0 0d 02 c6 0c dd f2 62 64 72 28 6e 29 0d 02 d0 07 |......bdr(n)....|
000006f0 20 fb 33 0d 02 da 0d e3 20 49 3d 30 20 b8 20 32 | .3..... I=0 . 2|
00000700 0d 02 e4 24 e7 20 6e 3d 31 20 fb 33 2d 49 3a 63 |...$. n=1 .3-I:c|
00000710 68 61 72 3d 32 32 34 20 8b 20 63 68 61 72 3d 32 |har=224 . char=2|
00000720 32 34 2b 49 0d 02 ee 1a f1 8a 49 2c 49 29 c4 34 |24+I......I,I).4|
00000730 30 2d 32 2a 49 2c bd 28 63 68 61 72 29 29 0d 02 |0-2*I,.(char))..|
00000740 f8 1d f1 8a 49 2c 32 36 2d 49 29 c4 34 30 2d 32 |....I,26-I).40-2|
00000750 2a 49 2c bd 28 63 68 61 72 29 29 0d 03 02 12 e3 |*I,.(char)).....|
00000760 20 4a 3d 49 2b 31 20 b8 20 32 35 2d 49 0d 03 0c | J=I+1 . 25-I...|
00000770 11 f1 8a 49 2c 4a 29 bd 28 63 68 61 72 29 0d 03 |...I,J).(char)..|
00000780 16 14 f1 8a 33 39 2d 49 2c 4a 29 bd 28 63 68 61 |....39-I,J).(cha|
00000790 72 29 0d 03 20 05 ed 0d 03 2a 05 ed 0d 03 34 06 |r).. ....*....4.|
000007a0 20 e1 0d 03 3e 15 dd f2 69 6e 70 75 74 28 79 2c | ...>...input(y,|
000007b0 61 24 2c 6c 65 6e 29 0d 03 48 0c f1 8a 30 2c 79 |a$,len)..H...0,y|
000007c0 29 61 24 0d 03 52 09 67 24 3d 22 22 0d 03 5c 0b |)a$..R.g$=""..\.|
000007d0 2a 46 58 31 35 2c 30 0d 03 66 05 f5 0d 03 70 07 |*FX15,0..f....p.|
000007e0 41 3d a5 0d 03 7a 29 e7 20 41 3e 33 31 20 80 20 |A=...z). A>31 . |
000007f0 41 3c 31 32 37 20 80 20 a9 28 67 24 29 3c 6c 65 |A<127 . .(g$)<le|
00000800 6e 20 67 24 3d 67 24 2b bd 28 41 29 0d 03 84 25 |n g$=g$+.(A)...%|
00000810 e7 20 41 3d 31 32 37 20 80 20 a9 28 67 24 29 3e |. A=127 . .(g$)>|
00000820 30 20 67 24 3d c0 67 24 2c a9 28 67 24 29 2d 31 |0 g$=.g$,.(g$)-1|
00000830 29 0d 03 8e 12 f1 8a 30 2c 79 2b 31 29 67 24 3b |)......0,y+1)g$;|
00000840 22 20 22 0d 03 98 0a fd 20 41 3d 31 33 0d 03 a2 |" "..... A=13...|
00000850 05 e1 0d 03 ac 0f dd f2 6f 73 63 6c 69 28 61 24 |........oscli(a$|
00000860 29 0d 03 b6 0c 24 43 4c 49 25 3d 61 24 0d 03 c0 |)....$CLI%=a$...|
00000870 12 58 25 3d 43 4c 49 25 20 83 20 26 31 30 30 0d |.X%=CLI% . &100.|
00000880 03 ca 12 59 25 3d 43 4c 49 25 20 81 20 26 31 30 |...Y%=CLI% . &10|
00000890 30 0d 03 d4 0b d6 20 26 46 46 46 37 0d 03 de 05 |0..... &FFF7....|
000008a0 e1 0d 03 e8 09 dd f2 6d 69 6e 0d 03 f2 15 e3 20 |.......min..... |
000008b0 49 3d 30 20 b8 20 31 30 37 39 20 88 20 31 33 0d |I=0 . 1079 . 13.|
000008c0 03 fc 17 20 e3 20 4a 3d 30 20 b8 20 36 36 33 20 |... . J=0 . 663 |
000008d0 88 20 31 36 2e 35 0d 04 01 14 20 4b 3d b0 31 30 |. 16.5.... K=.10|
000008e0 30 2b 49 2c 32 36 30 2b 4a 29 0d 04 06 2c 20 e7 |0+I,260+J)..., .|
000008f0 20 4b 3e 30 20 e6 30 2c 4b 3a f0 36 39 2c 39 36 | K>0 .0,K:.69,96|
00000900 30 2b 49 2f 31 30 37 39 2a 33 32 30 2c 4a 2f 36 |0+I/1079*320,J/6|
00000910 36 33 2a 31 36 30 0d 04 10 09 ed 3a ed 3a e1 0d |63*160.....:.:..|
00000920 04 1a 0b dd f2 6c 61 62 65 6c 0d 04 24 13 f1 8a |.....label..$...|
00000930 33 2c 33 30 29 22 53 54 45 52 45 4f 22 0d 04 2e |3,30)"STEREO"...|
00000940 14 f1 8a 33 2c 33 31 29 22 45 4e 47 49 4e 45 22 |...3,31)"ENGINE"|
00000950 3b 0d 04 33 08 e6 30 2c 33 0d 04 38 20 e3 20 49 |;..3..0,3..8 . I|
00000960 3d 30 20 b8 20 34 38 3a e3 20 4a 3d 30 20 b8 20 |=0 . 48:. J=0 . |
00000970 37 2e 35 20 88 20 30 2e 35 0d 04 42 2b e7 20 b0 |7.5 . 0.5..B+. .|
00000980 39 36 2b 49 2a 34 2c 4a 2a 38 29 3e 30 20 f0 36 |96+I*4,J*8)>0 .6|
00000990 39 2c 28 38 2e 35 2d 4a 29 2a 38 2c 49 2a 31 36 |9,(8.5-J)*8,I*16|
000009a0 30 2f 34 38 0d 04 4c 07 ed 3a ed 0d 04 51 13 f1 |0/48..L..:...Q..|
000009b0 8a 33 2c 33 30 29 22 20 20 20 20 20 20 22 0d 04 |.3,30)" "..|
000009c0 52 14 f1 8a 33 2c 33 31 29 22 20 20 20 20 20 20 |R...3,31)" |
000009d0 22 3b 0d 04 56 05 e1 0d ff |";..V....|
000009d9 
.