10 PRINT "PROGRAM TO PLOT ON SWEET P"
20 LINE INPUT "ENTER FILE TO PLOT: ";F$
30 F$=F$+".PLT"
40 OPEN "I",1,F$
50 IF EOF(1) THEN 200
60 LINE INPUT #1,L$:L=LEN(L$)
70 C$=LEFT$(L$,1):C=ASC(C$)-48
80 ON C GOTO 100,200,300,400,500,600,700,800
100 LPRINT "PU;":LPRINT "HO;"
110 GOTO 60
200 LPRINT "MA 2500,1838;":CLOSE #1:STOP
300 L$=RIGHT$(L$,L-2):L$="MA "+L$+";":LPRINT L$
310 GOTO 60
400 L$=RIGHT$(L$,L-2):L$="DA "+L$+";":LPRINT L$
500 GOTO 60
600 GOTO 60
700 GOTO 60
800 LPRINT "PU;"
810 GOTO 60