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