1
0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-12-25 12:04:08 +00:00

Initial commit

This commit is contained in:
Markus Birth 1992-11-01 20:57:52 +01:00
commit ca57ab53ed
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A

67
WRITER/DRUCKERM.BAS Normal file
View File

@ -0,0 +1,67 @@
10 COLOR 15,0,0
20 CLS
30 PRINT" ******************************"
40 PRINT" * *"
50 PRINT" * Drucker-Memory *"
60 PRINT" * *"
70 PRINT" ******************************"
80 PRINT:PRINT
90 PRINT"Dieses Programm bef„higt den Computer Daten auf dem Drucker auszugeben !!!"
100 PRINT"M = Men<65>"
110 PRINT"P = Serieller Port"
120 PRINT"T = DruckerTyp"
130 PRINT"D = Datum drucken"
140 PRINT"U = Uhrzeit drucken"
150 PRINT"E = Ende"
160 PRINT
170 PRINT"Bitte Taste dr<64>cken wenn bereit !!! Bereit ???"
180 A$=INKEY$:IF A$="" THEN 180
190 CLS
200 PRINT" ";X$
210 INPUT"Wort : ",X$
220 IF X$="m" OR X$="M" THEN GOTO 20
230 IF X$="p" OR X$="P" THEN GOTO 360
240 IF X$="t" OR X$="T" THEN GOTO 410
250 IF X$="d" OR X$="D" THEN 480
260 IF X$="u" OR X$="U" THEN 550
270 IF X$="e" OR X$="E" THEN 620
280 LPRINT X$
290 GOTO 190
300 CLS
310 PRINT X$
320 PRINT
330 PRINT"Bitte Taste !!!"
340 A$=INKEY$:IF A$="" THEN 340
350 GOTO 190
360 CLS
370 PRINT"Der Serielle Port ist LPT1 !!!"
380 PRINT:PRINT"Taste !!!"
390 A$=INKEY$:IF A$="" THEN 390
400 GOTO 190
410 CLS
420 PRINT"Der DruckerTyp ist "
430 PRINT"SHARP JX-9500E"
440 PRINT"Laserdrucker !!!"
450 PRINT:PRINT"Bitte Taste dr<64>cken !!!"
460 A$=INKEY$:IF A$="" THEN 460
470 GOTO 190
480 CLS
490 PRINT"Datum wird gedruckt heutiges Datum >>> ";DATE$
500 LPRINT "Datum [MM:DD:YY] >>> ";DATE$
510 PRINT"Ok"
520 PRINT"Bitte Taste !!!"
530 A$=INKEY$:IF A$="" THEN 530
540 GOTO 190
550 CLS
560 PRINT"Uhrzeit wird gedruckt jetzige Uhrzeit >>> ";TIME$
570 LPRINT "Uhrzeit [HH:MM:SS] >>> ";TIME$;" Uhr"
580 PRINT"Ok"
590 PRINT"Bitte Taste !!!"
600 A$=INKEY$:IF A$="" THEN 600
610 GOTO 190
620 CLS
630 COLOR 7:PRINT"Wollen Sie Drucker-Memory wirklich abbrechen [";:COLOR 15:PRINT"Y";:COLOR 7:PRINT"es\";:COLOR 15:PRINT"N";:COLOR 7:PRINT"o] ???"
640 A$=INKEY$:IF A$="y" OR A$="Y" THEN CLS:LOAD"BREAK.NEW"
650 IF A$="n" OR A$="N" THEN GOTO 190
660 GOTO 640