mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-04 20:06:09 +00:00
b1238af49d
this will probably upset people
3 lines
294 B
QBasic
3 lines
294 B
QBasic
1REM(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]K 0,CIJ2 AJ4A 'P.(53&&.6%98:N8*YHT1C"151FM2T=:R10@.4,A0V)P
|
|
2FORI=0TO127:C=INT((PEEK(2183+I/3)-32)/4^(I-INT(I/3)*3)):POKE4096+I,((PEEK(2054+I)-32)*4)+C-INT(C/4)*4:NEXT:CALL4096
|