no_ MAINMODENAMEPR1PR2PR3FILETEMPDUMP1DUMP2PRTGRADLI1DLI2COLHLFILDPIDUMPRPRSCPICKEPA @ ##**KOALA PICTURE PRINTER 1.7vc !!Atari BASIC - Public Domain dss;A0,;@a,;@,;Ar,;Ar,;Ar,;A,;@,;Ax,;Ax,iGG;@,;@,;@,;@0,;@2,9@,nsSHOW TITLE AND GET TYPExOF PRINTER TO BE USED}C +@@1@@9CA@O+(#}KOALA PAD/ATARI ARTIST HORIZONTALO(PICTURE PRINTER (version 1.7vc)^ AP(3(Which printer are you using...6(Z(pson emini EC rowriter ^%%4E)4G)4N)4PAu AE A@!!PUT DISK I/O SUBROUTINES INPAGE FOUR CASSETTE BUFFER%-A$AT"!% ee162,16,169,0,157,72,3,169,0,157,73,3,32,86,228,192,0,48,9,238,31,4,208,3,238,32,4,96,104,104,96TEXT WINDOW DLI ROUTINES (COURTESY CHARLES JOHNSON)O(6.HH  ԍЎЩhh@O6. HH ԍЎЩhh@a 6-C:,6-P:'AV,-6-&$AVG67@<@,.>:,a67@#<@#,.>:,a 6-C:,6-P:'AV,-6-&$AVG67@ <@ ,.>:,a67@%<@%,.>:,##ROUTINE THAT DOES THE PRINTERSCREEN DUMP...!!DUMP1$ IS FOR EPSON, GEMINI""DUMP2$ IS FOR NEC, PROWRITERcc67@,.PhhhhhhhϩР˅ѥϭiͭi88שϭcc67@,.PiͭiΥ) JJ)  q͑JJѥ8 %%67Aa,.(̅ХД`cc67@,.PhhhhhhhϩР˅ѥϭiͭi88שϭcc67@,.PiͭiΥ)  JJ) q͑JJѥ8%%67Aa,.(̅ХД`"!!MODE$ IS A MACHINE LANGUAGE' ROUTINE TO CHANGE GRAPHICS,MODE 8 TO ANTIC MODE E16GG6.=h01eeAO ݩ֩N`;@!!MAIN$ IS A MACHINE LANGUAGEE!!ROUTINE TO LOAD AND DISPLAYJKOALA COMPRESSED FILESOTww67@,.dhBDE   D     Yww67A,.d!  XY X!  FD))   ^ww67A,.d ]GPee`/ee(ecm-67A,.eee`M67A<A,.>:@4,m67AW<AW,.>:@4,hm##READ DISK DIRECTORY AND STOREr*.PIC FILES IN FILE$w|c A (7("Insert a diskette with pictures..._("What disk drive is the diskette inc06.D1:*.PIC0067@<@,._@+@@76-@?6. P67A,. _67@,.((((Reading diskette directory...1@17@<@,0 AV67@,.7@,/67@,..PICH67@$&@,.V6-%@ @9A06-&@@0AE_()(Sorry, there are no .PIC filesK(currently on this diskette...U AE_ ADISPLAY DIRECTORY AND GETNAME OF PICTURE +AAD1AR@[6-F:A`,%F:Aa,$AV%@o%@ A0%@$A06-C:,{6-P:'AV,$6-&$AV0A<AN-{((à堠|-@*6.7$@&@,i-++'@&P:'@,, ? ,$@ %@'@u @|(05 (- #A@5BBAY A(1(Type '0' to switch diskettesY("Which picture do you want to print9AR%"/+9 AAA(-("Sorry, that picture doesn't exist.7 AEA Ae46.7$@&@,#6.4-@B:,)7<,0 )67B:,%@,.7<, @LOAD AND DISPLAY PICTUREC((Loading ...& A0C@@m+@%@!6-?:C:,,-6-?:C:,,8@L-@A0aF:Ad,AUm6-A0 w AdAU.68@,-@C68@,-@X68@,-@m68@,-@w A%.(( I can't load $ AE. Ae SETUP PRINTER FOR GRAPHICS!&g A@8@@P:@4EI6-C:,\(@@3g6.L+2 4G6-C:,'(@@326.L0=4N)4P6-C:,0(@T16[Q=6.S07725:SCREEN TO PRINTER LOOP?Dk 6.67Ar,.+67@,.16.76.@6-C:,I6-C:,k6-F:@,%F:@,$AVI^AdAU)-@9>F:Ad,AUPAdAU[@^$N@6-A$@@%%*6-?:<<<,00@(@S$(@0$(@X7(@ )(@>:@,4@7$]b""THE USER OPTION MENU (PRINT,gVIEW, CHANGE COLOR, EXIT)lq}+@%@2'AY9AR@G >:A%,S6-?:C:,,}6-F:A`,%F:Aa,$AV%Asv-6-F:@,%F:@,$AV&AA-@a-@$@$%@y%%@@$@}  %@@e{%@@0%@F:%@,I%@F:%@,l%@&P:'AV,$AV%@P:'AV,&@AB+&@A046-C:,E6-P:'AV,U6-&$AVaAmABBA*A@p$+8@,&@,QA@p$+8@,&@,xA @p$+8@,&@,A@p$+8@,&@,AY@4S'-("} Options: rint, iew, xit, orS(! select color to change (-) ?;(/(# --1-- --2-- --3-- --4--;@xi A%@8@@K:E)@[!@* A"i6-&@2]"@!( }Printing ?(Press any key to abort...I A S AP] A%"@iAE#"@ A# A%- @I)!@R# AE- A`K6-&@H@eK(}Select new shade for color  (-) ?b)(!  ,(U( The current shade is --> 8,b)@4!@H* @T*68,-&@H4 AE AP!!CHANGE COLORS TO GRAY SCALEB #AE%8@,$@4-A`Ac8">B B #AE%8@,$@4-AdAg8">B B #AE%8@,$@4-AhAq8">B B #AE%8@,$@4-ArAu8">B $DATA FOR GRAY SCALES15,15,15,1510,5,10,510,0,5,0 2,0,8,0 0,0,0,0 DISPLAY PRINTER ERROR MSGR(}***PRINTER ERROR***:(Please check your printerR(and try it again.../ AE!-@A% / AP %VIEW FULL PICTURE*/+@%@H'AYNA@p$+8@,&@,uA@p$+8@,&@,A @p$+8@,&@,4}*A@p$+8@,&@,66-?:C:,,HAY@4\-@A qF:Ad,AU}6-A 9 AdAU$>CERROR SOUND EFFECTHMC -AP6@P<2@@@ C$ D7:KoalaPrint17.Bas* (Van)