100 /	UNBLANK GRAPHICS MEMORY.
 110 
 120 UNGMEM,	ESC;	"[&177;	"2&177;	"/&177		/UNBLANK GRAPHICS MEMORY
 130 	"V&177+40;	0
 140 
 150 /	GOTO VECTOR MODE (FROM POINT PLOT MODE).
 160 
 170 VECMODE,"]&37;	0				/GOTO VECTOR MODE
 180 
 190 /	CHARACTER SIZE TABLE.
 200 
 210 SIZTABL,";&177					/SMALLEST
 220 	":&177					/VERY SMALL
 230 	"9&177					/SMALL
 240 	"8&177					/STANDARD
 250 	"1&177					/DOUBLE
 260 	"2&177					/TRIPLE
 270 	"3&177					/QUADRUPLE
 280 	"8&177					/STANDARD (ALTERNATE)
 290 	EJECT
 300 	FIELD	PRGFLD%10	/BACK TO FIELD ZERO
 310 	EJECT
 320 /	ONCE-ONLY CODE STARTS HERE.
 330 
 340 	*BONCE			/OVER DEFAULT ONCE-ONLY AREA
 350 
 360 BONCE,	CIF	DFIELD		/GOTO CODE FIELD
 370 	JMS I	(INITERMINAL)	/INITIALIZE TERMINAL INTO POINT PLOT MODE
 380 	DCA I	(BEOFZAP)	/REPAIR LOADER
 390 	JMP I	(BEOFZAP)	/RESUME LOADING
 400 
 410 	PAGE
 420 
 430 	*BEOFZAP		/OVER LOADER
 440 
 450 	SKP			/MAKE IT COME TO US
 460 
 470 	$			/THAT'S ALL FOLK!