MAINMODENAMEPR1PR2PR3FILETEMPDUMPFILFFPIDUMPRPRSCPICSTBKCRCRCRDKEPADUMP2DUMP1PRTGRLDMLDCCCC  !"#$%&'( ##THIS PROGRAM WILL DISPLAY AND!!PRINT PICTURES IN KOALA ANDMICROPAINTER FORMAT(2 THIS PROGRAM WILL NOT WORK<""WITH MONKEY WRENCH INSTALLEDFPss;A0,;@a,;@,;Ar,;Ar,;Ar,;A ,;@,;Ax,;Ax,U&&;@,;@,;A,Z1 +AR@1A@_Q0@@@70@@@Q0@@@d%%(} IN THE PUBLIC DOMAINe$$(fc#(ĠɠԠC(c(ŠҠg##(h##(ĠҠi##(j##(ҠĠkC#(C(̠Ġl##(mW( WHICH PRINTER*( PSON9( EMINIE( ECW( ROWRITERn!(ENTER YOUR CHOICE!o@4E)4G)4N)4P6(@ A p @sx!!PUT DISK I/O SUBROUTINES IN PAGE FOUR CASSETTE BUFFER.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,96%-A$AT"!% !!DUMP$ IS A MACHINE LANGUAGEROUTINE THAT DOES THESCREEN DUMPIT ALSO USES THE FIRST 20!!BYTES OF PAGE 1 (0100,0110)DUMP1$ IS FOR EPSON TYPES""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,.(̅ХД`==MLD$ HOLDS THE M/L ROUTINE TO LOAD M-PAINT FORMAT FILESCOURTESY OF ANALOG MAG.FF6.:@4,##67AW<AW,.>:@4,READ DISK DIRECTORYAND STORE .PICAND .MIC FILENAMESI&( INSERT THE PICTURE DISK.E( THEN PRESS ΠI46-@4@@D:*.PIC+ 6. 67A ,. +67@,.@$$7@<@,0 A`167@<@,.D:167@,..PIC*67@$&@,.*6-%@& @7A05@:((@@D:*.MIC<1@17@<@,0 Av>l67@<@,.D:167@,..MICJ67@$&@,.X6-%@l @7Ar@6-&@@DNNOW GET WHICH PICTUREXTO PRINTblA +2( } ŠӠΠӠˠ5(A6-v-@6.7$@&@,UB-++'@&P:'@,, ? ,$@ '@%@N @U(  (- ))(!ENTER '0' TO CATALOG A NEW DISK9 A 5("WHICH PICTURE DO YOU WANT TO PRINT9"A!A 6.7$@&@, 6.-@B:,)7<,0 )67B:,%@,.7<, ((7B:,&@H AR A`\.@.@@P:a4 4E6-C:,)(@@8346.Lb2 4G6-C:,'(@@326.Lc7 4N6-C:,*(@T16[Q76.S0772d7 4P6-C:,*(@T16[Q76.S0772f7 6.67Ar,.+67@,.16.76.p 6-C:,6-C:,zΠϠҠЛ7%6-F:@,%F:@,$AV7AdAUK-@9,F:Ad,AU/'AAdAUK A P*6-A$@@%%*6-?:<<<, 0(@(@ 0(@(@ (@  B'g"@+" A LOAD M-PAINT TYPE FILE=@+@@=+@%@6-?:C:,,@(} Ar)@)@*)@7)@B@NAZAfA rA ATHIS ROUTINE CHANGESTHE GRAY SCALES36-@6-@'6-@36-@3+@%@2!6-?:C:,,3AR@{!A@p$+&@,?A@p$+&@,]A @p$+&@,{A@p$+&@, (}6-@--6-F:A`,%F:Aa,$AV%As--6-F:@,%F:@,$AV&AW-@7-@$@$%@O%%@@$@S W +%@@e+%@@5%@F:%@,5%@F:%@,K@x2%@&P:'AV,$AVK%@P:'AV,8@.@@K:8 A@x#Q*("} PRESS RINT OR ENU OR IEW.Q(" CHOOSE COLOR TO CHANGE. (1-4)(**(! 1 2 3 428@.@@K:8 A0<)@@I"@)"A?(!} PRESS ANY KEY TO STOP PRINTINGI APA!!"@w)"A A B-"@)"A# A- A F$$(} BLACK = 1 2 3 4 5 = WHITEP!!( CHOOSE NEW SHADE. (1-5)Z33(PRESENT SHADE FOR COLOR #&@H IS _@edV"@I( )@.6-&@HLA@p$+&@I,V AnV"@P( )@.6-&@HLA@p$+&@I,V AxV"@Q( )@.6-&@HLA @p$+&@I,V AV"@R( )@.6-&@HLA@p$+&@I,V Ai%2@A@@9-@@ = _2@i A1#A%#-A`Ac'"-1 1#A%#-AdAg'"-1 1#A%#-AhAq'"-1 1#A%#-ArAu'"-1 $DATA FOR GRAY SCALES15,15,15,1510,5,10,510,0,5,0 2,0,8,0 0,0,0,0PRINTER ERROR ROUTINE",,($SOMETHING IS WRONG WITH THE PRINTER!,%%2@A@@6-@@  @%%2@J-@A T APrw)+@%@%@2)6-?:C:,,{!A@p$+&@,?A@p$+&@,]A @p$+&@,{A@p$+&@,-@A $D2:PICDUMP.BAS