home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 4
/
Publication_04_19xx_High-Tech_de_Side_A.d64
/
schleifen-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
199b
|
14 lines
2 printchr$(147);
3 deffny(x)=sin(x)
4 deffnz(x)=cos(x)
5 :
6 forx=0to100step.3
7 y=fny(x):y=int(y*10+.5)
8 z=fnz(x):z=int(z*10+.5)
9 t1=y+20:t2=z+20
10 printtab(t1)"*":printchr$(145);
11 printtab(t2)"*"
13 nextx
14 print"[147]"
15 end: