	.GLOBL	$RESR6,$RESR5,$KORE,$SAV10,$VER
	.GLOBL	$BEGIN,FILE,$TTY,$END
	.RADIX	10
	.GLOBL	INIT
L0:	JMP	INIT
	.GLOBL	PENUP
L1:	JMP	PENUP
	.GLOBL	PENDOWN
L2:	JMP	PENDOWN
	.GLOBL	MOVETO
L3:	JMP	MOVETO
	.GLOBL	SHIFT
L4:	JMP	SHIFT
	.GLOBL	TAKEPEN
L5:	JMP	TAKEPEN
	.GLOBL	MARKLENGTH
L6:	JMP	MARKLENGTH
	.GLOBL	MARKX
L7:	JMP	MARKX
	.GLOBL	MARKY
L8:	JMP	MARKY
	.GLOBL	NEWPAGE
L9:	JMP	NEWPAGE
	.GLOBL	GETPOSITION
L10:	JMP	GETPOSITION
	.GLOBL	ENTERPOSITION
L11:	JMP	ENTERPOSITION
	.GLOBL	ARC
L12:	JMP	ARC
	.GLOBL	TEXT
L13:	JMP	TEXT
	.GLOBL	MARKER
L14:	JMP	MARKER
	.GLOBL	GETWINDOW
L15:	JMP	GETWINDOW
	.GLOBL	READWINDOW
L16:	JMP	READWINDOW
	.GLOBL	SETWINDOW
L17:	JMP	SETWINDOW
	.GLOBL	SETFONT
L18:	JMP	SETFONT
	.GLOBL	FONTSIZEITALLIC
L19:	JMP	FONTSIZEITALLIC
	.GLOBL	TEXTSTARTDIRECTION
L20:	JMP	TEXTSTARTDIRECTION
	.GLOBL	SETSCALE
L21:	JMP	SETSCALE
	.GLOBL	SHIFTCOORD
L22:	JMP	SHIFTCOORD
	.GLOBL	SETLINETYPE
L23:	JMP	SETLINETYPE
	.GLOBL	SETSPEED
L24:	JMP	SETSPEED
	.GLOBL	OFFEM7052
L25:	JMP	OFFEM7052
	$VER=59.
$BEGIN:
	ADD	#90,$KORE
	JSR	%7,$B127
	.GLOBL	$B127
	CLR	-(6)
	JSR	%7,L0

	TSTB	(6)+
	BNE	L26
	JMP	L27
L26:
	MOV 	#4,-(6)
	MOV 	#4,-(6)
	JSR	%7,L21
	MOV 	#1,-(6)
	JSR	%7,L5
	MOV 	%5,-(6)
	MOV 	%5,%0
	ADD 	#4,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#2,%0
	MOV 	%0,-(6)
	MOV 	%5,%0
	ADD 	#6,%0
	MOV 	%0,-(6)
	JSR	%7,L15
	MOV 	#100,-(6)
	MOV 	#200,-(6)
	MOV 	#2870,-(6)
	MOV 	#1900,-(6)
	MOV 	#1,-(6)
	JSR	%7,L17
	MOV 	#2,-(6)
	JSR	%7,L5
	MOV 	#1000,-(6)
	MOV 	#700,-(6)
	JSR	%7,L3
	JSR	%7,L2
	MOV 	#1000,-(6)
	MOV 	#1700,-(6)
	JSR	%7,L3
	MOV 	#2000,-(6)
	MOV 	#1700,-(6)
	JSR	%7,L3
	MOV 	#2000,-(6)
	MOV 	#700,-(6)
	JSR	%7,L3
	MOV 	#1000,-(6)
	MOV 	#700,-(6)
	JSR	%7,L3
	JSR	%7,L1
	MOV 	#1000,-(6)
	MOV 	#1200,-(6)
	JSR	%7,L3
	MOV 	#3,-(6)
	JSR	%7,L5
	JSR	%7,L2
	MOV 	#65036,-(6)
	CLR	-(6)
	CLR	-(6)
	JSR	%7,L12
	JSR	%7,L1
	MOV 	#4,-(6)
	JSR	%7,L5
	MOV 	#200,-(6)
	MOV 	#500,-(6)
	JSR	%7,L3
	MOV 	#100,-(6)
	MOV 	#50,-(6)
	MOV 	#80,-(6)
	JSR	%7,L19
	MOV 		#L28,%0
	MOV 	%5,%1
	ADD 	#10,%1
	MOV	#40,%2
	MOV 	(0)+,(1)+
	DEC	%2
	BNE	.-4
	MOV 	#48,8(5)
	MOV 	%5,%0
	ADD 	#8,%0
	MOV 	%0,-(6)
	JSR	%7,L13
	JSR	%7,L9
L27:
	JSR	%7,L25
	JMP	$END
L28:	.WORD	28686
	.WORD	19265
	.WORD	21573
	.WORD	20512
	.WORD	17487
	.WORD	21072
	.WORD	18255
	.WORD	16722
	.WORD	19789
	.WORD	19232
	.WORD	20303
	.WORD	17744
	.WORD	16722
	.WORD	18772
	.WORD	16727
	.WORD	2573
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	28523
	.WORD	28781
	.WORD	8207
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	8224
	.WORD	0
	.END
                                                                                                                                                                                                                                                  