8LASTASCOLO@A'@ $$** ATARI 1020 PLOTTER/PRINTER**** 23 JUNE 1983(**2** REV 2<**F#@@# AP##@@K:Z##@@P:dDISPLAY TITLE/OPTIONSn APx//A@A`AA A 0XX1=ALL FUNCT,2=PEN UP/DOWN,3=PLATTEN UP/DOWN,4=DRAW RIGHT/LEFT,5=PEN CHANGE,6=RETRYTEST ALL FUNCTIONS TEST(@-A&2(@#(@C02(@A99(@(* 1020 FIRMWARE/HARDWARE CHECK (REV 1) *# A0(@#(@(@ * TEXT MODE66(@% FULL CHARACTER SET IN 20-CHAR MODE3(@#(@C23(@ A A03(@#(@C03(@A(@A(@% FULL CHARACTER SET IN 40-CHAR MODE2(@#(@C12(@A A A02(@#(@C02(@A"(@,A6(@% FULL CHARACTER SET IN 80-CHAR MODEA(@6#(@#(@C3@(@J A A0T#(@#(@C0^(@(@h*(@* GRAPHIC MODE*(@r0%(@ LINE TYPE 0 TO 170(@|#(@#(@C1-@@<(@L((@D200,0<(@M240,0B(@L%@3(@ D440,1000B(@H&(@M0,-20&(@I  A0.(@C0#(@.(@$$(@ SCALE 0,31,63,64#(@#(@C2'(@M0,-400'(@I#(@S0#(@PS(@M20,-31$(@S31$(@PS(@M190,-63$(@S63$(@PS(@ M470,1000$(@S64$(@PS&C(@C0#(@.(@9(@C A00,!(@ ROTATE 0 TO 4,(@:((@((@M50,-50D#(@S5#(@C3N-@X&(@Q&(@PQb  A0l(@M240,-50v(@Q4(@ M1000,-220-(@C0#(@- A0$$(@ PLOTTING ABILITY(@)(@ M240,-150)(@I/(@X0,20,5/(@ X0,20,256@(@H((@X0,-20,6@(@ X0,1000,-1@(@H((@X2,20,11@(@ X2,20,-256A(@H)(@ X1,-20,12A(@ X1,-1000,00(@J60,1200(@ R1000,-240>(@C1)(@J120,240>(@R0,-240>(@C2)(@J120,240>(@R0,-240>(@C3)(@J120,240>(@R0,-240@(@C0((@J60,120@(@ R-260,-170 (@ @ -A&*"@'A04(@>:,> H(@>:A',R$\+(@H+(@L@f,(@D480,0,(@D-480,0p*(@D0,-2 A0* Apz'@@'% D:T1020.A(@H,(@M480,0,(@M-480,0 A0 A '@@'% D:T1020.B''A PA PA PA#(@#(@C0-@(@C  A0 A `77 ERROR #F:A,, DEPRESS TO RESTART"F:B2y,"@" @ A2F:Ad,"@G%)@('2 A$''----- DISPLAY PROGRAM TITLE -----$-.'@@'@@98AR@B }L)) ! V)) ! `)) ! 堠j)) ! үҠt)) ! ~    REV 2 !!  1> ALL FUNCTION TEST  2> PEN UP/DOWN  3> PLATTEN UP/DOWN  4> DRAW RIGHT/LEFT  5> PEN CHANGE/ / $ Q> STOP TEST AND RETURN TO MENU ** " ** " | Please Select an Option |** "  )@6-&@H# @)!@# A($ D:T1020.BAS