home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh12a.d64
/
benchmark
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
80 lines
100 REM *******************************
110 REM BENCHMARKS FUER COMPILER
120 REM *******************************
130 REM
140 REM ************* 1 ** FOR NEXT ***
150 PRINT"[147]AUSFUEHRUNG: 1[157]";:A1=TI
160 FORI=1TO1000
170 NEXTI
180 E1=TI
190 REM ************* 2 ** IF THEN ****
200 PRINT"2[157]";:A2=TI
210 I=0
220 I=I+1
230 IFI<1000THEN220
240 E2=TI
250 REM ************* 3 ** RECHNEN ****
260 PRINT"3[157]";:A3=TI
270 FORI=1TO1000
280 C=I+I*(I-I/I)^(I/500)
290 NEXTI
300 E3=TI
310 REM ************* 4 ** GOSUB ******
320 PRINT"4[157]";:A4=TI
330 FORI=1TO1000
340 GOSUB800
350 NEXTI
360 E4=TI
370 REM ************* 5 ** FELDER *****
380 PRINT"5[157]";:A5=TI
390 DIM F(1000),F$(1000)
400 FORI=1TO1000
410 F(I)=I:F$(I)="TEXT"
420 NEXTI
430 E5=TI
440 REM ************* 6 ** FUNKTIONEN *
450 PRINT"6[157]";:A6=TI
460 FORI=1TO1000
470 C=SIN(I):C=TAN(I):C=EXP(I/30):C=VAL(STR$(I))
480 NEXTI
490 E6=TI
500 REM ************* 7 ** READ DATA **
510 PRINT"7[157]";:A7=TI
520 FORI=1TO1000
530 RESTORE:DATA0
540 READD
550 NEXTI
560 E7=TI
570 REM ************* 8 ** SORTIEREN **
580 PRINT"8[157]";:A8=TI
590 DIM S$(100)
600 FORI=1TO100
610 FORK=1TO10
620 S$(I)=S$(I)+CHR$(RND(TI)*26+65)
630 NEXTK
640 NEXTI
650 FORI=1TO99
660 FORK=I+1TO100
670 IFS$(K)>S$(I)THEN690
680 S$(0)=S$(K):S$(K)=S$(I):S$(I)=S$(0)
690 NEXTK,I
700 E8=TI
710 REM ************* 9 ** FEHLER ? ***
720 GOTO 770
730 GOTO729
740 GOSUB739
750 FORI%=1TO2:NEXTI%
760 SYNTAX ERROR
770 PRINT"WARTEN":WAIT197,1:WAIT197,1,255
780 GOTO900
800 RETURN
900 REM ************* AUSWERTUNG ******
910 PRINT"[147]B1:"(E1-A1)/60"SEK.
920 [153]"B2:"(E2[171]A2)[173]60"SEK.
930 PRINT"B3:"(E3-A3)/60"SEK.
940 [153]"B4:"(E4[171]A4)[173]60"SEK.
950 PRINT"B5:"(E5-A5)/60"SEK.
960 [153]"B6:"(E6[171]A6)[173]60"SEK.
970 PRINT"B7:"(E7-A7)/60"SEK.
980 [153]"B8:"(E8[171]A8)[173]60"SEK.