1MODE1:VDU5:c=1:r=1:R=158:a=PI/14.5: REPEAT:PROCd:r=2*r:R=R-r:UNTILR<0:R=0:r= 32:PROCd:DIM q 200:FORr=0TO2STEP2:P%=q:[ OPTr:LDA#0:STA0:STA2:STA3:LDA#6:STA1:LDA #&F:STA4:LDA#&B:STA5:.a:LDA#2:STA6:LDA2: BMIb:INC4:JSRI:JMPc:.b:DEC4:JSRD 2.c:LDA#&50:STA6:LDA3:BMId:INC5:JSRI :JMPky:.d:DEC5:JSRD:.ky:LDA4:CMP#&1E:BNE X1:LDA#&FF:STA2:.X1:LDA4:CMP#0:BNEX2:LDA #0:STA2:.X2:LDA5:CMP#&16:BNEY1:LDA#&FF:S TA3:.Y1:LDA5:CMP#0:BNEY2:LDA#0:STA3:.Y2: LDA1:CMP#5:BNEk1:CLC:ADC#&A:.k1:STA1:LDA 1 3CMP#&10:BNEk2:SEC:SBC#&A:.k2:STA1:L DA#&13:JSR&FFF4:LDA#&D:STA&FE00:LDA0:STA &FE01:LDA#&C:STA&FE00:LDA1:STA&FE01:JMPa :.D:SEC:LDA0:SBC6:STA0:LDA1:SBC#0:STA1:R TS:.I:CLC:LDA0:ADC6:STA0:LDA1:ADC#0:STA1 :RTS:]NEXT 4OSCLI"FX9,1":OSCLI"FX10,2":VDU19,1, 11;0;19,2,12;0;:CALLq 5DEFPROCd:FORn=0TO2*PI STEPa:GCOL0,c :c=(c MOD2)+1:MOVE640+R*SINn,512+158*COS n:MOVE640+(r+R)*SINn,512+158*COSn:PLOT85 ,640+R*SIN(a+n),512+158*COS(a+n):PLOT85, 640+(R+r)*SIN(a+n),512+158*COS(a+n):NEXT :ENDPROC