mit41301

10     PRINT "MULTIPLICATION TEST, YOU HAVE 5 SECONDS"
20     FOR I=2 TO 9
30    N=INT(RND*10) : A=N*I
40     PRINT "WHAT IS ",N,"*",I,"?" :  CLOCK 1
50    TIME=0 :  ONTIME 5,200 :  INPUT R :  IF R<>A THEN 100
60     PRINT "THAT'S RIGHT" : TIME=0 :  NEXT I
70     PRINT "YOU DID IT, GOOD JOB" :  END
100    PRINT "WRONG, TRY AGAIN" :  GOTO 50
200    REM WASTE CONTROL STACK, TOO MUCH TIME
210    CLEAR S :  PRINT "YOU TOOK TOO LONG" :  GOTO 10

mit41301

05 REM NOT 1'S COMP
10     FOR I=0 TO 65535
20     PRINT NOT(I),
30     NEXT
40     END
LIST

RUN

mit41301

10     REM PERIMETER CALCULATOR
20     INPUT "Length = ",L
30     INPUT "Width = ",W
40    PERIMETER=2*(L+W)
50     PRINT " PERIMETER = ",PERIMETER
60     END

mit41301

10     REM SQUARE AND CUBE CALCULATOR
20     INPUT " Enter any Number = ",N
30    SQ=N*N
40    CUB=N**3
50     PRINT " Square = ",SQ
60     PRINT " Cube = ",CUB
70     END

mit41301

10     REM SUM CALCULATION
20     READ A,B,C,D
30    SUM=A+B+C+D
40     PRINT " SUM OF 15,30,20 AND 325 I = ",SUM
50     DATA 15,30,20,325
60     END
70     REM usage of READ and DATA

mit41301

10     REM Convert temperature from Centigrade to Fahrenheit
20     INPUT "Temperature in Centigrade = ",C
30    F=9/5*C+32
40     PRINT "Temperature in Fahrenheit =",F
50     END
60     REM °C → °F

mit41301

400   XTAL=24000000
410   Z=10
420   X=0
430   EXACT=35660
440    PRINT "Elkins Log(10k!) Benchmark"
450   TIME=0 :  CLOCK 1
460    PRINT "Note the Start Time!",INT(TIME)
470    FOR I=2 TO 10000
480   Y=I
490   X=X+LOG(Y)

mit41301

10 REM The sum of the first N natural numbers
20 INPUT " Enter last natural number = ", N
30 SUM = N*(N+1)/2
40     PRINT " Sum of all the natural numbers = ",SUM
50     END

mit41301

10     REM CALCULATE SPEED OF LIGHT
20    MUZERO=1.2566370612720E-6
30    EPZERO=8.854187818814E-12
40     REM X=MUZERO*EPZERO
50     REM Y=SQR(X)
60    C=1/SQR(MUZERO*EPZERO)
70     PRINT " SPEED OF LIGHT = ",C,"m/s"
80     END
90     REM MUZERO = 1.2566370612720e-6
100    REM EPZERO = 8.854187818814e-12

mit41301

10     REM CALCULATE SPEED OF LIGHT
20    C=1/SQR(1.2566371E-6*8.8541878E-12)
30     PRINT " SPEED OF LIGHT  c = ",C,"m/s"
40     END