10
20 L%=100 :
30 N%=-100:
40 N=-1E2 :
50 P%=100 :
60 P=1E2 :
70 A1$="abcde"
80 A2$="abcdefghij"
90 A3$="abcdefghijklmno"
100 A4$="abcdefghijklmnopqrst"
110 N$=""
120 :
130
140 PRINT"Cast float to int: ";
150 A%=L%:T%=TIME:REPEATB%=PI:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
160 PRINT"Cast int to float: ";
170 A%=L%:T%=TIME:REPEATB=B%+PI:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
180 PRINT
190 :
200
210 PRINT"num = NEG +int: ";
220 A%=L%:T%=TIME:REPEATB%=-P%:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
230 PRINT"num = NEG -int: ";
240 A%=L%:T%=TIME:REPEATB%=-N%:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
250 PRINT"num = NEG +float: ";
260 A%=L%:T%=TIME:REPEATB=-P:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
270 PRINT"num = NEG -float: ";
280 A%=L%:T%=TIME:REPEATB=-N:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
290 :
300 PRINT"num = ABS +int: ";
310 A%=L%:T%=TIME:REPEATB%=ABSP%:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
320 PRINT"num = ABS -int: ";
330 A%=L%:T%=TIME:REPEATB%=ABSN%:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
340 PRINT"num = ABS +float: ";
350 A%=L%:T%=TIME:REPEATB=ABSP:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
360 PRINT"num = ABS -float: ";
370 A%=L%:T%=TIME:REPEATB=ABSN:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
380 :
390 PRINT"num = INT +int: ";
400 A%=L%:T%=TIME:REPEATB%=INTP%:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
410 PRINT"num = INT -int: ";
420 A%=L%:T%=TIME:REPEATB%=INTN%:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
430 PRINT"num = INT +float: ";
440 A%=L%:T%=TIME:REPEATB%=INTP:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
450 PRINT"num = INT -float: ";
460 A%=L%:T%=TIME:REPEATB%=INTN:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
470 :
480 PRINT"int = NOT +int: ";
490 A%=L%:T%=TIME:REPEATB%=NOTP%:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
500 PRINT"int = NOT -int: ";
510 A%=L%:T%=TIME:REPEATB%=NOTN%:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
520 PRINT"int = NOT +float: ";
530 A%=L%:T%=TIME:REPEATB%=NOTP:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
540 PRINT"int = NOT -float: ";
550 A%=L%:T%=TIME:REPEATB%=NOTN:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
560 :
570 PRINT"num = SGN +int: ";
580 A%=L%:T%=TIME:REPEATB%=SGNP%:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
590 PRINT"num = SGN -int: ";
600 A%=L%:T%=TIME:REPEATB%=SGNN%:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
610 PRINT"num = SGN +float: ";
620 A%=L%:T%=TIME:REPEATB%=SGNP:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
630 PRINT"num = SGN -float: ";
640 A%=L%:T%=TIME:REPEATB%=SGNN:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
650 :
660 PRINT"num = VAL ""12345"": ";
670 A%=L%:T%=TIME:REPEATB%=VAL"12345":A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
680 PRINT"num = VAL ""-12345"" ";
690 A%=L%:T%=TIME:REPEATB%=VAL"-12345":A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
700 PRINT"num = EVAL ""PI"": ";
710 A%=L%:T%=TIME:REPEATB=EVAL"PI":A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
720 PRINT"num = EVAL ""PI"": ";
730 A%=L%:T%=TIME:REPEATB=EVAL"PI":A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
740 PRINT
750 :
760
770 PRINT"read PAGE: ";
780 A%=L%:T%=TIME:REPEATB%=PAGE:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
790 PRINT"scan for TOP: ";
800 A%=L%:T%=TIME:REPEATB%=TOP:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
810 PRINT"read LOMEM: ";
820 A%=L%:T%=TIME:REPEATB%=LOMEM:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
830 PRINT"read HIMEM: ";
840 A%=L%:T%=TIME:REPEATB%=HIMEM:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
850 PRINT"read ERL: ";
860 A%=L%:T%=TIME:REPEATB%=ERL:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
870 PRINT"read ERR: ";
880 A%=L%:T%=TIME:REPEATB%=ERR:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
890 PRINT"read TRUE: ";
900 A%=L%:T%=TIME:REPEATB%=TRUE:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
910 PRINT"read FALSE: ";
920 A%=L%:T%=TIME:REPEATB%=FALSE:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
930 PRINT"read COUNT: ";
940 A%=L%:T%=TIME:REPEATB%=COUNT:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
950 PRINT"read PI: ";
960 A%=L%:T%=TIME:REPEATB=PI:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
970 PRINT
980 :
990
1000 PRINT"num = ASC string: ";
1010 A%=L%:T%=TIME:REPEATB%=ASCA1$:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
1020 PRINT"string = CHR$ num: ";
1030 A%=L%:T%=TIME:REPEATA$=CHR$P%:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
1040 PRINT"num = LEN string5: ";
1050 A%=L%:T%=TIME:REPEATB%=LENA1$:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
1060 PRINT"num = LEN string20: ";
1070 A%=L%:T%=TIME:REPEATB%=LENA4$:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
1080 PRINT"num = INSTR(s,m): ";
1090 A%=L%:T%=TIME:REPEATB%=INSTR(A4$,"k"):A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
1100 PRINT"num = INSTR(s,m,o): ";
1110 A%=L%:T%=TIME:REPEATB%=INSTR(A4$,"k",6):A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
1120 PRINT"str = STRING$(5x20): ";
1130 A%=L%:T%=TIME:REPEATA$=STRING$(5,A4$):A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs";SPC4;
1140 PRINT"str = STR$ num: ";
1150 A%=L%:T%=TIME:REPEATA$=STR$P%:A%=A%-1:UNTILA%=0:PRINT;TIME-T%;"cs"
1160 :
1170
1180
1190
1200 :
1210
1220
1230
1240
1250
1260
1270
1280
1290
1300
1310
1320
1330
1340 :
1350
1360
1370
1380
1390
1400
1410
1420
1430 :
1440
1450
1460
1470
1480
1490
1500
1510
1520
1530
1540 :
1550
1560
1570