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