NR()BTC U/W-FOCAL:PLOTER15.10.78?MB-BJC FOCAL PLOTTER DEMOSTRATION PROGRAM  -JVZ-?M?CFBTZ,$R;S $S=4,$D=2;P,-12,-1;P,.2,-1;O O PLTR:?M?C B^P,2.5;T "ASCII";P,2;T "S?9?-?"?/?,?3:";S $S=5?M?C8B(P 2,2.5;T "ABCDEFGHIJKLM"!"NOPQRSTUVWXYZ"!?MDQB2T "0123456789-+="
".,:;!
()[]<>"!"	 *%&$/^"?MD+B<T :FOUT(223)+FOUT(	\):1:FOUT(	");S $S=4;P,.03?MEFCFT "M?!?2?+?3:";S $D=-2;F M=1,18;P 1.8+M/4,.15,,M?ME
CPS $S=$D=2,X=6.25,Y=2;P 6.35,2.35;T "PLOTTER"?ME:CZP 6.53,2.1;T "UNIT";P X,Y;P X,2.6,1;P 7.25,2.6,1?MFXDJP 7.25,Y,1;P X,Y,1;P 6.35,Y;P 6.35,.25,1;P 7.15,.25,1?M?F5DTP 7.15,Y,1;P 6.46,1.8;T "Y";P 6.46,1.63;T "^";S $D=4?MGSD^P 6.5,1.65;P 6.5,1.45,1;P 6.7,1
45,1;P 6.68,1.49;T "^"?MG1D(P 6.88,1.49;T "X";P 6.88,1.25;T "P?!?0?%?2";P 6.5,1.25?MHOD2T "F?%?%?$";S $S=3,$D=6;P 7,.5;F M=,2;P 7-M/5,.5;T "^"?MH+D<P 6.81,3.1;T "^";S $D=2,Y=3.15;P X,Y;T "S?)?:?% 2"?MIDEFP 4.44,2.92;T "^";P 4,Y;T "S?)?:?% 3";S $D=6?MI EPP
2.55,3.1;T "^";S $D=2;P 2,Y;T "S?)?:?% 5";S $D=6?MI7EZP .6,3.1;T "^";S $D=2;P,Y;T "S?)?:?% 4"?M?JPFJS $D=1;P 3.6,7.1,,16;S $S=5,$D=6;P 3.2,7.25?M?J,FTT "D?)?2?%??4?)?/?. 0?H/";S $S=4,$D=7;P 3.44,7.5?M?KRF^T "D?)?2?%??4?)?/?. 1";S $S=5,$D=0;P 3.75,7.5;T "D
)?2?%??4?)?/?. 2"?MK1F(S $S=4,$D=1;P 4,7.25;T "D?)?2?%??4?)?/?. 3";S $S=5,$D=2?MLPF2P 4,6.95;T "D?)?2?%??4?)?/?. 4";S $S=4,$D=3;P 3.75,6.7?M?L6F<T "D?)?2?%??4?)?/?. 5";S $S=5,$D=4;P 3.45,6.7;T "D?)?2?%??4?)?/?. 6"?MMWGFS $S=4,$D=5;P 3.2,6.95;T "D?)?2?%??4
)?/?. 7";S $D=2;P;O I?M?M4GPI (141-FIN())3.9,1.3;P 9,,-1;C HIT 	RUBOUT	 TO STOP?M?GZO O;O I,E;C 	LINEFEED	 TO ADVANCE, 	RETURN	 TO REPEAT?M?T?L S PLOTER?M?MW;O C?M?T(	");S $S=4;P,.03?M?MN>VTV X-30,Y-10;T :FOUT(31)"?YH I T?
";R?MOLV^V X-23,Y-5;T "MISS";R?M?O!V(V X-42,Y-10;T :FOUT(31)"?YS H I P?
"?MO$V2?MPXJS FJOY(), V=(FITR(YJ/100)-1)*!+FITR((XJ-200)/100)?M?P\XTS Z=FITR((V-1)/!), X=(V-Z*!)*100+250, Y=Z*100+150?M?P+ZJS XJ=7,YJ=7;D .2;S YJ=-7?MP;ZTV X+XJ,Y+YJ;V X-XJ,Y-YJ,1?M?\JF Z=,.2,PI;S XJ=50*FCOS(Z),YJ=50*FSIN(Z);D 13.2?M?2?L D BTLSHP;L S BTLS
P;E?M?NUE":-1?M?1?L D DIRFIX;L S DIRFIX;E?M?D LOWPAS;L S LOWPA

Note: Lines longer than 256 characters were wrapped