home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / decpro300 / proterm.bas < prev    next >
BASIC Source File  |  2020-01-01  |  1KB  |  39 lines
  1. SET NO DOUBLE 
  2. 10 REM TERMINAL EMULATOR FOR PRO/BASIC V1.2 OR LATER USING COMMUNICATIONS PORT
  3. 20 REM 
  4. 30 ESC$=CHR$(27)\CLEAR$=ESC$+"[H"+ESC$+"[J"
  5. 40 BIGT$=ESC$+"#3"\BIGB$=ESC$+"#4"
  6. 50 SAVE$=ESC$+"7"\UP$=ESC$+"[3A"\REST$=ESC$+"8"
  7. 60 INT$=CHR$(171)
  8. 70 REM For better performance you can change the values of SPC, MAXLIN & BREAK$
  9. 80 SPC=12
  10. 90 BREAK$=CHR$(13)+ESC$+" "+CHR$(9)\BRLEN%=LEN(BREAK$)
  11. 100 MAXLIN=65
  12. 110 CTR=0
  13. 120 PRINT CLEAR$
  14. 130 PRINT BIGT$;" type ";INT$;" to send a control-C "
  15. 140 PRINT BIGB$;" type ";INT$;" to send a control-C "
  16. 150 OPEN 'XK:' AS FILE #1
  17. 160 LINPUT #1,A$
  18. 170 IF LEN(A$)=0 THEN 300
  19. 180 A=999
  20. 190 FOR LP%=1 TO BRLEN%
  21. 200 B=POS(A$,MID$(BREAK$,LP%,1%),SPC)
  22. 210 IF B<>0 AND B<A THEN A=B
  23. 220 NEXT LP%
  24. 230 IF CTR+LEN(MID$(A$,1,A))>MAXLIN THEN A=1\ GOTO 260
  25. 240 IF A=999 THEN PRINT A$;\CTR=CTR+LEN(A$)\ GOTO 300
  26. 250 PRINT MID$(A$,1,A-1);
  27. 260 PRINT SAVE$;UP$\ PRINT REST$;
  28. 270 PRINT MID$(A$,A,1);\A$=MID$(A$,A+1,LEN(A$))
  29. 280 CTR=0
  30. 290 GOTO 170
  31. 300 CALL INKEY (A$)
  32. 310 IF LEN(A$)=0 THEN 160
  33. 320 IF A$=INT$ THEN A$=CHR$(3)
  34. 330 IF ASCII(A$)=155 THEN A$=CHR$(27)
  35. 340 IF ASCII(A$)=143 THEN A$=CHR$(27)+'['
  36. 350 PRINT #1,A$
  37. 360 GOTO 300
  38. 370 END 
  39.