mirror of
https://github.com/rigreco/UniDisk.git
synced 2024-05-28 20:41:39 +00:00
11 lines
268 B
QBasic
11 lines
268 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 |