mirror of https://github.com/rigreco/UniDisk.git
16 lines
339 B
QBasic
16 lines
339 B
QBasic
5 HOME
|
|
8 PRINT CHR$ (4);"BLOAD UNIDRIVE4P"
|
|
10 PRINT CHR$ (4);"BLOAD CONV3P"
|
|
12 X = 1
|
|
15 CALL 32768,X
|
|
20 CALL 24576
|
|
25 PRINT CHR$ (4);"BLOAD UNIDRIVE4P2"
|
|
30 HGR2 : HCOLOR= 3
|
|
40 FOR X = - 10 TO 10 STEP .2
|
|
45 CALL 32768,X
|
|
50 CALL 24576
|
|
55 CALL 32831,Y
|
|
60 HPLOT X * 5 + 140,Y + 10
|
|
65 NEXT
|
|
70 GET A$
|
|
75 TEXT |