Getting 80 column BASIC listing on apple2e

So I was disappointed that I could only get a 40 column wide printout from my basic listing, so I tried PR#3 to activate the 80 column card but once you activate the printer with PR#1, that brings it back to 40 columns.

Thinking about it, I remembered that Beagle's Double-take would let me do listings in any column width.

Launching mame with the double take floppy:

./mame64 apple2e -sl1 ssc -sl1:ssc:ssc_rs232 printer -printout myprintfile8.bin -flop1 Double\ Take.zip












Booting double-take and then

CTRL+F shift+1 /80 will get you 80 columns
CTRL+F shift+1 /255 will get you 255 columns

Interestingly, mame's -printout function won't wipe out your previous printout file if it has the same name, it just overwrites the data in the existing file.

cat myprintfile8.bin | tr '\200-\377' '\000-\177' 


(without parameters, it's your regular 40 columns)

]FUNCTION? LIST 

90 DIM PP(192)
100 HGR 
110 FOR Y = 0 TO 191
120 M = (Y / 8 - INT (Y / 8)) * 8
130 N = INT (Y / 8)
:N = (N / 8 - INT (N / 8)) * 8
140 O = INT (Y / 64)
150 P = M * 1024 + N * 128 + O * 40
+ 8192
155 PP(Y) = P
160 POKE P,Y
170 NEXT 
180 FOR Y = 0 TO 191
:POKE PP(Y) + 1,Y
:NEXT 


(so here we have an 80 column list by adding /80)


]FUNCTION? LIST /80

90  DIM PP(192)
100  HGR 
110  FOR Y = 0 TO 191
120 M = (Y / 8 -  INT (Y / 8)) * 8
130 N =  INT (Y / 8):N = (N / 8 -  INT (N / 8)) * 8
140 O =  INT (Y / 64)
150 P = M * 1024 + N * 128 + O * 40 + 8192
155 PP(Y) = P
160  POKE P,Y
170  NEXT 
180  FOR Y = 0 TO 191: POKE PP(Y) + 1,Y: NEXT