1 REM Smart Terminal 2 REM Written by Ed Faulk 3 REM Donated to the Public Domain 4 REM For the Epson HX-20 5 REM 19 Jan 1983 by 6 REM Faulk And Associates Software 7 REM (714) 738-0789 8 REM Version 2 Modified by Jim Tetzlaff (714) 632-9560 10 TITLE "TERMINAL" 20 WIDTH 20,64:SCROLL 9:WIDTH "COM0:",255 30 CLEAR 9000 40 DIM A$(500) 50 AP=0:HD=0:PS=0 60 OPEN "I",#1,"COM0:(28N1B)" 70 OPEN "O",#2,"COM0:(28N1B)" 80 A$=INKEY$:IF A$="" GOTO 140 90 IF A$=CHR$(4) THEN HD=-(1-ABS(HD)):GOTO 140 100 X$=CHR$(3)+CHR$(5)+CHR$(15)+CHR$(16)+CHR$(7)+CHR$(19)+CHR$(20)+CHR$(26)+CHR $(22) 110 ON INSTR(X$,A$) GOTO 210,550,180,230,280,470,350,400,560 120 IF A$=CHR$(13) THEN A$=A$+CHR$(10) 130 PRINT #2,A$;:IF HD THEN PRINT A$; 140 IF LOF(1)1 GOTO 80 150 IF AP THEN GOTO 420 160 A$=INPUT$(LOF(1),#1):PRINT A$;:GOTO 140 170 GOTO 80 180 AP=-1 190 BP=0:PRINT "**BUFFER OPEN**" 200 GOTO 140 210 AP=0 220 PRINT "**BUFFER CLOSED**":GOTO 140 230 IF PEEK(H14E)128 THEN POKE H7F,(PEEK(H7F) OR HA0) 240 FOR I=0 TO 500 250 LPRINT A$(I) 260 IF A$(I)="" GOTO 140 270 NEXT I:GOTO 140 280 PRINT "[DEV:] FILESPEC" 290 LINE INPUT ":";FS$:PRINT "**LOADING**" 300 BP=0 310 OPEN "I",#3,FS$ 320 IF EOF(3) GOTO 340 330 LINE INPUT #3,A$(BP):BP=BP+1:GOTO 320 340 CLOSE #3:PRINT :**LOADED**":GOTO 140 350 BP=0:PRINT "**TRANSMITTING**" 360 IF A$(BP)="" GOTO 390 370 PRINT #2,A$,(BP) 380 BP=BP+1:IF PB501 GOTO 360 390 PRINT "**BUFFER SENT**":GOTO 140 400 FOR I=0 TO 500:A$(I)="":NEXT 410 PRINT "**BUFFER ZEROED**":GOTO 140 420 BP=0 430 IF EOF(1) THEN GOTO 210 440 LINE INPUT #1,A$,(BP):PRINT LEN(A$(BP));:IF LEN(A$(BP))=0 THEN GOTO 210 450 IF BP500 THEN PRINT "**BUFFER FULL**":GOTO 210 460 BP=BP+1:GOTO 430 470 PRINT "[DEV:] FILESPEC" 480 LINE INPUT ": ";FO$:PRINT "**SAVING**" 490 OPEN "O",#4,FO$ 500 FOR I=0 TO 500 510 IF A$(I)="" GOTO 540 520 PRINT #4,A$(I):PRINT "."; 530 NEXT I 540 CLOSE #4:PRINT:PRINT "**SAVED**":GOTO 80 550 CLOSE:END 560 FOR I= 0 TO 500 570 PRINT A$(I):IF LEN(A$(I))=0 THEN PRINT "**END OF BUFFER**":GOTO 140 580 C$=INKEY$:IF C$="" GOTO 580 590 IF C$=CHR$(4) THEN GOTO 140 600 NEXT I