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

11 lines
278 B
QBasic

2 PRINT CHR$ (4);"BLOAD FPMain"
5 PRINT CHR$ (4);"BLOAD FPConv"
15 CALL 24576
17 PRINT CHR$ (4);"BLOAD FPData"
18 HGR2 : HCOLOR= 3
20 FOR X = - 10 TO 10 STEP .2
25 CALL 32768,X
30 CALL 24576
35 CALL 32831,Y
40 HPLOT X * 5 + 140,Y + 10
50 NEXT