NEW
10 REM STRING.BAS, FOR THE
20 REM INDUSTROLOGIC, INC.
30 REM SBC-1. SINCE TINYBASIC
40 REM HAS NO "STRING" MANI-
50 REM PULATION, THIS SHOWS
60 REM HOW TO ENTER A CHARACTER
70 REM STRING AT A PROMPT AND
80 REM UTILIZE THE STRING LATER
90 REM ----------
100 PRINT "Enter a string: ";
110 GOSUB 1000
120 IF K<>27 THEN GOTO 160
130 PRINT
140 PRINT "You hit ESCAPE"
150 END
160 PRINT
170 HEX:S=0DD00H:DECIMAL
180 IF L=0 THEN GOTO 240
190 FOR A=1 TO L
200 K=XBYTE S
210 PRINT CHR(K);
220 S=S+1
230 NEXT A
240 END
960 REM ----------
970 REM PSUEDO STRING INPUT-
980 REM USES PART OF "USER RAM"
990 REM DD00H TO DDFFH (256)
1000 HEX:S=0DD00H:DECIMAL
1010 L=0
1020 K=INKEY
1030 IF K=0 THEN GOTO 1020
1040 IF K=13 THEN RETURN
1050 IF K=27 THEN RETURN
1060 IF K=8 THEN GOTO 1130
1070 IF K<32 THEN GOTO 1020
1080 IF K>126 THEN GOTO 1020
1090 XBYTE S=K
1100 S=S+1:L=L+1
1110 PRINT CHR(K);
1120 GOTO 1020
1130 IF L=0 THEN GOTO 1020
1140 S=S-1:L=L-1
1150 PRINT CHR(8);" ";CHR(8);
1160 GOTO 1020
RUN