Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > comp.sys.apple2 > #22222 > unrolled thread

How Should I document Printing a DHGR image on an Apple II?

Started by"Bill Buckels" <bbuckels@mts.net>
First post2014-10-24 06:40 -0500
Last post2014-10-24 21:15 -0700
Articles 13 — 5 participants

Back to article view | Back to comp.sys.apple2


Contents

  How Should I document Printing a DHGR image on an Apple II? "Bill Buckels" <bbuckels@mts.net> - 2014-10-24 06:40 -0500
    Re: How Should I document Printing a DHGR image on an Apple II? scott@alfter.diespammersdie.us (Scott Alfter) - 2014-10-24 17:04 +0000
      Re: How Should I document Printing a DHGR image on an Apple II? "Bill Buckels" <bbuckels@mts.net> - 2014-10-25 05:26 -0500
        Re: How Should I document Printing a DHGR image on an Apple II? scott@alfter.diespammersdie.us (Scott Alfter) - 2014-10-28 18:16 +0000
        Re: How Should I document Printing a DHGR image on an Apple II? scott@alfter.diespammersdie.us (Scott Alfter) - 2014-10-28 19:37 +0000
    Re: How Should I document Printing a DHGR image on an Apple II? "Christopher G. Mason" <cgm1@my-deja.com> - 2014-10-24 17:19 -0400
    Re: How Should I document Printing a DHGR image on an Apple II? "Bill Buckels" <bbuckels@mts.net> - 2014-10-24 19:43 -0500
      Re: How Should I document Printing a DHGR image on an Apple II? Steve Nickolas <usotsuki@buric.co> - 2014-10-25 02:30 +0000
      Re: How Should I document Printing a DHGR image on an Apple II? "Christopher G. Mason" <cgm1@my-deja.com> - 2014-10-24 23:01 -0400
        Re: How Should I document Printing a DHGR image on an Apple II? "Bill Buckels" <bbuckels@mts.net> - 2014-10-25 05:12 -0500
        Re: How Should I document Printing a DHGR image on an Apple II? scott@alfter.diespammersdie.us (Scott Alfter) - 2014-10-28 19:20 +0000
          Re: How Should I document Printing a DHGR image on an Apple II? "Bill Buckels" <bbuckels@mts.net> - 2014-10-28 16:24 -0500
      Re: How Should I document Printing a DHGR image on an Apple II? gids.rs@sasktel.net - 2014-10-24 21:15 -0700

#22222 — How Should I document Printing a DHGR image on an Apple II?

From"Bill Buckels" <bbuckels@mts.net>
Date2014-10-24 06:40 -0500
SubjectHow Should I document Printing a DHGR image on an Apple II?
Message-ID<m2ddsc$nbe$1@speranza.aioe.org>
I want to document printing a DHGR image from an Apple IIe on an ImageWriter 
using a Super Serial Card in a cc65 program.

Has this code been done already and if so can someone point me to it for 
review?

If it hasn't been done in cc65 has it been done in AppleSoft BASIC? That 
code would get me started. Otherwise if this has never been done before I 
will be the first... this is unlikely so someone should have this code 
somewhere I think.

Thanks.

Bill
 

[toc] | [next] | [standalone]


#22226

Fromscott@alfter.diespammersdie.us (Scott Alfter)
Date2014-10-24 17:04 +0000
Message-ID<m2e0q9$qqa$1@dont-email.me>
In reply to#22222
In article <m2ddsc$nbe$1@speranza.aioe.org>,
Bill Buckels <bbuckels@mts.net> wrote:
>I want to document printing a DHGR image from an Apple IIe on an ImageWriter 
>using a Super Serial Card in a cc65 program.
>
>Has this code been done already and if so can someone point me to it for 
>review?
>
>If it hasn't been done in cc65 has it been done in AppleSoft BASIC? That 
>code would get me started. Otherwise if this has never been done before I 
>will be the first... this is unlikely so someone should have this code 
>somewhere I think.

Pure BASIC code won't work.  You need to send 8-bit data to the printer, but
you can't do that without at least a little stub assembly-language
routine similar to this:

0300: A9 A0     LDA #$A0
0302: 4C ED FD  JMP COUT 

The bigger stumbling block is that the pixels on the HR and DHR screens are
grouped horizontally, but need to be grouped vertically for printing.  BASIC
would be intolerably slow at this sort of bit-mangling.  C would've been
better, but I didn't have a compiler for the Apple II and didn't even start
learning that language until maybe my second year of college (introductory
computer science courses were still using Pascal at the time).

