5 CLEAR1000,&H5700
6 B$=":"+CHR$(&H30+PEEK(&HEB))
7 IF PEEK(&H7800)=189 THEN 15
10 LOADM"C64SUBS"+B$
15 PCLEAR 4
30 CLS:PRINT@64,"   COMMODORE 64 DOODLE FORMAT"
40 PRINT"    FILE CONVERSION UTILITY"
50 PRINT:PRINT"  (C) APRIL 1986 MARTY GOODMAN"
60 PRINT "   WINDOW SUBROUTINE COURTESY
70 PRINT"        OF ERIK GAVRILUK
80 PRINT:PRINT:PRINT"    PUT DISK WITH .DOD FILES
90 PRINT"           IN DRIVE 0
100 PRINT:PRINT"  *** TAP enter TO PROCEED ***"
110 IF INKEY$<>CHR$(13) THEN GOTO 110
120 CLS:PRINT:PRINT" SETTING UP FOR FILE CONVERSION"
130 PRINT:PRINT" THIS WILL TAKE UP TO 5 SECONDS"
150 GOSUB 530
170 PAGE=1
180 IF LE=0 GOTO 800
190 REM LOOP
200 CLS
210 B=(PAGE-1)*22+1
220 F=B+21
230 IF LE<F THEN F=LE
240 J=0
250 PRINT@INT(J/2)*32,CHR$(J+65)
260 PRINT@INT(J/2)*32+2,NAM$(J+B)
270 J=J+1:IF B+J>F GOTO 320
280 PRINT@INT(J/2)*32+16,CHR$(65+J)
290 PRINT@INT(J/2)*32+18,NAM$(J+B)
300 J=J+1:IF B+J>F GOTO 320
310 GOTO 250
320 PRINT@12*32,"SELECT FILE BY TAPPING A LETTER"
330 PRINT"TAP SPACE BAR TO RESTART PROGRAM"
340 A$=INKEY$
350 IF A$=CHR$(32) THEN GOTO 15
360 IF A$="" THEN GOTO 340
370 A=ASC(A$) AND &HDF
380 A=A-65+B
390 IF A<0 GOTO 340
400 IF A>F THEN GOTO 340
410 CLS
420 PRINT@32,"YOU HAVE CHOSEN: "
430 PRINT:PRINT"     ";:PRINTLEFT$(NAM$(A),8);".DOD":PRINT
440 PRINT:PRINT"IF THIS IS CORRECT, TAP ENTER"
450 PRINT"IF NOT, TAP ANY OTHER KEY"
460 A$=INKEY$
470 IF A$="" GOTO 460
480 IF A$<>CHR$(13) THEN GOTO 190
490 GOTO1050
500 END
510 CLS:PRINT@256,"      BAD COCO DISK"
520 GOTO 20
530 REM READ DIRECTORY
535 DIM NAM$(25)
560 REM LE=NUMBER OF LAST ENTRY
570 K=-1:N=1:LE=0
580 REM LOOP
590 K=K+1
600 S=INT(K/8)+3
610 KS=K-8*(INT(K/8))
620 DSKI$ 0,17,S,A$,B$
640 IF KS>3 THEN A$=B$
650 KS=KS-(4*INT(KS/4))
660 T$=MID$(A$,32*KS+1,32*(KS+1))
670 FB=ASC(LEFT$(T$,1))
680 IF FB=0 THEN GOTO 590 'KILLED ENTRY
690 IF FB=255 THEN RETURN 'DONE... EXIT ROUTINE
700 IF K>68 THEN RETURN
710 IF MID$(T$,9,3)<>"DOD" THEN GOTO 590
720 IF K>68 THEN RETURN
740 NAM$(N)=LEFT$(T$,8)
760 LE=N:N=N+1:GOTO 590
800 CLS:PRINT@256,"   DISK HAS NO /DOD FILES"
810 CLEAR 200,&H7FFF
820 END
1050 N$=MID$(NAM$(A),1,8)
1055 CLS:PRINT@260,"NOW READING ";N$+".DOD"
1060 OPEN "D",#1,N$+".DOD:0"
1070 ZX=5
1075 IF LOF(1)<34 THEN ZX=1
1077 N=ZX
1080 REM LOOP
1090 GET #1,N
1100 POKE &H77FF,N-1
1105 IF ZX=1 THEN POKE &H77FF,N+3
1110 EXEC &H7900
1120 L=L+256
1130 N=N+1
1140 IF N>LOF(1) THEN GOTO 1160
1150 GOTO 1080
1160 CLOSE
1165 EXEC &H7930
1170 CLS:PRINT@32,"USE ARROW KEYS TO FRAME PICTURE."
1175 PRINT"TYPE 'R' TO REVERSE THE IMAGE."
1180 PRINT:PRINT"WHEN SATISFIED, TAP SPACE BAR."
1190 PRINT:PRINT:PRINT:PRINT:PRINT"  TAP ANY KEY TO VIEW PICTURE"
1195 IF INKEY$="" THEN GOTO 1195
1200 PMODE 4,1:SCREEN 1,1:EXEC &H7800
1202 CLS:PRINT@32,"PRESS enter TO SAVE PICTURE,"
1204 PRINT"TAP 'R' TO RESTART PROGRAM,"
1206 PRINT"OR HIT break TO EXIT."
1207 Y$=INKEY$:IF Y$="" THEN 1207
1208 IF Y$="R" OR Y$="r" THEN 15 ELSE IF Y$=CHR$(13) THEN 1210 ELSE 1207
1210 CLS
1225 PRINT@96,"USE ONLY EIGHT LETTERS."
1227 PRINT"A /BIN EXTENSION WILL BE ADDED."
1230 PRINT:PRINT"  (enter = "N$".BIN)"
1235 PRINT@0,"FILENAME FOR COCO .BIN FILE:"
1240 LINEINPUT M$
1250 IF M$="" THEN M$=N$
1270 PRINT:PRINT@192,"    SAVING ";M$
1275 SAVEM M$,&HE00,&H25FF,&HA027
1280 GOTO 15

1227 PRINT"A /BIN EXTENSION WILL BE ADDED."
1230 PRINT:PRINT"  (enter = "N$".BIN)"
123                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
4 CLS3:PRINT@256,"          PLEASE WAIT"
5 AD=30720
20 READ A$
30 IF A$="X" THEN 5000
40 FOR I=1 TO 64 STEP 2:BB$=MID$(A$,I,2):IFBB$="XX" THEN 5000 ELSE AA=VAL("&H"+BB$)
50 POKE AD,AA:AD=AD+1:NEXTI:GOTO20
100 DATA BD7869AD9FA00027FA8E781CA180270830026D8426F620EBAD9420E45E78320A
110 DATA 783C08784709785020785B52785E72785E007D78CD2601397A78CD39B678CD81
120 DATA 0827F87C78CD397D78CC27FA7A78CC39B678CC810827F87C78CC393262398E58
130 DATA 0063808C774025F939B678CDC6283DC358001F01CE0E0086C03402F678CC3AEC
140 DATA 81EDC1EC81EDC1EC81EDC1EC81EDC1EC81EDC1EC81EDC1EC81EDC1EC81EDC1EC
150 DATA 81EDC1EC81EDC1EC81EDC1EC81EDC1EC81EDC1EC81EDC1EC81EDC1EC81EDC1C6
160 DATA 08F078CC3A6AE426B23261390404FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
170 DATA ED2A000000090000050000000000000000000000000000000000000000000000
180 DATA 34011A50B7FFDF8E0989B677FF8B805F1F03EC8043EDC08C0A8925F6B7FFDE35
190 DATA 81F6FFFFFFF6FFFFFFF0FFFEFFF1FFFF34011A50B7FFDFCC5800FD79BDCC8402
200 DATA FD79BF4F5FFD79C14F5FFD79C3FD79C54F5FFD79C7FD79C9FC79C1F379BDF379
210 DATA C3F379C91F01FC79C1F379BFF379C5F379C71F03A6C4A7848C77402505B7FFDE
220 DATA 3581FC79C9C30028FD79C9FC79C7C30001FD79C71083000825BEFC79C5C30008
230 DATA FD79C5FC79C3C30001FD79C310830028259EFC79C1C30140FD79C1208B79BD79
240 DATA BF79C179C379C579C779C9FFFFFBFFFFFFFAFFFFFFFAFFFFFFFBFFFFFFF3FFFF
4000 DATA X
5000 PRINT"PRESS ANY KEY TO SAVE ML CODE   TO YOUR DISK"
5010 A$=INKEY$:IF A$="" THEN 5010
5015 FL$="C64SUBS"
5020  SAVEM FL$, 30720, 31178, 30976:END
5040 GOTO 5010
D79
240 DATA BF79C179C379C579C779C9FFFFFBF                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   Commodore 64 Doodle Format to CoCo Bin Format
             Graphics File Converter
 
 By Marty Goodman, Eric Gavriluk, and Art Flexser
 
          (c) Marty Goodman April 1986
 
 
                 Documentation
 
     This group consists of seven files:
 
  C642COCO.DOC - ASCII TEXT file containing this documentation.
 
  C642COCO.BAS - ASCII BASIC main driver program
 
  C64SUBS.BIN - BINARY file of needed ML subroutines.
 
  C64SUBS.SRC - ASCII TEXT source code for the above.
 
 
  POLA.DOD   - "doodle format" C64 picture
 
  PIRATE.DOD - "doodle format" C64 picture
 
  PAGODA.DOD - "doodle format" C64 picture 3
 
 
     Be sure you have on the same disk C642COCO.BAS and
C64SUBS.BIN when you try to RUN C642COCO.BAS.
 
 
INTRODUCTION
 
     Commodore hi res "Doodle Format" pictures are available here
on Delphi on the Micro Artists SIG Comodore 64 Data Base area.  As
examples of what you will find there I have included in this group
three original works of art by Wayne Schmidt drawn on the
Commodore 64.   These are the three .DOD files.   When you
download them be sure to save them with extention .DOD.  You may
save them to disk in any file format you like (ASCII, Tokenized
Basic, ML Program, ASCII data, or ML data) as long as you use
extention .DOD.  You will need to have one or more of these files
to use the converter program
 
     After you examine these three sample offerings, I encourage
you to  visit the Micro Artists SIG, data base, COMMODORE grapics
section, and explore.  If, when exploring LOCAL Commodore BBS
systems, you come across interesting DOODLE art you'd like to
upload here in MAXCMP form, BE SURE TO to check with the sysop of
that BBS as to whether or not the artwork you wish to convert and
upload to us is truly fully in the public domain.  Also, PLEASE do
NOT upload to our CoCo SIG converted DOODLE art files gotten from
the Micro Artists SIG here on Delphi.  There is a Delphi policy
against such duplication of files.  The few sample converted files
in this group are here  with the compliments of the Micro Artists
SIG here, which invites you to take the converter and drop on by
for more.
 
 
DOODLE FILE FORMAT
 
     This converter is designed to work with "Doodle Format"
files.  These are 8 or 9K files that  can be downloaded using X
modem.   As noted above, you may save it to disk in ANY file type
you like.  My converter program does not pay attention to file
type.  BUT, you must be sure to give the doodle file the extention
.DOD.  The file converter will ONLY see files on the disk with the
.DOD extention!  Note that if you wish to transmit a DOODLE file
with X modem you MUST tell your terminal program to treat it as a
NON ASCII file.
 
     Commodore 64 pictures have more information in them than the
CoCo is capable of displaying.  Most Doodle files come with 1K
worth of foreground / background color information, which my
converter just throws away.  This is information that would allow
the Commodore 64 to set the foreground and background colors of
blocks of data on the screen that are 8 pixels by 8 pixels to be
one of 16 different possibilties.  So all we get is the "raw bit
map" data... NO color information. In addition, the C-64 screen is
a little bigger than ours.  Theirs is 320 pixels by 200 pixels
compared to our 256 by 192 pixels.  Thanks to the kind assistance
of Erik Gavriluk, one of the Co Authors of the McPaint CoCo
graphic editor (available here on this system), I have been able
to provide you with a means of viewing the whole 320 by 200 C-64
picture.  You will be able to slide a "window" the size of the
CoCo screen over the full C-64 bit map image, and then select
exactly what cropping you want for the picture you will later save
to disk in CoCo binary format.  Note also that C642COCO will
automatically adjust for either 8K (no color info present) or 9K
long Doodle file formats.
 
 
HOW TO USE the UTILITY
 
     This utility is more or less self-documenting. Merely
download a few DOODLE type files from the Micro Artists SIG, and
save them to your CoCo disk with the /DOD extention.  Then RUN
C642CO (making sure you have the C64SUBS program on your disk!)
When asked to put a CoCo disk in the drive, just put the disk with
the /DOD files on it, and hit enter.  All DOD files will be
displayed.  You then type the LETTER associated with the file name
you want to convert.
 
     You will be asked to confirm your selection, then the drive
will whir for a little while as the doodle file is read into
memory. Then you will be informed about using the arrow keys to
move your window, using the R key to cause the image to be
reversed, and about using the space bar to exit the viewing mode.
On tapping any key you will then see the C-64 picture displayed on
your screen.  After you frame it to your liking and select the
version (reversed or not reversed) you like best , hit the space
bar and follow the remaining prompts to save it out as a binary
file.  Note that if you hit ENTER when asked for a file name to
save the CoCo picture, the program will save the picture under the
same name as the DOD file, except the extention this time will be
/BIN.  Also, if you elect to type your own differing file name in,
be sure to use no more than 8 letters.  The program will supply
the /BIN extention for you.
 
 
ACKNOWLEDGEMENTS:
 
   Thanks to Erik Gavriluk (ERIKGAV) for his custom scrolling
subroutine.  And special thanks to Art Flexser (ARTFLEXSER) for
realizing that the program needed a "reverse screen" option, and
for tirelessly beta testing this little package during its
development.  Art caught and corrected quite a number of my
blunders and bad programming choices. He also implimented the
reverse screen option in the assembly language code. Special
thanks also to Wayne Schmidt (SCHOENMALER), Commodore artist
extrordinaire, who kindly and patiently provided me with the
information about C64 DOODLE file format that I needed to write
this utility.  And for his consent in allowing a small sample of
his work to appear in this group.  Thanks also to ELLEN, sysop of
the micro artists SIG, who kindly consented to allow Wayne's
sample files from her SIG to be posted here as well.
 
 
 
   This program may be distributed by any NOT for PROFIT means. NO
distribution of this program by any FOR PROFIT organizations may
occur without my personal approveal.
 
 
 
  ---Marty Goodman
 
   data base manager, CoCo sig, Delphi
 
