Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - 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