dos33fsprogs/two-liners/raster5.bas
2020-10-10 17:49:21 -04:00

8 lines
338 B
QBasic

1 DEFFNP(X)=PEEK(2193+I+X)-32
2 J=0:FORI=0TO119STEP4
3 POKE768+J,FNP(0)*4+FNP(1)/16
4 POKE769+J,FNP(1)*16+FNP(3)/4
5 POKE770+J,FNP(3)*64+FNP(4)
6 J=J+3:NEXT
8REM(.CS(-;SC5? C0/ C0# 1NF@9*H (#P#J0$@, "8, ')0+P(HL(LHH*.+0 8R-3CA?^8212HJ0&%_:G]R0&0 D(#*0 89?^JO7X#A?^82.G]H@"@ "@1]*@GC57 ('P#C57 ('P#B!3Q:*K&_13+8*G_D2G)@"G_8 1(CP W>O_8!8