10 I$="PI":I%=-3.141:I=3.141
20 PRINT I$" "I%" "I
30 GOSUB 1000
40 IF I%>5 THEN 60
50 GOTO 20
60 FOR J=1 TO 10
70 READ K
70 PRINT "J"J" K"K
80 NEXT J
90 RESTORE 2020
100 READ K
110 PRINT "K"K
120 PRINT STR$(3.14159)
130 PRINT VAL("3.1515926")
140 DIM I$(19),AR(5,5)
150 FOR I=0 TO 19
160 I$(I)="ELEMENT "+STR$(I)
170 NEXT I
180 PRINT I$(12)
190 J%(5)=-5.4
200 PRINT J%(4)
210 PRINT J%(5)
220 PRINT J%(6)
230 AR(2,2)=3
240 AR(2,3)=14
250 PRINT AR(2,1)AR(2,2)"."AR(2,3)
260 RESTORE 2030
270 READ G$,O$
280 PRINT "'"G$"'"
290 PRINT "'"O$"'"
300 READ G$,O$
310 PRINT "'"G$"'"
320 PRINT "'"O$"'"
330 FOR L=1 TO 6
340 READ L$
350 PRINT "L";L;" '";L$;"'"
360 NEXT
370 RESTORE
380 READ M
390 PRINT "M"M
400 M=3.14
410 PRINT SGN(M)" "SGN(-M)
420 PRINT ABS(M)" "ABS(-M)
430 PRINT SQR(M)
440 PRINT LOG(M)
450 PRINT EXP(M)
460 PRINT SIN(M)
470 PRINT COS(M)
480 PRINT TAN(M)
490 PRINT ATN(M)
500 PRINT ASC("A")
510 PRINT CHR$(65)
520 PRINT LEFT$("STRING",3)
530 PRINT RIGHT$("STRING",3)
540 PRINT MID$("STRING",3)
550 PRINT MID$("STRING",3,2)
560 PRINT INT(M)
570 END
1000 REM SUBROUTINE
1010 I%=I%+1
1020 RETURN
2000 REM DATA
2010 DATA 20,30,40.5,50,60
2020 DATA 70,80,90,100,110,120
2030 DATA GOOD , NIGHT 
2040 DATA "GOOD" , "NIGHT" ,,
2050 DATA ,,
2060 DATA FIN