home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / scroff.200 < prev    next >
Text File  |  2006-10-19  |  1KB  |  23 lines
  1. 0 'SCROFF.200 (c)1987 Wilson Van Alst [76576,2735]
  2. 1 'Scroll toggle for LCD in T200 TERM mode.
  3. 10 CLS:GOSUB1000:IFT=40104THENN$="is NOT"ELSEN$="IS"
  4. 12 PRINT@322,"TELCOM <F6> function "N$" in use."
  5. 14 PRINT@90,"<1> Install":PRINT@130,"<2> Remove":PRINT@170,"<3> Menu":GOSUB5000
  6. 20 IFI<1ORI>3THENBEEP:GOTO10ELSECLS:ONIGOTO100,200,300
  7. 100 GOSUB1000:IFT<>40104THEN9999
  8. 110 CLS:PRINT"Installation options:":PRINT@85,"<1> Hide behind MENU key":PRINT@125,"<2> Hide behind RUN key":PRINT@165,"<3> Top of RAM":PRINT@205,"<4> You name it":PRINT@245,"<5> Cancel installation":GOSUB5000
  9. 120 IFI<1ORI>5THENBEEP:GOTO110ELSEONIGOTO130,140,150,160,10
  10. 130 A=61802:GOSUB170:GOTO10
  11. 140 A=61738:GOSUB170:GOTO10
  12. 150 A=HIMEM-10:GOSUB170:CLEAR256,A:GOTO10
  13. 160 CLS:PRINT:PRINT:INPUT"Install 10 bytes starting at ";A:GOSUB800:GOSUB170:GOTO10
  14. 170 GOSUB800:POKE62783,L:POKE62784,H:FORN=0TO9:READD:POKEA+N,D:NEXT:RESTORE:RETURN
  15. 200 CLS:PRINT@90,"Are you sure?":GOSUB5000:IFINSTR("Yy",I$)=0THEN10
  16. 210 GOSUB1000:POKE62783,168:POKE62784,156:FORN=0TO9:POKET+N,0:NEXT:GOTO10
  17. 300 MENU
  18. 800 H=INT(A/256):L=A-256*H:RETURN
  19. 1000 T=PEEK(62783)+256*PEEK(62784):RETURN
  20. 5000 I$=INKEY$:IFI$=""THEN5000ELSEI=VAL(I$):RETURN
  21. 8000 DATA 245,58,11,239,47,50,11,239,241,201
  22. 9999 PRINT@162,"Potential conflict!!":PRINT:PRINT"If you wish to proceed, run":PRINT"this program again to remove":PRINT"existing code; then run it to":PRINT"install the no-scroll feature.":PRINT:PRINT"Press any key to continue...":GOSUB5000:GOTO10
  23.