2061LH  `#$.!.".#.$8#%$&#$.!."`8<]^_]H^._^_^._^._m^^m__h80m^^_]о_^` 938!"%& '!#X!E\Ȍ!x8\!%ɒ8x!钍!!)H!"!."!."h!"&% '#!m`   "&%! '#!Α `,   ɠ H  " ʩ "  " " hL" Li  "  ɠ " " L W  W   `U1:13,U2:13,B-P13,0   `HH  hh  ,  ,  L8 i H 0 h 0L! 8! `  h  `! ! `ABORTED! (TOO MANY SCREENS TO LOAD). BLAZIN' FORTH SCREEN PORT PROGRAM START SCREEN? END SCREEN? WRITING SCREENS... READING SCREENS... DONE. SAVE "NAME",8 ALL DONE! SCREENS. INSERT SCREENS DISK, PRESS RETURN.. ΅  L  a `  a `  x 8ީ    " " " -.`    a `  x   L,  L =<LI# v  w L #  `8did 0 L // SCREEN LOCK BY L. LEFF 7/87 //// DOCUMENTATION SCREENS 54-56 //_' UPDATE >BODY @ CONSTANT UP1" CREATE LOCK-TABLE 170 ALLOT%165 CONSTANT LSq: LOAD-LOCKS LS BLOCK LOCK-TABLE 166 MOVE ; : SAVE-LOCKS 0 LS LOCK-TABLE + C! LOCK-TABLELS BLOCK 166 MOVE UPDATE SAVE-BUFFERS ;W: (LOCK) LOCK-TABLE + 1 SWAP C! ; : (UNLOCK) LOCK-TABLE + 0 SWAP C! ;: LOCK (LOCK) SAVE-LOCKS ;": UNLOCK (UNLOCK) SAVE-LOCKS ;a // SCREEN LOCK BY L. LEFF 7/87 //_: THRU-LOCK 1+ SWAP DO I (LOCK) LOOP SAVE-LOCKS ; : THRU-UNLOCK 1+ SWAP DO I (UNLOCK) LOOP SAVE-LOCKS ; ?: SHOW-LOCKS ." " 166 0 DO&LOCK-TABLE I + C@ IF ." " THEN!I 4 .R ." " LOOP CR CR& ." HIGHLIGHTED SCREENS ARE LOCKED" CR CR ABORT ;K: FLASH 1 53280 +! 1000 0 DO LOOP -1 53280 +! ;P : (NEW-UPDATE) 1 >BCQ C@ LOCK-TABLE+ C@ IF FLASH ELSE.1 >BCQ 2+ 2+ ON THEN R> DROP ;_ // SCREEN LOCK BY L. LEFF 7/87 //: OLD-UPDATE UP1 ['] UPDATE >BODY ! ; ?: NEW-UPDATE ['] (NEW-UPDATE) ['] UPDATE >BODY ! ; : MOUNT MOUNT LOAD-LOCKS NEW-UPDATE ;// DOCUMENTATION ON SCREENS 54-56  EXIT * SCREEN LOCK DOCUMENTATION *^THESE WORDS ALLOW YOU TO WRITE"PROTECT YOUR SCREENS AGAINST# UNWANTED MODIFICATION ON DISK.bFOR OPTIMAL USE THESE WORDS SHOULDBE COMPILED AND THEN SAVED WITH THE BLAZIN' FORTH SYSTEM ON A#PROGRAM DISK USING THE "SAVE-FORTH"FUNCTION WITHIN BLAZIN' FORTH.a SCREEN 165 IS CURRENTLY SET AS THESCREEN-LOCK DATA TABLE--IT CANNOTBE LOCKED.u EXIT * SCREEN LOCK DOCUMENTATION *^WORDS:y MOUNT -- NEW VERSION TO INITIATE"LOCK TABLE -- MUST USE 1ST !bLOCK, UNLOCK -- AFFECT THE SCREEN NUMBER CURRENTLY ON THE STACK.`THRU-LOCK, THRU-UNLOCK -- AFFECT"GROUPS OF SCREENS. EXAMPLE:" "0 164 THRU-UNLOCK" WILL WRITE"ENABLE ALL SCREENS.kSHOW-LOCKS -- DISPLAYS LOCK TABLE EXIT * SCREEN LOCK DOCUMENTATION *^OLD-UPDATE -- RESTORES ORIGINAL#FUNCTION WITHOUT LOCK CHECKING ?NEW-UPDATE -- RETURNS TO NEW SYSTEM IF YOU ATTEMPT TO UPDATE A LOCKEDSCREEN, THE PROGRAM RESPONDS WITHA SCREEN FLASH TO TELL YOU THE"CHANGES WILL NOT BE COPIED TO DISK. KENJOY!zL. LEFF,