8-Bit Software Online Conversion

Hypnotic Spiral - Listing

10REM Hypnotic Spiral illusion 20REM (C) 1996 Jon Ripley 30REM This program is NOT PD 40ONERROROSCLI"Exec !Boot":END 50MODE2:VDU279;0;0;0;0;29,640;512;:MO VE0,0:C=.5:FORI=0TO427STEP.2:C=C+.5+7*(C =7.5):GCOL0,C:R=I*2:DRAWR*SINI,R*COSI:NE XT:C=7:REPEATVDU19,C,7;0;:OSCLI"FX19":VD U19,C,0;0;:C=C-1-7*(C=1):UNTIL.