ere as well.
 
 
 
   This program may be distributed by any NOT for PROFIT means. NO
distribution of this program by any FOR PROFIT organizations may
occur without my personal approveal.
 
 
 
  ---Marty Good                                                                                                                                                                                                                                                                *T 10 16 24

* This is a simple block move routine
* used to speed the inputting of the
* Doodle format file into the buffer
* via BASIC's RANDOM file acess commands

          ORG   $7900

          PSHS  CC      Save CC
          ORCC  #$50    No Interruptions!
          STA   $FFDF   Set Map type 1 (all RAM)
          LDX   #$989   Random file buffer start
          LDA   $77FF   parameter (record #)
          ADDA  #$80      passed from BASIC
          CLRB
          TFR   D,U     U = Doodle buffer

A@        LDD   ,X+
          COMA
          STD   ,U+
          CMPX  #$A89
          BLO   A@
          STA   $FFDE   Set Map Type 0 (ROM's On)
          PULS  CC,PC





* This routine convertes a Commodore 64 Doodle
* file whose bit map data resides from
* $8402 on up thru $9341 in CoCo memory
* to a virtual 320 by 200 pixel screen
* residing from $5800 thru $73FF in CoCo memory


          ORG  $7930


* Initialize Pointers

CONVRT    PSHS  CC      Save CC
          ORCC  #$50    No Interruptions
          STA   $FFDF   Map type 1 (all RAM)
          LDD   #$5800
          STD   VSCR
          LDD   #$8402
          STD   DODBUF

* Initialize counters

          CLRA
          CLRB
          STD   ROW  Row counter set to zero


* Main Converter Loop

NEWCOL    CLRA

          CLRB
          STD   COL
          STD   COL8

NEWSLI    CLRA
          CLRB
          STD   SLI
          STD   SLI40

NXTSLI    LDD   ROW
          ADDD  VSCR
          ADDD  COL
          ADDD  SLI40
          TFR   D,X   X=ADR of VSCREEN
          LDD   ROW
          ADDD  DODBUF
          ADDD  COL8
          ADDD  SLI
          TFR   D,U   U=ADR of Doodle buffer
          LDA   ,U
          STA   ,X

* Check for end condition

          CMPX  #$7740
          BLO   INC
          STA   $FFDE        end if > $773F
          PULS  CC,PC

* Check counters and increment as needed

INC       LDD   SLI40
          ADDD  #40
          STD   SLI40
          LDD   SLI
          ADDD  #1
          STD   SLI
          CMPD  #8
          BLO   NXTSLI    next slice

          LDD   COL8
          ADDD  #8
          STD   COL8
          LDD   COL
          ADDD  #1
          STD   COL
          CMPD  #40
          BLO   NEWSLI   new slice  (next column)

          LDD   ROW
          ADDD  #320
          STD   ROW
          BRA   NEWCOL   new column (next row)

* Variables

VSCR      FDB   *
DODBUF    FDB   *
ROW       FDB   *
COL       FDB   *
COL8      FDB   *
SLI       FDB   *
SLI40     FDB   *


       ORG   $7800



* This routine was written by Erik Gavriluk
* and kindly donated to the cause of file
* conversion.  Called WInDOW, it allows us
* to pan over a 320 by 200 pixel virtual
* screen (Commodore 64 size bit map) placed
* in the CoCo's memory from $5800 thru $773F.
* Arrow keys control the panning, and space bar
* exits the routine.  Screen Reverse Code added
* by Art Flexser

* Constants for buffer locations

SCREEN EQU   $E00   CHANGE IF U
C64DAT EQU   $5800  LIKE....

* main program

WINDOW JSR   SHOW
A@     JSR   [$A000]
       BEQ   A@
       LDX   #TABLE
B@     CMPA  ,X+
       BEQ   C@
       LEAX  2,X
       TST   ,X
       BNE   B@
       BRA   A@
C@     JSR   [,X]
       BRA   WINDOW


TABLE  FCB   94    up arrow
       FDB   A@
       FCB   10    dn arrow
       FDB   B@
       FCB   8     lft arrow
       FDB   C@
       FCB   9     rt arrow
       FDB   D@
       FCB   32    space bar
       FDB   E@
       FCB   'R    R key
       FDB   F@
       FCB   'r
       FDB   F@
       FCB   0
*
A@     TST   YROW
       BEQ   ?RTS
       DEC   YROW
       RTS
B@     LDA   YROW
       CMPA  #8
       BEQ   ?RTS
       INC   YROW
       RTS
C@     TST   XROW
       BEQ   ?RTS
       DEC   XROW
       RTS
D@     LDA   XROW
       CMPA  #8
       BEQ   ?RTS
       INC   XROW
       RTS
E@     LEAS  2,S  POP JSR     Exit
       RTS        TO BASIC
F@     LDX   #C64DAT          Reverse Screen
L@     COM   ,X+
       CMPX  #C64DAT+8000
       BLO   L@
       RTS

SHOW   LDA   YROW
       LDB   #40
       MUL
       ADDD  #C64DAT
       TFR   D,X
       LDU   #SCREEN
       LDA   #192
       PSHS  A
A@     LDB   XROW
       ABX
*
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++  16 BYTES MOVED
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++
 LDD ,X++
 STD ,U++  32 BYTES MOVED
*
       LDB   #8
       SUBB  XROW
       ABX
*
       DEC   ,S
       BNE   A@
       LEAS  1,S
       RTS

XROW   FCB   4 X ROW (BYTES)
YROW   FCB   4 Y ROW

       END


                     


A@
       LEAS  1,S
       RTS

XROW   FCB   4 X ROW (BYTES)
YROW   FCB   4 Y ROW

       END


                     

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
╦x╜xiнЯа'·ОxбА'0mД&Ў ынФ ф^x2
x<xG	xP x[Rx^rx^}x═&
9zx═9╢x═Б'°|x═9}x╠'·zx╠9╢x╠Б'°|x╠92b9ОXcАМw@%∙9╢x═╞(=├X
╬Ж└4Ўx╠:ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴╞Ёx╠:jф&▓2a9                  э*	4
P╖ ▀О	Й╢w ЛА_ьАCэ└М
Й%Ў╖ ▐5БЎ   Ў   Ё ■ ё  4
P╖ ▀╠X¤y╜╠Д¤y┐O_¤y┴O_¤y├¤y┼O_¤y╟¤y╔№y┴єy╜єy├єy╔
№y┴єy┐єy┼єy╟ж─зДМw@%╖ ▐5Б№y╔├(¤y╔№y╟├
¤y╟Г%╛№y┼├¤y┼№y├├
¤y├Г(%Ю№y┴├
@¤y┴ Лy╜y┐y┴y├y┼y╟y╔ y                э*	                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╜й(╜№╜GWHAT TYPE OF MONITOR ARE YOU
USING WITH YOUR COCO 3?
1. MONOCHROME MONITOR, OR
   BLACK AND WHITE TELEVISION
2. COLOR TELEVISION, OR
   COLOR MONITOR
3. RGB MONITOR

WHICH ONE (1-3)? cЯИнЯа'·А1Б"Ї╖P╖ ▐	Ж @ыm╜й(╜Щ╜1╬опОЯИ╜№~t╜G    C64 DOODLE PICTURE CONVERTOR
         FOR THE COCO 3
    WRITTEN BY ERIK GAVRILUK
  ===========================

9╜G  LOAD A COMMODORE 64 PICTURE

        LOOK AT PICTURE

        RESTART PROGRAM

         EXIT TO BASIC
ЮИЖ`зАзАМ&ў╢ Д
'∙О"`0&№╢  ■Д
'∙нЯа
╢
[DDDD╜R╢ Д
' нЯа
╢
[DDDD▒m'щ4╢mН$5╖mН ┘╢ Д
'∙╞	╜RZ&ў╢mHОnnЦ4╢m╞@=├б
╞жДИ@зАZ&ў5ЦЕэv╬ ╖ ▐qnЯ┐■О  ┐qОаЯИЖ`зАзАМ&ўГДЖЧъОЯьОЯю╬онЯ└ОmД'C+PьГDO&9ж
БD&3Ж нЯа4╞жАз└нЯаZ&їЖ нЯа|Г|Д╢ДБ&	ДЖ
нЯ ¤а50И М& пэ~│}Г&^╜G ERROR! NO C64 PICTURES ON DISK
    PRESS BUTTON TO CONTINUE @	ЖН~х╢ Д
&∙╢ Д
'∙9О╢ЯИ╜G =MENU= ╢ Д
&:╢ Д
'∙╛qМ╢&╜'~х╢t╞=├о
ЎsЖ=:ОU╞жАзаZ&∙╜'~GнЯа
╢
Z_Б%\А ўўs╢
[DDD╖tОа╢t'0И J&·ОDЎsце: №╢t╞=√sёГ$ О╢╝q' p4╛qН5┐qН~Ж╛q╞	НZ&°94╞жДИ@зАZ&ў5Ц
╜woО└ЯИО╢Ж`╞зАZ&√╜G
LOADING FILE "ОU╞жАнЯаZ&ўЖ"нЯаО╬N╜кз└0&ўО0Ж4╞(╜кзД╜кзИ(╜кзИP╜кзИx╜кзЙа╜кзЙ╚╜кзЙЁ╜кзЙ
0
Z&╚0Й
jф&╛2a╜№╜{╜╥ @	ЖPЖD╖ РЖА╖ ШЖ>k√╖ ЩОъ┐ ЭO╖ ░Ж?╖ ┐╬о╢ Д
&∙О"`0&№╢ Д
'Є~хрЖ╠╖ РО)О Ш╞жАзаZ&∙95жА'нЯа Ў12345678.DOD"7wОU╞О	LжАзаZ&∙0
╞жАзаZ&∙~Q╢ ;O╖ ╝}P&Ж?╖ ╜9Ж╖ ╜9
PXQО	L╜V0ьД¤3¤	Wь¤╛ж╖5╜6▌ь4ОЯю╜▒ОЯюЖЧьЖЧэ╜▒5▌ь╢5ОжЖ╖5О┐1pЖI╖и9Зкp4tй╢5Б└%╖й╛1жА┐14}й'$╢йА└4ЦэБ
%А	бр&Г│╛&Ж Чp М$55ЇОЯю┐1ЦэБ	'	Б'LЧэ ╢5╜6▌ь╜▒╢5Ожж╖5 ╠ЖЧъ╜▒ ├И6ЙD─
'╞
 ╞
Б$
9L9Б%
JH┴
%їL9Н
М&°╞4~u4o4╠▌ьZ╫ъОЯю╜▒Оmд+,'оф╞жАба&
Z&ў2b ─р
5я ─р1и М&╘э ╔2bО5янЯ└
Ё'Ь╞(~u▓└О	L╜VoДж
4ЖЧъ╜▒ЖЧэЧъОЯю╜▒5цЖ4╞ чЖ5Ш┴└%ЁЖЧъ╜▒
ъ9╜└О	L╜bМ&ЄЖO╖и╠▌ь╫ъОЯю╜▒
юэ╜▒Оmд+'1и М&ёэ╜▒ ц┐°▄ь¤·╜┘╖ў╖5Оoж╬ r╜6▌ьЖ
╖tЦъБ'О9ВuО┐rЯюЖЧъ╜▒
ъэ94vН5Ў╛rзА┐rМ&ъ╢tL╖tБ
&╠ОЯю┐rЖЧъ╜▒Ж
╖t
ъ╜┘Ў5Озеoж╖5╜6▌ь╜▒94tО╞DждБ '
1!Z&ї╞8~u Ш5Ї №╢иБI'╒}и'╨ОЯюЖЧъ▄ь╜▒╢tК└Ў5ОзеОЯю╠▌ь\╫ъ╜▒№·▌ьЖЧъОЯю╜▒╛°О	LжазАМ	Y&Ў╛°╢ўз
№rГэЖЧъ╜▒ЖЧъи9и~мFО0╬PP╖ ┘╖ ▀Ж╚╖╤Ж(╖╨жАН'Н%ч└Н!Нч└ННч└ННч└z╨&сz╤&╫╖ ╪╖ ▐9I4
Y5
4
Y5
4
Y5
Y9╢P'°ОББ
'ОСО ░╞	жазАZ&∙P╖ ▀╖ ┘╬PОк√PЖ╖╤Ж(╖╨жД4HHHHкрцА4TTTTър¤9Н3Dz╨&р3╔`z╤&╥╖ ▐╖ ╪94FЖ╖74@Ж╖8ж─ДЁН$4ж─ДНTTTTърч─3Az8&у5@3╔аz7&╤5╞&Ў9─Ё9Ў:─Ё9?:$&' /<0?$(	6&5)? 
√PЖ╖╤Ж(╖╨жД4HHHHкрцА4TTTTър¤9Н3Dz╨&р3╔`z╤&╥╖ ▐╖ ╪94FЖ╖74@Ж╖8ж─ДЁН$4ж─ДНTTTTърч─3Az8&у5@3╔аz7&╤5╞&Ў9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Documentation for C64PIX     12/13/86 
Requires: 128K Disk CoCo 3 & Joystick

C64PIX.BIN and this documentation file are
Copyright (C) 1986 by Erik Gavriluk.  You are free
to share these files with anyone you wish, but
they may not be distributed for profit without my
permission.  

C64PIX is a convertor program that allows you to
load and look at Commodore 64 "Doodle-Format"
pictures on the CoCo 3.  Please take note that the
CoCo 3 is REQUIRED in order to use this program. 
C64PIX makes use of the new 320 x 200 16 color
mode of the CoCo 3, and thus can emulate EXACTLY
the graphics of the Commodore 64.  If you don't
have a CoCo 3, I suggest that you look for
"C642COCO", a program written by Marty Goodman,
Art Flexser and I that will allow you to view C64
pictures in monochrome on a standard CoCo.

C64PIX.BIN is an update of sorts to C642COCO. 
This version was written from scratch, totally in
ML, and now shows pictures in full-color.  Before
you can use this program, however, you will need
some Commodore "Doodle-Format" pictures.  Check
out the Micro Artist's SIG on Delphi and on C64
BBSes for pictures.  Save pictures that you
download to disk with an extension of "/DOD" and a
binary filetype.  Now LOADM"C64PIX" and EXEC it.

You will see a question asking you which type of
monitor you are using.  Answer this question by
typing 1, 2, or 3, and you will then see the main
menu.  All menu and filename prompts are "point
and pick" - simply move the right joystick until
the desired selection is inverted and then press
the joystick button.

The main menu options are:

LOAD A C64 FILE - brings up a list of /DOD files. 
Select the file you wish to view, and C64PIX will
load the picture off of disk and put it on the
screen for you to view.  Press the button to
return to the main menu.

VIEW THE PICTURE - allows you to display the
current picture in memory.

RESTART PROGRAM - allows you to set your monitor
type in case you screwed it up the first time
around.

EXIT TO BASIC - returns you to DECB.

                             *  *  *

I originally wrote this program several weeks ago
and gave it to a few friends to check for errors. 
They couldn't find any, so I am now sharing the
program with the rest of you.  I just reassembled
the program to put a final touch on it, and was
somewhat shocked to find that it amounted to well
over 1000 lines of source code.  Please drop a
line and tell me what you think of this program. 
A few shyly muttered thank you's is all I can hope
to receive for this little diddy.

-- Erik Gavriluk  (ERIKGAV)



ines of source code.  Please drop a
line and tell me what you think of this program. 
A few shyly muttered thank you's is all                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ▐╬? ╢┴BБ0'О╩┐╓О╩┐╙╜й(╜МMICRO WORKS' 128 X 128 16-LEVEL
PICTURE DISPLAY UTILITY

(C) 1987 BY ERIK GAVRILUK
ALL RIGHTS RESERVED

[BREAK] TO EXIT, OR TYPE THE
INPUT FILENAME:╜гУ$■▐nЯ ■╠PI¤	TЖX╖	V╜:╜М
PRESS THE RIGHT JOYSTICK BUTTON
WHEN YOU A  RE DONE VIEWING.╖ ▐╜╥Ж4╖ О@╖ ▀╠эБэБэБэБМр%єО@╬р╖ ▐╜бvз└Г`&ї╖ ▀╬рОв4ж─ц╚@CSDDDDTTTTжжце4TTTTДЁ4крзД5HHHH─4крзИ@0ЙАж└ц╚?CSД─жжце4TTTTДЁ4крзД5HHHH─4крзИ@0ЙАГ`& Ф50
М@@% l╖ ▐╜д- @	ЖЖD╖ РЖА╖ ШЖ1╖ ЩО▓О┬╬ ░ж─зажАз└Г └&ЄЖ╞─■=├ш¤ Э╢ Д
&∙О┬╬ ░жАз└Г └&ЎЖ╠╖ РОЪО ШжАзаМв&ўЖ5╖ ~О	LЖ зАМ	T&∙О▌╬	L╞жА&
9Б.'&Б/'"Б:'з└Z&ъжАБ.'Б/'Б:&ржАА0Б"╪Чы9╞╬	TжА'Ўз└Z&ў95жА'нЯа Ўр
AUYiЦjкл╛ы┐ 8?&$:(/<'4?╥~╔Y~╔VnЯа Г └&ЄЖ╞─■=├ш¤ Э╢ Д
&∙О┬╬ ░жАз└Г └&ЎЖ╠╖ РОЪО ШжАзаМв&ўЖ5╖ ~О	LЖ зАМ	T&∙О▌╬	L╞жА&
9Б.'&Б/'"Б:'з└Z&ъжАБ.'Б/'Б:&ржАА0Б"╪Чы9╞╬	TжА'Ўз└Z&ў95жА'нЯа Ўр
AUYiЦjкл╛ы┐ 8?&$:(/<'4?╥~╔Y~╔VnЯа                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   п╬? ╢┴BБ0'О╩┐зО╩┐д╜й(╜]MICRO WORKS' 256 X 256 16-LEVEL
PICTURE DISPLAY UTILITY

(C) 1987 BY ERIK GAVRILUK
ALL RIGHTS RESERVED

[BREAK] TO EXIT, OR TYPE THE
INPUT FILENAME:╜гУ$■пnЯ ■╠PI¤	TЖX╖	V╜╜]
PRESS THE RIGHT JOYSTICK BUTTON
WHEN YOU A  RE DONE VIEWING.╖ ▐╜гЖ4╖ О@╖ ▀╠эБэБэБэБМр%єО@╬▒╖ ▐╜бvз└Г▒&ї╖ ▀╬▒Оs4ж└ц╚CSDDDDTTTTжжце4TTTTДЁ4крзД5HHHH─4крзЙа0Й
@Г1& ├50
М@Р# Ы╖ ▐╜д- @	ЖЖD╖ РЖА╖ ШЖ=╖ ЩОГОУ╬ ░ж─зажАз└Г └&ЄЖ╞=├ш¤ Э╢ Д
&∙ОУ╬ ░жАз└Г └&ЎЖ╠╖ РОkО ШжАзаХ■Мs&ўЖ5╖ ~О	LЖ зАМ	T&∙О▌╬	L╞жА&
9Б.'&Б/'"Б:'з└Z&ъжАБ.'Б/'Б:&ржАА0Б"╪Чы9╞╬	TжА'Ўз└Z&ў95жА'нЯа Ўр
AUYiЦjкл╛ы┐ 8?&$:(/<'4?г~╔Y~╔VnЯа О ШжАзаХ■Мs&ўЖ5╖ ~О	LЖ зАМ	T&∙О▌╬	L╞жА&
9Б.'&Б/'"Б:'з└Z&ъжАБ.'Б/'Б:&ржАА0Б"╪Чы9╞╬	TжА'Ўз└Z&ў95жА'нЯа Ўр
AUYiЦjкл╛ы┐ 8?&$:(/<'4?г~╔Y~╔VnЯа                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╓╬¤ОЖМ╞ зАZ&√М'ЛБ&ю ъО#ООНYОcОкНPОжО┼НGОИО█Н>О╔ОьН5ОжДБВ%
ЛБ&ЖМзД0
М&щО@0М&∙Ж
┤ &╒Ж
┤ '∙ъжА'
БA%А@за Є9COMPRESSED TINY FILE VIEWER(C) 1987 THE SOFTWARE ZONEWRITTEN BY VIC RICKERSPECIAL THANX TOKEN FREDERICK╢)BИ
╖)B╞	=О8О■0ЕжА'за ° :нЯа
╢
ZDDDDБ&Ж╖)О,ЯИО╞	=1ежа'нЯа ЎЖ
┤ &═Ж
┤ '∙- 2})') ёЖ╖) ъ╛└╠эД╠О╓эпнЯ└1й
\┴&юЖ
┤ '∙ОxЯИОО▄Н4О@Ж`зАМ&∙ОBО╓mд'ж(БT&ж)БN&ж*БY'1и М╓&с 8жа'
Б@%А@зА Є940╞жаБa%А` Б?"Л@зАZ&ы500И М%├0Й■J ╜О┐JРнЯа
Ж
┤ '7╢
Z╞Б#╞Б($╞О╓оЕ╢
[DD╞ =0Л╝J'╨4╛JX5┐JP ╛Ж
┤ '∙╛JМ' М,'■лМ'■уМ6'■╫М"'■xМ&q~а'╛JЖ бД' |	
╖■ц╞жДБ?"Л@ А@зАZ&я9╞0О%ВжАБ`%А@ Б@$Л`заZ&ы9А╓  DIR       SQUEEZE   QUIT        RGB       MODE      VIEW      320X200 640X200 640X400 RGB     CMP     *X╬%В╛└О╓_ж┼бе&\┴&їж-5	_1и М╓%уєчн%В        TNYО╓╬(/з└жжБ└%°Ж з─╠ @ ┘D╢А╖)RU5╢АОА%┐)>ЖP╖TОА┐PОА!оБ┐LОА% 0Л┐N╛)>жА'8Б
'БА%KЖ аL■Nо┴НRJ&° N ▀юБ4@■Nо┴ N5@Н93_Г&щ ─юБ4@■Nо┴ N5@Н3_Г&Ў й4@■Nо┴ N5@НJ&√ Х4B■P╢RВп─О3╔аLБ╚'╖R P|5┬OzT'!3╔ГГАа,R P ▌╬АЎU\\ўU3┼ щ5RN╬)CО)(ОА
╞жаДD╖)ждД`IIII╖)жаДD╖)Ov)Fv)Fv)Fv)Fv)Fv)FDDзАZ&┼╢)'?Б'О
чОАьДо¤В┐Д╬В_ЖiBiЕi─iЕJ&ї\┴'┴&ъ3A ц0М■%╧ U
оОАьДою¤В┐Д Жь¤И╬ВЖ╖(o_Жi╞iЕJJБ,Ў╢(oi╞iЕJJБ,Ў\┴'┴%▐Ж╖(o ┘0М■%▒
}О)(О ░╬)C╞жа})B'ж╞зАZ&Є╢)О)8жж╖ ЩЖ└╖ Э ЮЖD╖ РЖА║)╖ Ш╢)Б'DЖ
┤ '∙Ж
┤ &∙Ж
┤ '∙Ж ╖ РЖр╖ ЭЖА╖ ЮЖ
╖ ШЖБ╖ ЩО)О ░╞юбяБZ&∙ ╪ш~О└нЯа
╢
[╞=Го"1л┐ ЭЖ
┤ &▀ а╣(oОА┐(▌О(/жаБ ')Б"%LLН"d4 ╛(▌╬Вь┴эбГ%В%Ў┐(▌\5  ╤94 ╞	ў(▄_DY4Ж	=\5╬ВОпДяэнЯ└3╔
\z(▄&ч5а4P╠01¤ д╠23¤ ж5Ж4P╠67¤ д╠:;¤ ж5Ж4╠<=¤ д╠>?¤ ж5Ж6	$?-&?&K)8>=t>=tА%
<
<<  /
.+;$ =$0	$ (&:9-'*57!/!44$2
;¤ ж5Ж 
 ╤94 ╞	ў(▄_DY4Ж	=\5╬ВОпДяэнЯ└3╔
\z(▄&ч5а4P╠01¤ д╠23¤ ж5Ж4P╠67¤ д╠:;¤ ж5Ж4╠<=¤ д╠>?¤ ж5Ж6	$?-&?&                                                                                                                                                                                                                                                                                          Atari TINY file viewer


    This program displays Atari 520st low, medium, and high resolution TINY pix
on the COCO 3.  Since high resolution pix are 640x400, they are displayed on a
640x225 screen and can be scrolled up and down with the joystick.  The SQUEEZE
mode can be used to make the picture look a little less stretched.  Everything
else is pretty much self explanatory.

    Unfortunately, color cycling in not supported.

Direct comments, questions, or donations to:

Jackripper (on Delphi) or

 The Software Zone 
 % Vic Ricker 
 511 Spruce St. 
 Hollidaysburg, PA 16648

Phone: (814) 695-2792

Enjoy!
o:

Jackripper (on Delphi) or

 The Software Zone 
 % Vic Ricker 
 511 Spruce St. 
 Hollidaysburg, PA 16648

Phone: (814) 695-2792

Enjoy!
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ATARI KOALA FILE DECOMPRESSOR



     This program will uncompress and display 160x192 Atari koala files on the
PMODE 4 screen. Since the PMODE 4 screen is only 128 columns wide (with artifact
colors) a windowing routine allows you to view the entire picture by using the
right joystick to move left and right over the picture.
     Like the COCO 3, the Atari can select from a large palette of colors. Since
the older COCO's can only display RED, WHITE, BLUE, and BLACK, the picture will
probably have the wrong colors. Use the INVERT and SWAP functions to change the
colors to make the picture more acceptable. INVERT switches white and black and
red and blue. SWAP switches the artifact colors (red and blue).
     The PRINT function will dump the entire picture to almost any 80 column
graphics printer with a 7 pin print head. Use the SETUP program to customize the
program for your printer by entering the control codes that turn your printer's
graphics on and off. If your printer uses a non-standard buad rate (other than
600) poke it in before executing the program.
     Upon execution the program will display the directory of all the Koala
files on the disk. The Koala files are identified by the extension PIC. If your
files have a different extension, they won't show up on the screen so rename
them to PIC.
     The DIR function will re-read the directory. If you want to swap disks,
just put the new disk in the drive and select the DIR function. The list of PIC
files on the new disk will be displayed on the screen.
     This program may be distributed freely, but may not be offered for profit
without permission from the authors. Send questions, comments, or donations to:

                the Software Zone
                % Vic Ricker
                511 Spruce st.
                Hollidaysburg, PA 16648

or leave a message to JACKRIPPER on DELPHI.

ut permission from the authors. Send questions, comments, or donations to:

                the Software Zone
                % Vic Ricker
                                                                                                                                                                                                                                                                            АlОЖМ╞ зАZ&√М'ЛБ&ю ъО#ОlЦНbОcОl▒НYО╦Оl╠НPООl╫НGОИОlяН>О╔ОmН5ОжДБВ%
ЛБ&ЖМзД0
М&щО@0М&∙Ж
┤ &╒Ж
┤ 'АlГ∙ТжА'
БA%А@за Є9ATARI KOALA FILE CONVERTER(C) 1987 THE SOFTWARE ZONEWRITTEN BYVIC RICKER & BILL SMITHSPECIAL THANX TOSHAАmNE EDMISTONЖ
┤ '∙
~╛└╠эД╠ОojэпнЯ└1й
\┴&юЖ
┤ '∙╜й(ОxЯИООxpН(ОBОojmд'ж(БP&ж)БI&ж*БC'1и Мxj&с 0жа'
Б@%ААmГ@зА Є940╞жаБ@"Л@зАZ&є500И М%╦0Й■J ┼О┐x▒
гнЯа
Ж
┤ '7╢
Z╞Б#╞Б($╞ОxjоЕ╢
[DD╞ =0Л╝x▒'╨4╛x▒
k5┐x▒
c ╛╛x▒М' МАn'АМ"'║М,'ЛМ6'■ЇМ&
9Юж4╛x▒Ж бД'Е
%╛x▒Оx╝╞жАБ`&Ж заZ&єОx│ЯжжД■╜н╞ooО,

p&╜бvзА єОx╦ЯжжД■╜н╞ @p5Яж
PЖ
┤ АnГ'∙ОLcАМl&∙Ж
┤ '∙04
┬ОLЖ└╖yядД'▒yя'╢yяиДзД╢yяDD&ц0
Мl&▌ ╨Ж■ЧoЖ ╞
нЯаZ&∙ЖнЯаОLО
@╞АўyчЖ╖yёOфД'
F0И(Ўyчzyё&юDCКgoАнЯаT'0Й■ш1? ╥0Й■щ1?М&*О
@Ж
нЯаЖнЯа╞
Ж нЯаZ&∙ЖнЯа0Й
Мk$ ШЖнЯаo¤ф╞жДБ?"Л@ А@зАZ&я9Rxj  DIR       INVERT    QUIT        PRINT     SWAP      VIEW      Щ"I",#1,"Аx─.PIC"Ъ#1°╢,J╖yЎО,ОL┐yъ╞└ўyшyщцА'┴Б%└АжАНZ&∙ эжАНZ&√ фюБжАН
3_Г&Ў ╘}yЎ&зд1иPzyшzyш'
9заМl'.94╞└ўyш5}yщ'syАyDщ╛yъ1!МL*'┐yъ9syщ╛yъ1и(9P yь ┘нЯа
Ж
┤ '4╢
ZDDD▒yю'ъ╖yю╬╬L3╞╞о┴о┴пспсZ&є3HМ&%щ■yь ┴■yь5 ╔ ╞ ╩ └ ┬ ─ ╪3y─ "єpЖ°╖ "Ж
 ┘╖ ┼╖ ├╖ └╖ ╟╖ ╔╖ ╦9yy+ l фюБжАН
3_Г&Ў ╘}yЎ&зд1иPzyшzyш'
9заМl'.94╞└ўyш5}yщ'syАyDщ╛yъ1!МL*'┐yъ9syщ╛yъ1и(9P yь ┘нЯа
Ж
┤ '4╢
ZDDD▒yю'ъ╖yю╬╬L3╞╞о┴о┴пспсZ&є3HМ&%щ■yь ┴■yь5 ╔ ╞ ╩ └ ┬ ─ ╪3y─ "єpЖ°╖ "Ж
 ┘                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                АqHЖ4╖ ╬яН
еoН
кOзН
азН
ЭзН
ЮзН
Ы ?4vО  0М&∙О аЖ8зLз
нЯа
╢
ZзН
q╢
[зН
k╢ зН
e5v╛╬яН
SoН
XО аЖ0зLз
ОN жН
C0ЖцН
<┴'0И@Аq╚Z ЎпН
,╞
чН
+цчН
&─ЁTT1Н╓1ежаз@жаз╚Pжаз╔аждз╔Ё3╔
@цН ─XX1Нп1ежаз@жаз╚Pжаз╔аждз╔Ё3╔
@цН╫┴'
\чН╬0
 ЮlН╟жН├БP' &оНАrH▓0И@пНлюНе3AяНЯ r_жНЭБ~'AБ■';жНЛБ/#Ж/зНБбНГ'\зН|жНsБ'#Ж'зНiбНk'\зНd┴'■┼■ЎО аЖ8зLз
Ж5╖ 9    w   ww  www1r╚ wwww3www33ww333w3333333333 
БP' &оНАrH▓0И@пНлюНе3AяНЯ r_жНЭБ~'AБ■';жНЛБ/#Ж/зНБбНГ'\зН|жНsБ'#Ж'зНiбНk'\зНd┴'■┼■ЎО аЖ8зLз
Ж5╖ 9    w   ww  www1r╚ wwww3www33ww333w3333333333                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Аu0Аu╪Ж╞Оu0Оu░пб:J&·КОN 4 ОА4Н`5цд47Н571и@0&ё5 1!МN`&▄Нw9╬u░4─ЁTTTо┼╞Оu╨жАHHHHзаZ&ї5─Xо┼╞Оu╨жАкдзаZ&ў╞Оu╨жАнЯаZ&ўJvX9╞■╫oЖнЯаЖLнЯаЖнЯаЖнЯа9╞■╫oЖнЯаЖAнЯаЖнЯа9ЖнЯаЖнЯаЖ@нЯаo9 
Аu╪Ж╞Оu0Оu░пб:J&·КОN 4 ОА4Н`5цд47Н571и@0&ё5 1!МN`&▄Нw9╬u░4─ЁTTTо┼╞Оu╨жАHHHHзаZ&ї5─Xо┼╞Оu╨жАкдзаZ&ў╞Оu                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   VIEW16C3/BAS A PROGRAM FOR LOADING,
   VIEWING, AND PRINTING DS-69 16 LEVEL
   DIGITIZED PICTURES ON THE TRS-80 COCO 3.
   THIS PROGRAM AND ITS ACCOMPNYING FILES
   ARE ONLY GOOD FOR THE COCO 3 WITH 128K
   OF RAM.  A PATCH WILL BE COMING IN A DAY
   OR SO TO MAKE THIS PROGRAM RUN ON A 512K
   COCO 3.
 
VIEW16C3/BAS IS A REVISED VERSION
OF THE PRINT16/BAS PROGRAM THAT WAS EARLIER UPLOADED BY GRAPHICSPUB
 
 
THE ORIGINAL PRINT16/BAS WAS ONLY GOOD FOR PRINTING THE 16 LEVEL
PIX ON AN EPSON OR GEMINI PRINTER.  WELL THE VIEW16C3/BAS WILL ALSO PRINT
PIX ON THOSE BRAND OF PRINTERS BUT IT ILL ALSO ALLOW A USER TO
VIEW A 16 LEVEL 128X128 DS-69 DIGITIZED PIX ON THEIR COCO 3'S
HSCREEN 3 640X192 HI-RES GRAPHICS SCREEN.  THE PICUTRE CAN BE
SCROLLED AROUND WITH THE RIGHT JOYSTICK.  YOU EXIT THE VIEW MODE
BY HITTING THE RIGHT JOYSTICKS FIRE BUTTON.  THE PIX YOU SEE
IS JUST AS IT WILL BE PRINTED ON YOUR PRINTER.  ON A TV THERE
MAY BE SOME ARTIFACING WHEN THE PIX IS DISPLAYED.  THE PIX WILL
BE SHOWN IN PURE LIGHT/DARK ON AN RGB MONITOR OR MONOCHROME
MONITOR.
 
 
SOME INFO ON THIS PROGRAM...THE VIEW16C3/BAS AND SHOW16C3/BIN PARTS WERE WRITTEN BY
GRAPHICSPUB(BOB MONTOWSKI) AND THE PRINT16/BIN PART WAS WRITTEN BY DRIFTER(WAYNE SUNDSTROM).
THE 3 PROGRAMS ARE ALL PUT TOGETHER BECAUSE THEY REALLY SHINE TOGETHER AND ARE ONLY SO-SO WHEN
APART.
 
 
ALL DS-69 128X128 16 LEVEL DIGITIZED PIX ARE 8192 BYTES LONG.  THESE PIX ARE BINARY DATA FILES
AND SHOULD >>>NOT<<< BE SAVED TO DISK AS ASCII FILES AS THIS WILL STRIP THE 8TH BIT OFF EACH
BYTE AND SCREW UP THE FINAL PICTURE.
 
 
IT WILL TAKE ABOUT 2 MINUTES TO LOAD A 128X128 PICTURE INTO MEMORY THRU THE VIEW16C3/BAS PROGRAM.
YOU CAN SPEED THIS UP BY SAVING THE PICTURE BACK OUT TO DISK WITH A DIFFERENT NAME AND AS A
MODIFIED FILE.  ALL THIS MEANS IS THE MEMORY FROM 20,000 TO 28,192 WILL BE SAVEM-ED OUT TO DISK
AS IF IT WERE A BINARY PROGRAM.  THE NEXT TIME YOU GO TO LOAD THIS PICTURE IT WILL LOAD IN 2
SECONDS INSTEAD OF THE 2 MINUTES IT WOULD NORMALLY TAKE.  A MODIFIED PICTURE IS NO LONGER
COMPATIBLE WITH THE ORIGINAL DS-69 SOFTWARE!!!!
 
 
CHECK LINE 499 IN THE PROGRAM FOR THE POKES YOU NEED TO SET THE PRINTER UP FOR THE BAUD RATE
YOU NORMALLY USE...IT IS NOW SETUP FOR 2400 BAUD...WHEN A PICTURE IS DONE PRINTING IT WILL SPACE
UP SO THE NEXT PICTURE CAN BE PRINTED ON A CLEAN SHEET OF PAPER.
POKE ARE DONE WITHIN VIEW16C3/BAS TO SPEED UP THE COCO 3.
BEFORE ANY PRINTING IS DONE THE COCO IS SLOWED BACK DOWN AGAIN
AND IT IS SPEEDED BACK UP AGAIN AFTER THE PRINTING IS DONE.
IF YOU MODIFY THIS ASPECT OF THE PROGRAM, BE SURE YOU SET YOUR
PRINTER TO DOUBLE THE SPEED THAT YOU HAVE IN THE VIEW16C3/BAS
BUAD BALUE.  IF THE BAUD IS SET TO 2400 IN VIEW16C3/BAS AND THE
COCO 3 IS RUNNING AT DOUBLE SPEED, BE SURE THE PRINTER INTERFACE
IS SETUP FOR 4800 BAUD!!!!
 
DO NOT TRY TO DO DOUBLE SPEED DISK I/O UNLESS YOU HAVE INSTALLED
STEVE BJORK'S DFIX/BAS PROGRAM >>>BEFORE<<< YOU START
VIEW16C3/BAS UP.  DISK I/O IS NOT RELIABLE AT DOUBLE SPPED WITH
OUT STEVE BJORK'S FIX!!!!
 
 
TO AVOID CONFUSION...SAVE NORMAL 16 LEVEL PIX TO DISK AFTER DOWNLOADING WITH AN /EXT OF /HRS...
AND SAVE MODIFIED FILES BACK TO DISK WITH AN EXTENSION OF /HRB.
 
 
ONCE A PICTURE IS LOADED INTO MEMROY IT CAN BE VIEWED, PRINTED, AND SAVED OUT AGAIN AS MANY TIMES
AS YOU WANT...
 
 
ANY QUESTIONS ON THIS PRORAM CAN BE DIRECTED TO:
BOB MONTOWSKI
B-18 1151 STERIGERE ST.
NORRISTOWN, PA.  19403
215-277-6951
OR AS EMAIL TO:
GRAPHICSPUB OR
DRIFTER.
 
HOPE YOU LIKE THE PROGRAMS AND THE PICTURES.
 
 OUT AGAIN AS MANY TIMES
AS YOU WANT...
 
 
ANY QUESTIONS ON                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &!
:Г DS-69 128 X 128 16 LEVEL&@:Г PICTURE VIEW & PRINT...&}:Г FOR THE COCO 3'S 640X192      ' 2 COLOR HI-RES SCREEN&Д:Г&Щ(:Г BOB MONTOWSKI&╕2:Г B-18 1151 STERIGERE ST.&╓<:Г NORRISTOWN, PA.  19403&ўF:Г DELPHI NAME-(GRAPHICSPUB)'P:Г CIS #-71615,531'oZ:Г 215-277-6951                  ' PRINT16/BIN WRITTEN BY        ' WAYNE SUNDSTROM (DRIFTER)'Оd:Г THIS PROGRAM WILL PRINT'пn:Г OUT A 16 LEVEL GREY SCALE'╧x:Г 128 X 128 PICTURE ON ANY'яВ:Г GEMINI OR EPSON PRINTER.'ЎМ:Г(8Ц:Г SHOW16C3/BIN EXECS @ 29000    ' PRINT16/BIN EXECS AT 30168(?а:Г(╥к:Г SHOW16C3/BIN WILL ALLOW       ' YOU TO VIEW 16 LEVEL PIX      ' THAT HAVE BEEN LOADED INTO    ' MEMORY WITHOUT HAVING TO      ' PRINT THEM.)n┤:Г USE THE RIGHT JOYSTICK TO     ' SCROLL THE PIX AROUND ON      ' YOUR HSCREEN 3 SCREEN AND     ' HIT THE FIRE BUTTON TO        ' EXIT THIS VIEW MODE.)u╛:Г)|╚:Г)Г╥:Г)е▄:Г ALL PICTURES THAT I UPLOAD)╚ц:Г TO THIS SYSTEM WILL HAVE AN)фЁ:Г AN EXTENSION OF .HRS*·:Г WHEN YOU DOWNLOAD THE FILES*'
:Г SAVE THEM TO DISK AS BIN*<
:Г DATA FILES!!!*C
:Г*f
":Г THE PICTURE WILL BE PRINTED*З
,:Г ON YOUR PRINTER AS 64 DOT*Ю
6:Г MATRIX LINES...*е
@:Г*м
J:Г*│
T:Г*├
^Х 200,20000*Є
cЮ:З"LOADING SHOW16C3/BIN":╙M"SHOW16C3/BIN"+
dЗ"LOADING PRINT16/BIN":╙M"PRINT16/BIN"+h
hЮ 5:З"TURN YOUR EPSON/GEMINI PRINTER  ON...":З"HIT (ENTER) WHEN READY"+z
rЕ  Т│"" з 370+Б
s:Г+И
t:Г+П
u:Г,k
|Ю:З" >16 LEVEL VIEW/PRINT FOR CC3<":З@32,"1.load 16 level (data)";:З@64,"2.loadm 16 level (bin/prgm)";:З@96,"3.view 16 level picture";:З@128,"4.savem 16 level (bin/prgm)";:З@160,"5.print 16 level";:З@192,"6.help inf,Я
~З@224,"7.dir of disk";:З@256,"8.exit to basic";-C
З:З:З"THIS PROGRAM IS FOR VIEWING":З"OR PRINTING DS-69 16 LEVEL":З"128X128 DIGITIZED PICTURES":З"PROGRAM WRITTEN BY GRAPHICSPUB":З"                  & DRIFTER"-Z
АA$│ Т:Е A$│""з 384-y
БA│ Й(A$):Е A┤1 ▒ A▓8 з 384-е
ЖИ A Бе 700,890,650,900,499,400,450,1000-╢
РЮ:А I│1 е 32-┐
ТН A$-╥
ФА Z│1 е  З(A$)-ф
ЦЗ  Р(A$,Z,1);-Ї
ША Q│1е55:ЛQ.
ЪЛ Z:З:а 100,1.
ЬЛ I:П.(
ЭЕ  Т│""з 413 :Д 380.K
┬Ю:З"GIVE DRIVE # FOR DIR";:Й N.a
├Е N┤0 ▒ N▓3 з 450.i
─╬ N.И
╟З"HIT ANY KEY TO CONTINUE".а
╚Е  Т│""з 456 :Д 380.╣
єТ 150,18 :Г2400 BAUD/
ЇЮ:З"PREPARE YOUR PRINTER..":З"BE SURE YOU EDITED LINE 499 FOR":З"YOUR PRINTER BAUD RATE"/5
ЎЗ"HIT ANY KEY TO CONTINUE"/F
°Е  Т│""з 504/R
·в 30168/]
№Бе 380/ьКЮ:З"USE THE RIGHT JOYSTICK TO MOVE":З"THE PICTURE AROUND THE 640X192":З"HSCREEN 3 FOR VIEWING":З"HIT THE FIRE BUTTON TO EXIT VIEW":З"MODE"0ФЗ"HIT ANY KEY TO CONTINUE"0ЦЕ  Т│""з 6620;Чф 3:у 0,0:у 1,63:Т 65497,00GШв 290000YЩф 0:Т 65496,00lЫа 100,5:Бе 3800╚╝Ю:З"GIVE NAME OF HI-RES DATA TO":З"LOAD...GIVE NAME AND EXTENSION":З"AND DRIVE #":╗Й N$0╪╛Т &HFF03,520ы╞Щ"D",#1,N$,1280 ╨╨ #1, 128  з A$1┌:Г1-4Ю0:З"READING PICTURE INTO MEMORY."1З>M│20000:А Q│1 е 64:─ #1,Q:Т 65497,0:АG│1 е 128:Т M, К( Р(A$,G,1)):M│Mл1:Л G:Т 65496,01СHЗ".";1┤RЛ Q:Ъ#1:Т &HFF03,53:З:а 200,101х\З"PICTURE LOADED":З"HIT ANY KEY TO CONTINUE"1№]Е  Т│""з861 :Д 3802f:Г2
p:Г2YzЮ:З"GIVE NAME OF HI-RES BINARY FILE":З"TO LOAD...GIVE NAME/EXT:DRV#":╗Й N$2c|╙M N$2Э}З"PICTURE LOADED":З"HIT ANY KEY TO CONTINUE":а 200,102╡~Е  Т│""з 894 :Д 3803ДЮ:З"GIVE NAME OF HI-RES BINARY FILE":З"TO SAVE...GIVE NAME/EXT:DRV#":╗Й N$3 О╪M N$,20000,28192,409993SРЗ"PICTURE SAVED...":З"HIT ANY KEY TO CONTINUE"3kТЕ  Т│""з 914 :Д 3803КвЖ"ALL 16 LEVEL 128 BY 128"3йгЖ"PIX ARE 8192 BYTES LONG"3▓дЖ" "3╤еЖ"NORMAL 16 LEVEL PIX ARE"3южЖ"BINARY DATA FILES AND"4зЖ"WILL LOAD SLOWLY UNDER"4(иЖ"BASIC...YOU CAN MAKE"4GйЖ"MODIFIED PIX FILES THAT"4bкЖ"WILL LOADM LIKE M/L"4АлЖ"PROGRAMS AND WILL ONLY"4амЖ"TAKE 1-2 SECONDS TO LOAD"4┴нЖ"COMPARED TO THE 2 MINUTES"4тоЖ"IT TAKES THE NORMAL FILES"4єпЖ"TO LOAD...4№░Ж" "5"▒Ж"USE /HRS FOR A NORMAL PIX FILE"5F▓Ж"AND /HRB FOR A MODIFIED FILE"5j│Ж"AFTER YOU LOAD A NORMAL FILE"5Р┤Ж"SAVE IT OUT AS A MODIFIED FILE"5╡╡Ж"FOR QUICKER LOADING NEXT TIME"5╛╢Ж" "5ф╖Ж"AFTER A PICTURE IS LOADED INTO"6╕Ж"MEMORY IT CAN BE VIEWED OR"6*╣Ж"PRINTED AS MANY TIMES AS YOU"69║Ж"WISH..."6B╗Ж" "6c╝Ж"USE THE RIGHT JOYSTICK TO"6З╜Ж"TO SCROLL THE PIX AROUND THE"6з╛Ж"640X192 HSCREEN 3 SCREEN"6╬┐Ж"HIT THE FIRE BUTTON TO EXIT THE"6т└Ж"VIEW MODE..."7
┴Ж"HIT ANY KEY TO CONTINUE"7шТ 65496,0:К AS MANY TIMES AS YOU"69║Ж"WISH..."6B╗Ж" "6c╝Ж"USE THE RIGHT JOYSTICK TO"6З╜Ж"TO SCROLL THE PIX AROUND THE"6з╛Ж"640X192 HSCREEN 3 SCREEN"6╬┐Ж"HIT THE FIRE BUTTON TO EXIT THE"6т└Ж"VIEW MODE..."7
┴Ж"HIT ANY KEY TO CONTINUI have figured out a way to move the 16 level digitized pix over
to the Coco 3's 640 x 192 hi-res screen.  After the pix were moved
there, they were saved out to disk with STEVE BJORK'S DFIX.BASA
program that is in one of the CC3 directories.
 
It appears that all the pix are 7 Grans long...so they won't take
all that much time to download.  Save the pix to disk as BIN DATA
files when you are done downloading them.
All pix of this TYPE will have an extension of _CC3 and are only
meant to be viewed on a CoCo with STEVE BJORK'S DFIX.BASA
program installed.
 
Now that you have the pix...to view it...first load and run the DFIX.BASA
program.  Take the file it makes and LOADM it and exec it...now you are
ready to run the view.3.basa program...and it will ask you for the name
of the CC3 file to load.  Type a full name and /ext and the program will
begin to load the file...
 
All pix are in black and white...but due to the resolution of TV's the
pix may look to be black/white/shades of blue...on an RGB this should
not happen.  When done viewing the pix...jus hit the BREAK KEY to get
out of the view.3.basa program.
 
If there is enough interest...I will try to move more pix onver to the
CoCo 3...
Bob Montowski   Sysop of the Graphics Pub BBS
215-277-6951
300/1200 8,N,1 term
7pm to 7am EST
viewing the pix...jus hit the BREAK KEY to get
out of the view.3.basa program.
 
If there is enough interest...I will try to move more pix onver to the
CoCo 3...
Bob Montowski   Sysop of the Graphics Pub BBS
215-277-6951
300/1200 8,N,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 a&5
:ГTHIS PROGRAM AND PIX MADE BY   'BOB MONTOWSKI&И:ГB-18 1151 STERIGERE ST.        'NORRISTOWN, PA. 19403          '215-277-6951&╟:ГSYSOP OF THE GRAPHICS PUB BBS  '7PM TO 7AM AT ABOVE #...&ъ:Г300/1200 BAUD AND 8,N,1 TERM&ё:Г'U:ГALL THESE PIX WERE MADE WITH   'A DS-69 DIGITIZER AND THEN     'MOVED OVER TO THE COCO 3 WTTH'Х:ГSOME HOMEBREW SOFTWARE I       'WROTE...YOU MUST HAVE THE'Ї:ГDFIX PROGRAM BY STEVE BJORK    'IN MEMORY AND EXEC-ED BEFORE   'YOU CALL THIS PROGRAM...(V	:ГALL MY PIX HAVE BEEN SAVED TO  'DISK WITH THE DFIX PRORAM!!!   'AND THAT IS THE ONLY WAY TO(п
:ГGET THEM BACK INTO MEMROY...   'ALL THE PIX ARE 640X192 IN     'BLACK AND WHITE...(Є:ГON A COLOR TV. THE PIX MAY     'LOOK BLUISH...THIS IS NORMAL)у 0,63:у 1,0)6Ю:З"GIVE NAME OF CC3 16 LEVEL PIX":З"TO LOAD?")@(╗Й N$)L,ф 3:ц 0)V2╙S N$)`<Бе 60EM BACK INTO MEMROY...   'ALL THE PIX ARE 640X192 IN     'BLACK AND WHITE...(Є:ГON A COLOR TV. THE PIX MAY     'LOOK BLUISH...THIS IS NORMAL)у 0,63:у                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
This file must be called
"VIEW16.DOC" on your computer.

Ready... Press RETURN to
begin:
VIEW16/BAS IS A REVISED VERSION OF THE PRINT16/BAS PROGRAM THAT
WAS EARLIER UPLOADED BY GRAPHICSPUB.
 
 
THE ORIGINAL PRINT16/BAS WAS ONLY GOOD FOR PRINTING THE 16
LEVEL PIX ON AN EPSON OR GEMINI PRINTER.  WELL THE VIEW16/BAS
WILL ALSO PRINT PIX ON THOSE BRAND OF PRINTERS BUT IT WILL ALSO
ALLOW A USER TO VIEW A 16 LEVEL 128X128 DS-69 DIGITIZED PIX ON
THEIR PMODE 4 GRAPHICS SCREEN AND SCROLL THAT PICTURE AROUND
WITH THEIR ARROW KEYS.
 
 
SOME INFO ON THIS PROGRAM...THE VIEW16/BAS AND SHOW16/BIN PARTS
WERE WRITTEN BY GRAPHICSPUB (BOB MONTOWSKI) AND THE PRINT16/BIN
PART WAS WRITTEN BY DRIFTER (WAYNE SUNDSTROM).  THE 3 PROGRAMS
ARE ALL PUT TOGETHER BECAUSE THEY REALLY SHINE TOGETHER AND ARE
ONLY SO-SO WHEN APART.
 
 
ALL DS-69 128X128 16 LEVEL DIGITIZED PIX ARE 8192 BYTES LONG.
THESE PIX ARE BINARY DATA FILES AND SHOULD >>>NOT<<< BE SAVED
TO DISK AS ASCII FILES AS THIS WILL STRIP THE 8TH BIT OFF EACH
BYTE AND SCREW UP THE FINAL PICTURE.
 
 
IT WILL TAKE ABOUT 2 MINUTES TO LOAD A 128X128 PICTURE INTO
MEMORY THRU THE VIEW16/BAS PROGRAM. YOU CAN SPEED THIS UP BY
SAVING THE PICTURE BACK OUT TO DISK WITH A DIFFERENT NAME AND
AS A MODIFIED FILE.  ALL THIS MEANS IS THE MEMORY FROM 20,000
TO 28,192 WILL BE SAVEM-ED OUT TO DISK AS IF IT WERE A BINARY
PROGRAM.  THE NEXT TIME YOU GO TO LOAD THIS PICTURE IT WILL
LOAD IN 2 SECONDS INSTEAD OF THE 2 MINUTES IT WOULD NORMALLY
TAKE.  A MODIFIED PICTURE IS NO LONGER COMPATIBLE WITH THE
ORIGINAL DS-69 SOFTWARE!!!!
 
 
CHECK LINE 499 IN THE PROGRAM FOR THE POKES YOU NEED TO SET THE
PRINTER UP FOR THE BAUD RATE YOU NORMALLY USE...  IT IS NOW
SETUP FOR 2400 BAUD...WHEN A PICTURE IS DONE PRINTING IT WILL
SPACE UP SO THE NEXT PICTURE CAN BE PRINTED ON A CLEAN SHEET OF
PAPER.
 
 
TO AVOID CONFUSION...  SAVE NORMAL 16 LEVEL PIX TO DISK AFTER
DOWNLOADING WITH AN /EXT OF /HRS...  AND SAVE MODIFIED FILES
BACK TO DISK WITH AN EXTENSION OF /HRB.
 
WHEN VIEWING THE 16 LEVEL PIX ON YOUR PMODE 4 SCREEN YOU WILL
START IN THE UPPER LEFT HAND CORNER.  MOVE THE PICTURE AROUND
FOR TOTAL VIEWING WITH THE ARROW KEYS AND EXIT THE VIEW MODE
WITH THE (CLEAR) KEY...  WHEN YOU EXIT THE VIEW MODE THE LAST
THING YOU LOOKED AT IS >>STILL<< ON YOUR PMODE 4 SCREEN SO IT
IS POSSIBLE TO LATER SAVEM THIS PMODE 4 SCREEN TO DISK WITH:
SAVEM"PIX/BIN",&HE00,&H25FF,40999 AND THEN USE THIS PICTURE IN
ONE OF THE MANY FINE GRAPHICS EDITORS THAT ARE OUT ON THE
MARKET...
 
ONCE A PICTURE IS LOADED INTO MEMORY IT CAN BE VIEWED, PRINTED,
AND SAVED OUT AGAIN AS MANY TIMES AS YOU WANT.
 
 
ANY QUESTIONS ON THIS PRORAM CAN BE DIRECTED TO:
 BOB MONTOWSKI
 B-18 1151 STERIGERE
 ST. NORRISTOWN, PA.  19403
 215-277-6951
 
OR AS EMAIL TO:
 GRAPHICSPUB OR
 DRIFTER.
 
HOPE YOU LIKE THE PROGRAMS AND THE PICTURES.
 AGAIN AS MANY TIMES AS YOU WANT.
 
 
ANY QUESTIONS ON THIS PRORAM CAN BE DIRECTED TO:
 BOB MONTOWSKI
 B-18 1151 STERIGERE
 ST. NORRISTOWN, PA.  19403
 215-277-6951
 
OR AS EMAIL TO:
 GRAPHICSPUB OR
 DRIFTER.
 
HOPE YOU LIKE THE PROGRAMS AND THE PICT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 А&!
:Г DS-69 128 X 128 16 LEVEL&@:Г PICTURE VIEW & PRINT...&G:Г&\(:Г BOB MONTOWSKI&{2:Г B-18 1151 STERIGERE ST.&Щ<:Г NORRISTOWN, PA.  19403&║F:Г DELPHI NAME-(GRAPHICSPUB)&╤P:Г CIS #-71615,531'2Z:Г 215-277-6951                  ' PRINT16/BIN WRITTEN BY        ' WAYNE SUNDSTROM (DRIFTER)'Qd:Г THIS PROGRAM WILL PRINT'rn:Г OUT A 16 LEVEL GREY SCALE'Тx:Г 128 X 128 PICTURE ON ANY'▓В:Г GEMINI OR EPSON PRINTER.'╣М:Г'√Ц:Г SHOW16/BIN EXECS AT 29000     ' PRINT16/BIN EXECS AT 30168(а:Г(]к:ГSHOW16/BIN WILL ALLOW YOU TO   'VIEW 16 LEVEL PIX WITHOUT      'HAVING TO PRINT THEM(▓┤:ГUSE THE ARROW KEYS TO SCROLL   'THE PICTURE AROUND ON YOUR     'PMODE 4 SCREEN(Ї╛:ГUSE THE CLEAR KEY TO EXIT      'VIEWING OF THE 16 LEVEL PIX(√╚:Г)╥:Г)$▄:Г ALL PICTURES THAT I UPLOAD)Gц:Г TO THIS SYSTEM WILL HAVE AN)cЁ:Г AN EXTENSION OF .HRS)Ж·:Г WHEN YOU DOWNLOAD THE FILES)ж
:Г SAVE THEM TO DISK AS BIN)╗
:Г DATA FILES!!!)┬
:Г)х
":Г THE PICTURE WILL BE PRINTED*
,:Г ON YOUR PRINTER AS 64 DOT*
6:Г MATRIX LINES...*$
@:Г*+
J:Г*2
T:Г*B
^Х 200,20000*m
cЮ:З"LOADING SHOW16/BIN":╙M"SHOW16/BIN"*Ш
dЗ"LOADING PRINT16/BIN":╙M"PRINT16/BIN"*у
hЮ 5:З"TURN YOUR EPSON/GEMINI PRINTER  ON...":З"HIT (ENTER) WHEN READY"*ї
rЕ  Т│"" з 370*№
s:Г+
t:Г+

u:Г+х
|Ю:З" >16 LEVEL VIEW/PRINT UTILITY<":З@32,"1.load 16 level (data)";:З@64,"2.loadm 16 level (binary)";:З@96,"3.view 16 level picture";:З@128,"4.savem 16 level (binary)";:З@160,"5.print 16 level";:З@192,"6.help info";,
~З@224,"7.dir of disk";:З@256,"8.exit to basic";,╜
З:З:З"THIS PROGRAM IS FOR VIEWING":З"OR PRINTING DS-69 16 LEVEL":З"128X128 DIGITIZED PICTURES":З"PROGRAM WRITTEN BY GRAPHICSPUB":З"                  & DRIFTER",╘
АA$│ Т:Е A$│""з 384,є
БA│ Й(A$):Е A┤1 ▒ A▓8 з 384-
ЖИ A Бе 700,890,650,900,499,400,450,1000-0
РЮ:А I│1 е 27-9
ТН A$-L
ФА Z│1 е  З(A$)-^
ЦЗ  Р(A$,Z,1);-n
ША Q│1е55:ЛQ-А
ЪЛ Z:З:а 100,1-К
ЬЛ I:П-в
ЭЕ  Т│""з 413 :Д 380-┼
┬Ю:З"GIVE DRIVE # FOR DIR";:Й N-█
├Е N┤0 ▒ N▓3 з 450-у
─╬ N.
╟З"HIT ANY KEY TO CONTINUE".
╚Е  Т│""з 456 :Д 380.3
єТ 150,18 :Г2400 BAUD.Р
ЇЮ:З"PREPARE YOUR PRINTER..":З"BE SURE YOU EDITED LINE 499 FOR":З"YOUR PRINTER BAUD RATE".п
ЎЗ"HIT ANY KEY TO CONTINUE".└
°Е  Т│""з 504.╠
·в 30168.╫
№Бе 380/AКЮ:З"USE ARROW KEYS TO MOVE THE":З"PICTURE AROUND FOR VIEWING":З"HIT (CLEAR) KEY TO EXIT VIEW":З"MODE"/`ФЗ"HIT ANY KEY TO CONTINUE"/qЦЕ  Т│""з 662/БЧ╚ 4,1:┐ 1,1/НШв 29000/аЫа 100,5:Бе 380/№╝Ю:З"GIVE NAME OF HI-RES DATA TO":З"LOAD...GIVE NAME AND EXTENSION":З"AND DRIVE #":╗Й N$0╞Щ"D",#1,N$,1280#╨╨ #1, 128  з A$0*┌:Г0Q4Ю0:З"READING PICTURE INTO MEMORY."0л>M│20000:А Q│1 е 64:─ #1,Q:Т 65495,0:АG│1 е 128:Т M, К( Р(A$,G,1)):M│Mл1:Л G:Т 65494,00╡HЗ".";0╠RЛ Q:Ъ#1:З:а 200,100¤\З"PICTURE LOADED":З"HIT ANY KEY TO CONTINUE"1]Е  Т│""з861 :Д 3801f:Г1"p:Г1qzЮ:З"GIVE NAME OF HI-RES BINARY FILE":З"TO LOAD...GIVE NAME/EXT:DRV#":╗Й N$1{|╙M N$1╡}З"PICTURE LOADED":З"HIT ANY KEY TO CONTINUE":а 200,101═~Е  Т│""з 894 :Д 3802ДЮ:З"GIVE NAME OF HI-RES BINARY FILE":З"TO SAVE...GIVE NAME/EXT:DRV#":╗Й N$28О╪M N$,20000,28192,409992kРЗ"PICTURE SAVED...":З"HIT ANY KEY TO CONTINUE"2ГТЕ  Т│""з 914 :Д 3802ввЖ"ALL 16 LEVEL 128 BY 128"2┴гЖ"PIX ARE 8192 BYTES LONG"2╩дЖ" "2щеЖ"NORMAL 16 LEVEL PIX ARE"3жЖ"BINARY DATA FILES AND"3$зЖ"WILL LOAD SLOWLY UNDER"3@иЖ"BASIC...YOU CAN MAKE"3_йЖ"MODIFIED PIX FILES THAT"3zкЖ"WILL LOADM LIKE M/L"3ШлЖ"PROGRAMS AND WILL ONLY"3╕мЖ"TAKE 1-2 SECONDS TO LOAD"3┘нЖ"COMPARED TO THE 2 MINUTES"3·оЖ"IT TAKES THE NORMAL FILES"4пЖ"TO LOAD...4░Ж" "4:▒Ж"USE /HRS FOR A NORMAL PIX FILE"4^▓Ж"AND /HRB FOR A MODIFIED FILE"4В│Ж"AFTER YOU LOAD A NORMAL FILE"4и┤Ж"SAVE IT OUT AS A MODIFIED FILE"4═╡Ж"FOR QUICKER LOADING NEXT TIME"4╓╢Ж" "4№╖Ж"AFTER A PICTURE IS LOADED INTO"5╕Ж"MEMORY IT CAN BE VIEWED OR"5B╣Ж"PRINTED AS MANY TIMES AS YOU"5Q║Ж"WISH..."5Z╗Ж" "5y╝Ж"HIT ANY KEY TO CONTINUE"5шК4и┤Ж"SAVE IT OUT AS A MODIFIED FILE"4═╡Ж"FOR QUICKER LOADING NEXT TIME"4╓╢Ж" "4№╖Ж"AFTER A PICTURE IS LOADED INTO"5NKEY$:IF A$=""THEN 384
385 A=VAL(A$):IF A<1 OR A>8 THEN 384
390 ON A GOTO 700,890,650,900,499,400,450,1000
400 CLS:FOR I=1 TO 27
402 READ A$
404 FOR Z=1 TO LEN(A$)
406 PRINT MID$(A$,Z,1);
408 FOR Q=1TO55:NEXTQ
410 NEXT Z:PRINT:SOUND 100,1
412 NEXT I:RESTORE
413 IF INKEY$=""THEN 413 ELSE 380
450 CLS:PRINT"GIVE DRIVE # FOR DIR";:INPUT N
451 IF N<0 OR N>3 THEN 450
452 DIR N
455 PRINT"HIT ANY KEY TO CONTINUE"
456 IF INKEY$=""THEN 456 ELSE 380
499 POKE 150,18 '2400 BAUD
500 CLS:PRINT"PREPARE YOUR PRINTER..":PRIN d&!
:Г DS-69 128 X 128 16 LEVEL&;:Г PICTURE PRINTER...&B:Г&W:Г BOB MONTOWSKI&v:Г B-18 1151 STERIGERE ST.&Ф:Г NORRISTOWN, PA.  19403&╡:Г DELPHI NAME-(GRAPHICSPUB)&╠:Г CIS #-71615,531&р	:Г 215-277-6951& 
:Г THIS PROGRAM WILL PRINT' :Г OUT A 16 LEVEL GREY SCALE'@:Г 128 X 128 PICTURE ON ANY'`
:Г GEMINI OR EPSON PRINTER.'g:Г'И:Г FOR THOSE WHO DO NOT HAVE'и:Г THIS TYPE PRINTER PLEASE'╦:ГCONTACT ME WITH YOUR PRINTER'ь:ГTYPE AND MAYBE WE CAN COME(:ГUP WITH A REVISON TO THIS(.:ГPROGRAM SO YOU WILL BE ABLE(M:ГTO ALSO PRINT OUT HI-RES(e:ГDS-69 PICTURES...(l:Г(О:Г THIS PROGRAM IS SLOW AS IT(░:Г IS IN BASIC...IT HAS SPEED(╨:Г UP POKES IN IT...IF YOUR(є:Г COCO WILL NOT WORK WITH THE):Г POKE 65495,0...TAKE IT OUT)0:Г OF THIS PROGRAM....)7:Г)Y:Г ALL PICTURES THAT I UPLOAD)| :Г TO THIS SYSTEM WILL HAVE AN)Ш!:Г AN EXTENSION OF .HRS)╗":Г WHEN YOU DOWNLOAD THE FILES)▄#:Г SAVE THEM TO DISK AS DATA)√$:Г OR BINARY DATA FILES...*%:Г*%&:Г THE PICTURE WILL BE PRINTED*F':Г ON YOUR PRINTER AS 64 DOT*h(:Г MATRIX LINES...THE PROGRAM*Й):Г WILL COUNT ON YOUR SCREEN*й*:Г FROM 20,000 TO 20,064 TO*╠+:Г LET YOU SEE HOW FAR YOU ARE*я,:Г INTO THE ACTUAL PRINTOUT OF+-:Г THE PICTURE THAT IS IN THE+(.:Г COCOS MEMORY...+//:Г+R2:Г IF YOU ARE RUNNING AN EPSON+s3:Г PRINTER YOU MUST CHANGE A+Х4:Г FEW LINES IN THIS PROGRAM!+┤5:Г CHANGE LINE 400 TO READ+╒6:Г FOR J=1 TO 128.....TO....+ы7:Г FOR J=1 TO 120+Є8:Г,9:Г AND LINE 380 MUST BE CHANGED,K::Г FROM PRINT CHR$(27);CHR$(76);CHR$(0);CHR$(4);,\;:Г TO.......,c<:Г,Х=:Г PRINT CHR$(27);CHR$(76);CHR$(192);CHR$(3);,Ь>:Г,╝?:Г AND CHANGE LINE 560 FROM,╫@:Г NEXT J:PRINT#-2,"";,хA:Г TO....,єB:Г NEXT J,·C:Г-dХ 2000,20000-Wf:Ю 5:З"TURN YOUR EPSON/GEMINI PRINTER  ON...":З"HIT (ENTER) WHEN READY"-igЕ  Т│"" з 103-vxМ D$(15)-║МD$(0)│ б(8, Л(0)):D$(1)│ Л(&H8)л б(3, Л(0))л Л(&H8)л б(3, Л(0)).HаD$(2)│ Л(&HC)л б(3, Л(0))л Л(&HC)л б(3, Л(0)):D$(3)│ Л(&HE)л б(3, Л(0))л Л(&HE)л б(3, Л(0)):D$(4)│ Л(&HF)л б(3, Л(0))л Л(&HF)л б(3, Л(0)).╞┤D$(5)│ Л(&HF)л Л(8)л б(2, Л(0))л Л(&HF)л Л(8)л б(2, Л(0)):D$(6)│ Л(&HF)л Л(&HC)л б(2, Л(0))л Л(&HF)л Л(&HC)л б(2,CHRE(0))/B╚D$(7)│ Л(&HF)л Л(&HE)л б(2, Л(0))л Л(&HF)л Л(&HE)л б(2, Л(0)):D$(8)│ б(2, Л(&HF))л б(2, Л(0))л б(2, Л(&HF))л б(2, Л(0))/┐▄D$(9)│ б(2, Л(&HF))л Л(8)л Л(0)л б(2, Л(&HF))л Л(8)л Л(0):D$(10)│ б(2, Л(&HF))л Л(&HC)л Л(0)л б(2, Л(&HF))л Л(&HC)л Л(0)01ЁD$(11)│ б(2, Л(&HF))л Л(&HE)л Л(0)л б(2, Л(&HF))л Л(&HE)л Л(0):D$(12)│ б(3, Л(&HF))л Л(0)л б(3, Л(&HF))л Л(0)0Ч
D$(13)│ б(3, Л(&HF))л Л(8)л б(3, Л(&HF))л Л(8):D$(14)│ б(3, Л(&HF))л Л(&HE)л б(3, Л(&HF))л Л(&HE)0░
D$(15)│ б(8, Л(&HF))1
"Ю:З"GIVE NAME OF HI-RES PICTURE TO":З"LOAD...GIVE NAME AND EXTENSION":З"AND DRIVE #":╗Й N$1"
,Щ"D",#1,N$,12816
@╨ #1, 128  з A$1=
J:Г1[
K:Г THE NEXT LINE SETS THE1|
L:Г PRINTER FOR A 16/144 LINE1Э
M:Г FEED...THIS WORKS FINE ON1╛
N:Г GEMINI/EPSON PRINTERS BUT1р
O:Г MAY NEED TO BE CHANGED FOR1·
P:Г OTHER PRINTERS!!!!2

Q:Г2
TЗ#м2, Л(27); Л(65); Л(8)2E
VЮ0:З"READING PICTURE INTO MEMORY."2Я
WM│20000:А Q│1 е 64:─ #1,Q:Т 65495,0:АG│1 е 128:Т M, К( Р(A$,G,1)):M│Mл1:Л G:Т 65494,02й
XЗ".";2╫
YЛ Q:З"":З"NOW SENDING PICTURE TO PRINTER"2у
hL│200002ъ
r:Г3
s:Г THE NEXT LINE SETS THE3%
t:Г PRINTER TO A 960 DOTS3H
u:Г ACROSS MODE...AND THEN SAYS3i
v:Г EXPECT 1024 DOTS TO COME!3Л
w:Г GEMINI PRINTERS  WILL JUST3м
x:Г DROP THE EXTRA DOTS...BUT3═
y:Г EPSON WON'T SO THIS. NEXT3ь
z:Г LINE MUST BE CHANGED TO4
{:Г FIX IN START OF THIS PROG.42
|З#м2, Л(27); Л(76); Л(0); Л(4);4@
~Т 65495,04P
РА J│1 е 1284k
дV│ Ж( Б(Lл((Jм1)н64)))4Г
╕T│ Б(Vо16):B│V ░ 154Ц
╠O$│ б(8, Л(0))4д
рА R│1 е 84▐
Ї Р(O$,R,1)│ Л(16н К( Р(D$(T),R,1))л К( Р(D$(B),R,1)))4цЛ R4Ї	Т 65494,05
З#м2,O$;50Л J:З#м2,"";5 DL│Lл1:З L5XXЕ L│20064  з Ъ#1:а 100,10:Ю:З"PICTURE IS DONE!!!":К5clБе 38064)))4Г
╕T│ Б(Vо16):B│V ░ 154Ц
╠O$│ б(8, Л(0))4д
рА R│1 е 84▐
Ї Р(O$,R,1)│ Л(16н К( Р(D$(T),R,1))л К( Р(D$(B),R,1)))4цЛ R4Ї	Т 65494,05
З#м2,O15)
140 D$(0)=STRING$(8,CHR$(0)):D$(1)=CHR$(&H8)+STRING$(3,CHR$(0))+CHR$(&H8)+STRING$(3,CHR$(0))
160 D$(2)=CHR$(&HC)+STRING$(3,CHR$(0))+CHR$(&HC)+STRING$(3,CHR$(0)):D$(3)=CHR$(&HE)+STRING$(3,CHR$(0))+CHR$(&HE)+STRING$(3,CHR$(0)):D$(4)=CHR$(&HF)+STRING$(3,CHR$(0))+CHR$(&HF)+STRING$(3,CHR$(0))
180 D$(5)=CHR$(&HF)+CHR$(8)+STRING$(2,CHR$(0))+CHR$(&HF)+CHR$(8)+STRING$(2,CHR$(0)):D$(6)=CHR$(&HF)+CHR$(&HC)+STRING$(2,CHR$(0))+CHR$(&HF)+CHR$(&HC)+STRING$(2,CHRE(0))
200 D$(7)=CHR$(&HF)+CHR$(&HE)+STRING$(2,CHR$(0))+CH                                                                                                                                                                                                                                                                
─╞╚├┬┬
┬──╚─╚╞├┬┼╔╞─├╟!╟├┬╟&┬├╞┴+─╟                                                                                                                                                                                                                   C642COCOBAS йC64SUBS BAS ╓C64-COCOTXT
 /C64SUBS SRC
 
C64SUBS BIN	╒C64-C3  BIN
БC64-C3  TXT
 БVIEW128 BINVIEW256 BINTINY    BINАTINY    DOC DEKOALA DOC
 iDEKOALA BIN(SHOW16C3BIN
PRINT16 BINБVIEW16C3DOC
 ├VIEW16C3BASVIEW3   DOC
 VIEW3   BASdVIEW16  DOC
 VIEW16  BASГPRINT16 BAS gSHOW16  BIN"
PRINT161BIN#БMACPIX2 BIN$БMACPIX3 BIN%
MCPNTEYEBIN'
MCPNTEYEBAS (qBOOT    BAS)MAC2C3  BIN*                MACPIX  BIN,Б                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                АqH╬яН
{oН
Ж
зН
uзН
r t4vнЯаБ^&жН
bБ
'ЁJзН
Y5v■Б
&жН
LБ(' ╪LзН
A5vцБ&жН
3Б
'┬JзН
*5v╨Б	&жН
Б`' кLзН
5v╕Б&Ь5v9Аq╚╬яН√oН ОN жНїJ0ЖцНэ┴
'0И@Z ЎпН▌╞
чН█цчН╓─ЁTT1НЗ1ежаз@жаз╚ жаз╚@ждз╚`3╔АцН▒─XX1Нb1ежаз@жаз╚ жаз╚@ждз╚`3╔АцНЛ┴'АrH
\чНВ0
 вlН{жНwБ '■■оНg0И@пН`юНZ3AяНT v╬
R╠  э┴э┴э┴э─ >    w   ww  www wwww3www33ww333w3333333333r╚ 
АцНЛ┴'АrH
\чНВ0
 вlН{жНwБ '■■оНg0И@пН`юНZ3AяНT v╬
R╠  э┴э┴э┴э─ >    w   ww  www wwww3www33ww333w3333333333r╚                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Аu0Аu╪Ж╞Оu0Оu░пб:J&·КОN 4 ОА4Н`5цд47Н571и@0&ё5 1!МN`&▄Нw9╬u░4─ЁTTTо┼╞Оu╨жАHHHHзаZ&ї5─Xо┼╞Оu╨жАкдзаZ&ў╞Оu╨жАнЯаZ&ўJvX9╞■╫oЖнЯаЖLнЯаЖнЯаЖнЯа9╞■╫oЖнЯаЖAнЯаЖнЯа9ЖнЯаЖнЯаЖ@нЯаo9 
Аu╪Ж╞Оu0Оu░пб:J&·КОN 4 ОА4Н`5цд47Н571и@0&ё5 1!МN`&▄Нw9╬u░4─ЁTTTо┼╞Оu╨жАHHHHзаZ&ї5─Xо┼╞Оu╨жАкдзаZ&ў╞Оu                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &'ЛО
ЯОЯО
ЯЯ╜й(ОoАoАМ&&ў╬+╗ОЯИ╜&3~&С╜+8    MACINTOSH PIX CONVERTOR
  PROGRAMMED BY ERIK GAVRILUK
  ===========================

9╜+8        LOAD A MAC FILE

      WINDOW OVER PICTURE

     PRINT OUT THE PICTURE

         EXIT TO BASIC
ЮИЖ & `зАзАМ&ў╢ Д
'∙О"`0&№╢ Д
'∙нЯа
╢
[DDDD╖'Л╜'q╢ Д
' нЯа
╢
[DDDD▒'Л'щ4╢'ЛН$5╖'ЛН ┘╢ Д
'∙╞	╜'qZ&ў╢'ЛHО'МnЦ4╢'Л╞@=├Д
╞жДИ@зАZ&ў5Ц'к) 'Ф'ЭО1╜-~&#╬ ╖ ▐nЯ┐■О  ┐(СОАЯИЖ`зАзАМ&ў'и'йЖЧъОЯьОЯю╬+╗нЯ└ОmД'C+PьГMA&9ж
БC&3Ж нЯа4╞ж '■Аз└нЯаZ&їЖ нЯа|'и|'й╢'йБ&	'йЖ
нЯа50И М& пэ~'╪}'и&Y╜+8ERROR!  NO /MAC PICTURES ON DISK
    PRESS BUTTON TO CONTINUEН~&#╢ Д
&∙╢ Д
'∙9╢ Д
&9╢ Д
'∙╛(СМБ&О+╗ ╢(Ф╞=├+╗
Ў(УЖ=:О+O╞жАзаZ&∙╜):~)ZнЯа
╢
ZDDDDБ%Ж╖(У╢
[DDБ
%Ж
╖(ФОА╢(Ф (¤'0И J&·О)WЎ(Уце:╢(Ф╞=√(Уё'и$ ОБ╝(С' l4╛(СН5┐(СН~(Х╛(С╞	НZ&°94╞жДИ@зАZ&ў5Ц
Ж4╖ ╜+qoО└ЯИ╜+8LOADING FILE "О+O╞жАнЯаZ&ў╜+8"
TITLE: o╜бv╜бvЙО~]'╜бv
oнЯаo1?Z&Ё╜бv1?&∙О1
p+/╜бvM*@LЙ╜бvC╖ ▀зАZ&√╖ ▐ сLЙ╜бvC╖ ▀зА╖ ▐Z&ё ═╜д-Ж5╖  )№~&#╜+О  ┐+╬+╗╢ Д
&
╢ Д
'∙~&#нЯа
╢
ZБ(%Ж(4╢
[╞	=Г%╠5ё+&╝+' ╝ў+┐+О1:М'0ИH1?&∙╬P╖ ▀Ж`44ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴50ИH4ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэe*√┴50ИHjф& l╖ ▐п~*
╖ └╖ ├╖ ┼Ж ╖ "О4О ╞ЖЙhaiфYзЕJ*Ї5Р5жА'нЯа ЎЩ"I",#1,"12345678.MAC"
+qО+FЯжжД~н╞q-Ж■Чo╜+8AО1Н0Й
°М√А%їЖ
нЯаo~&#4╜+8
L@5ЖHP╖ ▀4Ж4жДО-q╞IiаZ&·0ИHjф&ы2a╖ ▐пО-q╞жАCнЯаZ&Ў50
J&├9 &
+qО+FЯжжД~н╞q-Ж■Чo╜+8AО1Н0Й
°М√А%їЖ
нЯаo~&#4╜+8
L@5ЖHP╖ ▀4Ж4жДО-q╞IiаZ&·0ИHjф&ы2a╖ ▐пО-q╞жАCнЯаZ&Ў50
J                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╬7Оє┐

	L @╜д-ыг╜й(╜Пп╬7ОЯИ╜0~и╜е  MACINTOSH PIX CONVERTOR 2.0
        COCO 3 VERSION!
  PROGRAMMED BY ERIK GAVRILUK
  ===========================

9╜е        LOAD A MAC FILE

      WINDOW OVER PICTURE

     PRINT OUT THE PICTURE

           EXIT TO BASIC
ЮИЖ`зАзАМ&ў╢ Д
'∙О"`0&№╢ Д
'∙нЯа
╢
[DDDD╖г╜И╢ Д
' нЯа
╢
[DDDD▒г'щ4╢гН$5╖гН ┘╢ Д
'∙╞	╜ИZ&ў╢гHОдnЦ4╢г╞@=├д
╞жДИ@зАZ&ў5Ц─┌м╡О-╜ ~╬ ╖ ▐qnЯ┐■О  ┐кОаЯИЖ`зАзАМ&ў┬├ЖЧъОЯьОЯю╬7нЯ└ОmД'C+ ■PьГMA&9ж
БC&3Ж нЯа4╞жАз└нЯаZ&їЖ нЯа|┬|├╢├Б&	├Ж
нЯа50И М& пэ~Є}┬&X╜е ERROR! NO MAC PICTURES ON DISK
    PRESS BUTTON TO CONTINUEН~╢ Д
&∙╢ Д
'∙9О╢ЯИ╜е =MENU= ╢ Д
&:╢ Д
'∙╛кМ╢&╜`~╢н╞=├7
ЎмЖ=:О│╞жАзаZ&∙╜` ¤~АнЯа
╢
Z_Б%\А ўўм╢
[DDD╖нОа╢н'0И J&·О}Ўмце:╢н╞=√мё┬$ О╢╝к' p4╛кН5┐кН~┐╛к╞	НZ&°94╞жДИ@зАZ&ў5Ц
Ж4╖ ╜╒oО└ЯИО╢Ж`╞зАZ&√╜еLOADING FILE "О│╞жАнЯаZ&ў╜е"
TITLE: Ж ╖в╜1╜1ЙО~]'╜1нЯа1?Z&Ї╜11?&∙О-
p+>╜1M* №@LЙ╜1C╖ ▀зАZ&√╖ ▐ сLЙ╜1C╖ ▀зА╖ ▐Z&ё╢ Д
&sв М°а%╛╜ВPЖ5╖ }в'√╓P╖ ▀╖ ┘О-╬ ╜2╠э┴э┴╜TЖ4ьБоБ╜2э┴п┴╜Tjф&ь╜2╠э┴э┴╜T2aГа%╞0И╕3╔А╜C╠э┴э┴╜TЖ4ьБоБ╜Cэ┴п┴╜Tjф&ь╜C╠э┴э┴╜T2aГа%╞╖ ▐╖ ╪	Ж @╜eО  ┐0P╬7╢ Д
&
╢ Д
'∙~╔√╖ ▐нЯа
╢
[╞	=Г%╠│0' ═¤0ОО
0Л1?&·┐ Э~ч4╞Ж0О бзАLZ&·5Ц4╞Ж4О бзАLZ&·5Ц4╞Ж9О бзАLZ&·5ЦЖD╖ РЖА╖ ШЖ╖ ЩЖ└╖ ЭO╖ ЮO╖ ░Ж?╖ ▒9рЖ╠╖ РОЗО Ш╞жАзаZ&∙95жА'нЯа Ў12345678.MAC""╒О│╞О	LжАзаZ&∙0
╞жАзаZ&∙~╫╢ ;X╫О	L╜▄0ьД¤╣¤	Wь¤Dж╖╗╜╝▌ь4ОЯю╜7ОЯюЖЧьЖЧэ╜75▌ь╢╗ОжЖ╖╗О┐╖pЖI╖.9З0p4t/╢╗Б└%╖/╛╖жА┐╖4}/'$╢/А└4ЦэБ
%А	бр&Г│D&Ж Чp М$55ЇОЯю┐╖ЦэБ	'	Б'LЧэ ╢╗╜╝▌ь╜7╢╗Ожж╖╗ ╠ЖЧъ╜7 ├И╝ЙD─
'╞
 ╞
Б$
9L9Б%
JH┴
%їL9Н
М&°╞4~√4o4╠▌ьZ╫ъОЯю╜7Оmд+,'оф╞жАба&
Z&ў2b ─р
5я ─р1и М&╘э ╔2bО5янЯ└
Ё'Ь╞(~√▓FО	L╜▄oДж
4ЖЧъ╜7ЖЧэЧъОЯю╜75цЖ4╞ чЖ5Ш┴└%ЁЖЧъ╜7
ъ9╜FО	L╜шМ&ЄЖO╖.╠▌ь╫ъОЯю╜7
юэ╜7Оmд+'1и М&ёэ╜7 ц┐~▄ь¤А╜_╖}╖╗Оoж╬ °╜╝▌ьЖ
╖·ЦъБ'О9В√О┐°ЯюЖЧъ╜7
ъэ94vН5Ў╛°зА┐°М&ъ╢·L╖·Б
&╠ОЯю┐°ЖЧъ╜7Ж
╖·
ъ╜_Ў╗Озеoж╖╗╜╝▌ь╜794tО╞DждБ '
1!Z&ї╞8~√ Ш5ЇВ╢.БI'╒}.'╨ОЯюЖЧъ▄ь╜7╢·К└Ў╗ОзеОЯю╠▌ь\╫ъ╜7№А▌ьЖЧъОЯю╜7╛~О	LжазАМ	Y&Ў╛~╢}з
№°ГэЖЧъ╜7ЖЧъ.9.~мFq Ж■Чo╜еAО-Н0Й
°МўА%їЖ
нЯаo~4╜е
L@5ЖHP╖ ▀4Ж4жДО q╞IiаZ&·0ИHjф&ы2a╖ ▐пО q╞жАCнЯаZ&Ў50
J&├9 
ЧъОЯю╜7╛~О	LжазАМ	Y&Ў╛~╢}з
№°ГэЖЧъ╜7ЖЧъ.9.~мFq Ж■Чo╜еAО-Н0Й
°МўА%їЖ
нЯаo~4╜е
L@5ЖHP╖ ▀4Ж4жДО q╞IiаZ&·0ИHjф&ы2a╖ ▐пО q╞жАCнЯаZ&Ў50
J&├9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
√--------MAC
А√P √╬■ бЖL╖ Р╠Аt¤ Ш╠└¤ Э╠?¤ ░Ж0╖√╖ бО ╞чАМ@%∙LБ8%ьЖ0╖ бО√О	LжАзаМ	Y%Ў╢	ZЧышОА4ъ50&їО ЖH╖√
╠╨¤√4╤5БАА√У%J4_рр4└545Z&Ў ▄L4м5J&є ╠зАz√
'
9ЖH╖√
0■√3_ √Г'9М@$
9|√4Ў√ў б50Йр9Ж9╖ б■√п @О└нЯаБ
&`№~д-Б^'Б
'Б_'	Б[&х1иd 1иЬ 16 1*М└%
М╙V"
┐ Э ┬О└ єО╙V эН'~╩~╔YН'~┼─~┼Ч4Ж0▒┴B5В √
9Ж9╖ б■√п @О└нЯаБ
&`№~д-Б^'Б
'Б_'	Б[&х1иd 1иЬ 16 1*М└%
М╙V"
┐ Э ┬О└ єО╙V эН'~╩~╔YН'~┼─~┼Ч4Ж0▒┴B5В √                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
10 ON ERR GOTO 120:WIDTH32:PRINT"The McPaint Eye  01.03.00":PRINT"Written by Chris Babcock":PRINT"> Public domain for the Coco 3 <":PRINT"Type 0-3 alone to change drive.":PRINT"Press <ENTER> alone for DIR.":PRINT"Extension must be MAC."
20 PRINT:PRINT"Use the up and down arrows to   move through the 720 scanline   picture.  SHIFT the arrows to   move by 10's. ENTER to exit to  load a new file.":PRINT
30 POKE&H95C9,&HFF:POKE&HFF22,PEEK(&HFF22)OR&H30
40 IF PEEK(&HFB30)<>157 THEN D=PEEK(&HEB):D$=STR$(D):D$=RIGHT$(D$,1):F$="MCPNTEYE.BIN:"+D$:LOADM F$
50 HSCREEN 0:PRINT:LINEINPUT"FILE:";F$:IF LEN(F$)=1 AND F$>="0" AND F$<="3" THEN DRIVE VAL(F$):GOTO 50 ELSE IF F$="" THEN DIR:PRINT"FREE:";FREE(PEEK(&HEB)):GOTO 50
60 IF LEN(F$)>8 THEN F$=LEFT$(F$,8) ELSE IF LEN(F$)<8 THEN F$=F$+" ":GOTO 60
70 PRINT"MARGINS: 1-LEFT 2-CENTER 3-RIGHT";:INPUT "SELECT:";S:IF S<1 OR S>3 THEN POKE&HFB7E,4 ELSE POKE&HFB7E,(S-1)*4
80 LINEINPUT"BORDER COLOR:";BC$:IF BC$="" THEN POKE&HFB43,0:BC=63 ELSE BC=VAL(BC$):IF BC=0 THEN POKE&HFB43,255 ELSE POKE&HFB43,0
90 FOR I=&HFB00 TO &HFB07:POKE I,ASC(MID$(F$,I-&HFAFF,1)):NEXT I
100 POKE&HFF90,&H4C:POKE&HFF9A,BC:EXEC
110 GOTO 50
120 ON ERR GOTO 120:IF ERLIN=100 THEN PRINT"Can not find the file.":GOTO 50
130 IF ERNO=20 THEN PRINT"Drive not ready or I/O error.":GOTO 50
140 PRINT"Unexpected error";ERNO;"in";ERLIN:GOTO 50

                                        
,BC:EXEC
110 GOTO 50
120 ON ERR GOTO 120:IF ERLIN=100 THEN PRINT"Can not find the file.":GOTO 50
130 IF ERNO=20 THEN PRINT"Drive not ready or I                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &
О"MCPNTEYE"┴СCЗт"
	ЇЇ8ї<АДLАР"@■┴рхЎ|`ї$qД╠|П$DtA хЎ┬`ї6 о0╚Аи"`хЎ┬`ї!р┼─■D■@Q@DD]< хЎ─~lЎ5`В╛√ъ%`хЎ└╞r1Ў Гё№~F@ хЎ└╞b2Ў5NВOр√?СВ╒`∙

АяЎ└╞|4Ў F1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╬HО┐

	L @╜д-ы╬╜й(╬H╜а╖ ▐Ж5╖ пОЯИ╜8~░╜╢  MACINTOSH PIX CONVERTOR 2.1
        COCO 3 VERSION!
  PROGRAMMED BY ERIK GAVRILUK
  ===========================

9╜╢        LOAD A MAC FILE

      WINDOW OVER PICTURE

       EPSON SCREEN DUMP  

         EXIT TO BASIC

    HOW TO USE THIS PROGRAM
ЮИЖ`зАзАМ&ў╢ Д
'∙О"`0&№╢ Д
'∙нЯа
╢
[DDDD╖╬╜│╢ Д
'(нЯа
╢
[_Б
%\А
 ўШ▒╬'с4╢╬Н$5╖╬Н ╤╢ Д
'∙╞	╜│Z&ў╢╬HО╧nЦ4╢╬╞@=├г
╞жДИ@зАZ&ў5ЦоыЦЯ┘╜й(╜╢*THIS PROGRAM CONVERTS MACINTO ■SHMACPAINT DOCUMENTS AND DISPLAYS
THEM ON A COCO 3.  IT USES THE
COCO 3'S 640 X 192 MODE AND A
WINDOWING ROUTINE TO SHOW THE
ENTIRE 576 X 720 MACINTOSH PIC.
*THIS PROGRAM WILL HANDLE ONLY
THOSE PICTURES ON DELPHI AND CISTHAT HAVE A ".BIN" EXTENSION.
SAVE  ¤THEM TO DISK WITH AN
EXTENSION OF ".MAC".
*THE SCREEN DUMP ONLY WORKS ON
EPSON PRINTERS.  SET YOUR BAUD
RATE IN BASIC BEFORE YOU EXEC.

-- ERIK╜Е╜й(~О"╜ ~╬ ╖ ▐qnЯ┐■О  ┐ФОаЯИЖ`зАзАМ&ўмнЖЧъОЯьОЯю╬HнЯ└ОmД'C+PьГMA&9ж
БC&3Ж нЯа №4╞жАз└нЯаZ&їЖ нЯа|м|н╢нБ&	нЖ
нЯа50И М& пэ~▄}м&X╜╢ ERROR! NO MAC PICTURES ON DISK
    PRESS BUTTON TO CONTINUEН~╢ Д
&∙╢ Д
'∙9О╢ЯИ╜╢ =MENU= ╢ Д
&:╢ Д
'∙╛ФМ╢&╜J~╢Ч╞=├H
ЎЦЖ=:О─╞жАзаZ&∙╜J~jнЯа
╢
Z_Б%\А ў √ўЦ╢
[DDD╖ЧОа╢Ч'0И J&·ОgЎЦце:╢Ч╞=√Цём$ О╢╝Ф' p4╛ФН5┐ФН~й╛Ф╞	НZ&°94╞жДИ@зАZ&ў5Ц
Ж4╖ ╜цoОаЯИО╢Ж`╞зАZ&√╜╢LOADING FILE "О─╞жАнЯаZ&ў╜╢"
TITLE: Ж ╖═╜B╜BЙО~]'╜BнЯа1?Z&Ї╜B1?&∙╜╢
PRESS BUTTON TO ABORT LOADО" ·
p+>╜BM*@LЙ╜BC╖ ▀зАZ&√╖ ▐ LЙ╜BC╖ ▀зА╖ ▐Z&ё╢ Д
&s═ МьА%╛╜У╖ ▐пЖ5╖ }═'∙╩Ж4╖ P╖ ▀╖ ┘О"╬ ╜C╠э┴э┴╜eЖ4ьБоБ╜Cэ┴п┴╜ejф&ь╜C╠э┴э┴╜e2aГа%╞0И╕3╔А╜T╠э┴э┴╜eЖ4ьБоБ╜Tэ┴п┴╜ejф&ь╜T╠э┴э┴╜e2aГа%╞╖ ▐╖ ╪	Ж @╜vО  ┐AP▄∙╬H╢ Д
&
╢ Д
'∙~╖ ▐нЯа
╢
[╞	=Г%╠│A' ═¤AОО
0Л1?&·┐ Э~°4╞Ж0О бзАLZ&·5Ц4╞Ж4О бзАLZ&·5Ц4╞Ж9О бзАLZ&·5ЦЖD╖ РЖА╖ ШЖ╖ ЩЖ└╖ ЭO╖ ЮO╖ ░Ж?╖ ▒9рЖ╠╖ РОШО Ш╞жАзаZ&∙95жА'нЯа Ў12345678.MAC""цО─╞О	LжАзаZ&∙0
╞жАзаZ&∙~ш╢ ;XшО	L╜э0ьД¤╩¤	Wь¤Uж╖╠╜═▌ь4ОЯю╜HОЯюЖЧьЖЧэ╜H5▌ь╢╠ОжЖ╖╠О┐╚pЖI╖?9ЗAp4t@╢╠Б└%╖@╛╚жА┐╚4}@'$╢@А└4ЦэБ
%А	бр&Г│U&Ж Чp М$55ЇОЯю┐╚ЦэБ	'	Б'LЧэ ╢╠╜═▌ь╜H╢╠Ожж╖╠ ╠ЖЧъ╜H ├И═ЙD─
'╞
 ╞
Б$
9L9Б%
JH┴
%їL9Н
М&°╞4~4o4╠▌ьZ╫ъОЯю╜HОmд+,'оф╞жАба&
Z&ў2b ─р
5я ─р1и М&╘э ╔2bО5янЯ└
Ё'Ь╞(~▓WО	L╜эoДж
4ЖЧъ╜HЖЧэЧъОЯю╜H5цЖ4╞ чЖ5Ш┴└%ЁЖЧъ╜H
ъ9╜WО	L╜∙М&ЄЖO╖?╠▌ь╫ъОЯю╜H
юэ╜HОmд+'1и М&ёэ╜H ц┐П▄ь¤С╜p╖О╖╠Оoж╬ 	╜═▌ьЖ
╖ЦъБ'О9ВО┐	ЯюЖЧъ╜H
ъэ94vН5Ў╛	зА┐	М&ъ╢L╖Б
&╠ОЯю┐	ЖЧъ╜HЖ
╖
ъ╜pЎ╠Озеoж╖╠╜═▌ь╜H94tО╞DждБ '
1!Z&ї╞8~ Ш5ЇУ╢?БI'╒}?'╨ОЯюЖЧъ▄ь╜H╢К└Ў╠ОзеОЯю╠▌ь\╫ъ╜H№С▌ьЖЧъОЯю╜H╛ПО	LжазАМ	Y&Ў╛П╢Оз
№	ГэЖЧъ╜HЖЧъ?9?~мFq Ж■Чo╜╢AО"Н0Й
°МьА%їЖ
нЯаo~4╜╢
L@5ЖHP╖ ▀4Ж4жДО q╞IiаZ&·0ИHjф&ы2a╖ ▐пО q╞жАCнЯаZ&Ў50
J&├9 ОзеОЯю╠▌ь\╫ъ╜H№С▌ьЖЧъОЯю╜H╛ПО	LжазАМ	Y&Ў╛П╢Оз
№	ГэЖЧъ╜HЖЧъ?9?~мFq Ж■Чo╜╢AО"Н0Й
°МьА%їЖ
нЯаo~4╜╢
L@5ЖHP╖ ▀4Ж4жДО q╞IiаZ&·0ИHjф&ы2a╖ ▐пО q╞жАCнЯаZ&Ў50
J&├9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &'ЛО
ЯОЯО
ЯЯ╜й(ОoАoАМ&&ў╬+╗ОЯИ╜&3~&С╜+8    MACINTOSH PIX CONVERTOR
  PROGRAMMED BY ERIK GAVRILUK
  ===========================

9╜+8        LOAD A MAC FILE

      WINDOW OVER PICTURE

     PRINT OUT THE PICTURE

         EXIT TO BASIC
ЮИЖ & `зАзАМ&ў╢ Д
'∙О"`0&№╢ Д
'∙нЯа
╢
[DDDD╖'Л╜'q╢ Д
' нЯа
╢
[DDDD▒'Л'щ4╢'ЛН$5╖'ЛН ┘╢ Д
'∙╞	╜'qZ&ў╢'ЛHО'МnЦ4╢'Л╞@=├Д
╞жДИ@зАZ&ў5Ц'к) 'Ф'ЭО1╜-~&#╬ ╖ ▐nЯ┐■О  ┐(СОАЯИЖ`зАзАМ&ў'и'йЖЧъОЯьОЯю╬+╗нЯ└ОmД'C+PьГMA&9ж
БC&3Ж нЯа4╞ж '■Аз└нЯаZ&їЖ нЯа|'и|'й╢'йБ&	'йЖ
нЯа50И М& пэ~'╪}'и&Y╜+8ERROR!  NO /MAC PICTURES ON DISK
    PRESS BUTTON TO CONTINUEН~&#╢ Д
&∙╢ Д
'∙9╢ Д
&9╢ Д
'∙╛(СМБ&О+╗ ╢(Ф╞=├+╗
Ў(УЖ=:О+O╞жАзаZ&∙╜):~)ZнЯа
╢
ZDDDDБ%Ж╖(У╢
[DDБ
%Ж
╖(ФОА╢(Ф (¤'0И J&·О)WЎ(Уце:╢(Ф╞=√(Уё'и$ ОБ╝(С' l4╛(СН5┐(СН~(Х╛(С╞	НZ&°94╞жДИ@зАZ&ў5Ц
Ж4╖ ╜+qoО└ЯИ╜+8LOADING FILE "О+O╞жАнЯаZ&ў╜+8"
TITLE: o╜бv╜бvЙО~]'╜бv
oнЯаo1?Z&Ё╜бv1?&∙О1
p+/╜бvM*@LЙ╜бvC╖ ▀зАZ&√╖ ▐ сLЙ╜бvC╖ ▀зА╖ ▐Z&ё ═╜д-Ж5╖  )№~&#╜+О  ┐+╬+╗╢ Д
&
╢ Д
'∙~&#нЯа
╢
ZБ(%Ж(4╢
[╞	=Г%╠5ё+&╝+' ╝ў+┐+О1:М'0ИH1?&∙╬P╖ ▀Ж`44ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴50ИH4ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэ┴ьБэe*√┴50ИHjф& l╖ ▐п~*
╖ └╖ ├╖ ┼Ж ╖ "О4О ╞ЖЙhaiфYзЕJ*Ї5Р5жА'нЯа ЎЩ"I",#1,"12345678.MAC"
+qО+FЯжжД~н╞q-Ж■Чo╜+8AО1Н0Й
°М√А%їЖ
нЯаo~&#4╜+8
L@5ЖHP╖ ▀4Ж4жДО-q╞IiаZ&·0ИHjф&ы2a╖ ▐пО-q╞жАCнЯаZ&Ў50
J&├9 &
+qО+FЯжжД~н╞q-Ж■Чo╜+8AО1Н0Й
°М√А%їЖ
нЯаo~&#4╜+8
L@5ЖHP╖ ▀4Ж4жДО-q╞IiаZ&·0ИHjф&ы2a╖ ▐пО-q╞жАCнЯаZ&Ў50
J