mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-20 01:03:26 +01:00
68 lines
2.0 KiB
QBasic
68 lines
2.0 KiB
QBasic
|
10 REM <20><><EFBFBD> L <20> A <20> U <20> F <20> S <20> C <20> H <20> R <20> I <20> F <20> T <20><><EFBFBD>
|
|||
|
|
20 REM von Markus Birth
|
|||
|
|
30 REM
|
|||
|
|
40 SAVE"LAUF2DAT.BAK"
|
|||
|
|
50 SCREEN 0,0,0
|
|||
|
|
60 WIDTH 80
|
|||
|
|
70 KEY OFF
|
|||
|
|
80 CLS
|
|||
|
|
90 COLOR 14:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ"
|
|||
|
|
100 COLOR 14:PRINT"<22> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> L A U F S C H R I F T <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> von RoboCop <20>"
|
|||
|
|
110 COLOR 14:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ"
|
|||
|
|
120 PRINT
|
|||
|
|
130 COLOR 15
|
|||
|
|
140 PRINT"Als Zeile k<>nnen Sie bis zu 2 Zeilen Text eingeben!"
|
|||
|
|
150 PRINT"Nach jeder Anzeige einer Zeile wird eine leere Zeile ausgegeben."
|
|||
|
|
160 PRINT"Sie k<>nnen alle Zeichen au<61>er: ";CHR$(44);CHR$(59);" und ";CHR$(34);" eingeben."
|
|||
|
|
170 PRINT"Wenn Sie ein nichtprintbares Zeichen eingeben, erscheint :"
|
|||
|
|
180 PRINT CHR$(34);"Neue Eingabe?";CHR$(34);" und Sie d<>rfen den Text nochmal eingeben."
|
|||
|
|
190 LOCATE 23,1
|
|||
|
|
200 PRINT" *** Taste ***"
|
|||
|
|
210 A$=INKEY$:IF A$="" THEN GOTO 210
|
|||
|
|
220 CLS
|
|||
|
|
230 COLOR 15
|
|||
|
|
240 INPUT"Dateiname [ENTER f<>r LAUFTEXT.L2D]:",D$
|
|||
|
|
250 IF D$="" THEN D$="LAUFTEXT.L2D"
|
|||
|
|
260 OPEN "I",#1,D$
|
|||
|
|
270 INPUT#1,A
|
|||
|
|
280 DIM Z$(A+2):DIM C(A+2):DIM ZC$(A+2)
|
|||
|
|
290 FOR X=1 TO A
|
|||
|
|
300 IF EOF(1) THEN 330
|
|||
|
|
310 INPUT#1,Z$(X),C(X)
|
|||
|
|
320 NEXT X
|
|||
|
|
330 CLOSE 1
|
|||
|
|
340 INPUT"Pause :",P
|
|||
|
|
350 PRINT
|
|||
|
|
360 PRINT"[1-80]"
|
|||
|
|
370 INPUT"Zeilenl<6E>nge :",ZL
|
|||
|
|
380 PRINT
|
|||
|
|
390 PRINT"[J/N]"
|
|||
|
|
400 INPUT"Wiederholen :",W$
|
|||
|
|
410 PRINT
|
|||
|
|
420 PRINT"[J/N]"
|
|||
|
|
430 INPUT"Gr<47><72>enautom. :",GA$
|
|||
|
|
440 IF GA$="j" OR GA$="J" AND ZL<41 THEN WIDTH 40
|
|||
|
|
450 CLS
|
|||
|
|
460 B=1
|
|||
|
|
470 ZC$(B)=SPACE$(ZL-1) + Z$(B) + " "
|
|||
|
|
480 B=B+1
|
|||
|
|
490 IF B>A THEN GOTO 510
|
|||
|
|
500 GOTO 470
|
|||
|
|
510 REM Hauptroutine
|
|||
|
|
520 X=1
|
|||
|
|
530 B=1
|
|||
|
|
540 CLS
|
|||
|
|
550 IF B>A THEN 650
|
|||
|
|
560 COLOR C(B)
|
|||
|
|
570 TX$=ZC$(B)
|
|||
|
|
580 T$=MID$(TX$,X,ZL)
|
|||
|
|
590 LOCATE 1,1
|
|||
|
|
600 PRINT T$;
|
|||
|
|
610 X=X+1
|
|||
|
|
620 IF X>LEN(TX$) THEN B=B+1:X=1:GOTO 550
|
|||
|
|
630 FOR M=0 TO P:NEXT M
|
|||
|
|
640 GOTO 570
|
|||
|
|
650 IF W$="j" OR W$="J" THEN X=1:B=1:GOTO 550
|
|||
|
|
660 COLOR 15
|
|||
|
|
670 END
|
|||
|
|
|