AERCO Screen Copy Routine for Artworx

   0>REM THIS PROGRAM WILL ALLOW SCREEN COPIES TO BE SENT
     TO A GRAPHICS PRINTER WITH AN AERCO INTERFACE
     by DAVE SCHOENWETTER     SINCUS  21-SEP-1985
  10 POKE 26703,0: POKE 26704,91
  20 RESTORE 100
  30 FOR f=23296 TO 23423: READ a: POKE f,a: NEXT f
  40 STOP
 100 DATA 254,1,40,1,201,0,0,0
 102 DATA 17,112,91,6,8,26,79
 104 DATA 205,96,91,19,16,248,33
 106 DATA 0,64,17,120,91,6,8,26
 108 DATA 79,205,96,91,19,16,248
 110 DATA 6,32,22,128,14,0,30
 112 DATA 128,126,162,40,3,123
 114 DATA 177,79,36,203,59,48
 116 DATA 244,205,96,91,37,37,37
 118 DATA 37,37,37,37,37,203,58
 120 DATA 48,225,44,16,220,14,13
 122 DATA 205,96,91,175,181,32
 124 DATA 196,62,8,132,103,254
 126 DATA 88,56,188,201,0,0,0
 128 DATA 219,127,230,16,32,250
 130 DATA 121,211,127,0,219,127
 132 DATA 0,0,0,201
 140 DATA 7,7,27,64,27,51,25,7
 150 DATA 0,0,0,0,27,75,0,1
 200 REM DATA line 140 IS THE SETUP CODES FOR THE PRINTER
 210 REM DATA line 150 IS THE PRINTER GRAPHIC CODE
 220 REM LINE 140 AND 150 ARE SET FOR THE EPSON RX80.
     CONSULT YOUR PRINTER MANUAL. PRINTER MUST BE
     CONFIGURED FOR CARRIAGE RETURN ONLY, LINE FEED
     NOT REQUIRED.
 230 REM LINE SPACING IS SET AT 25/216 OF AN INCH. THIS
     IS A TRADEOFF SETTING TO ALLOW CIRCLES TO BE
     ROUNDED AND COMPLETE GRAPHICS COVERAGE FOR THE
     SCREEN COPY.
 240 REM TO USE THIS PROGRAM WITH "ARTWORX" THE BASIC LINE
     2315 MUST BE ALTERED AS FOLLOWS:
     "2315 IF M=VAL"1190"THEN LPRINT CHR$1 :GO TO MENU
 250 REM NOTE: WHEN THIS PROGRAM IS RUN, LPRINT WILL NOT WORK
     ONLY LPRINT CHR$1 WHICH WILL COPY THE CURRENT SCREEN

DAVE SCHOENWETTER
[address omitted]

DISASSEMBLY OF CODE IN PRINT BUFFER

23296 5B00 FE01     CP 01
23298 5B02 2801     JR Z 5B05
23300 5B04 C9       RET
23301 5B05 00       NOP
23302 5B06 00       NOP
23303 5B07 00       NOP
23304 5B08 11705B   LD DE,5B70
23307 5B0B 0608     LD B,08
23309 5B0D 1A       LD A,(DE)
23310 5B0E 4F       LD C,A
23311 5B0F CD605B   CALL 5B60
23314 5B12 13       INC DE
23315 5B13 10F8     DJNZ 5B0D
23317 5B15 210040   LD HL,4000
23320 5B18 11785B   LD DE,5B78
23323 5B1B 0608     LD B,08
23325 5B1D 1A       LD A,(DE)
23326 5B1E 4F       LD C,A
23327 5B1F CD605B   CALL 5B60
23330 5B22 13       INC DE
23331 5B23 10F8     DJNZ 5B1D
23333 5B25 0620     LD B,20
23335 5B27 1680     LD D,80
23337 5B29 0E00     LD C,00
23339 5B2B 1E80     LD E,80
23341 5B2D 7E       LD A,(HL)
23342 5B2E A2       AND D
23343 5B2F 2803     JR Z 5B34
23345 5B31 7B       LD A,E
23346 5B32 B1       OR C
23347 5B33 4F       LD C,A
23348 5B34 24       INC H
23349 5B35 CB3B     SRL E
23351 5B37 30F4     JR NC 5B2D
23353 5B39 CD605B   CALL 5B60
23356 5B3C 25       DEC H
23357 5B3D 25       DEC H
23358 5B3E 25       DEC H
23359 5B3F 25       DEC H
23360 5B40 25       DEC H
23361 5B41 25       DEC H
23362 5B42 25       DEC H
23363 5B43 25       DEC H
23364 5B44 CB3A     SRL D
23366 5B46 30E1     JR NC 5B29
23368 5B48 2C       INC L
23369 5B49 10DC     DJNZ 5B27
23371 5B4B 0E0D     LD C,0D
23373 5B4D CD605B   CALL 5B60
23376 5B50 AF       XOR A
23377 5B51 B5       OR L
23378 5B52 20C4     JR NZ 5B18
23380 5B54 3E08     LD A,08
23382 5B56 84       ADD A,H
23383 5B57 67       LD H,A
23384 5B58 FE58     CP 58
23386 5B5A 38BC     JR C 5B18
23388 5B5C C9       RET
23389 5B5D 00       NOP
23390 5B5E 00       NOP
23391 5B5F 00       NOP
23392 5B60 DB7F     IN A,7F
23394 5B62 E610     AND 10
23396 5B64 20FA     JR NZ 5B60
23398 5B66 79       LD A,C
23399 5B67 D37F     OUT 7F,A
23401 5B69 00       NOP
23402 5B6A DB7F     IN A,7F
23404 5B6C 00       NOP
23405 5B6D 00       NOP
23406 5B6E 00       NOP
23407 5B6F C9       RET
***** END OF LIST ******

As I have had the time, I have been playing around with ARTWORX, and I can not say enough nice things about it. However with now several hours of use, I can see the difficulty of drawing on the screen, almost like drawing on air. Reference points are difficult to remember, and drawing perspective is somewhat difficult. I expect with more use I will be able to overcome some of the problems inherint. With the resolution available one can do a fair job of creating “art”. Erasing is somewhat a bug, either too much or too little. By slowing the erase mode in FINE down to a 1 in velocity-detail can be saved from accidential erase. I have been using a sheet of acetate over the TV screen to help draw perspective-helps but is not the final answer. I like using ARC as you can draw arcs, circles and lines with little fuss. It is difficult to copy if the whole picture is drawn on the acetate, but if the outlines are sketched out the art takes shape better.

To use DAVE’S PROGRAMME- with AERCO type interface

1.On a new tape SAVE a bootstrap loader to LOAD “”
2.Type in Dave’s Program- SAVE on the tape
3.Write a second program to DELETE Dave’s works and to LOAD””.
4.Strip the screen$ off the ARTWORX basic program-use MERGE to get the last BASIC and CODE loads, and SAVE them to tape.

I have used Dave’s program just to print out screens from the ARTWORX’s and copied from this article to test for bugs. Works fine Dave- THANKS! We have done this for the owners of both Aerco IFs and Artworx to better enjoy this fine program even better. I say we, Dave for the mc work and me for the pushing of him into doing it. Artworx is available from RAMEX Int’l. 17620 26 Mile Road, Washington, MI 48094