Regulars/RuntheRISC/3Ddemo

Home » Archimedes archive » Acorn User » AU 1995-11.adf » !Regulars » Regulars/RuntheRISC/3Ddemo

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-11.adf » !Regulars
Filename:	Regulars/RuntheRISC/3Ddemo
Read OK:	✔
File size:	1D23 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM>3Ddemo
   20REM Copyright Mike Cook
   30REM November 95 Acorn User
   40DIM x%(110),y%(110),h%(110),D%(8)
   50OX1%=0:OX2%=0:OY1%=0:OY2%=0
   60PROC_INIT
   70REPEAT
   80
   90PROC_CLS(1,6)
  100PROC_INTRO
  110CASE GET$ OF
  120WHEN "1":PROC_Scrib:ENDCASE
  130WHEN "2":PROC_DS2:ENDCASE
  140WHEN "3":PROC_SPI:ENDCASE
  150WHEN "4":PROC_drawBall:ENDCASE
  160WHEN "5":PROC_Snake:ENDCASE
  170WHEN "6":PROC_LORNTZ:ENDCASE
  180WHEN "Q","q":PROC_END
  190ENDCASE
  200UNTIL FALSE
  210
  220DEF PROC_END
  230END
  240
  250DEF PROC_INTRO
  260PROC_3DP(40,3,"3D Demos By Mike Cook")
  270PROC_3DP(0,5,"To see the 3D Stereo effect")
  280PROC_3DP(0,6,"you need the mirror device,")
  290PROC_3DP(0,7,"discribed in the Run The Risc")
  300PROC_3DP(0,8,"artical Acorn User Nov. 95")
  310PROC_3DP(0,9,"Press a key to get a demo:-")
  320PROC_3DP(40,11,"1 - Scribble, with depth")
  330PROC_3DP(35,12,"2 - A Cartoon charactor")
  340PROC_3DP(30,13,"3 - Spiral tunnel")
  350PROC_3DP(25,14,"4 - A primid of balls")
  360PROC_3DP(20,15,"5 - The 3D Snake")
  370PROC_3DP(15,16,"6 - The Lorenz Attractor")
  380PROC_3DP(0,18,"Q - To Quit.")
  390PROC_3DP(0,19,"Press any key to return here")
  400ENDPROC
  410
  420DEF PROC_INIT
  430SYS"OS_ReadModeVariable",-1,3 TO ,,Ncolours%
  440SYS"OS_ReadModeVariable",-1,4 TO ,,Xfact%
  450SYS"OS_ReadModeVariable",-1,5 TO ,,Yfact%
  460SYS"OS_ReadModeVariable",-1,11 TO ,,XLim%
  470SYS"OS_ReadModeVariable",-1,12 TO ,,YLim%
  480Xmax%=XLim%<<Xfact%
  490Ymax%=YLim%<<Yfact%
  500Rside%=Xmax% DIV 2
  510VDU5
  520ENDPROC
  530
  540DEF PROC_Side(s%)
  550IF s%=0 THEN
  560VDU29,0;0;
  570VDU24,0;0;Rside%;Ymax%;
  580ELSE
  590VDU29,0;0;
  600VDU24,Rside%;0;Xmax%;Ymax%;
  610VDU29,Rside%;0;
  620ENDIF
  630ENDPROC
  640
  650DEF PROC_3DP(D%,Y%,A$)
  660Y%=Ymax%-Y%*32
  670PROC_Side(0)
  680MOVE D%,Y%
  690PRINTA$;
  700PROC_Side(1)
  710MOVE 0,Y%
  720PRINTA$;
  730ENDPROC
  740
  750DEF PROC_3D(X%,Y%,Z%,P%)
  760PROC_Side(0)
  770MOVE OX1%,OY1%
  780IF P%<>0 THEN DRAW X%,Y%
  790OX1%=X%:OY1%=Y%
  800PROC_Side(1)
  810MOVE OX2%,OY2%
  820IF P%<>0 THEN DRAW X%+Z%,Y%
  830OX2%=X%+Z%:OY2%=Y%
  840ENDPROC
  850
  860REM Spiral tunnel
  870DEF PROC_SPI
  880LOCAL X%,Y%,R,B%,S%,CX%,CY%,D%
  890CX%=Rside%/2
  900CY%=Ymax%/2
  910PROC_CLS(7,0)
  920REPEAT
  930R=(Rside%/2)-80:A%=-200
  940REPEAT
  950IF TIME>120 AND S%=0 THEN GCOL 0,RND(63) TINT 255:TIME=0
  960X%=CX%+COS(RAD(A%))*R
  970Y%=CY%+SIN(RAD(A%))*R
  980IF A%=-200 THEN D%=0 ELSE D%=A%
  990PROC_3D(X%,Y%,(R/4)-64,D%)
 1000R=R-.25
 1010A%=A%+10
 1020B%=ADVAL(-1)
 1030UNTIL R<10 OR B%<>0
 1040S%=S% EOR 1
 1050GCOL 0,0 TINT 0
 1060TIME=130
 1070UNTIL B%<>0
 1080A$=GET$
 1090ENDPROC
 1100
 1110REM Scribble, with depth
 1120DEF PROC_Scrib
 1130LOCAL X%,Y%,Z%,B%,Xs%
 1140Xs%=Rside%/5
 1150REPEAT
 1160PROC_CLS(3,5)
 1170PROC_3D(0,0,0,0)
 1180Y%=0
 1190FOR Z%=1 TO 5
 1200SYS"Wimp_SetColour",RND(7)+7
 1210FOR X%=0 TO 80
 1220PROC_3D(RND(Xs%)+Y%,RND(Ymax%),Z%*20-40,1)
 1230NEXT
 1240Y%+=Xs%
 1250NEXT
 1260TIME=0
 1270REPEAT
 1280B%=ADVAL(-1)
 1290UNTIL TIME>600 OR B%<>0
 1300UNTIL B%<>0
 1310A$=GET$
 1320ENDPROC
 1330
 1340DEF PROC_CLS(B%,F%)
 1350SYS"Wimp_SetColour",&80 OR B%
 1360SYS"Wimp_SetColour",F%
 1370PROC_Side(0)
 1380CLG:CLS
 1390PROC_Side(1)
 1400CLG:CLS
 1410ENDPROC
 1420
 1430REM A primid of balls
 1440DEF PROC_drawBall
 1450LOCAL Z%,A%,B%,ZI%,Yo%
 1460Yo%=Ymax%/2-Ymax%/3
 1470ZI%=8
 1480REPEAT
 1490Z%=-4*ZI%
 1500PROC_CLS(3,5)
 1510FOR A%=100 TO Rside%/2 STEP Rside%/18
 1520PROC_SBALL(A%,A%+Yo%,Z%)
 1530PROC_SBALL(Rside%-A%,A%+Yo%,Z%)
 1540PROC_SBALL(A%,Ymax%-A%-Yo%,Z%)
 1550PROC_SBALL(Rside%-A%,Ymax%-A%-Yo%,Z%)
 1560Z%=Z%+ZI%
 1570IF Z%=0 THEN GCOL 0,63:PROC_GRID
 1580NEXT
 1590PROC_SBALL(Rside%/2-10,Ymax%/2+10,Z%+ZI%)
 1600TIME=0
 1610REPEAT
 1620B%=ADVAL(-1)
 1630UNTIL TIME>700 OR B%<>0
 1640ZI%=RND(12)+4
 1650UNTIL B%<>0
 1660A$=GET$
 1670ENDPROC
 1680
 1690DEF PROC_GRID
 1700PROC_Side(0)
 1710PROC_GRID1
 1720PROC_Side(1)
 1730PROC_GRID1
 1740ENDPROC
 1750
 1760DEF PROC_GRID1
 1770LOCAL X%,Y%,O%
 1780O%=Ymax%/2-500
 1790FOR X%=0 TO Rside% STEP Rside%/10
 1800FOR Y%=0 TO 1023 STEP 1024/10
 1810LINE X%,O%,X%,1020+O%
 1820LINE 0,Y%+O%,1279,Y%+O%
 1830NEXT:NEXT
 1840ENDPROC
 1850
 1860DEF PROC_SBALL(X%,Y%,D%)
 1870LOCAL Base%
 1880Base%=FNrgb
 1890PROC_Side(1)
 1900PROC_BALL(X%,Y%,0)
 1910PROC_Side(0)
 1920PROC_BALL(X%+D%,Y%,3)
 1930ENDPROC
 1940
 1950DEF PROC_BALL(XB%,YB%,D%)
 1960LOCAL radius%,rad2%,L%,X%,Y%,dX%,D%
 1970radius%=64
 1980dX%=0
 1990rad2%=radius%>>1
 2000L%=LOG(512/radius%)/LOG2
 2010FOR X%=radius% TO 0 STEP -8
 2020VDU23,17,2,512-(X%<<L%)|
 2030IFX%<=rad2% GCOLBase%+&15 ELSE GCOLBase%
 2040CIRCLE FILL XB%,YB%,X%+dX%
 2050dX%=dX%+D%
 2060NEXT
 2070ENDPROC
 2080 
 2090DEFFNrgb=(RND(3)-1)*1+(RND(3)-1)*4+(RND(3)-1)*16
 2100
 2110REM The 3D Snake
 2120DEF PROC_Snake
 2130LOCAL X%,Y%,XMAX%,XMIN%,DX%,DDX%,DDY%,DDZ%,X%,Y%,S%,YMAX%,YMIN%,ZMAX%,ZMIN%,P%,N%,DZ%,dX%,B%,cc%,TH,THP
 2140PROC_CLS(7,0)
 2150N%=100:REM Number of segments on screen at one time
 2160FORX%=0 TO 110
 2170x%(X%)=0:y%(X%)=0:h%(X%)=0
 2180NEXT
 2190P%=0  :REM Cyclic buffer pointer into arrays
 2200DX%=1:DY%=3:DZ%=16
 2210X%=612:Y%=512:Z%=612
 2220DDX%=1:DDY%=1:DDZ%=1
 2230XMAX%=Rside%/2-100:XMIN%=100:YMAX%=Ymax%/2-100:YMIN%=100:ZMAX%=900:ZMIN%=300
 2240C%=3:D%=0:F%=1
 2250S%=Z%DIV15
 2260TH=0:THP=90
 2270REPEAT
 2280  cc%=0
 2290  REPEAT P%=(P%+1)MOD110
 2300  TH=(TH+0.2)
 2310    X%=XMAX%*SIN(RAD(DX%*TH))+Rside%/2
 2320    Y%=YMAX%*COS(RAD(DY%*(TH+THP)))+Ymax%/2
 2330    IF Z%>ZMAX% DZ%=DZ%-DDZ% ELSE IF Z%<ZMIN% DZ%=DZ%+DDZ%
 2340    Z%=Z%+DZ%: S%=Z%DIV15
 2350    THP+=0.005
 2360     FOR BANK%=0 TO 1
 2370      PROC_Side(BANK%-1)
 2380      dX%=X%+(BANK%*(S%))DIV 2
 2390      GCOL0,F% TINT 255
 2400      CIRCLE FILL dX%,Y%,S%
 2410      GCOL0,C% TINT 255
 2420      CIRCLE dX%,Y%,S%
 2430      GCOL 0,0
 2440      CIRCLE FILL X%,Y%,6
 2450     NEXT
 2460    x%(P%)=X%:y%(P%)=Y%:h%(P%)=S%
 2470    E%=(P%-N%+110)MOD110
 2480    FOR BANK%= 0 TO 1
 2490    PROC_Side(BANK%-1)
 2500    dX%=x%(E%)+(BANK%*(h%(E%)))DIV 2
 2510    GCOL 0,0 TINT 0
 2520    CIRCLE FILL dX%,y%(E%),h%(E%)
 2530    NEXT
 2540    cc%+=1
 2550    B%=ADVAL(-1)
 2560  UNTIL cc%>30 OR B%<>0
 2570F%=RND(63)
 2580C%=RND(63)
 2590UNTIL B%<>0
 2600A$=GET$
 2610ENDPROC
 2620
 2630REM The Lorenz Attractor
 2640DEF PROC_LORNTZ
 2650LOCAL INC,B%,N%,F%,P1,P2,P3,X,Y,Z,S%,S,SX,SZ,SX%,SY%,SZ%,D1,D2,D3
 2660PROC_CLS(3,5)
 2670PROC_GRID
 2680S=10
 2690S=Ymax%/80
 2700SX=Rside%/70
 2710SZ=2
 2720N%=70:F%=0
 2730INC=4E-3
 2740SX%=Rside%/2:SY%=Ymax%/2:SZ%=0
 2750X=-6.5:Y=-8.8:Z=20
 2760P1=10:P2=28:P3=2.66666
 2770
 2780REPEAT
 2790N%=N%+1
 2800IF N%>200 THEN N%=0:GCOL 0,RND(63) TINT 255
 2810D1=P1*(Y-X)
 2820D2=P2*X-Y-X*Z
 2830D3=X*Y-P3*Z
 2840X=X+D1*INC
 2850Y=Y+D2*INC
 2860Z=Z+D3*INC
 2870PROC_VPLOT(X,Y,Z)
 2880B%=ADVAL(-1)
 2890UNTIL B%<>0
 2900A$=GET$
 2910ENDPROC
 2920
 2930DEF PROC_VPLOT(X,Y,Z)
 2940X%=X*SX:Y%=Y*S:Z%=Z*SZ
 2950X%=X%+SX%:Y%=Y%+SY%:Z%=Z%+SZ%
 2960PROC_3D(X%,Y%,-Z%,F%)
 2970F%=1
 2980ENDPROC
 2990
 3000DEF PROC_DS1
 3010LOCAL L%,S,Z%,H%
 3020RESTORE 3180
 3030
 3040PROC_CLS(0,7)
 3050Z%=60:S=1:H%=0
 3060FOR L%=0 TO 7
 3070READ D%(L%)
 3080NEXT
 3090FOR L%=0 TO 6
 3100PROC_JOHNNY(D%(L%),H%,S,Z%)
 3110S=S-.1
 3120Z%-=20
 3130H%+=40
 3140NEXT
 3150A$=GET$
 3160ENDPROC
 3170
 3180DATA 0,260,480,680,850,1000,1150
 3190
 3200REM A Cartoon charactor
 3210DEF PROC_DS2
 3220PROC_CLS(1,6)
 3230PROC_JOHNNY(Rside%/2,0,Ymax%/1024,10)
 3240PROC_JOHNNY(0,0,Ymax%/1024,10)
 3250PROC_JOHNNY(Rside%/3,Ymax%/2,Ymax%/2048,-10)
 3260PROC_JOHNNY(Rside%/4,3*Ymax%/4,Ymax%/4096,-20)
 3270A$=GET$
 3280ENDPROC
 3290
 3300DEF PROC_JOHNNY(OX%,OY%,S,D%)
 3310LOCAL X%,Y%,P%,C%
 3320FOR BANK%=0 TO 1
 3330PROC_Side(BANK%-1)
 3340dX%=BANK%*D%
 3350RESTORE 3510
 3360READ P%,C%
 3370REPEAT
 3380READ X%,Y%
 3390X%=X%*S+OX%:Y%=Y%*S+OY%
 3400MOVE dX%+X%,Y%
 3410FOR A%=1 TO P%
 3420READ X%,Y%
 3430X%=X%*S+OX%:Y%=Y%*S+OY%
 3440DRAW dX%+X%,Y%
 3450NEXT
 3460READ P%,C%
 3470UNTIL P%=0
 3480NEXT
 3490ENDPROC
 3500
 3510DATA 79,3,39,71,70,79,79,75,87,105,108,196,131,240,146,279,190,195,199,169,211,121,219,94,225,93,224,76
 3520DATA268,63,270,73,248,83,237,94,245,95,229,205,215,285,198,349,204,413,228,387,231,360,220,341,207,330
 3530DATA212,312,234,328,255,354,257,389,253,400,258,403,237,443,219,468,201,485,215,507,194,507,182,506,174,514
 3540DATA188,532,197,544,205,545,207,560,205,571,203,582,104,585,104,574,98,564,99,551,107,550,110,537,120,527
 3550DATA133,519,130,508,99,496,114,488,100,469,83,441,63,393,66,389,59,355,52,322,51,303,45,292,50,275
 3560DATA58,282,67,284,67,298,67,316,87,385,100,411,110,357,89,291,80,252,76,208,72,162,69,124,70,106
 3570DATA71,100,43,72,1,3,132,569,132,569,1,3,171,568,171,568,2,3,152,574,152,547,169,548,2,3,170,534,154,527,138,533,2,3,125,503
 3580DATA158,459,102,495,2,3,199,488,156,459,178,499,4,3,105,388,113,408,113,435,191,432,200,402,4,3,175,409,170,383,133,383
 3590DATA135,409,170,409,1,3,186,436,200,479,1,3,107,475,122,434,1,3,63,393,89,381,1,3,219,96,240,97,1,1,87,102,69,106,5,1,107,590
 3600DATA79,587,81,597,233,596,234,585,201,583,7,1,206,593,203,618,178,615,157,615,138,618,122,619,109,620,108,600
 3610DATA7,1,139,404,141,386,158,383,162,403,150,401,150,395,154,395,155,400
 3620DATA 0,0
 3630
 3640REPORT
 3650PRINT" at line ";ERL