I had a go at it with assembly language back in the day.  I'm pretty sure I
had some working code at one point, but if I still have it, it's probably
packed up in the garage.  I don't recall if it was Hi-Res or DHR; if it was
only Hi-Res, it wouldn't have been that big a deal to adapt to DHR: print at
160x72 dpi instead of 80x72, and alternate between auxiliary and main memory
for each group of 7 columns of pixels.

At one point, I was trying to push the Imagewriter for all it was worth.  I
had a driver (usable from BASIC) that did two-pass printing of text at
160x144 dpi to emulate other printers' "NLQ" mode.  At one point, I was
trying to print color graphics in multiple passes by printing a pass in one
color, winding the paper back, swapping ribbons, and printing the next pass. 
Quality wasn't particularly good, in part because while I could find yellow
ribbons for the Imagewriter, I couldn't find cyan and magenta.  Blue and red
were available, but produced too-dark print.  Seeing how proper color
dot-matrix printers handled printing photos and such a few years later, I
shouldn't have gotten my hopes up too high.  For monochrome images, though,
it worked well enough.

  _/_
 / v \ Scott Alfter (remove the obvious to send mail)
(IIGS( http://alfter.us/            Top-posting!
 \_^_/                              >What's the most annoying thing on Usenet?

[toc] | [prev] | [next] | [standalone]


#22241

From"Bill Buckels" <bbuckels@mts.net>
Date2014-10-25 05:26 -0500
Message-ID<m2ftts$fkb$1@speranza.aioe.org>
In reply to#22226
"Scott Alfter" <scott@alfter.diespammersdie.us> wrote:
>The bigger stumbling block is that the pixels on the HR and DHR screens are 
>grouped horizontally, but need to be grouped vertically for printing.

It's really easy to unmask these into individual pixels.

>BASIC would be intolerably slow at this sort of bit-mangling.

I think BASIC will need some help from ML. I'll get this working in C first 
and decompose it back down to BASIC with as few ML subroutines as possible.

The idea is to document DHGR graphics printing in step form with working 
examples. There isn't much incentive for anyone to use DHGR bitmapped 
graphics without providing some kind of target program. So far SlideShows, 
Movies, and Sprites for games and demos are on my radar (Jonas did a 
prototype movie recently) and I've done the other two prototypes... but 
printing applications expand the potential for a retro experience a great 
deal.

Thanks for your thoughts. You can jump-in and write part of this anytime you 
want. I may need some help with the ML routines for the BASIC examples when 
I get to them. The C code I can easily manage after I get the printer output 
routines fleshed-out.

Bill 

[toc] | [prev] | [next] | [standalone]


#22272

Fromscott@alfter.diespammersdie.us (Scott Alfter)
Date2014-10-28 18:16 +0000
Message-ID<m2omi7$rg3$1@dont-email.me>
In reply to#22241
In article <m2ftts$fkb$1@speranza.aioe.org>,
Bill Buckels <bbuckels@mts.net> wrote:
>"Scott Alfter" <scott@alfter.diespammersdie.us> wrote:
>>The bigger stumbling block is that the pixels on the HR and DHR screens are 
>>grouped horizontally, but need to be grouped vertically for printing.
>
>It's really easy to unmask these into individual pixels.
>
>>BASIC would be intolerably slow at this sort of bit-mangling.
>
>I think BASIC will need some help from ML. I'll get this working in C first 
>and decompose it back down to BASIC with as few ML subroutines as possible.

I didn't intend to imply that bit-mangling would be difficult (it isn't),
only that a BASIC-only implementation would be intolerably slow due to the
lack of bitwise operators.  Since a helper routine is already necessary for
output to the printer, I suppose another helper routine to do the
bit-mangling wouldn't be out of order either.

>Thanks for your thoughts. You can jump-in and write part of this anytime you 
>want. I may need some help with the ML routines for the BASIC examples when 
>I get to them. The C code I can easily manage after I get the printer output 
>routines fleshed-out.

I'll see what I can knock together.  The only thing I don't recall offhand
is whether the low bit of graphics data sent to the printer will fire the
topmost pin or the bottommost pin.  I'd have to dig up my manuals, as the
Imagewriter II manual I've found online doesn't include graphics commands
and the Imagewriter manual I've found is in French.

  _/_
 / v \ Scott Alfter (remove the obvious to send mail)
(IIGS( http://alfter.us/            Top-posting!
 \_^_/                              >What's the most annoying thing on Usenet?

[toc] | [prev] | [next] | [standalone]


#22274

Fromscott@alfter.diespammersdie.us (Scott Alfter)
Date2014-10-28 19:37 +0000
Message-ID<m2ora1$f85$1@dont-email.me>
In reply to#22241
In article <m2ftts$fkb$1@speranza.aioe.org>,
Bill Buckels <bbuckels@mts.net> wrote:
>Thanks for your thoughts. You can jump-in and write part of this anytime you 
>want. I may need some help with the ML routines for the BASIC examples when 
>I get to them. The C code I can easily manage after I get the printer output 
>routines fleshed-out.

Here's something I knocked together in the mini-assembler.  It takes a 7x8
block of pixels and rearranges them from row order to column order.  It uses
a little bit of self-modifying code to copy a block from the screen into
0x0380-0x0387, then rotates the bits into left-to-right order, LSB at top,
at 0x0388-0x038E.  Put the starting address of the pixel block at 0x0303. 

0300  A2 07     LDX #7
0302  18        CLC
0303  AD 00 20  LDA $2000
0306  9D 80 03  STA $380,X
0309  AD 05 03  LDA $305
030C  69 04     ADC #4
030E  8D 05 03  STA $305
0311  CA        DEX
0312  10 EF     BPL $303
0314  A2 F9     LDX #$F9
0316  A0 07     LDY #7
0318  B9 80 03  LDA $380,Y
031B  6A        ROR
031C  99 80 03  STA $380,Y
031F  7E 8F 02  ROR $28F,X
0322  88        DEY
0323  10 F3     BPL $318
0325  E8        INX
0326  30 EE     BMI $316
0328  60        RTS

To test, draw a short diagonal line:

HGR:HCOLOR=3:HPLOT 0,0 TO 7,8

Set up and execute:

POKE 772,0:POKE 773,32:CALL 768

Dump the result:

FOR I=904 TO 910:PRINT PEEK(I):NEXT

You should get this result set: 3 6 12 24 48 96 192.

  _/_
 / v \ Scott Alfter (remove the obvious to send mail)
(IIGS( http://alfter.us/            Top-posting!
 \_^_/                              >What's the most annoying thing on Usenet?

[toc] | [prev] | [next] | [standalone]


#22231

From"Christopher G. Mason" <cgm1@my-deja.com>
Date2014-10-24 17:19 -0400
Message-ID<m2efq5$i1c$1@dont-email.me>
In reply to#22222
On 10/24/2014 7:40 AM, Bill Buckels wrote:
> I want to document printing a DHGR image from an Apple IIe on an ImageWriter
> using a Super Serial Card in a cc65 program.
>
> Has this code been done already and if so can someone point me to it for
> review?
>
> If it hasn't been done in cc65 has it been done in AppleSoft BASIC? That
> code would get me started. Otherwise if this has never been done before I
> will be the first... this is unlikely so someone should have this code
> somewhere I think.
>
> Thanks.
>
> Bill
>
>
>

If you need a way to test printing without wasting paper, GSport 
supports Imagewriter II and Imagewriter LQ graphics printing in all 
supported resolutions.

[toc] | [prev] | [next] | [standalone]


#22233

From"Bill Buckels" <bbuckels@mts.net>
Date2014-10-24 19:43 -0500
Message-ID<m2ernh$5kp$1@speranza.aioe.org>
In reply to#22222
"Bill Buckels" <bbuckels@mts.net> wrote:
 >printing a DHGR image from an Apple IIe on an ImageWriter using a Super 
Serial Card in a cc65 program.

I guess this doesn't exist. I'm not looking for code snippets although they 
are interesting.

I was looking for the cc65 source for an end to end program that formats and 
prints DHGR images after it sets-up the printer.

Complete with escape sequences; the whole bit.

For the Apple IIe (not the IIgs) although GSPort sounds like a place to 
test.

Another way to do this (I've done this in the past) is to convert a graphic 
to a "PRN" file of printer codes mixed with bitmap data for a specific 
printer (I did this in the 90's  with various cash register printers for 
company logos, HP PCL printers, Epson Printers etc). The PRN file can then 
be streamed to the printer

I can get info for Epson info printers freely but this ImageWriter seems to 
want money for the Technical Reference Manual. I might just do the PRN file 
conversion for an Epson for now.

>has it been done in AppleSoft BASIC?

Sounds like this doesn't exist.

The simplest thing for me to do is probably to add PRN file output to 
Bmp2DHR and then write a cc65 program that streams the PRN file.

If that works well enough I can port the PRN file routine to cc65 and do 
Print Screen Memory in cc65.

I remember doing this with EGA mode back in the '80's with MS-DOS too.

But we had good documentation and other C coders.

Bill





[toc] | [prev] | [next] | [standalone]


#22234

FromSteve Nickolas <usotsuki@buric.co>
Date2014-10-25 02:30 +0000
Message-ID<alpine.DEB.2.02.1410250230070.65886@localhost>
In reply to#22233
On Fri, 24 Oct 2014, Bill Buckels wrote:

> I remember doing this with EGA mode back in the '80's with MS-DOS too.
>
> But we had good documentation and other C coders.
>
> Bill

And GRAPHICS.COM that made it all irrelevant.

-uso.

[toc] | [prev] | [next] | [standalone]


#22236

From"Christopher G. Mason" <cgm1@my-deja.com>
Date2014-10-24 23:01 -0400
Message-ID<m2f3qm$154$1@dont-email.me>
In reply to#22233
On 10/24/2014 8:43 PM, Bill Buckels wrote:
> "Bill Buckels" <bbuckels@mts.net> wrote:
>
> I can get info for Epson info printers freely but this ImageWriter seems to
> want money for the Technical Reference Manual. I might just do the PRN file
> conversion for an Epson for now.
>

The ESC codes are documented in the GSport source (check 
imagewriter.cpp). Graphics bits are handled in the REVERSE manner from 
Epson ESC/P printers, least significant bit is the top pin while most 
significant is the bottom pin. Parameter numbers for ESC codes are sent 
as ASCII strings, not raw hex values. I have both the Imagewriter II and 
Imagewriter LQ Technical Reference manuals if you have any questions. 
They were not easy to acquire and unfortunately I have no access to a 
book scanner.

Setting Horizontal resolution (pitch):
ESC n: print in 72 horizontal dpi
ESC N: print in 80 horizontal dpi
ESC E: print in 96 horizontal dpi
ESC e: print in 107 horizontal dpi
ESC q: print in 120 horizontal dpi
ESC Q: print in 136 horizontal dpi
ESC p: print in 144 horizontal dpi
ESC P: print in 160 horizontal dpi

Double the above values when printing with the Imagewriter LQ commands 
below. EG: ESC P produces 320 horizontal dpi when printing with ESC C 
and ESC U.

Graphics codes (8 pins/72 vertical dpi):
ESC G nnnn: Print nnnn standard resolution graphics columns
ESC g nnn: Print 8 x nnn standard resolution graphics columns
ESC V nnnn c: Print nnnn repetitions of graphics bit c.
ESC K n: change color (IW II and LQ only)

Imagewriter LQ only high resolution graphics commands (24 pins/216 
vertical dpi):
ESC C nnnn: Print nnnn x 3 high resolution graphics columns
ESC U nnnn abc: Print nnnn repetitions of high res graphics bits abc.

Parts of the original Imagewriter manual are here: 
<http://lisaem.sunder.net/cgi-bin/bookview2.cgi?zoom=-3?page=0?book=10?Go=Go>

Imagewriter II Codes are here: 
<http://mirrors.apple2.org.za/Apple%20II%20Documentation%20Project/Peripherals/Printers/Apple%20ImageWriter%20II/Manuals/Apple%20ImageWriter%20II%20-%20Quick%20Reference%20Card.pdf>

Imagewriter II manual: 
<http://mirrors.apple2.org.za/Apple%20II%20Documentation%20Project/Peripherals/Printers/Apple%20ImageWriter%20II/Manuals/Apple%20ImageWriter%20II%20-%20Owner%27s%20Manual.pdf>


[toc] | [prev] | [next] | [standalone]


#22240

From"Bill Buckels" <bbuckels@mts.net>
Date2014-10-25 05:12 -0500
Message-ID<m2ft45$dl0$1@speranza.aioe.org>
In reply to#22236
"Christopher G. Mason" <cgm1@my-deja.com> wrote:
>The ESC codes are documented in the GSport source (check imagewriter.cpp).
Thanks for all the help Chris,

The thought had crossed my mind to review the GSPort source. You have left 
me with little choice now:)

I'll probably just do an A size rotated DHGR screen printout routine for 
cc65 initially and add a DHGR graphics catalog printout later.
Also having this in 8 bit 6502 ProDOS makes this accessible to Apple IIe 
programmers and users who might have a real printer.

>Graphics bits are handled in the REVERSE manner from Epson ESC/P printers, 
>least significant bit is the top pin while most
significant is the bottom pin.

After further thought, the Imagewriter is the way to go for a Genuine Apple 
II solution rather than the Epson. Your info is an offer that I can't 
refuse.

Again thanks. Lots of effort went into your posts. I really appreciate it.


Bill 

[toc] | [prev] | [next] | [standalone]


#22273

Fromscott@alfter.diespammersdie.us (Scott Alfter)
Date2014-10-28 19:20 +0000
Message-ID<m2oq9f$b0n$1@dont-email.me>
In reply to#22236
In article <m2f3qm$154$1@dont-email.me>,
Christopher G. Mason <cgm1@my-deja.com> wrote:
>The ESC codes are documented in the GSport source (check 
>imagewriter.cpp). Graphics bits are handled in the REVERSE manner from 
>Epson ESC/P printers, least significant bit is the top pin while most 
>significant is the bottom pin.

That's the part I wasn't sure about.  Code to follow shortly.

  _/_
 / v \ Scott Alfter (remove the obvious to send mail)
(IIGS( http://alfter.us/            Top-posting!
 \_^_/                              >What's the most annoying thing on Usenet?

[toc] | [prev] | [next] | [standalone]


#22277

From"Bill Buckels" <bbuckels@mts.net>
Date2014-10-28 16:24 -0500
Message-ID<m2p1iq$e72$1@speranza.aioe.org>
In reply to#22273
"Scott Alfter" <scott@alfter.diespammersdie.us> wrote:
>Code to follow shortly.

Sounds good!

Bill 

[toc] | [prev] | [next] | [standalone]


#22237

Fromgids.rs@sasktel.net
Date2014-10-24 21:15 -0700
Message-ID<a8e29653-1940-45d5-a055-6a3e5dc07542@googlegroups.com>
In reply to#22233
On Friday, 24 October 2014 18:43:31 UTC-6, Bill Buckels  wrote:

>  >printing a DHGR image from an Apple IIe on an ImageWriter using a Super 
> Serial Card in a cc65 program.
> 
> I guess this doesn't exist. I'm not looking for code snippets although they 
> are interesting.
> 
> I was looking for the cc65 source for an end to end program that formats and 
> prints DHGR images after it sets-up the printer.
> 
> Complete with escape sequences; the whole bit.
> For the Apple IIe (not the IIgs) although GSPort sounds like a place to 
> test.

> Another way to do this (I've done this in the past) is to convert a graphic 
> to a "PRN" file of printer codes mixed with bitmap data for a specific 
> printer (I did this in the 90's  with various cash register printers for 
> company logos, HP PCL printers, Epson Printers etc). The PRN file can then 
> be streamed to the printer
> 
> I can get info for Epson info printers freely but this ImageWriter seems to 
> want money for the Technical Reference Manual. I might just do the PRN file 
> conversion for an Epson for now.
> >has it been done in AppleSoft BASIC?
> Sounds like this doesn't exist.
> The simplest thing for me to do is probably to add PRN file output to 
> Bmp2DHR and then write a cc65 program that streams the PRN file.
> If that works well enough I can port the PRN file routine to cc65 and do 
> Print Screen Memory in cc65.
> I remember doing this with EGA mode back in the '80's with MS-DOS too.
> But we had good documentation and other C coders.
> Bill



Double Stuff in the Nibble magazine has a Dbl Hi-Res screen dump routine.  I don't have the magazine handy to tell you which one, but there is a complete source code listing.


It has been so long ago but I believe I used the following applesoft and binary combo to print the AirHeart title screen which turned out pretty good.  It only prints in 7 colors though with the white paper being the 8th color.

BLACK,YELLOW,RED,BLUE,ORANGE,GREEN,PURPLE


 1  HOME : PRINT "PRINT ON RIGHT SIDE OF PAPER (Y/N) -> ";: GET A$:T = 40 * (A$ = "Y")
 5  PRINT  CHR$ (21): CALL  - 3100: POKE 230,32
 10 D$ =  CHR$ (4):E$ =  CHR$ (27): PRINT D$"PR#1"
 15  PRINT  CHR$ (9)"80N": PRINT E$"1": PRINT E$"l" CHR$ (T);
 20  FOR I = 39 TO 0 STEP  - 1: POKE 6,I: FOR J = 0 TO 2: PRINT E$"K@" CHR$ (0);: POKE 769,J: CALL 768: NEXT : PRINT : NEXT 
 40  PRINT : PRINT E$"2": PRINT D$"PR#0"
 50  TEXT : HOME


0300: a9 00 d0 04 a9 00 85 09 a9 40 85 08 a5 09 85 1b
0310: 0a 0a 85 1a 0a 2a 2a 05 1a 29 1f 05 e6 48 29 00
0320: 6a 24 1b 10 02 69 50 50 02 69 28 85 1a 68 85 1b
0330: a9 40 20 a8 fc a4 06 b1 1a 29 7f 8d 90 c0 49 7f
0340: 91 1a e6 09 c6 08 d0 c4 60 00 00 00 00 00 00 00

0300-   A9 00       LDA   #$00
0302-   D0 04       BNE   $0308
0304-   A9 00       LDA   #$00
0306-   85 09       STA   $09
0308-   A9 40       LDA   #$40
030A-   85 08       STA   $08
030C-   A5 09       LDA   $09
030E-   85 1B       STA   $1B
0310-   0A          ASL
0311-   0A          ASL
0312-   85 1A       STA   $1A
0314-   0A          ASL
0315-   2A          ROL
0316-   2A          ROL
0317-   05 1A       ORA   $1A
0319-   29 1F       AND   #$1F
031B-   05 E6       ORA   $E6
031D-   48          PHA
031E-   29 00       AND   #$00
0320-   6A          ROR
0321-   24 1B       BIT   $1B
0323-   10 02       BPL   $0327
0325-   69 50       ADC   #$50
0327-   50 02       BVC   $032B
0329-   69 28       ADC   #$28
032B-   85 1A       STA   $1A
032D-   68          PLA
032E-   85 1B       STA   $1B
0330-   A9 40       LDA   #$40
0332-   20 A8 FC    JSR   $FCA8
0335-   A4 06       LDY   $06
0337-   B1 1A       LDA   ($1A),Y
0339-   29 7F       AND   #$7F
033B-   8D 90 C0    STA   $C090
033E-   49 7F       EOR   #$7F
0340-   91 1A       STA   ($1A),Y
0342-   E6 09       INC   $09
0344-   C6 08       DEC   $08
0346-   D0 C4       BNE   $030C
0348-   60          RTS


This code was written a while ago, and I didn't make any notes.  So it might be a little confusing.

Although the routine uses $E6 for the graphics page, it is only used as a starting address.  But I believe what I did when I loaded the graphics file from disk is, I interleaved the Aux and Main memory graphics bytes and then saved the file back to disk for printing.

The interleaved file would have been saved as:  Aux byte, Main byte, Aux byte, Main byte, etc...  and the file would have had a length of $4000.

This saved me from bank switching, since at the time I didn't know how to use Aux memory.  But someone in the know can easily fix that.

I also don't know how the program converted 16 colors down to 8, but I kind of remember the program setting the the printer to cycle thru each of the 7 colors before going on to print the next line.

I don't have my imagewriter set up so can't test.


Here is an alternate program for changing color of the graphics screen but I believe it prints the whole graphics screen in just one color.

 1  HOME : PRINT "PRINT ON RIGHT SIDE OF PAPER (Y/N) -> ";: GET A$:T = 40 * (A$ = "Y")
 2  PRINT : PRINT "WHICH COLOR WOULD YOU LIKE TO PRINT IN:": FOR I = 0 TO 6: READ A$: HTAB 10: PRINT I" - "A$: NEXT : DATA BLACK,YELLOW,RED,BLUE,ORANGE,GREEN,PURPLE
 4  PRINT : PRINT "CHOICE (0-6) -> ";: GET A$:C =  VAL (A$)
 5  PRINT  CHR$ (21): CALL  - 3100: POKE 230,32
 10 D$ =  CHR$ (4):E$ =  CHR$ (27): PRINT D$"PR#1"
 11  PRINT  CHR$ (9)"80N"
 12  PRINT E$"L000": IF T = 40 THEN  PRINT E$"L040"
 15  PRINT E$"T07": PRINT E$"K"C: PRINT E$"D" CHR$ (0) CHR$ (32)
 20  FOR I = 39 TO 0 STEP  - 1: POKE 6,I: FOR J = 0 TO 2: PRINT E$"G0192"
 30  CALL 768: NEXT : PRINT : NEXT 
 40  PRINT : PRINT E$"T08": PRINT D$"PR#0"
 50  TEXT : HOME

[toc] | [prev] | [standalone]


Back to top | Article view | comp.sys.apple2


csiph-web