2  PRINT  CHR$ (4);"BLOAD UNIDRIVE4P"
 5  PRINT  CHR$ (4);"BLOAD CONV3P"
 15  INPUT "N1 ? ";X
 20  CALL 32768,X
 27  CALL 24576
 30  CALL 32831,Y
 40  PRINT Y
 50  PRINT  CHR$ (4);"BLOAD UNIDRIVE4P2"
 55  INPUT "N1 ? ";X
 60  CALL 32768,X
 65  CALL 24576
 70  CALL 32831,Y
 80  PRINT Y
 90  GOTO 55