Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0104/comput.bas
There are 2 other files named comput.bas in the archive. Click here to see a list.
00010 REM COMPUT.BAS NADDOR/SAPSFORD JAN 76
00030 P$=" A+B A-B A*B A/B A^B MIN MAX HYP"
00035 R$=" ###.# ###.# ####.## ###.### ###,### ###.# ###.# ###.#"
00050 PRINT
00055 PRINT P$
00060 PRINT
00100 PRINT "A,B";
00110 INPUT A,B
00210 X1=A+B
00220 X2=A-B
00230 X3=A*B
00240 X4=A/B
00250 X5=A^B
00260 IF A>B THEN 300
00270 X6=A
00280 X7=B
00290 GOTO 320
00300 X6=B
00310 X7=A
00320 X8=SQR(A^2+B^2)
00330 PRINT USING R$,X1,X2,X3,X4,X5,X6,X7,X8
00340 PRINT
00350 GOTO 100
00999 END