\ WARNING: SCREEN ZERO CANNOT BE LOADED!! 16Mar85dco This 4k screen file contains LOAD screens to install fullscreen editing functions for the Kaypro 10, 4'84, 2X, "new" 2, etc. It also establishes EPSON as the execution vector for INIT-PR, i.e., INIT-PR will send Control-O (condensed print command) to the Epson RX-80 line printer, to set it in 132-column mode. The SHOW, SHADOW SHOW and LISTING commands all need 132 cols. For use with Laxen & Perry's Forth 83 Model 2.1.0, distributed as F83V2-80.LBR. Dave Oshel Ames, Iowa \ LOAD screen for Kaypro terminal installation 16Mar85dco 2 LOAD ONLY FORTH ALSO DEFINITIONS : NEWBOOT (S -- ) DARK HELLO [ EDITOR ] KAYPRO [ FORTH ] ; ' NEWBOOT IS BOOT ' EPSON IS INIT-PR WARNING OFF MARK EMPTY HERE FENCE ! WARNING ON CR .( Kaypro screen loaded, hit a key) KEY EDITOR KAYPRO FORTH DARK CR .( Saving new system as F83-KPRO.COM ) SAVE-SYSTEM F83-KPRO.COM \ Kaypro Terminal Drivers 16Mar85dcoEDITOR DEFINITIONS : KP-AT (S x y -- ) 27 EMIT ASCII = EMIT 32 + EMIT 32 + EMIT ; : KP-DARK (S -- ) 26 EMIT ; : KP-BLOT (S n -- ) DROP 24 EMIT ; : KP--LINE (S -- ) 27 EMIT ASCII E EMIT ; : KAYPRO (S -- ) SMART ['] KP-AT IS AT ['] KP-DARK IS DARK ['] KP-BLOT IS BLOT ['] KP--LINE IS -LINE ; ONLY FORTH ALSO DEFINITIONS \ empty 16Mar85dco
