Category : Word Processors
Archive : UE310.ZIP
Filename : SMOOTH.CMD
Output of file : SMOOTH.CMD contained in archive : UE310.ZIP
set $discmd FALSE
; toggle smooth paging mode
30 store-macro
set $discmd FALSE
!if %rcspage
set %rcspage FALSE
set %rctmp "OFF"
set $sscroll FALSE
!else
set %rcspage TRUE
set %rctmp "ON "
set $sscroll TRUE
!endif
set %cbuf $cbufname
set %cline $cwline
select-buffer "Function Keys"
beginning-of-file
search-forward "Spg["
3 delete-next-character
insert-string %rctmp
unmark-buffer
select-buffer %cbuf
%cline redraw-display
set $discmd TRUE
write-message &cat &cat "[Smooth Paging " %rctmp "]"
!endm
bind-to-key execute-macro-30 FN6
;set up new function keys window
set %cbuf $cbufname
set %cline $cwline
select-buffer "Function Keys"
beginning-of-file
search-forward "f6 "
8 delete-next-character
insert-string "Spg[OFF]"
unmark-buffer
select-buffer %cbuf
%cline redraw-display
set %rcspage FALSE
print "[Smooth Paging loaded]"
set $discmd TRUE
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/