mirror of
https://github.com/rigreco/UniDisk.git
synced 2024-10-31 13:07:59 +00:00
13 lines
304 B
QBasic
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 |