[h316.git] / programs / plotter / src / nikolaussiedlung.f

C PLOTTER TEST PROGRAM
C
C
      CALL PL$RST
      
      CALL PL$PD
      CALL PL$MV(610,0)
      CALL PL$MV(610,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(1,94)
      CALL PL$MV(1,1)
      CALL PL$PU
      CALL PL$MV(10,10)

      DO 1000 I=1,10
      CALL PL$RST
      CALL PL$PD
      CALL PL$MV(0,50)
      CALL PL$MV(25,75)
      CALL PL$MV(50,50)
      CALL PL$MV(0,50)
      CALL PL$MV(50,0)
      CALL PL$MV(50,50) 
      CALL PL$MV(0,0)
      CALL PL$MV(50,0)
      CALL PL$PU
      CALL PL$MV(60,0)
 1000 CONTINUE
      CALL PL$MV(-540,-10)
C
C
10000 CALL REBOOT     
      END
$0
Commit	Line	Data
fcb7b340	1	C PLOTTER TEST PROGRAM
	2	C
	3	C
	4	CALL PL$RST
	5
	6	CALL PL$PD
	7	CALL PL$MV(610,0)
	8	CALL PL$MV(610,95)
	9	CALL PL$MV(0,95)
	10	CALL PL$MV(0,0)
	11	CALL PL$MV(1,1)
	12	CALL PL$MV(609,1)
	13	CALL PL$MV(609,94)
	14	CALL PL$MV(1,94)
	15	CALL PL$MV(1,1)
	16	CALL PL$PU
	17	CALL PL$MV(10,10)
	18
	19	DO 1000 I=1,10
	20	CALL PL$RST
	21	CALL PL$PD
	22	CALL PL$MV(0,50)
	23	CALL PL$MV(25,75)
	24	CALL PL$MV(50,50)
	25	CALL PL$MV(0,50)
	26	CALL PL$MV(50,0)
	27	CALL PL$MV(50,50)
	28	CALL PL$MV(0,0)
	29	CALL PL$MV(50,0)
	30	CALL PL$PU
	31	CALL PL$MV(60,0)
	32	1000 CONTINUE
	33	CALL PL$MV(-540,-10)
	34	C
	35	C
	36	10000 CALL REBOOT
	37	END
	38	$0