Unidisk/AppleII/FP f(x)/unix.bas

10 lines
229 B
QBasic

2 PRINT CHR$ (4);"BLOAD FPMain"
5 PRINT CHR$ (4);"BLOAD FPConv"
27 CALL 24576
50 PRINT CHR$ (4);"BLOAD FPData"
55 INPUT "N1 ? ";X
60 CALL 32768,X
65 CALL 24576
70 CALL 32831,Y
80 PRINT Y
90 GOTO 55