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