mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +00:00
8 lines
338 B
QBasic
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
|