mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
34 lines
932 B
QBasic
34 lines
932 B
QBasic
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
|
||
|