1 PT$="C1"
20 LPRINT "PS 1,-1000,0,0,0,0,0"
30 LPRINT "MO 1"
40 PT$ = "C2" : GOSUB 32000
50 LPRINT "PS 1,5000,0,0,0,0,0"
60 LPRINT "MO 4"
70 PT$ = "RS" : GOSUB 32000
80 LPRINT "PS 5,0,-500,0,0,0,0"
90 LPRINT "MO 5"
100 PT$ = "PR" : GOSUB 32000
LLIST