�>3Ddemo
� Copyright Mike Cook
� November 95 Acorn User
(#� x%(110),y%(110),h%(110),D%(8)
2OX1%=0:OX2%=0:OY1%=0:OY2%=0
<
�_INIT
F�
P
Z�_CLS(1,6)
d�_INTRO
n
Ȏ � �
x� "1":�_Scrib:�
�� "2":�_DS2:�
�� "3":�_SPI:�
�� "4":�_drawBall:�
�� "5":�_Snake:�
�� "6":�_LORNTZ:�
�� "Q","q":�_END
��
�� �
�
�� �_END
��
�
�
� �_INTRO
'�_3DP(40,3,"3D Demos By Mike Cook")
,�_3DP(0,5,"To see the 3D Stereo effect")
,�_3DP(0,6,"you need the mirror device,")
".�_3DP(0,7,"discribed in the Run The Risc")
,+�_3DP(0,8,"artical Acorn User Nov. 95")
6,�_3DP(0,9,"Press a key to get a demo:-")
@+�_3DP(40,11,"1 - Scribble, with depth")
J*�_3DP(35,12,"2 - A Cartoon charactor")
T$�_3DP(30,13,"3 - Spiral tunnel")
^(�_3DP(25,14,"4 - A primid of balls")
h#�_3DP(20,15,"5 - The 3D Snake")
r+�_3DP(15,16,"6 - The Lorenz Attractor")
|�_3DP(0,18,"Q - To Quit.")
�.�_3DP(0,19,"Press any key to return here")
��
�
�� �_INIT
�.ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%
�+ș"OS_ReadModeVariable",-1,4 � ,,Xfact%
�+ș"OS_ReadModeVariable",-1,5 � ,,Yfact%
�+ș"OS_ReadModeVariable",-1,11 � ,,XLim%
�+ș"OS_ReadModeVariable",-1,12 � ,,YLim%
�Xmax%=XLim%<<Xfact%
�Ymax%=YLim%<<Yfact%
�Rside%=Xmax% � 2
��5
�

� �_Side(s%)
&� s%=0 �
0�29,0;0;
:�24,0;0;Rside%;Ymax%;
D�
N�29,0;0;
X�24,Rside%;0;Xmax%;Ymax%;
b�29,Rside%;0;
l�
v�
�
�� �_3DP(D%,Y%,A$)
�Y%=Ymax%-Y%*32
�
�_Side(0)
�� D%,Y%
��A$;
�
�_Side(1)
�
� 0,Y%
��A$;
��
�
�� �_3D(X%,Y%,Z%,P%)
�
�_Side(0)
� OX1%,OY1%
� P%<>0 � � X%,Y%
OX1%=X%:OY1%=Y%
 
�_Side(1)
*� OX2%,OY2%
4� P%<>0 � � X%+Z%,Y%
>OX2%=X%+Z%:OY2%=Y%
H�
R
\� Spiral tunnel
f� �_SPI
p� X%,Y%,R,B%,S%,CX%,CY%,D%
zCX%=Rside%/2
�CY%=Ymax%/2
��_CLS(7,0)
��
�R=(Rside%/2)-80:A%=-200
��
�)� �>120 � S%=0 � � 0,�(63) Ȝ 255:�=0
�X%=CX%+�(�(A%))*R
�Y%=CY%+�(�(A%))*R
�� A%=-200 � D%=0 � D%=A%
��_3D(X%,Y%,(R/4)-64,D%)
�R=R-.25
�A%=A%+10
�B%=�(-1)
� R<10 � B%<>0

S%=S% � 1
� 0,0 Ȝ 0
$	�=130
.� B%<>0
8A$=�
B�
L
V� Scribble, with depth
`
� �_Scrib
j� X%,Y%,Z%,B%,Xs%
tXs%=Rside%/5
~�
��_CLS(3,5)
��_3D(0,0,0,0)
�Y%=0
�� Z%=1 � 5
�ș"Wimp_SetColour",�(7)+7
�� X%=0 � 80
�'�_3D(�(Xs%)+Y%,�(Ymax%),Z%*20-40,1)
��
�Y%+=Xs%
��
��=0
��
B%=�(-1)

� �>600 � B%<>0
� B%<>0
A$=�
(�
2
<� �_CLS(B%,F%)
Fș"Wimp_SetColour",&80 � B%
Pș"Wimp_SetColour",F%
Z
�_Side(0)
d�:�
n
�_Side(1)
x�:�
��
�
�� A primid of balls
�� �_drawBall
�� Z%,A%,B%,ZI%,Yo%
�Yo%=Ymax%/2-Ymax%/3
�	ZI%=8
��
�
Z%=-4*ZI%
��_CLS(3,5)
�#� A%=100 � Rside%/2 � Rside%/18
��_SBALL(A%,A%+Yo%,Z%)
� �_SBALL(Rside%-A%,A%+Yo%,Z%)
�_SBALL(A%,Ymax%-A%-Yo%,Z%)
&�_SBALL(Rside%-A%,Ymax%-A%-Yo%,Z%)

Z%=Z%+ZI%
"� Z%=0 � � 0,63:�_GRID
,�
6*�_SBALL(Rside%/2-10,Ymax%/2+10,Z%+ZI%)
@�=0
J�
TB%=�(-1)
^� �>700 � B%<>0
hZI%=�(12)+4
r� B%<>0
|A$=�
��
�
�� �_GRID
�
�_Side(0)
��_GRID1
�
�_Side(1)
��_GRID1
��
�
�
� �_GRID1
�� X%,Y%,O%
�O%=Ymax%/2-500
�� X%=0 � Rside% � Rside%/10
� Y%=0 � 1023 � 1024/10
� X%,O%,X%,1020+O%
� 0,Y%+O%,1279,Y%+O%
&�:�
0�
:
D� �_SBALL(X%,Y%,D%)
N� Base%
XBase%=�rgb
b
�_Side(1)
l�_BALL(X%,Y%,0)
v
�_Side(0)
��_BALL(X%+D%,Y%,3)
��
�
�� �_BALL(XB%,YB%,D%)
�#� radius%,rad2%,L%,X%,Y%,dX%,D%
�radius%=64
�	dX%=0
�rad2%=radius%>>1
�L%=�(512/radius%)/�2
�� X%=radius% � 0 � -8
��23,17,2,512-(X%<<L%)|
�"�X%<=rad2% �Base%+&15 � �Base%
�ȏ Ȑ XB%,YB%,X%+dX%
dX%=dX%+D%
�
�
  
*+ݤrgb=(�(3)-1)*1+(�(3)-1)*4+(�(3)-1)*16
4
>� The 3D Snake
H
� �_Snake
Rg� X%,Y%,XMAX%,XMIN%,DX%,DDX%,DDY%,DDZ%,X%,Y%,S%,YMAX%,YMIN%,ZMAX%,ZMIN%,P%,N%,DZ%,dX%,B%,cc%,TH,THP
\�_CLS(7,0)
f5N%=100:� Number of segments on screen at one time
p�X%=0 � 110
zx%(X%)=0:y%(X%)=0:h%(X%)=0
��
�.P%=0  :� Cyclic buffer pointer into arrays
�DX%=1:DY%=3:DZ%=16
�X%=612:Y%=512:Z%=612
�DDX%=1:DDY%=1:DDZ%=1
�PXMAX%=Rside%/2-100:XMIN%=100:YMAX%=Ymax%/2-100:YMIN%=100:ZMAX%=900:ZMIN%=300
�C%=3:D%=0:F%=1
�S%=Z%�15
�TH=0:THP=90
��
�  cc%=0
�  � P%=(P%+1)�110
�  TH=(TH+0.2)
	&    X%=XMAX%*�(�(DX%*TH))+Rside%/2
	+    Y%=YMAX%*�(�(DY%*(TH+THP)))+Ymax%/2
	9    � Z%>ZMAX% DZ%=DZ%-DDZ% � � Z%<ZMIN% DZ%=DZ%+DDZ%
	$    Z%=Z%+DZ%: S%=Z%�15
	.    THP+=0.005
	8     � BANK%=0 � 1
	B      �_Side(BANK%-1)
	L       dX%=X%+(BANK%*(S%))� 2
	V      �0,F% Ȝ 255
	`      ȏ Ȑ dX%,Y%,S%
	j      �0,C% Ȝ 255
	t      ȏ dX%,Y%,S%
	~      � 0,0
	�      ȏ Ȑ X%,Y%,6
	�
     �
	�%    x%(P%)=X%:y%(P%)=Y%:h%(P%)=S%
	�    E%=(P%-N%+110)�110
	�    � BANK%= 0 � 1
	�    �_Side(BANK%-1)
	�&    dX%=x%(E%)+(BANK%*(h%(E%)))� 2
	�    � 0,0 Ȝ 0
	�    ȏ Ȑ dX%,y%(E%),h%(E%)
	�	    �
	�    cc%+=1
	�    B%=�(-1)
  � cc%>30 � B%<>0

F%=�(63)
C%=�(63)
� B%<>0
(A$=�
2�
<
F� The Lorenz Attractor
P� �_LORNTZ
ZA� INC,B%,N%,F%,P1,P2,P3,X,Y,Z,S%,S,SX,SZ,SX%,SY%,SZ%,D1,D2,D3
d�_CLS(3,5)
n
�_GRID
xS=10
�S=Ymax%/80
�SX=Rside%/70
�SZ=2
�N%=70:F%=0
�INC=4E-3
�"SX%=Rside%/2:SY%=Ymax%/2:SZ%=0
�X=-6.5:Y=-8.8:Z=20
�P1=10:P2=28:P3=2.66666
�
��
�N%=N%+1
�$� N%>200 � N%=0:� 0,�(63) Ȝ 255
�D1=P1*(Y-X)
D2=P2*X-Y-X*Z
D3=X*Y-P3*Z
X=X+D1*INC
"Y=Y+D2*INC
,Z=Z+D3*INC
6�_VPLOT(X,Y,Z)
@B%=�(-1)
J� B%<>0
TA$=�
^�
h
r� �_VPLOT(X,Y,Z)
|X%=X*SX:Y%=Y*S:Z%=Z*SZ
�!X%=X%+SX%:Y%=Y%+SY%:Z%=Z%+SZ%
��_3D(X%,Y%,-Z%,F%)
�F%=1
��
�
�� �_DS1
�� L%,S,Z%,H%
�
� �DlL
�
��_CLS(0,7)
�Z%=60:S=1:H%=0
�� L%=0 � 7
�� D%(L%)
�
� L%=0 � 6
�_JOHNNY(D%(L%),H%,S,Z%)
&
S=S-.1
0
Z%-=20
:
H%+=40
D�
NA$=�
X�
b
l!� 0,260,480,680,850,1000,1150
v
�� A Cartoon charactor
�� �_DS2
��_CLS(1,6)
�&�_JOHNNY(Rside%/2,0,Ymax%/1024,10)
��_JOHNNY(0,0,Ymax%/1024,10)
�-�_JOHNNY(Rside%/3,Ymax%/2,Ymax%/2048,-10)
�/�_JOHNNY(Rside%/4,3*Ymax%/4,Ymax%/4096,-20)
�A$=�
��
�
�� �_JOHNNY(OX%,OY%,S,D%)
�� X%,Y%,P%,C%
�� BANK%=0 � 1

�_Side(BANK%-1)

dX%=BANK%*D%


� �tvM

 � P%,C%

*�

4� X%,Y%

>X%=X%*S+OX%:Y%=Y%*S+OY%

H� dX%+X%,Y%

R� A%=1 � P%

\� X%,Y%

fX%=X%*S+OX%:Y%=Y%*S+OY%

p� dX%+X%,Y%

z�

�� P%,C%

�
� P%=0

��

��

�

�h� 79,3,39,71,70,79,79,75,87,105,108,196,131,240,146,279,190,195,199,169,211,121,219,94,225,93,224,76

�g�268,63,270,73,248,83,237,94,245,95,229,205,215,285,198,349,204,413,228,387,231,360,220,341,207,330

�l�212,312,234,328,255,354,257,389,253,400,258,403,237,443,219,468,201,485,215,507,194,507,182,506,174,514

�j�188,532,197,544,205,545,207,560,205,571,203,582,104,585,104,574,98,564,99,551,107,550,110,537,120,527

�c�133,519,130,508,99,496,114,488,100,469,83,441,63,393,66,389,59,355,52,322,51,303,45,292,50,275

�a�58,282,67,284,67,298,67,316,87,385,100,411,110,357,89,291,80,252,76,208,72,162,69,124,70,106

�}�71,100,43,72,1,3,132,569,132,569,1,3,171,568,171,568,2,3,152,574,152,547,169,548,2,3,170,534,154,527,138,533,2,3,125,503

�x�158,459,102,495,2,3,199,488,156,459,178,499,4,3,105,388,113,408,113,435,191,432,200,402,4,3,175,409,170,383,133,383
~�135,409,170,409,1,3,186,436,200,479,1,3,107,475,122,434,1,3,63,393,89,381,1,3,219,96,240,97,1,1,87,102,69,106,5,1,107,590
n�79,587,81,597,233,596,234,585,201,583,7,1,206,593,203,618,178,615,157,615,138,618,122,619,109,620,108,600
H�7,1,139,404,141,386,158,383,162,403,150,401,150,395,154,395,155,400
$	� 0,0
.
8�
B�" at line ";�
�

00000000  0d 00 0a 0c f4 3e 33 44  64 65 6d 6f 0d 00 14 19  |.....>3Ddemo....|
00000010  f4 20 43 6f 70 79 72 69  67 68 74 20 4d 69 6b 65  |. Copyright Mike|
00000020  20 43 6f 6f 6b 0d 00 1e  1c f4 20 4e 6f 76 65 6d  | Cook..... Novem|
00000030  62 65 72 20 39 35 20 41  63 6f 72 6e 20 55 73 65  |ber 95 Acorn Use|
00000040  72 0d 00 28 23 de 20 78  25 28 31 31 30 29 2c 79  |r..(#. x%(110),y|
00000050  25 28 31 31 30 29 2c 68  25 28 31 31 30 29 2c 44  |%(110),h%(110),D|
00000060  25 28 38 29 0d 00 32 1f  4f 58 31 25 3d 30 3a 4f  |%(8)..2.OX1%=0:O|
00000070  58 32 25 3d 30 3a 4f 59  31 25 3d 30 3a 4f 59 32  |X2%=0:OY1%=0:OY2|
00000080  25 3d 30 0d 00 3c 0a f2  5f 49 4e 49 54 0d 00 46  |%=0..<.._INIT..F|
00000090  05 f5 0d 00 50 04 0d 00  5a 0e f2 5f 43 4c 53 28  |....P...Z.._CLS(|
000000a0  31 2c 36 29 0d 00 64 0b  f2 5f 49 4e 54 52 4f 0d  |1,6)..d.._INTRO.|
000000b0  00 6e 0a c8 8e 20 be 20  ca 0d 00 78 13 c9 20 22  |.n... . ...x.. "|
000000c0  31 22 3a f2 5f 53 63 72  69 62 3a cb 0d 00 82 11  |1":._Scrib:.....|
000000d0  c9 20 22 32 22 3a f2 5f  44 53 32 3a cb 0d 00 8c  |. "2":._DS2:....|
000000e0  11 c9 20 22 33 22 3a f2  5f 53 50 49 3a cb 0d 00  |.. "3":._SPI:...|
000000f0  96 16 c9 20 22 34 22 3a  f2 5f 64 72 61 77 42 61  |... "4":._drawBa|
00000100  6c 6c 3a cb 0d 00 a0 13  c9 20 22 35 22 3a f2 5f  |ll:...... "5":._|
00000110  53 6e 61 6b 65 3a cb 0d  00 aa 14 c9 20 22 36 22  |Snake:...... "6"|
00000120  3a f2 5f 4c 4f 52 4e 54  5a 3a cb 0d 00 b4 13 c9  |:._LORNTZ:......|
00000130  20 22 51 22 2c 22 71 22  3a f2 5f 45 4e 44 0d 00  | "Q","q":._END..|
00000140  be 05 cb 0d 00 c8 07 fd  20 a3 0d 00 d2 04 0d 00  |........ .......|
00000150  dc 0b dd 20 f2 5f 45 4e  44 0d 00 e6 05 e0 0d 00  |... ._END.......|
00000160  f0 04 0d 00 fa 0d dd 20  f2 5f 49 4e 54 52 4f 0d  |....... ._INTRO.|
00000170  01 04 27 f2 5f 33 44 50  28 34 30 2c 33 2c 22 33  |..'._3DP(40,3,"3|
00000180  44 20 44 65 6d 6f 73 20  42 79 20 4d 69 6b 65 20  |D Demos By Mike |
00000190  43 6f 6f 6b 22 29 0d 01  0e 2c f2 5f 33 44 50 28  |Cook")...,._3DP(|
000001a0  30 2c 35 2c 22 54 6f 20  73 65 65 20 74 68 65 20  |0,5,"To see the |
000001b0  33 44 20 53 74 65 72 65  6f 20 65 66 66 65 63 74  |3D Stereo effect|
000001c0  22 29 0d 01 18 2c f2 5f  33 44 50 28 30 2c 36 2c  |")...,._3DP(0,6,|
000001d0  22 79 6f 75 20 6e 65 65  64 20 74 68 65 20 6d 69  |"you need the mi|
000001e0  72 72 6f 72 20 64 65 76  69 63 65 2c 22 29 0d 01  |rror device,")..|
000001f0  22 2e f2 5f 33 44 50 28  30 2c 37 2c 22 64 69 73  |".._3DP(0,7,"dis|
00000200  63 72 69 62 65 64 20 69  6e 20 74 68 65 20 52 75  |cribed in the Ru|
00000210  6e 20 54 68 65 20 52 69  73 63 22 29 0d 01 2c 2b  |n The Risc")..,+|
00000220  f2 5f 33 44 50 28 30 2c  38 2c 22 61 72 74 69 63  |._3DP(0,8,"artic|
00000230  61 6c 20 41 63 6f 72 6e  20 55 73 65 72 20 4e 6f  |al Acorn User No|
00000240  76 2e 20 39 35 22 29 0d  01 36 2c f2 5f 33 44 50  |v. 95")..6,._3DP|
00000250  28 30 2c 39 2c 22 50 72  65 73 73 20 61 20 6b 65  |(0,9,"Press a ke|
00000260  79 20 74 6f 20 67 65 74  20 61 20 64 65 6d 6f 3a  |y to get a demo:|
00000270  2d 22 29 0d 01 40 2b f2  5f 33 44 50 28 34 30 2c  |-")..@+._3DP(40,|
00000280  31 31 2c 22 31 20 2d 20  53 63 72 69 62 62 6c 65  |11,"1 - Scribble|
00000290  2c 20 77 69 74 68 20 64  65 70 74 68 22 29 0d 01  |, with depth")..|
000002a0  4a 2a f2 5f 33 44 50 28  33 35 2c 31 32 2c 22 32  |J*._3DP(35,12,"2|
000002b0  20 2d 20 41 20 43 61 72  74 6f 6f 6e 20 63 68 61  | - A Cartoon cha|
000002c0  72 61 63 74 6f 72 22 29  0d 01 54 24 f2 5f 33 44  |ractor")..T$._3D|
000002d0  50 28 33 30 2c 31 33 2c  22 33 20 2d 20 53 70 69  |P(30,13,"3 - Spi|
000002e0  72 61 6c 20 74 75 6e 6e  65 6c 22 29 0d 01 5e 28  |ral tunnel")..^(|
000002f0  f2 5f 33 44 50 28 32 35  2c 31 34 2c 22 34 20 2d  |._3DP(25,14,"4 -|
00000300  20 41 20 70 72 69 6d 69  64 20 6f 66 20 62 61 6c  | A primid of bal|
00000310  6c 73 22 29 0d 01 68 23  f2 5f 33 44 50 28 32 30  |ls")..h#._3DP(20|
00000320  2c 31 35 2c 22 35 20 2d  20 54 68 65 20 33 44 20  |,15,"5 - The 3D |
00000330  53 6e 61 6b 65 22 29 0d  01 72 2b f2 5f 33 44 50  |Snake")..r+._3DP|
00000340  28 31 35 2c 31 36 2c 22  36 20 2d 20 54 68 65 20  |(15,16,"6 - The |
00000350  4c 6f 72 65 6e 7a 20 41  74 74 72 61 63 74 6f 72  |Lorenz Attractor|
00000360  22 29 0d 01 7c 1e f2 5f  33 44 50 28 30 2c 31 38  |")..|.._3DP(0,18|
00000370  2c 22 51 20 2d 20 54 6f  20 51 75 69 74 2e 22 29  |,"Q - To Quit.")|
00000380  0d 01 86 2e f2 5f 33 44  50 28 30 2c 31 39 2c 22  |....._3DP(0,19,"|
00000390  50 72 65 73 73 20 61 6e  79 20 6b 65 79 20 74 6f  |Press any key to|
000003a0  20 72 65 74 75 72 6e 20  68 65 72 65 22 29 0d 01  | return here")..|
000003b0  90 05 e1 0d 01 9a 04 0d  01 a4 0c dd 20 f2 5f 49  |............ ._I|
000003c0  4e 49 54 0d 01 ae 2e c8  99 22 4f 53 5f 52 65 61  |NIT......"OS_Rea|
000003d0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
000003e0  31 2c 33 20 b8 20 2c 2c  4e 63 6f 6c 6f 75 72 73  |1,3 . ,,Ncolours|
000003f0  25 0d 01 b8 2b c8 99 22  4f 53 5f 52 65 61 64 4d  |%...+.."OS_ReadM|
00000400  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
00000410  34 20 b8 20 2c 2c 58 66  61 63 74 25 0d 01 c2 2b  |4 . ,,Xfact%...+|
00000420  c8 99 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |.."OS_ReadModeVa|
00000430  72 69 61 62 6c 65 22 2c  2d 31 2c 35 20 b8 20 2c  |riable",-1,5 . ,|
00000440  2c 59 66 61 63 74 25 0d  01 cc 2b c8 99 22 4f 53  |,Yfact%...+.."OS|
00000450  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00000460  65 22 2c 2d 31 2c 31 31  20 b8 20 2c 2c 58 4c 69  |e",-1,11 . ,,XLi|
00000470  6d 25 0d 01 d6 2b c8 99  22 4f 53 5f 52 65 61 64  |m%...+.."OS_Read|
00000480  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
00000490  2c 31 32 20 b8 20 2c 2c  59 4c 69 6d 25 0d 01 e0  |,12 . ,,YLim%...|
000004a0  17 58 6d 61 78 25 3d 58  4c 69 6d 25 3c 3c 58 66  |.Xmax%=XLim%<<Xf|
000004b0  61 63 74 25 0d 01 ea 17  59 6d 61 78 25 3d 59 4c  |act%....Ymax%=YL|
000004c0  69 6d 25 3c 3c 59 66 61  63 74 25 0d 01 f4 14 52  |im%<<Yfact%....R|
000004d0  73 69 64 65 25 3d 58 6d  61 78 25 20 81 20 32 0d  |side%=Xmax% . 2.|
000004e0  01 fe 06 ef 35 0d 02 08  05 e1 0d 02 12 04 0d 02  |....5...........|
000004f0  1c 10 dd 20 f2 5f 53 69  64 65 28 73 25 29 0d 02  |... ._Side(s%)..|
00000500  26 0c e7 20 73 25 3d 30  20 8c 0d 02 30 0c ef 32  |&.. s%=0 ...0..2|
00000510  39 2c 30 3b 30 3b 0d 02  3a 19 ef 32 34 2c 30 3b  |9,0;0;..:..24,0;|
00000520  30 3b 52 73 69 64 65 25  3b 59 6d 61 78 25 3b 0d  |0;Rside%;Ymax%;.|
00000530  02 44 05 cc 0d 02 4e 0c  ef 32 39 2c 30 3b 30 3b  |.D....N..29,0;0;|
00000540  0d 02 58 1d ef 32 34 2c  52 73 69 64 65 25 3b 30  |..X..24,Rside%;0|
00000550  3b 58 6d 61 78 25 3b 59  6d 61 78 25 3b 0d 02 62  |;Xmax%;Ymax%;..b|
00000560  11 ef 32 39 2c 52 73 69  64 65 25 3b 30 3b 0d 02  |..29,Rside%;0;..|
00000570  6c 05 cd 0d 02 76 05 e1  0d 02 80 04 0d 02 8a 15  |l....v..........|
00000580  dd 20 f2 5f 33 44 50 28  44 25 2c 59 25 2c 41 24  |. ._3DP(D%,Y%,A$|
00000590  29 0d 02 94 12 59 25 3d  59 6d 61 78 25 2d 59 25  |)....Y%=Ymax%-Y%|
000005a0  2a 33 32 0d 02 9e 0d f2  5f 53 69 64 65 28 30 29  |*32....._Side(0)|
000005b0  0d 02 a8 0b ec 20 44 25  2c 59 25 0d 02 b2 08 f1  |..... D%,Y%.....|
000005c0  41 24 3b 0d 02 bc 0d f2  5f 53 69 64 65 28 31 29  |A$;....._Side(1)|
000005d0  0d 02 c6 0a ec 20 30 2c  59 25 0d 02 d0 08 f1 41  |..... 0,Y%.....A|
000005e0  24 3b 0d 02 da 05 e1 0d  02 e4 04 0d 02 ee 17 dd  |$;..............|
000005f0  20 f2 5f 33 44 28 58 25  2c 59 25 2c 5a 25 2c 50  | ._3D(X%,Y%,Z%,P|
00000600  25 29 0d 02 f8 0d f2 5f  53 69 64 65 28 30 29 0d  |%)....._Side(0).|
00000610  03 02 0f ec 20 4f 58 31  25 2c 4f 59 31 25 0d 03  |.... OX1%,OY1%..|
00000620  0c 15 e7 20 50 25 3c 3e  30 20 8c 20 df 20 58 25  |... P%<>0 . . X%|
00000630  2c 59 25 0d 03 16 13 4f  58 31 25 3d 58 25 3a 4f  |,Y%....OX1%=X%:O|
00000640  59 31 25 3d 59 25 0d 03  20 0d f2 5f 53 69 64 65  |Y1%=Y%.. .._Side|
00000650  28 31 29 0d 03 2a 0f ec  20 4f 58 32 25 2c 4f 59  |(1)..*.. OX2%,OY|
00000660  32 25 0d 03 34 18 e7 20  50 25 3c 3e 30 20 8c 20  |2%..4.. P%<>0 . |
00000670  df 20 58 25 2b 5a 25 2c  59 25 0d 03 3e 16 4f 58  |. X%+Z%,Y%..>.OX|
00000680  32 25 3d 58 25 2b 5a 25  3a 4f 59 32 25 3d 59 25  |2%=X%+Z%:OY2%=Y%|
00000690  0d 03 48 05 e1 0d 03 52  04 0d 03 5c 13 f4 20 53  |..H....R...\.. S|
000006a0  70 69 72 61 6c 20 74 75  6e 6e 65 6c 0d 03 66 0b  |piral tunnel..f.|
000006b0  dd 20 f2 5f 53 50 49 0d  03 70 1e ea 20 58 25 2c  |. ._SPI..p.. X%,|
000006c0  59 25 2c 52 2c 42 25 2c  53 25 2c 43 58 25 2c 43  |Y%,R,B%,S%,CX%,C|
000006d0  59 25 2c 44 25 0d 03 7a  10 43 58 25 3d 52 73 69  |Y%,D%..z.CX%=Rsi|
000006e0  64 65 25 2f 32 0d 03 84  0f 43 59 25 3d 59 6d 61  |de%/2....CY%=Yma|
000006f0  78 25 2f 32 0d 03 8e 0e  f2 5f 43 4c 53 28 37 2c  |x%/2....._CLS(7,|
00000700  30 29 0d 03 98 05 f5 0d  03 a2 1b 52 3d 28 52 73  |0).........R=(Rs|
00000710  69 64 65 25 2f 32 29 2d  38 30 3a 41 25 3d 2d 32  |ide%/2)-80:A%=-2|
00000720  30 30 0d 03 ac 05 f5 0d  03 b6 29 e7 20 91 3e 31  |00........). .>1|
00000730  32 30 20 80 20 53 25 3d  30 20 8c 20 e6 20 30 2c  |20 . S%=0 . . 0,|
00000740  b3 28 36 33 29 20 c8 9c  20 32 35 35 3a d1 3d 30  |.(63) .. 255:.=0|
00000750  0d 03 c0 15 58 25 3d 43  58 25 2b 9b 28 b2 28 41  |....X%=CX%+.(.(A|
00000760  25 29 29 2a 52 0d 03 ca  15 59 25 3d 43 59 25 2b  |%))*R....Y%=CY%+|
00000770  b5 28 b2 28 41 25 29 29  2a 52 0d 03 d4 1c e7 20  |.(.(A%))*R..... |
00000780  41 25 3d 2d 32 30 30 20  8c 20 44 25 3d 30 20 8b  |A%=-200 . D%=0 .|
00000790  20 44 25 3d 41 25 0d 03  de 1b f2 5f 33 44 28 58  | D%=A%....._3D(X|
000007a0  25 2c 59 25 2c 28 52 2f  34 29 2d 36 34 2c 44 25  |%,Y%,(R/4)-64,D%|
000007b0  29 0d 03 e8 0b 52 3d 52  2d 2e 32 35 0d 03 f2 0c  |)....R=R-.25....|
000007c0  41 25 3d 41 25 2b 31 30  0d 03 fc 0c 42 25 3d 96  |A%=A%+10....B%=.|
000007d0  28 2d 31 29 0d 04 06 12  fd 20 52 3c 31 30 20 84  |(-1)..... R<10 .|
000007e0  20 42 25 3c 3e 30 0d 04  10 0d 53 25 3d 53 25 20  | B%<>0....S%=S% |
000007f0  82 20 31 0d 04 1a 0e e6  20 30 2c 30 20 c8 9c 20  |. 1..... 0,0 .. |
00000800  30 0d 04 24 09 d1 3d 31  33 30 0d 04 2e 0b fd 20  |0..$..=130..... |
00000810  42 25 3c 3e 30 0d 04 38  08 41 24 3d be 0d 04 42  |B%<>0..8.A$=...B|
00000820  05 e1 0d 04 4c 04 0d 04  56 1a f4 20 53 63 72 69  |....L...V.. Scri|
00000830  62 62 6c 65 2c 20 77 69  74 68 20 64 65 70 74 68  |bble, with depth|
00000840  0d 04 60 0d dd 20 f2 5f  53 63 72 69 62 0d 04 6a  |..`.. ._Scrib..j|
00000850  15 ea 20 58 25 2c 59 25  2c 5a 25 2c 42 25 2c 58  |.. X%,Y%,Z%,B%,X|
00000860  73 25 0d 04 74 10 58 73  25 3d 52 73 69 64 65 25  |s%..t.Xs%=Rside%|
00000870  2f 35 0d 04 7e 05 f5 0d  04 88 0e f2 5f 43 4c 53  |/5..~......._CLS|
00000880  28 33 2c 35 29 0d 04 92  11 f2 5f 33 44 28 30 2c  |(3,5)....._3D(0,|
00000890  30 2c 30 2c 30 29 0d 04  9c 08 59 25 3d 30 0d 04  |0,0,0)....Y%=0..|
000008a0  a6 0e e3 20 5a 25 3d 31  20 b8 20 35 0d 04 b0 1d  |... Z%=1 . 5....|
000008b0  c8 99 22 57 69 6d 70 5f  53 65 74 43 6f 6c 6f 75  |.."Wimp_SetColou|
000008c0  72 22 2c b3 28 37 29 2b  37 0d 04 ba 0f e3 20 58  |r",.(7)+7..... X|
000008d0  25 3d 30 20 b8 20 38 30  0d 04 c4 27 f2 5f 33 44  |%=0 . 80...'._3D|
000008e0  28 b3 28 58 73 25 29 2b  59 25 2c b3 28 59 6d 61  |(.(Xs%)+Y%,.(Yma|
000008f0  78 25 29 2c 5a 25 2a 32  30 2d 34 30 2c 31 29 0d  |x%),Z%*20-40,1).|
00000900  04 ce 05 ed 0d 04 d8 0b  59 25 2b 3d 58 73 25 0d  |........Y%+=Xs%.|
00000910  04 e2 05 ed 0d 04 ec 07  d1 3d 30 0d 04 f6 05 f5  |.........=0.....|
00000920  0d 05 00 0c 42 25 3d 96  28 2d 31 29 0d 05 0a 13  |....B%=.(-1)....|
00000930  fd 20 91 3e 36 30 30 20  84 20 42 25 3c 3e 30 0d  |. .>600 . B%<>0.|
00000940  05 14 0b fd 20 42 25 3c  3e 30 0d 05 1e 08 41 24  |.... B%<>0....A$|
00000950  3d be 0d 05 28 05 e1 0d  05 32 04 0d 05 3c 12 dd  |=...(....2...<..|
00000960  20 f2 5f 43 4c 53 28 42  25 2c 46 25 29 0d 05 46  | ._CLS(B%,F%)..F|
00000970  1f c8 99 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |..."Wimp_SetColo|
00000980  75 72 22 2c 26 38 30 20  84 20 42 25 0d 05 50 19  |ur",&80 . B%..P.|
00000990  c8 99 22 57 69 6d 70 5f  53 65 74 43 6f 6c 6f 75  |.."Wimp_SetColou|
000009a0  72 22 2c 46 25 0d 05 5a  0d f2 5f 53 69 64 65 28  |r",F%..Z.._Side(|
000009b0  30 29 0d 05 64 07 da 3a  db 0d 05 6e 0d f2 5f 53  |0)..d..:...n.._S|
000009c0  69 64 65 28 31 29 0d 05  78 07 da 3a db 0d 05 82  |ide(1)..x..:....|
000009d0  05 e1 0d 05 8c 04 0d 05  96 17 f4 20 41 20 70 72  |........... A pr|
000009e0  69 6d 69 64 20 6f 66 20  62 61 6c 6c 73 0d 05 a0  |imid of balls...|
000009f0  10 dd 20 f2 5f 64 72 61  77 42 61 6c 6c 0d 05 aa  |.. ._drawBall...|
00000a00  16 ea 20 5a 25 2c 41 25  2c 42 25 2c 5a 49 25 2c  |.. Z%,A%,B%,ZI%,|
00000a10  59 6f 25 0d 05 b4 17 59  6f 25 3d 59 6d 61 78 25  |Yo%....Yo%=Ymax%|
00000a20  2f 32 2d 59 6d 61 78 25  2f 33 0d 05 be 09 5a 49  |/2-Ymax%/3....ZI|
00000a30  25 3d 38 0d 05 c8 05 f5  0d 05 d2 0d 5a 25 3d 2d  |%=8.........Z%=-|
00000a40  34 2a 5a 49 25 0d 05 dc  0e f2 5f 43 4c 53 28 33  |4*ZI%....._CLS(3|
00000a50  2c 35 29 0d 05 e6 23 e3  20 41 25 3d 31 30 30 20  |,5)...#. A%=100 |
00000a60  b8 20 52 73 69 64 65 25  2f 32 20 88 20 52 73 69  |. Rside%/2 . Rsi|
00000a70  64 65 25 2f 31 38 0d 05  f0 19 f2 5f 53 42 41 4c  |de%/18....._SBAL|
00000a80  4c 28 41 25 2c 41 25 2b  59 6f 25 2c 5a 25 29 0d  |L(A%,A%+Yo%,Z%).|
00000a90  05 fa 20 f2 5f 53 42 41  4c 4c 28 52 73 69 64 65  |.. ._SBALL(Rside|
00000aa0  25 2d 41 25 2c 41 25 2b  59 6f 25 2c 5a 25 29 0d  |%-A%,A%+Yo%,Z%).|
00000ab0  06 04 1f f2 5f 53 42 41  4c 4c 28 41 25 2c 59 6d  |...._SBALL(A%,Ym|
00000ac0  61 78 25 2d 41 25 2d 59  6f 25 2c 5a 25 29 0d 06  |ax%-A%-Yo%,Z%)..|
00000ad0  0e 26 f2 5f 53 42 41 4c  4c 28 52 73 69 64 65 25  |.&._SBALL(Rside%|
00000ae0  2d 41 25 2c 59 6d 61 78  25 2d 41 25 2d 59 6f 25  |-A%,Ymax%-A%-Yo%|
00000af0  2c 5a 25 29 0d 06 18 0d  5a 25 3d 5a 25 2b 5a 49  |,Z%)....Z%=Z%+ZI|
00000b00  25 0d 06 22 1a e7 20 5a  25 3d 30 20 8c 20 e6 20  |%..".. Z%=0 . . |
00000b10  30 2c 36 33 3a f2 5f 47  52 49 44 0d 06 2c 05 ed  |0,63:._GRID..,..|
00000b20  0d 06 36 2a f2 5f 53 42  41 4c 4c 28 52 73 69 64  |..6*._SBALL(Rsid|
00000b30  65 25 2f 32 2d 31 30 2c  59 6d 61 78 25 2f 32 2b  |e%/2-10,Ymax%/2+|
00000b40  31 30 2c 5a 25 2b 5a 49  25 29 0d 06 40 07 d1 3d  |10,Z%+ZI%)..@..=|
00000b50  30 0d 06 4a 05 f5 0d 06  54 0c 42 25 3d 96 28 2d  |0..J....T.B%=.(-|
00000b60  31 29 0d 06 5e 13 fd 20  91 3e 37 30 30 20 84 20  |1)..^.. .>700 . |
00000b70  42 25 3c 3e 30 0d 06 68  0f 5a 49 25 3d b3 28 31  |B%<>0..h.ZI%=.(1|
00000b80  32 29 2b 34 0d 06 72 0b  fd 20 42 25 3c 3e 30 0d  |2)+4..r.. B%<>0.|
00000b90  06 7c 08 41 24 3d be 0d  06 86 05 e1 0d 06 90 04  |.|.A$=..........|
00000ba0  0d 06 9a 0c dd 20 f2 5f  47 52 49 44 0d 06 a4 0d  |..... ._GRID....|
00000bb0  f2 5f 53 69 64 65 28 30  29 0d 06 ae 0b f2 5f 47  |._Side(0)....._G|
00000bc0  52 49 44 31 0d 06 b8 0d  f2 5f 53 69 64 65 28 31  |RID1....._Side(1|
00000bd0  29 0d 06 c2 0b f2 5f 47  52 49 44 31 0d 06 cc 05  |)....._GRID1....|
00000be0  e1 0d 06 d6 04 0d 06 e0  0d dd 20 f2 5f 47 52 49  |.......... ._GRI|
00000bf0  44 31 0d 06 ea 0e ea 20  58 25 2c 59 25 2c 4f 25  |D1..... X%,Y%,O%|
00000c00  0d 06 f4 12 4f 25 3d 59  6d 61 78 25 2f 32 2d 35  |....O%=Ymax%/2-5|
00000c10  30 30 0d 06 fe 1f e3 20  58 25 3d 30 20 b8 20 52  |00..... X%=0 . R|
00000c20  73 69 64 65 25 20 88 20  52 73 69 64 65 25 2f 31  |side% . Rside%/1|
00000c30  30 0d 07 08 1b e3 20 59  25 3d 30 20 b8 20 31 30  |0..... Y%=0 . 10|
00000c40  32 33 20 88 20 31 30 32  34 2f 31 30 0d 07 12 16  |23 . 1024/10....|
00000c50  86 20 58 25 2c 4f 25 2c  58 25 2c 31 30 32 30 2b  |. X%,O%,X%,1020+|
00000c60  4f 25 0d 07 1c 18 86 20  30 2c 59 25 2b 4f 25 2c  |O%..... 0,Y%+O%,|
00000c70  31 32 37 39 2c 59 25 2b  4f 25 0d 07 26 07 ed 3a  |1279,Y%+O%..&..:|
00000c80  ed 0d 07 30 05 e1 0d 07  3a 04 0d 07 44 17 dd 20  |...0....:...D.. |
00000c90  f2 5f 53 42 41 4c 4c 28  58 25 2c 59 25 2c 44 25  |._SBALL(X%,Y%,D%|
00000ca0  29 0d 07 4e 0b ea 20 42  61 73 65 25 0d 07 58 0e  |)..N.. Base%..X.|
00000cb0  42 61 73 65 25 3d a4 72  67 62 0d 07 62 0d f2 5f  |Base%=.rgb..b.._|
00000cc0  53 69 64 65 28 31 29 0d  07 6c 13 f2 5f 42 41 4c  |Side(1)..l.._BAL|
00000cd0  4c 28 58 25 2c 59 25 2c  30 29 0d 07 76 0d f2 5f  |L(X%,Y%,0)..v.._|
00000ce0  53 69 64 65 28 30 29 0d  07 80 16 f2 5f 42 41 4c  |Side(0)....._BAL|
00000cf0  4c 28 58 25 2b 44 25 2c  59 25 2c 33 29 0d 07 8a  |L(X%+D%,Y%,3)...|
00000d00  05 e1 0d 07 94 04 0d 07  9e 18 dd 20 f2 5f 42 41  |........... ._BA|
00000d10  4c 4c 28 58 42 25 2c 59  42 25 2c 44 25 29 0d 07  |LL(XB%,YB%,D%)..|
00000d20  a8 23 ea 20 72 61 64 69  75 73 25 2c 72 61 64 32  |.#. radius%,rad2|
00000d30  25 2c 4c 25 2c 58 25 2c  59 25 2c 64 58 25 2c 44  |%,L%,X%,Y%,dX%,D|
00000d40  25 0d 07 b2 0e 72 61 64  69 75 73 25 3d 36 34 0d  |%....radius%=64.|
00000d50  07 bc 09 64 58 25 3d 30  0d 07 c6 14 72 61 64 32  |...dX%=0....rad2|
00000d60  25 3d 72 61 64 69 75 73  25 3e 3e 31 0d 07 d0 18  |%=radius%>>1....|
00000d70  4c 25 3d ab 28 35 31 32  2f 72 61 64 69 75 73 25  |L%=.(512/radius%|
00000d80  29 2f ab 32 0d 07 da 19  e3 20 58 25 3d 72 61 64  |)/.2..... X%=rad|
00000d90  69 75 73 25 20 b8 20 30  20 88 20 2d 38 0d 07 e4  |ius% . 0 . -8...|
00000da0  1a ef 32 33 2c 31 37 2c  32 2c 35 31 32 2d 28 58  |..23,17,2,512-(X|
00000db0  25 3c 3c 4c 25 29 7c 0d  07 ee 22 e7 58 25 3c 3d  |%<<L%)|...".X%<=|
00000dc0  72 61 64 32 25 20 e6 42  61 73 65 25 2b 26 31 35  |rad2% .Base%+&15|
00000dd0  20 8b 20 e6 42 61 73 65  25 0d 07 f8 18 c8 8f 20  | . .Base%...... |
00000de0  c8 90 20 58 42 25 2c 59  42 25 2c 58 25 2b 64 58  |.. XB%,YB%,X%+dX|
00000df0  25 0d 08 02 0e 64 58 25  3d 64 58 25 2b 44 25 0d  |%....dX%=dX%+D%.|
00000e00  08 0c 05 ed 0d 08 16 05  e1 0d 08 20 05 20 0d 08  |........... . ..|
00000e10  2a 2b dd a4 72 67 62 3d  28 b3 28 33 29 2d 31 29  |*+..rgb=(.(3)-1)|
00000e20  2a 31 2b 28 b3 28 33 29  2d 31 29 2a 34 2b 28 b3  |*1+(.(3)-1)*4+(.|
00000e30  28 33 29 2d 31 29 2a 31  36 0d 08 34 04 0d 08 3e  |(3)-1)*16..4...>|
00000e40  12 f4 20 54 68 65 20 33  44 20 53 6e 61 6b 65 0d  |.. The 3D Snake.|
00000e50  08 48 0d dd 20 f2 5f 53  6e 61 6b 65 0d 08 52 67  |.H.. ._Snake..Rg|
00000e60  ea 20 58 25 2c 59 25 2c  58 4d 41 58 25 2c 58 4d  |. X%,Y%,XMAX%,XM|
00000e70  49 4e 25 2c 44 58 25 2c  44 44 58 25 2c 44 44 59  |IN%,DX%,DDX%,DDY|
00000e80  25 2c 44 44 5a 25 2c 58  25 2c 59 25 2c 53 25 2c  |%,DDZ%,X%,Y%,S%,|
00000e90  59 4d 41 58 25 2c 59 4d  49 4e 25 2c 5a 4d 41 58  |YMAX%,YMIN%,ZMAX|
00000ea0  25 2c 5a 4d 49 4e 25 2c  50 25 2c 4e 25 2c 44 5a  |%,ZMIN%,P%,N%,DZ|
00000eb0  25 2c 64 58 25 2c 42 25  2c 63 63 25 2c 54 48 2c  |%,dX%,B%,cc%,TH,|
00000ec0  54 48 50 0d 08 5c 0e f2  5f 43 4c 53 28 37 2c 30  |THP..\.._CLS(7,0|
00000ed0  29 0d 08 66 35 4e 25 3d  31 30 30 3a f4 20 4e 75  |)..f5N%=100:. Nu|
00000ee0  6d 62 65 72 20 6f 66 20  73 65 67 6d 65 6e 74 73  |mber of segments|
00000ef0  20 6f 6e 20 73 63 72 65  65 6e 20 61 74 20 6f 6e  | on screen at on|
00000f00  65 20 74 69 6d 65 0d 08  70 0f e3 58 25 3d 30 20  |e time..p..X%=0 |
00000f10  b8 20 31 31 30 0d 08 7a  1e 78 25 28 58 25 29 3d  |. 110..z.x%(X%)=|
00000f20  30 3a 79 25 28 58 25 29  3d 30 3a 68 25 28 58 25  |0:y%(X%)=0:h%(X%|
00000f30  29 3d 30 0d 08 84 05 ed  0d 08 8e 2e 50 25 3d 30  |)=0.........P%=0|
00000f40  20 20 3a f4 20 43 79 63  6c 69 63 20 62 75 66 66  |  :. Cyclic buff|
00000f50  65 72 20 70 6f 69 6e 74  65 72 20 69 6e 74 6f 20  |er pointer into |
00000f60  61 72 72 61 79 73 0d 08  98 16 44 58 25 3d 31 3a  |arrays....DX%=1:|
00000f70  44 59 25 3d 33 3a 44 5a  25 3d 31 36 0d 08 a2 18  |DY%=3:DZ%=16....|
00000f80  58 25 3d 36 31 32 3a 59  25 3d 35 31 32 3a 5a 25  |X%=612:Y%=512:Z%|
00000f90  3d 36 31 32 0d 08 ac 18  44 44 58 25 3d 31 3a 44  |=612....DDX%=1:D|
00000fa0  44 59 25 3d 31 3a 44 44  5a 25 3d 31 0d 08 b6 50  |DY%=1:DDZ%=1...P|
00000fb0  58 4d 41 58 25 3d 52 73  69 64 65 25 2f 32 2d 31  |XMAX%=Rside%/2-1|
00000fc0  30 30 3a 58 4d 49 4e 25  3d 31 30 30 3a 59 4d 41  |00:XMIN%=100:YMA|
00000fd0  58 25 3d 59 6d 61 78 25  2f 32 2d 31 30 30 3a 59  |X%=Ymax%/2-100:Y|
00000fe0  4d 49 4e 25 3d 31 30 30  3a 5a 4d 41 58 25 3d 39  |MIN%=100:ZMAX%=9|
00000ff0  30 30 3a 5a 4d 49 4e 25  3d 33 30 30 0d 08 c0 12  |00:ZMIN%=300....|
00001000  43 25 3d 33 3a 44 25 3d  30 3a 46 25 3d 31 0d 08  |C%=3:D%=0:F%=1..|
00001010  ca 0c 53 25 3d 5a 25 81  31 35 0d 08 d4 0f 54 48  |..S%=Z%.15....TH|
00001020  3d 30 3a 54 48 50 3d 39  30 0d 08 de 05 f5 0d 08  |=0:THP=90.......|
00001030  e8 0b 20 20 63 63 25 3d  30 0d 08 f2 15 20 20 f5  |..  cc%=0....  .|
00001040  20 50 25 3d 28 50 25 2b  31 29 83 31 31 30 0d 08  | P%=(P%+1).110..|
00001050  fc 11 20 20 54 48 3d 28  54 48 2b 30 2e 32 29 0d  |..  TH=(TH+0.2).|
00001060  09 06 26 20 20 20 20 58  25 3d 58 4d 41 58 25 2a  |..&    X%=XMAX%*|
00001070  b5 28 b2 28 44 58 25 2a  54 48 29 29 2b 52 73 69  |.(.(DX%*TH))+Rsi|
00001080  64 65 25 2f 32 0d 09 10  2b 20 20 20 20 59 25 3d  |de%/2...+    Y%=|
00001090  59 4d 41 58 25 2a 9b 28  b2 28 44 59 25 2a 28 54  |YMAX%*.(.(DY%*(T|
000010a0  48 2b 54 48 50 29 29 29  2b 59 6d 61 78 25 2f 32  |H+THP)))+Ymax%/2|
000010b0  0d 09 1a 39 20 20 20 20  e7 20 5a 25 3e 5a 4d 41  |...9    . Z%>ZMA|
000010c0  58 25 20 44 5a 25 3d 44  5a 25 2d 44 44 5a 25 20  |X% DZ%=DZ%-DDZ% |
000010d0  8b 20 e7 20 5a 25 3c 5a  4d 49 4e 25 20 44 5a 25  |. . Z%<ZMIN% DZ%|
000010e0  3d 44 5a 25 2b 44 44 5a  25 0d 09 24 1b 20 20 20  |=DZ%+DDZ%..$.   |
000010f0  20 5a 25 3d 5a 25 2b 44  5a 25 3a 20 53 25 3d 5a  | Z%=Z%+DZ%: S%=Z|
00001100  25 81 31 35 0d 09 2e 12  20 20 20 20 54 48 50 2b  |%.15....    THP+|
00001110  3d 30 2e 30 30 35 0d 09  38 16 20 20 20 20 20 e3  |=0.005..8.     .|
00001120  20 42 41 4e 4b 25 3d 30  20 b8 20 31 0d 09 42 19  | BANK%=0 . 1..B.|
00001130  20 20 20 20 20 20 f2 5f  53 69 64 65 28 42 41 4e  |      ._Side(BAN|
00001140  4b 25 2d 31 29 0d 09 4c  20 20 20 20 20 20 20 64  |K%-1)..L       d|
00001150  58 25 3d 58 25 2b 28 42  41 4e 4b 25 2a 28 53 25  |X%=X%+(BANK%*(S%|
00001160  29 29 81 20 32 0d 09 56  16 20 20 20 20 20 20 e6  |)). 2..V.      .|
00001170  30 2c 46 25 20 c8 9c 20  32 35 35 0d 09 60 19 20  |0,F% .. 255..`. |
00001180  20 20 20 20 20 c8 8f 20  c8 90 20 64 58 25 2c 59  |     .. .. dX%,Y|
00001190  25 2c 53 25 0d 09 6a 16  20 20 20 20 20 20 e6 30  |%,S%..j.      .0|
000011a0  2c 43 25 20 c8 9c 20 32  35 35 0d 09 74 16 20 20  |,C% .. 255..t.  |
000011b0  20 20 20 20 c8 8f 20 64  58 25 2c 59 25 2c 53 25  |    .. dX%,Y%,S%|
000011c0  0d 09 7e 0f 20 20 20 20  20 20 e6 20 30 2c 30 0d  |..~.      . 0,0.|
000011d0  09 88 17 20 20 20 20 20  20 c8 8f 20 c8 90 20 58  |...      .. .. X|
000011e0  25 2c 59 25 2c 36 0d 09  92 0a 20 20 20 20 20 ed  |%,Y%,6....     .|
000011f0  0d 09 9c 25 20 20 20 20  78 25 28 50 25 29 3d 58  |...%    x%(P%)=X|
00001200  25 3a 79 25 28 50 25 29  3d 59 25 3a 68 25 28 50  |%:y%(P%)=Y%:h%(P|
00001210  25 29 3d 53 25 0d 09 a6  1a 20 20 20 20 45 25 3d  |%)=S%....    E%=|
00001220  28 50 25 2d 4e 25 2b 31  31 30 29 83 31 31 30 0d  |(P%-N%+110).110.|
00001230  09 b0 16 20 20 20 20 e3  20 42 41 4e 4b 25 3d 20  |...    . BANK%= |
00001240  30 20 b8 20 31 0d 09 ba  17 20 20 20 20 f2 5f 53  |0 . 1....    ._S|
00001250  69 64 65 28 42 41 4e 4b  25 2d 31 29 0d 09 c4 26  |ide(BANK%-1)...&|
00001260  20 20 20 20 64 58 25 3d  78 25 28 45 25 29 2b 28  |    dX%=x%(E%)+(|
00001270  42 41 4e 4b 25 2a 28 68  25 28 45 25 29 29 29 81  |BANK%*(h%(E%))).|
00001280  20 32 0d 09 ce 12 20 20  20 20 e6 20 30 2c 30 20  | 2....    . 0,0 |
00001290  c8 9c 20 30 0d 09 d8 1f  20 20 20 20 c8 8f 20 c8  |.. 0....    .. .|
000012a0  90 20 64 58 25 2c 79 25  28 45 25 29 2c 68 25 28  |. dX%,y%(E%),h%(|
000012b0  45 25 29 0d 09 e2 09 20  20 20 20 ed 0d 09 ec 0e  |E%)....    .....|
000012c0  20 20 20 20 63 63 25 2b  3d 31 0d 09 f6 10 20 20  |    cc%+=1....  |
000012d0  20 20 42 25 3d 96 28 2d  31 29 0d 0a 00 16 20 20  |  B%=.(-1)....  |
000012e0  fd 20 63 63 25 3e 33 30  20 84 20 42 25 3c 3e 30  |. cc%>30 . B%<>0|
000012f0  0d 0a 0a 0c 46 25 3d b3  28 36 33 29 0d 0a 14 0c  |....F%=.(63)....|
00001300  43 25 3d b3 28 36 33 29  0d 0a 1e 0b fd 20 42 25  |C%=.(63)..... B%|
00001310  3c 3e 30 0d 0a 28 08 41  24 3d be 0d 0a 32 05 e1  |<>0..(.A$=...2..|
00001320  0d 0a 3c 04 0d 0a 46 1a  f4 20 54 68 65 20 4c 6f  |..<...F.. The Lo|
00001330  72 65 6e 7a 20 41 74 74  72 61 63 74 6f 72 0d 0a  |renz Attractor..|
00001340  50 0e dd 20 f2 5f 4c 4f  52 4e 54 5a 0d 0a 5a 41  |P.. ._LORNTZ..ZA|
00001350  ea 20 49 4e 43 2c 42 25  2c 4e 25 2c 46 25 2c 50  |. INC,B%,N%,F%,P|
00001360  31 2c 50 32 2c 50 33 2c  58 2c 59 2c 5a 2c 53 25  |1,P2,P3,X,Y,Z,S%|
00001370  2c 53 2c 53 58 2c 53 5a  2c 53 58 25 2c 53 59 25  |,S,SX,SZ,SX%,SY%|
00001380  2c 53 5a 25 2c 44 31 2c  44 32 2c 44 33 0d 0a 64  |,SZ%,D1,D2,D3..d|
00001390  0e f2 5f 43 4c 53 28 33  2c 35 29 0d 0a 6e 0a f2  |.._CLS(3,5)..n..|
000013a0  5f 47 52 49 44 0d 0a 78  08 53 3d 31 30 0d 0a 82  |_GRID..x.S=10...|
000013b0  0e 53 3d 59 6d 61 78 25  2f 38 30 0d 0a 8c 10 53  |.S=Ymax%/80....S|
000013c0  58 3d 52 73 69 64 65 25  2f 37 30 0d 0a 96 08 53  |X=Rside%/70....S|
000013d0  5a 3d 32 0d 0a a0 0e 4e  25 3d 37 30 3a 46 25 3d  |Z=2....N%=70:F%=|
000013e0  30 0d 0a aa 0c 49 4e 43  3d 34 45 2d 33 0d 0a b4  |0....INC=4E-3...|
000013f0  22 53 58 25 3d 52 73 69  64 65 25 2f 32 3a 53 59  |"SX%=Rside%/2:SY|
00001400  25 3d 59 6d 61 78 25 2f  32 3a 53 5a 25 3d 30 0d  |%=Ymax%/2:SZ%=0.|
00001410  0a be 16 58 3d 2d 36 2e  35 3a 59 3d 2d 38 2e 38  |...X=-6.5:Y=-8.8|
00001420  3a 5a 3d 32 30 0d 0a c8  1a 50 31 3d 31 30 3a 50  |:Z=20....P1=10:P|
00001430  32 3d 32 38 3a 50 33 3d  32 2e 36 36 36 36 36 0d  |2=28:P3=2.66666.|
00001440  0a d2 04 0d 0a dc 05 f5  0d 0a e6 0b 4e 25 3d 4e  |............N%=N|
00001450  25 2b 31 0d 0a f0 24 e7  20 4e 25 3e 32 30 30 20  |%+1...$. N%>200 |
00001460  8c 20 4e 25 3d 30 3a e6  20 30 2c b3 28 36 33 29  |. N%=0:. 0,.(63)|
00001470  20 c8 9c 20 32 35 35 0d  0a fa 0f 44 31 3d 50 31  | .. 255....D1=P1|
00001480  2a 28 59 2d 58 29 0d 0b  04 11 44 32 3d 50 32 2a  |*(Y-X)....D2=P2*|
00001490  58 2d 59 2d 58 2a 5a 0d  0b 0e 0f 44 33 3d 58 2a  |X-Y-X*Z....D3=X*|
000014a0  59 2d 50 33 2a 5a 0d 0b  18 0e 58 3d 58 2b 44 31  |Y-P3*Z....X=X+D1|
000014b0  2a 49 4e 43 0d 0b 22 0e  59 3d 59 2b 44 32 2a 49  |*INC..".Y=Y+D2*I|
000014c0  4e 43 0d 0b 2c 0e 5a 3d  5a 2b 44 33 2a 49 4e 43  |NC..,.Z=Z+D3*INC|
000014d0  0d 0b 36 12 f2 5f 56 50  4c 4f 54 28 58 2c 59 2c  |..6.._VPLOT(X,Y,|
000014e0  5a 29 0d 0b 40 0c 42 25  3d 96 28 2d 31 29 0d 0b  |Z)..@.B%=.(-1)..|
000014f0  4a 0b fd 20 42 25 3c 3e  30 0d 0b 54 08 41 24 3d  |J.. B%<>0..T.A$=|
00001500  be 0d 0b 5e 05 e1 0d 0b  68 04 0d 0b 72 14 dd 20  |...^....h...r.. |
00001510  f2 5f 56 50 4c 4f 54 28  58 2c 59 2c 5a 29 0d 0b  |._VPLOT(X,Y,Z)..|
00001520  7c 1a 58 25 3d 58 2a 53  58 3a 59 25 3d 59 2a 53  ||.X%=X*SX:Y%=Y*S|
00001530  3a 5a 25 3d 5a 2a 53 5a  0d 0b 86 21 58 25 3d 58  |:Z%=Z*SZ...!X%=X|
00001540  25 2b 53 58 25 3a 59 25  3d 59 25 2b 53 59 25 3a  |%+SX%:Y%=Y%+SY%:|
00001550  5a 25 3d 5a 25 2b 53 5a  25 0d 0b 90 16 f2 5f 33  |Z%=Z%+SZ%....._3|
00001560  44 28 58 25 2c 59 25 2c  2d 5a 25 2c 46 25 29 0d  |D(X%,Y%,-Z%,F%).|
00001570  0b 9a 08 46 25 3d 31 0d  0b a4 05 e1 0d 0b ae 04  |...F%=1.........|
00001580  0d 0b b8 0b dd 20 f2 5f  44 53 31 0d 0b c2 10 ea  |..... ._DS1.....|
00001590  20 4c 25 2c 53 2c 5a 25  2c 48 25 0d 0b cc 0a f7  | L%,S,Z%,H%.....|
000015a0  20 8d 44 6c 4c 0d 0b d6  04 0d 0b e0 0e f2 5f 43  | .DlL........._C|
000015b0  4c 53 28 30 2c 37 29 0d  0b ea 12 5a 25 3d 36 30  |LS(0,7)....Z%=60|
000015c0  3a 53 3d 31 3a 48 25 3d  30 0d 0b f4 0e e3 20 4c  |:S=1:H%=0..... L|
000015d0  25 3d 30 20 b8 20 37 0d  0b fe 0c f3 20 44 25 28  |%=0 . 7..... D%(|
000015e0  4c 25 29 0d 0c 08 05 ed  0d 0c 12 0e e3 20 4c 25  |L%).......... L%|
000015f0  3d 30 20 b8 20 36 0d 0c  1c 1c f2 5f 4a 4f 48 4e  |=0 . 6....._JOHN|
00001600  4e 59 28 44 25 28 4c 25  29 2c 48 25 2c 53 2c 5a  |NY(D%(L%),H%,S,Z|
00001610  25 29 0d 0c 26 0a 53 3d  53 2d 2e 31 0d 0c 30 0a  |%)..&.S=S-.1..0.|
00001620  5a 25 2d 3d 32 30 0d 0c  3a 0a 48 25 2b 3d 34 30  |Z%-=20..:.H%+=40|
00001630  0d 0c 44 05 ed 0d 0c 4e  08 41 24 3d be 0d 0c 58  |..D....N.A$=...X|
00001640  05 e1 0d 0c 62 04 0d 0c  6c 21 dc 20 30 2c 32 36  |....b...l!. 0,26|
00001650  30 2c 34 38 30 2c 36 38  30 2c 38 35 30 2c 31 30  |0,480,680,850,10|
00001660  30 30 2c 31 31 35 30 0d  0c 76 04 0d 0c 80 19 f4  |00,1150..v......|
00001670  20 41 20 43 61 72 74 6f  6f 6e 20 63 68 61 72 61  | A Cartoon chara|
00001680  63 74 6f 72 0d 0c 8a 0b  dd 20 f2 5f 44 53 32 0d  |ctor..... ._DS2.|
00001690  0c 94 0e f2 5f 43 4c 53  28 31 2c 36 29 0d 0c 9e  |...._CLS(1,6)...|
000016a0  26 f2 5f 4a 4f 48 4e 4e  59 28 52 73 69 64 65 25  |&._JOHNNY(Rside%|
000016b0  2f 32 2c 30 2c 59 6d 61  78 25 2f 31 30 32 34 2c  |/2,0,Ymax%/1024,|
000016c0  31 30 29 0d 0c a8 1f f2  5f 4a 4f 48 4e 4e 59 28  |10)....._JOHNNY(|
000016d0  30 2c 30 2c 59 6d 61 78  25 2f 31 30 32 34 2c 31  |0,0,Ymax%/1024,1|
000016e0  30 29 0d 0c b2 2d f2 5f  4a 4f 48 4e 4e 59 28 52  |0)...-._JOHNNY(R|
000016f0  73 69 64 65 25 2f 33 2c  59 6d 61 78 25 2f 32 2c  |side%/3,Ymax%/2,|
00001700  59 6d 61 78 25 2f 32 30  34 38 2c 2d 31 30 29 0d  |Ymax%/2048,-10).|
00001710  0c bc 2f f2 5f 4a 4f 48  4e 4e 59 28 52 73 69 64  |../._JOHNNY(Rsid|
00001720  65 25 2f 34 2c 33 2a 59  6d 61 78 25 2f 34 2c 59  |e%/4,3*Ymax%/4,Y|
00001730  6d 61 78 25 2f 34 30 39  36 2c 2d 32 30 29 0d 0c  |max%/4096,-20)..|
00001740  c6 08 41 24 3d be 0d 0c  d0 05 e1 0d 0c da 04 0d  |..A$=...........|
00001750  0c e4 1c dd 20 f2 5f 4a  4f 48 4e 4e 59 28 4f 58  |.... ._JOHNNY(OX|
00001760  25 2c 4f 59 25 2c 53 2c  44 25 29 0d 0c ee 11 ea  |%,OY%,S,D%).....|
00001770  20 58 25 2c 59 25 2c 50  25 2c 43 25 0d 0c f8 11  | X%,Y%,P%,C%....|
00001780  e3 20 42 41 4e 4b 25 3d  30 20 b8 20 31 0d 0d 02  |. BANK%=0 . 1...|
00001790  13 f2 5f 53 69 64 65 28  42 41 4e 4b 25 2d 31 29  |.._Side(BANK%-1)|
000017a0  0d 0d 0c 10 64 58 25 3d  42 41 4e 4b 25 2a 44 25  |....dX%=BANK%*D%|
000017b0  0d 0d 16 0a f7 20 8d 74  76 4d 0d 0d 20 0b f3 20  |..... .tvM.. .. |
000017c0  50 25 2c 43 25 0d 0d 2a  05 f5 0d 0d 34 0b f3 20  |P%,C%..*....4.. |
000017d0  58 25 2c 59 25 0d 0d 3e  1b 58 25 3d 58 25 2a 53  |X%,Y%..>.X%=X%*S|
000017e0  2b 4f 58 25 3a 59 25 3d  59 25 2a 53 2b 4f 59 25  |+OX%:Y%=Y%*S+OY%|
000017f0  0d 0d 48 0f ec 20 64 58  25 2b 58 25 2c 59 25 0d  |..H.. dX%+X%,Y%.|
00001800  0d 52 0f e3 20 41 25 3d  31 20 b8 20 50 25 0d 0d  |.R.. A%=1 . P%..|
00001810  5c 0b f3 20 58 25 2c 59  25 0d 0d 66 1b 58 25 3d  |\.. X%,Y%..f.X%=|
00001820  58 25 2a 53 2b 4f 58 25  3a 59 25 3d 59 25 2a 53  |X%*S+OX%:Y%=Y%*S|
00001830  2b 4f 59 25 0d 0d 70 0f  df 20 64 58 25 2b 58 25  |+OY%..p.. dX%+X%|
00001840  2c 59 25 0d 0d 7a 05 ed  0d 0d 84 0b f3 20 50 25  |,Y%..z....... P%|
00001850  2c 43 25 0d 0d 8e 0a fd  20 50 25 3d 30 0d 0d 98  |,C%..... P%=0...|
00001860  05 ed 0d 0d a2 05 e1 0d  0d ac 04 0d 0d b6 68 dc  |..............h.|
00001870  20 37 39 2c 33 2c 33 39  2c 37 31 2c 37 30 2c 37  | 79,3,39,71,70,7|
00001880  39 2c 37 39 2c 37 35 2c  38 37 2c 31 30 35 2c 31  |9,79,75,87,105,1|
00001890  30 38 2c 31 39 36 2c 31  33 31 2c 32 34 30 2c 31  |08,196,131,240,1|
000018a0  34 36 2c 32 37 39 2c 31  39 30 2c 31 39 35 2c 31  |46,279,190,195,1|
000018b0  39 39 2c 31 36 39 2c 32  31 31 2c 31 32 31 2c 32  |99,169,211,121,2|
000018c0  31 39 2c 39 34 2c 32 32  35 2c 39 33 2c 32 32 34  |19,94,225,93,224|
000018d0  2c 37 36 0d 0d c0 67 dc  32 36 38 2c 36 33 2c 32  |,76...g.268,63,2|
000018e0  37 30 2c 37 33 2c 32 34  38 2c 38 33 2c 32 33 37  |70,73,248,83,237|
000018f0  2c 39 34 2c 32 34 35 2c  39 35 2c 32 32 39 2c 32  |,94,245,95,229,2|
00001900  30 35 2c 32 31 35 2c 32  38 35 2c 31 39 38 2c 33  |05,215,285,198,3|
00001910  34 39 2c 32 30 34 2c 34  31 33 2c 32 32 38 2c 33  |49,204,413,228,3|
00001920  38 37 2c 32 33 31 2c 33  36 30 2c 32 32 30 2c 33  |87,231,360,220,3|
00001930  34 31 2c 32 30 37 2c 33  33 30 0d 0d ca 6c dc 32  |41,207,330...l.2|
00001940  31 32 2c 33 31 32 2c 32  33 34 2c 33 32 38 2c 32  |12,312,234,328,2|
00001950  35 35 2c 33 35 34 2c 32  35 37 2c 33 38 39 2c 32  |55,354,257,389,2|
00001960  35 33 2c 34 30 30 2c 32  35 38 2c 34 30 33 2c 32  |53,400,258,403,2|
00001970  33 37 2c 34 34 33 2c 32  31 39 2c 34 36 38 2c 32  |37,443,219,468,2|
00001980  30 31 2c 34 38 35 2c 32  31 35 2c 35 30 37 2c 31  |01,485,215,507,1|
00001990  39 34 2c 35 30 37 2c 31  38 32 2c 35 30 36 2c 31  |94,507,182,506,1|
000019a0  37 34 2c 35 31 34 0d 0d  d4 6a dc 31 38 38 2c 35  |74,514...j.188,5|
000019b0  33 32 2c 31 39 37 2c 35  34 34 2c 32 30 35 2c 35  |32,197,544,205,5|
000019c0  34 35 2c 32 30 37 2c 35  36 30 2c 32 30 35 2c 35  |45,207,560,205,5|
000019d0  37 31 2c 32 30 33 2c 35  38 32 2c 31 30 34 2c 35  |71,203,582,104,5|
000019e0  38 35 2c 31 30 34 2c 35  37 34 2c 39 38 2c 35 36  |85,104,574,98,56|
000019f0  34 2c 39 39 2c 35 35 31  2c 31 30 37 2c 35 35 30  |4,99,551,107,550|
00001a00  2c 31 31 30 2c 35 33 37  2c 31 32 30 2c 35 32 37  |,110,537,120,527|
00001a10  0d 0d de 63 dc 31 33 33  2c 35 31 39 2c 31 33 30  |...c.133,519,130|
00001a20  2c 35 30 38 2c 39 39 2c  34 39 36 2c 31 31 34 2c  |,508,99,496,114,|
00001a30  34 38 38 2c 31 30 30 2c  34 36 39 2c 38 33 2c 34  |488,100,469,83,4|
00001a40  34 31 2c 36 33 2c 33 39  33 2c 36 36 2c 33 38 39  |41,63,393,66,389|
00001a50  2c 35 39 2c 33 35 35 2c  35 32 2c 33 32 32 2c 35  |,59,355,52,322,5|
00001a60  31 2c 33 30 33 2c 34 35  2c 32 39 32 2c 35 30 2c  |1,303,45,292,50,|
00001a70  32 37 35 0d 0d e8 61 dc  35 38 2c 32 38 32 2c 36  |275...a.58,282,6|
00001a80  37 2c 32 38 34 2c 36 37  2c 32 39 38 2c 36 37 2c  |7,284,67,298,67,|
00001a90  33 31 36 2c 38 37 2c 33  38 35 2c 31 30 30 2c 34  |316,87,385,100,4|
00001aa0  31 31 2c 31 31 30 2c 33  35 37 2c 38 39 2c 32 39  |11,110,357,89,29|
00001ab0  31 2c 38 30 2c 32 35 32  2c 37 36 2c 32 30 38 2c  |1,80,252,76,208,|
00001ac0  37 32 2c 31 36 32 2c 36  39 2c 31 32 34 2c 37 30  |72,162,69,124,70|
00001ad0  2c 31 30 36 0d 0d f2 7d  dc 37 31 2c 31 30 30 2c  |,106...}.71,100,|
00001ae0  34 33 2c 37 32 2c 31 2c  33 2c 31 33 32 2c 35 36  |43,72,1,3,132,56|
00001af0  39 2c 31 33 32 2c 35 36  39 2c 31 2c 33 2c 31 37  |9,132,569,1,3,17|
00001b00  31 2c 35 36 38 2c 31 37  31 2c 35 36 38 2c 32 2c  |1,568,171,568,2,|
00001b10  33 2c 31 35 32 2c 35 37  34 2c 31 35 32 2c 35 34  |3,152,574,152,54|
00001b20  37 2c 31 36 39 2c 35 34  38 2c 32 2c 33 2c 31 37  |7,169,548,2,3,17|
00001b30  30 2c 35 33 34 2c 31 35  34 2c 35 32 37 2c 31 33  |0,534,154,527,13|
00001b40  38 2c 35 33 33 2c 32 2c  33 2c 31 32 35 2c 35 30  |8,533,2,3,125,50|
00001b50  33 0d 0d fc 78 dc 31 35  38 2c 34 35 39 2c 31 30  |3...x.158,459,10|
00001b60  32 2c 34 39 35 2c 32 2c  33 2c 31 39 39 2c 34 38  |2,495,2,3,199,48|
00001b70  38 2c 31 35 36 2c 34 35  39 2c 31 37 38 2c 34 39  |8,156,459,178,49|
00001b80  39 2c 34 2c 33 2c 31 30  35 2c 33 38 38 2c 31 31  |9,4,3,105,388,11|
00001b90  33 2c 34 30 38 2c 31 31  33 2c 34 33 35 2c 31 39  |3,408,113,435,19|
00001ba0  31 2c 34 33 32 2c 32 30  30 2c 34 30 32 2c 34 2c  |1,432,200,402,4,|
00001bb0  33 2c 31 37 35 2c 34 30  39 2c 31 37 30 2c 33 38  |3,175,409,170,38|
00001bc0  33 2c 31 33 33 2c 33 38  33 0d 0e 06 7e dc 31 33  |3,133,383...~.13|
00001bd0  35 2c 34 30 39 2c 31 37  30 2c 34 30 39 2c 31 2c  |5,409,170,409,1,|
00001be0  33 2c 31 38 36 2c 34 33  36 2c 32 30 30 2c 34 37  |3,186,436,200,47|
00001bf0  39 2c 31 2c 33 2c 31 30  37 2c 34 37 35 2c 31 32  |9,1,3,107,475,12|
00001c00  32 2c 34 33 34 2c 31 2c  33 2c 36 33 2c 33 39 33  |2,434,1,3,63,393|
00001c10  2c 38 39 2c 33 38 31 2c  31 2c 33 2c 32 31 39 2c  |,89,381,1,3,219,|
00001c20  39 36 2c 32 34 30 2c 39  37 2c 31 2c 31 2c 38 37  |96,240,97,1,1,87|
00001c30  2c 31 30 32 2c 36 39 2c  31 30 36 2c 35 2c 31 2c  |,102,69,106,5,1,|
00001c40  31 30 37 2c 35 39 30 0d  0e 10 6e dc 37 39 2c 35  |107,590...n.79,5|
00001c50  38 37 2c 38 31 2c 35 39  37 2c 32 33 33 2c 35 39  |87,81,597,233,59|
00001c60  36 2c 32 33 34 2c 35 38  35 2c 32 30 31 2c 35 38  |6,234,585,201,58|
00001c70  33 2c 37 2c 31 2c 32 30  36 2c 35 39 33 2c 32 30  |3,7,1,206,593,20|
00001c80  33 2c 36 31 38 2c 31 37  38 2c 36 31 35 2c 31 35  |3,618,178,615,15|
00001c90  37 2c 36 31 35 2c 31 33  38 2c 36 31 38 2c 31 32  |7,615,138,618,12|
00001ca0  32 2c 36 31 39 2c 31 30  39 2c 36 32 30 2c 31 30  |2,619,109,620,10|
00001cb0  38 2c 36 30 30 0d 0e 1a  48 dc 37 2c 31 2c 31 33  |8,600...H.7,1,13|
00001cc0  39 2c 34 30 34 2c 31 34  31 2c 33 38 36 2c 31 35  |9,404,141,386,15|
00001cd0  38 2c 33 38 33 2c 31 36  32 2c 34 30 33 2c 31 35  |8,383,162,403,15|
00001ce0  30 2c 34 30 31 2c 31 35  30 2c 33 39 35 2c 31 35  |0,401,150,395,15|
00001cf0  34 2c 33 39 35 2c 31 35  35 2c 34 30 30 0d 0e 24  |4,395,155,400..$|
00001d00  09 dc 20 30 2c 30 0d 0e  2e 04 0d 0e 38 05 f6 0d  |.. 0,0......8...|
00001d10  0e 42 12 f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  |.B.." at line ";|
00001d20  9e 0d ff                                          |...|
00001d23

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