He posted it on comp.sys.cbm a few
years back. Pretty sure that's where it was. Way later than 88 though.
However, I copied this v. and am assuming it's the same from Miro's
commodore128.mirkosoft.sk/vdc.htmlalso...
Then there's the...
The Fred Bowen Interlaced Bitmap
100 REM 640X480 BMM (REQ. 64K VIDEO RAM!) F.BOWEN 9/88
110 :
120 FAST: TRAP410
130 SYSDEC("CDCC"),DEC("7E"),0
140 SYSDEC("CDCC"),DEC("50"),1
150 SYSDEC("CDCC"),DEC("66"),2
160 SYSDEC("CDCC"),DEC("4C"),4
170 SYSDEC("CDCC"),6 ,5
180 SYSDEC("CDCC"),DEC("4C"),6
190 SYSDEC("CDCC"),DEC("47"),7
200 SYSDEC("CDCC"),3 ,8
210 SYSDEC("CDCC"),6 ,9
220 SYSDEC("CDCC"),0 ,24
230 SYSDEC("CDCC"),128+7 ,25
240 SYSDEC("CDCC"),0 ,27
250 SYSDEC("CDCC"),16 ,28
260 SYSDEC("CDCC"),0,12 :SYSDEC("CDCC"),0,13 :SYSDEC("CDCC"),240,26
270 : rem Clear the bitmap using block fills
280 SYSDEC("CDCC"),0,18 :SYSDEC("CDCC"),0,19 :SYSDEC("CDCC"),0,31
290 FORI=0TO255:SYSDEC("CDCC"),0,30 :NEXT
300 : rem Draw a box around the border, rendering into odd & even frames
310 FORI=1TO480/2: EVEN=0+I*80-1: EH=INT(EV/256):EW=(EV-EH*256)
320 : ODD=21360+I*80-1:OH=INT(OD/256):OL=(OD-OH*256)
330 :SYSDEC("CDCC"),OH,18:SYSDEC("CDCC"),OL,19:SYSDEC("CDCA"),1:SYSDEC("CDCA"),
128
340 :SYSDEC("CDCC"),EH,18:SYSDEC("CDCC"),EW,19:SYSDEC("CDCA"),1:SYSDEC("CDCA"),
128
350 :NEXT
360 SYSDEC("CDCC"),0,18:SYSDEC("CDCC"),0,19
370 SYSDEC("CDCC"),255,31 :SYSDEC("CDCC"),79,30: rem use block fill for top of box
380 SYSDEC("CDCC"),OH,18:SYSDEC("CDCC"),OL+1,19
390 SYSDEC("CDCC"),255,31 :SYSDEC("CDCC"),79,30: rem ditto for bottom of box
400 GETKEYA$
410 SYSDEC("E179") :SYSDEC("FF62"): SCNCLR : rem restore screen, d/l chr def's