mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
68 lines
2.0 KiB
QBasic
68 lines
2.0 KiB
QBasic
10 REM ððð L ð A ð U ð F ð S ð C ð H ð R ð I ð F ð T ððð
|
||
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"ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
|
||
100 COLOR 14:PRINT"º ððððððððððððððððððððð L A U F S C H R I F T ððððððððððððððððð ³ von RoboCop º"
|
||
110 COLOR 14:PRINT"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍͼ"
|
||
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á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„nge :",ZL
|
||
380 PRINT
|
||
390 PRINT"[J/N]"
|
||
400 INPUT"Wiederholen :",W$
|
||
410 PRINT
|
||
420 PRINT"[J/N]"
|
||
430 INPUT"GrӇ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
|
||
|