mirror of https://github.com/rigreco/UniDisk.git
19 lines
410 B
QBasic
19 lines
410 B
QBasic
5 HOME
|
|
10 PRINT CHR$ (4);"BLOAD UNIDRIVE4P"
|
|
12 PRINT CHR$ (4);"BLOAD CONV3P"
|
|
13 PRINT "FLOATING POINT SQUARE N"
|
|
14 PRINT
|
|
15 INPUT "TYPE REAL NUMBER TO SQUARE --> ";X
|
|
20 CALL 32768,X
|
|
27 CALL 24576
|
|
30 CALL 32831,Y
|
|
40 PRINT Y
|
|
45 PRINT
|
|
50 PRINT CHR$ (4);"BLOAD UNIDRIVE4P2"
|
|
55 INPUT "N1 ? ";X
|
|
60 CALL 32768,X
|
|
65 CALL 24576
|
|
70 CALL 32831,Y
|
|
80 PRINT Y
|
|
85 PRINT
|
|
90 GOTO 55 |