Added multiple scripts as of 14 Dec 1995.

WRITER/STASTEN.BAS

@@ -0,0 +1,20 @@
+10 DAT$="OUTPUT.TTN"
+20 KEY OFF
+30 COLOR 15,0,0
+40 CLS
+50 CLOSE 1
+60 INPUT"Dateinamen eingeben: ",DN$
+70 IF DN$="" THEN DN$=DAT$
+80 IF LEFT$(RIGHT$(DN$,4),1)<>"." THEN 30
+90 CLS
+100 COLOR 15,0,0
+110 FOR Z=1 TO 24
+120 LOCATE Z,1:PRINT SPACE$(79)
+130 NEXT Z
+140 LOCATE 1,1
+150 AUFRUF$="TYPE "+DN$+" |MORE"
+160 SHELL AUFRUF$
+170 LOCATE 24,1
+180 SHELL"PAUSE"
+190 CLS
+

WRITER/TASTEN.BAS

@@ -0,0 +1,34 @@
+10 DAT$="OUTPUT.TTN"
+20 OPEN "O",1,DAT$
+30 PRINT#1,"Ausgabe-Datei von TASTEN.BAS"
+40 PRINT#1,""
+50 KEY OFF
+60 B=1:C=0:D=1:E=1
+70 CLS
+80 GOTO 210
+90 ON ERROR GOTO 310
+100 A$=INKEY$:IF A$="" THEN 100
+110 A=ASC(A$)
+120 IF A=8 THEN C=C-2:E=E-2:GOSUB 320:GOTO 190
+130 IF A=13 THEN GOSUB 270:GOTO 190
+140 IF A=27 THEN GOSUB 290:GOTO 310
+150 LOCATE B,C
+160 COLOR 15,0,0
+170 PRINT CHR$(A)
+180 OUTP$=OUTP$+CHR$(A)
+190 COLOR 14:LOCATE 24,1:PRINT USING"CHR$(###)                                                        \            \";A;DAT$;
+200 LOCATE 25,1:PRINT OUTP$;SPACE$(80-LEN(OUTP$));
+210 LOCATE D,E
+220 COLOR 31,0,0
+230 PRINT CHR$(95);" "
+240 C=C+1:IF C>80 THEN C=1:B=B+1:PRINT#1,OUTP$:OUTP$=""
+250 E=E+1:IF E>80 THEN E=1:D=D+1
+260 GOTO 100
+270 LOCATE D,E-1:PRINT " "
+280 B=B+1:C=0:D=D+1:E=1
+290 PRINT#1,OUTP$:OUTP$=""
+300 RETURN
+310 COLOR 15:CLS:END
+320 OUTP$=LEFT$(OUTP$,(LEN(OUTP$)-1))
+330 RETURN
+