Program 1 |
5 REM TEXT EDIT 10 FAST 15 INPUT A$ 20 IF LEN A$>32 THEN GOTO 35 25 INPUT A$ 30 GO TO 15 35 LET C=0 40 IF C=32 THEN GO TO 65 45 LET B$=A$(32-C) 50 IF A$(33-C)=" " OR B$="," OR B$="." OR B$=":" OR B$=";" OR B$="?" OR B$=CHR$11 THEN GO TO 70 55 LET C=C+1 60 GO TO 40 65 LET C=0 70 LPRINT A$(TO 32-C) 75 LET A$=A$(33-C TO) 80 IF A$(1)=" " THEN LET A$=A$(2 TO) 85 GO TO 20 |