Unidisk/AppleII/FP-MUL/UNI5.bas
2020-06-03 19:53:16 +02:00

13 lines
304 B
QBasic

2 PRINT CHR$ (4);"BLOAD UNIDRIVE4P"
5 PRINT CHR$ (4);"BLOAD CONV3P"
6 X = 1
10 CALL 32768,X
15 CALL 24576
17 PRINT CHR$ (4);"BLOAD UNIDRIVE4P2"
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