test.bas

   1 10 I$="PI":I%=-3.141:I=3.141
   2 20 PRINT I$" "I%" "I
   3 30 GOSUB 1000
   4 40 IF I%>5 THEN 60
   5 50 GOTO 20
   6 60 FOR J=1 TO 10
   7 70 READ K
   8 70 PRINT "J"J" K"K
   9 80 NEXT J
  10 90 RESTORE 2020
  11 100 READ K
  12 110 PRINT "K"K
  13 120 PRINT STR$(3.14159)
  14 130 PRINT VAL("3.1515926")
  15 140 DIM I$(19),AR(5,5)
  16 150 FOR I=0 TO 19
  17 160 I$(I)="ELEMENT "+STR$(I)
  18 170 NEXT I
  19 180 PRINT I$(12)
  20 190 J%(5)=-5.4
  21 200 PRINT J%(4)
  22 210 PRINT J%(5)
  23 220 PRINT J%(6)
  24 230 AR(2,2)=3
  25 240 AR(2,3)=14
  26 250 PRINT AR(2,1)AR(2,2)"."AR(2,3)
  27 260 RESTORE 2030
  28 270 READ G$,O$
  29 280 PRINT "'"G$"'"
  30 290 PRINT "'"O$"'"
  31 300 READ G$,O$
  32 310 PRINT "'"G$"'"
  33 320 PRINT "'"O$"'"
  34 330 FOR L=1 TO 6
  35 340 READ L$
  36 350 PRINT "L";L;" '";L$;"'"
  37 360 NEXT
  38 370 RESTORE
  39 380 READ M
  40 390 PRINT "M"M
  41 400 M=3.14
  42 410 PRINT SGN(M)" "SGN(-M)
  43 420 PRINT ABS(M)" "ABS(-M)
  44 430 PRINT SQR(M)
  45 440 PRINT LOG(M)
  46 450 PRINT EXP(M)
  47 460 PRINT SIN(M)
  48 470 PRINT COS(M)
  49 480 PRINT TAN(M)
  50 490 PRINT ATN(M)
  51 500 PRINT ASC("A")
  52 510 PRINT CHR$(65)
  53 520 PRINT LEFT$("STRING",3)
  54 530 PRINT RIGHT$("STRING",3)
  55 540 PRINT MID$("STRING",3)
  56 550 PRINT MID$("STRING",3,2)
  57 560 PRINT INT(M)
  58 570 END
  59 1000 REM SUBROUTINE
  60 1010 I%=I%+1
  61 1020 RETURN
  62 2000 REM DATA
  63 2010 DATA 20,30,40.5,50,60
  64 2020 DATA 70,80,90,100,110,120
  65 2030 DATA GOOD , NIGHT
  66 2040 DATA "GOOD" , "NIGHT" ,,
  67 2050 DATA ,,
  68 2060 DATA FIN