C
C
CALL PL$RST
-
+ CALL PL$SCI(100)
+ CALL PL$ROI(30)
CALL PL$PD
- CALL PL$MV(610,0)
- CALL PL$MV(610,95)
+ CALL PL$MV(605,0)
+ CALL PL$MV(605,95)
CALL PL$MV(0,95)
CALL PL$MV(0,0)
CALL PL$MV(1,1)
- CALL PL$MV(609,1)
- CALL PL$MV(609,94)
+ CALL PL$MV(604,1)
+ CALL PL$MV(604,94)
CALL PL$MV(1,94)
CALL PL$MV(1,1)
CALL PL$PU
CALL PL$MV(0,0)
CALL PL$MV(50,0)
CALL PL$PU
- CALL PL$MV(60,0)
+ CALL PL$MV(55,0)
1000 CONTINUE
- CALL PL$MV(-540,-10)
+ CALL PL$MV(-595,-10)
C
C
10000 CALL REBOOT