mirror of https://github.com/rigreco/UniDisk.git
15 lines
364 B
QBasic
15 lines
364 B
QBasic
10 HOME
|
|
15 PRINT CHR$ (4);"BLOAD UNIFP1"
|
|
20 PRINT CHR$ (4);"BLOAD CONV3P"
|
|
25 X = 1
|
|
30 CALL 32768,X
|
|
35 CALL 24576
|
|
40 PRINT CHR$ (4);"BLOAD UNIFP2"
|
|
45 HGR2 : HCOLOR= 3
|
|
50 FOR X = - 10 TO 10 STEP .2
|
|
55 CALL 32768,X
|
|
60 CALL 24576
|
|
65 Y = PEEK (29) + 256 * PEEK (30)
|
|
70 rem CALL 32831,Y
|
|
75 HPLOT X * 5 + 140,Y + 10
|
|
80 NEXT |