home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 March
/
64er_Magazin_87-03_1987_Markt__Technik_de_Side_A.d64
/
demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
96 lines
10 print"[147]demo fuer arith13"
20 print"von markus olbrich"
30 gosub10000
40 print"[147]";:gosub12000:print"unterschied zwischen":print"print und print&"
45 print"print 0.6666666666666":gosub13000
50 print.6666666666666:print
51 print"es werden zwar intern 14 stellen berech-";
52 print"net. der alte print befehl zeigt aber"
53 print"nur 9 davon an."
60 print"print& 0.6666666666666":gosub13000
70 print&.6666666666666
71 print"der print& befehl zeigt bei arith13"
72 print"ganze 13 stellen an."
80 gosub10000
85 gosub1000:clr
90 print"[147]";:gosub11000
100 print"print sqr(10)^2-10":gosub13000
110 printsqr(10)^2-10
115 print"muesste genau 0 ergeben !!"
120 gosub12000
130 print"print sqr(10)^2-10":gosub13000
140 printsqr(10)^2-10
145 gosub10000
150 print"[147]";:gosub11000
160 print"fori=0to1step0.1:printi:next"
170 gosub13000:clr
180 fori=0to1step.1:printi:next
185 print"die 1 fehlt !!!!"
187 gosub10000:print"[147]";
190 gosub12000:clr
200 print"fori=0to1step0.1:printi:next"
210 gosub13000:clr
220 fori=0to1step.1:printi:next
230 gosub10000:clr
240 print"[147]logarithmische und"
245 print"exponentialfunktionen:"
250 gosub11000:clr
260 print"print log(2)":gosub13000
270 printlog(2)
280 print"print exp(1)":gosub13000
290 printexp(1)
300 print"print 3^0.5":gosub13000
310 print3^.5
320 print""
350 gosub12000:clr
360 print"print& log(2)":gosub13000
370 print&log(2)
380 print"print& exp(1)":gosub13000
390 print&exp(1)
400 print"print& 3^0.5":gosub13000
410 print&3^.5
420 gosub10000:clr
430 print"[147]trigonometrische funktionen:"
440 gosub11000:clr
450 print"print sin(1)":gosub13000
460 printsin(1)
470 print"print cos(1)":gosub13000
480 printcos(1)
482 print"print tan(1)":gosub13000
484 printtan(1)
490 print"print atn(1)":gosub13000
500 printatn(1);""
510 gosub12000:clr
520 print"print& sin(1)":gosub13000
530 print&sin(1)
540 print"print& cos(1)":gosub13000
550 print&cos(1)
552 print"print& tan(1)":gosub13000
554 print&tan(1)
560 print"print& atn(1)":gosub13000
570 print&atn(1);""
580 gosub10000
600 print"[147]ende."
999 end
1000 print"[147]";:gosub11000
1010 print"print 1+0.000000000001"
1020 gosub13000
1030 print1+.000000000001
1031 print"die 0.000000000001 geht verloren !"
1040 gosub12000
1050 print"print& 1+0.000000000001"
1060 gosub13000
1070 print&1+.000000000001
1080 goto10000
10000 print" (taste druecken)";
10010 geta$:ifa$=""then10010
10020 return
11000 print"[158]cbm basic v2 :":print
11010 poke1,3*16+7:return
12000 print"arith13 :":print
12010 poke1,3*16+5:return
13000 print"[145]";tab(31);"<return>"
13010 geta$:ifa$=""then13010
13020 ifasc(a$)<>13then13010
13030 return