home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8703a.d64
/
demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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