home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / epson-sup.demo1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  362b  |  19 lines
  1. 5 REM
  2. 6 REM DEMO1 - SCHNECKE
  3. 7 REM (C)1985 BY A.DEL PINO
  4. 8 REM
  5. 10 &CLEAR
  6. 15 D=(null)/120:DX=400:DY=276
  7. 16 SX=400/240:SY=276/240
  8. 20 FORI=0TO4*(null)STEP(null)/60
  9. 30 X1=SIN(I)*DX:Y1=COS(I)*DY
  10. 35 X2=SIN(I+D)*DX:Y2=COS(I+D)*DY
  11. 36 X1=X1+400:X2=X2+400:Y1=Y1+276:Y2=Y2+276
  12. 40 &LINE400,276,X1,Y1
  13. 50 &LINEX1,Y1,X2,Y2
  14. 60 &LINEX2,Y2,400,276
  15. 70 DX=DX-SX:DY=DY-SY
  16. 75 PRINT".";
  17. 80 NEXT
  18. 90 &PRINT:END
  19.