mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-04 05:05:13 +00:00
4 lines
298 B
QBasic
4 lines
298 B
QBasic
2 FOR X=0TO116:A=(PEEK(2264+X/2)-32)/4:IFJTHENA=(A-INT(A))*4
|
|
3 J=NOTJ:POKE768+X,(PEEK(2147+X)-32)*4+A:NEXT:CALL768
|
|
9 REM (V\I]I]B.Y^A]FY^R@:A]9]&B9^A^F9^R@:A^9^9^9^9_9_L'Y_T Y_I]:@A]D Y].J Y^A^J Y^A^I_")_1_A_*!" JI^,HI]*\TG([]I]I]I^(5]3 .(.!!(%$).()! %$)&"*."$&(*-)!(*,$$$$%%&*--)-*%#'$! *(- ,#,
|