From bf6a75a6af55ef2378ecc1a5c9ccdddcf685963c Mon Sep 17 00:00:00 2001 From: Markus Birth Date: Tue, 3 Oct 1995 18:27:56 +0100 Subject: [PATCH] Added WINDOWS.BAS and DRUCKERM.WIN module. --- WINDOWS/DRUCKERM.WIN | 67 ++++++ WINDOWS/WINDOWS.BAS | 545 +++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 612 insertions(+) create mode 100644 WINDOWS/DRUCKERM.WIN create mode 100644 WINDOWS/WINDOWS.BAS diff --git a/WINDOWS/DRUCKERM.WIN b/WINDOWS/DRUCKERM.WIN new file mode 100644 index 0000000..87eb8d8 --- /dev/null +++ b/WINDOWS/DRUCKERM.WIN @@ -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 befhigt den Computer Daten auf dem Drucker auszugeben !!!" +100 PRINT"M = Men" +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 drcken 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 drcken !!!" +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 + \ No newline at end of file diff --git a/WINDOWS/WINDOWS.BAS b/WINDOWS/WINDOWS.BAS new file mode 100644 index 0000000..a649c79 --- /dev/null +++ b/WINDOWS/WINDOWS.BAS @@ -0,0 +1,545 @@ +10 CLS +20 KEY OFF +30 BEEP:BEEP +40 INPUT "Passwort: ",A$ +50 IF A$="Quick" THEN GOTO 330 +60 CLS +70 COLOR 15,0,0 +80 INPUT"Unter welchem Namen soll Die Sicherungs-Kopie von Break gespeichert werden Name ????????.???, Eingabetaste fr WINDOWS.KOP --> ",A$ +90 IF A$="" THEN SAVE"Windows.KOP":GOTO 110 +100 SAVE A$ +110 REM +120 PRINT"Bitte drcken sie eine Taste !!!" +130 A$=INKEY$:IF A$="" THEN 130 +140 BEEP +150 COLOR 15,0,0 +160 CLS +170 BEEP +180 INPUT"Color Schriftfarbe [00-31] : ",A +190 BEEP +200 INPUT"Color Hintergrundfarbe [00-15] : ",B +210 BEEP +220 INPUT"Color Randfarbe [00-15] : ",C +230 IF A<0 OR A>31 THEN BEEP:PRINT"Syntax error in Color Schriftfarbe":GOTO 180 +240 IF B<0 OR B>15 THEN BEEP:PRINT"Syntax error in Color Hintergrundfarbe":GOTO 200 +250 IF C<0 OR C>15 THEN BEEP:PRINT"Syntax error in Color Randfarbe":GOTO 220 +260 IF A=0 THEN BEEP:A=15 +270 IF B=0 THEN BEEP:B=0 +280 IF C=0 THEN BEEP:C=0 +290 COLOR A,B,C +300 CLS +310 REM Screen 0,0,0 +320 REM Break von M.Birth +330 CLS +340 PRINT"1 = Basic Eingabe 2 = System 3 = Joysticktest 4 = Break 5 = Datei laden" +350 PRINT"6 = Files 7 = Datum E 8 = Sortieren 9 = Datum 0 = Uhrzeit" +360 PRINT" = Farbe # = Datei lschen ^ = Datei umbenennen" +370 PRINT"Q = Uhr stellen W = Datum stellen E = Screen R=ChDir" +380 PRINT"T = Drucken Z = Sirenen U = Welt Zeit" +390 PRINT"I = Passwortliste O = DOShell" +400 A$=INKEY$:IF A$="1" OR A$="!" THEN BEEP:GOTO 630 +410 IF A$="2" THEN BEEP:GOTO 720 +420 IF A$="3" THEN BEEP:GOTO 810 +430 IF A$="4" OR A$="$" THEN BEEP:GOTO 960 +440 IF A$="6" OR A$="&" THEN BEEP :GOTO 1570 +450 IF A$="5" OR A$="%" THEN BEEP:GOTO 1260 +460 IF A$="7" OR A$="/" THEN BEEP:GOTO 1670 +470 IF A$="8" OR A$="(" THEN BEEP:GOTO 2060 +480 IF A$="9" OR A$=")" THEN BEEP:GOTO 2470 +490 IF A$="0" OR A$="=" THEN BEEP:GOTO 2590 +500 IF A$="" OR A$="?" THEN BEEP:GOTO 140 +510 IF A$="#" OR A$="'" THEN BEEP:GOTO 2800 +520 IF A$="" OR A$="^" THEN BEEP:GOTO 3060 +530 IF A$="q" OR A$="Q" THEN BEEP:GOTO 3340 +540 IF A$="w" OR A$="W" THEN BEEP:GOTO 3510 +550 IF A$="e" OR A$="E" THEN BEEP:GOTO 3640 +560 IF A$="r" OR A$="R" THEN BEEP:GOTO 3820 +570 IF A$="t" OR A$="T" THEN BEEP:GOTO 3960 +580 IF A$="z" OR A$="Z" THEN BEEP:GOTO 4170 +590 IF A$="u" OR A$="U" THEN BEEP:GOTO 4200 +600 IF A$="i" OR A$="I" THEN BEEP:GOTO 4400 +610 IF A$="o" OR A$="O" THEN BEEP:GOTO 5290 +620 GOTO 400 +630 CLS:INPUT"Passwort : ",K$ +640 IF K$="GW-Basic" OR K$="GW-BASIC" OR K$="GW-basic" THEN GOTO 660 +650 GOTO 4060 +660 PRINT"Sie haben den Befehl BASIC EINGABE gewhlt ." +670 PRINT"Es werden alle enthaltenen DATEN gelscht !!!" +680 PRINT:PRINT:PRINT"Sind Sie sicher (j/n) ???" +690 B$=INKEY$:IF B$="j" OR B$="J" THEN BEEP:GOTO 1100 +700 IF B$="n" OR B$="N" THEN BEEP:GOTO 330 +710 GOTO 690 +720 CLS:INPUT"Passwort : ",K$ +730 IF K$="SYS" OR K$="sys" OR K$="Sys" THEN GOTO 750 +740 GOTO 4060 +750 CLS:PRINT"Sie haben den Befehl SYSTEM gewhlt ." +760 PRINT"Es werden alle DATEN gelscht und es wird in den Einschaltmodus zurckgekehrt !" +770 PRINT:PRINT:PRINT"Sind Sie sicher (j/n) ???" +780 C$=INKEY$:IF C$="j" OR C$="J" THEN BEEP:GOTO 1180 +790 IF C$="n" OR C$="N" THEN BEEP:GOTO 330 +800 GOTO 780 +810 CLS +820 INPUT"Passwort : ",K$ +830 IF K$="Stick" OR K$="stick" OR K$="STICK" THEN GOTO 850 +840 GOTO 4060 +850 PRINT"Der Joysticktest dauert an bis Sie die [Space Bar]-Taste drcken !!!" +860 PRINT:PRINT:PRINT"Sind Sie sicher das Sie den Joysticktest gewhlt haben (j/n) ???" +870 D$=INKEY$:IF D$="j" OR D$="J" THEN BEEP:GOTO 900 +880 IF D$="n" OR D$="N" THEN BEEP:GOTO 330 +890 GOTO 870 +900 PRINT"Ganz sicher (j/n) ???" +910 E$=INKEY$:IF E$="j" OR E$="J" THEN BEEP:GOTO 940 +920 IF E$="n" OR E$="N" THEN BEEP:GOTO 330 +930 GOTO 910 +940 PRINT"Bitte F2 und anschlieend [ENTER] drcken !!!" +950 LOAD"WINNER.WIN" +960 CLS +970 INPUT"Passwort : ",K$ +980 IF K$="END" OR K$="end" OR K$="End" THEN GOTO 1000 +990 GOTO 4060 +1000 CLS:PRINT"Sie haben den Befehl BREAK gewhlt !!!" +1010 PRINT"BREAK lscht nicht alle DATEN sondern steigt nur aus dem laufendem Programm aus" +1020 PRINT:PRINT:PRINT"Sind Sie sicher das Sie BREAK gewhlt haben (j/n) ???" +1030 F$=INKEY$:IF F$="J" OR F$="j" THEN BEEP:GOTO 1060 +1040 IF F$="n" OR F$="N" THEN BEEP:GOTO 330 +1050 GOTO 1030 +1060 PRINT"Sind Sie wirklich sicher (j/n) ???" +1070 G$=INKEY$:IF G$="j" OR G$="J" THEN BEEP:CLS:END +1080 IF G$="n" OR G$="N" THEN BEEP:GOTO 330 +1090 GOTO 1070 +1100 PRINT"Sind Sie wirklich sicher (j/n) ???" +1110 H$=INKEY$:IF H$="j" OR H$="J" THEN BEEP:GOTO 1140 +1120 IF H$="n" OR H$="N" THEN BEEP:GOTO 330 +1130 GOTO 1110 +1140 PRINT"Letzte Chance (j/n) !!!" +1150 I$=INKEY$:IF I$="j" OR I$="J" THEN BEEP:CLS:NEW +1160 IF I$="n" OR I$="N" THEN BEEP:GOTO 330 +1170 GOTO 1150 +1180 PRINT"Ganz sicher (j/n) ???" +1190 J$=INKEY$:IF J$="J" OR J$="j" THEN BEEP:GOTO 1220 +1200 IF J$="n" OR J$="N" THEN BEEP:GOTO 330 +1210 GOTO 1190 +1220 PRINT"Letzte Chance (j/n) !!!" +1230 K$=INKEY$:IF K$="j" OR K$="J" THEN BEEP:CLS:SYSTEM +1240 IF K$="n" OR K$="N" THEN BEEP:GOTO 330 +1250 GOTO 1230 +1260 CLS +1270 INPUT"Passwort : ",K$ +1280 IF K$="Load" OR K$="load" OR K$="LOAD" THEN GOTO 1300 +1290 GOTO 4060 +1300 CLS +1310 FILES +1320 X$=INKEY$:IF X$="" THEN 1320 +1330 CLS +1340 CLS:PRINT"Sie haben Programm laden gewhlt ! Der Befehl Programm laden lscht alle " +1350 PRINT"vorhandenen Daten , und ladet ein anderes programm !!!" +1360 PRINT"Bitte geben Sie den Dateinamen ein und drcken Sie die (ENTER)-Taste !!!" +1370 INPUT"Dateiname :";Y$ +1380 IF Y$="" THEN BEEP:GOTO 1260 +1390 IF Y$="MEN" OR Y$="men" OR Y$="Men" THEN BEEP:GOTO 330 +1400 CLS +1410 PRINT"Sind Sie sicher das Sie ";Y$;" laden wollen ???" +1420 X$=INKEY$:IF X$="j" OR X$="J" THEN BEEP:GOTO 1450 +1430 IF X$="n" OR X$="N" THEN BEEP:GOTO 1260 +1440 GOTO 1420 +1450 PRINT"Sind Sie wirklich sicher das Sie ";Y$;" laden wollen (j/n) ???" +1460 X$=INKEY$:IF X$="j" OR X$="J" THEN BEEP:GOTO 1490 +1470 IF X$="n" OR X$="N" THEN BEEP:GOTO 1260 +1480 GOTO 1460 +1490 CLS +1500 BEEP:BEEP +1510 PRINT"Ok ";Y$;" wird geladen !!!" +1520 BEEP +1530 PRINT:PRINT:PRINT"*** Wait' please i'm reckon !!! ***" +1540 FOR Z=0 TO 9000:NEXT Z +1550 LOAD Y$ +1560 END +1570 CLS +1580 INPUT"Passwort : ",K$ +1590 IF K$="File" OR K$="FILE" OR K$="file" THEN GOTO 1610 +1600 GOTO 4060 +1610 CLS:FILES +1620 PRINT:PRINT:PRINT +1630 BEEP:BEEP +1640 PRINT" ********** Bitte [Space Bar] drcken **********" +1650 V$=INKEY$:IF V$=" " THEN BEEP:GOTO 330 +1660 GOTO 1650 +1670 CLS +1680 INPUT"Passwort : ",K$ +1690 IF K$="Datum" OR K$="DATUM" OR K$="datum" THEN 1710 +1700 GOTO 4060 +1710 CLS:PRINT"Sie haben Datum gewhlt !!!" +1720 PRINT"Bitte geben Sie jetzt Day,Month and Year ein !!!" +1730 REM * einlesen +1740 INPUT"Day [1.....31] :",D +1750 BEEP:BEEP:BEEP +1760 INPUT"Month [1.....12] :",D1 +1770 BEEP:BEEP +1780 LET D=D+100*D1 +1790 INPUT"Year [1991....] :",D1 +1800 BEEP +1810 PRINT +1820 IF D1<100 THEN LET D1=D1+1900 +1830 LET B=D+D1*10000 +1840 BEEP +1850 PRINT"Interne Darstellung : ";B +1860 REM * ausdrucken +1870 LET D1=D-INT(D/100)*100 +1880 BEEP +1890 PRINT USING "## . ";D1; +1900 LET D1=INT((D-INT(D/10000)*10000)/100) +1910 FOR I=1 TO D1 +1920 READ M$ +1930 NEXT I +1940 BEEP +1950 PRINT M$;""; +1960 PRINT USING " ####";INT(B/10000) +1970 DATA "Januar","Februar","Mrz","April","Mai","Juni" +1980 DATA "Juli","August","September","Oktober","November","Dezember" +1990 PRINT:PRINT:PRINT +2000 PRINT" ********** Bitte [Space Bar] drcken **********" +2010 V$=INKEY$:IF V$=" " THEN GOTO 2030 +2020 GOTO 2010 +2030 BEEP:BEEP:BEEP +2040 RESTORE +2050 GOTO 330 +2060 CLS +2070 INPUT"Passwort : ",K$ +2080 IF K$="Sort" OR K$="sort" OR K$="SORT" THEN GOTO 2100 +2090 GOTO 4060 +2100 CLS:PRINT"Sie haben SORTIEREN gewhlt !!!" +2110 PRINT"Geben Sie jetzt ein wieviel Buchstaben oder Zahlen Sie sortieren wollen !!!" +2120 REM * daten einlesen +2130 BEEP +2140 INPUT"Anzahl der Zeilen : ",N +2150 BEEP +2160 PRINT:PRINT +2170 DIM A$(N) +2180 FOR I=1 TO N +2190 PRINT "a$ ( ";I; +2200 BEEP +2210 INPUT " ) : ",A$(I) +2220 PRINT:PRINT +2230 NEXT I +2240 REM *sortieren +2250 REM "keine vertauschung" signalisieren +2260 LET S%=0 +2270 REM ein sortierdurchlauf +2280 FOR I=1 TO N-1 +2290 REM wenn ntig vertauschen und flag setzen +2300 IF A$(I)>A$(I+1) THEN SWAP A$(I),A$(I+1):LET S%=1 +2310 NEXT I +2320 IF S%<>0 THEN GOTO 2260 +2330 REM fertig sortiert,da keine vertauschung mehr +2340 REM * Ergebnis ausgeben +2350 CLS +2360 BEEP +2370 PRINT"Sortierte Ausgabe :" +2380 FOR I=1 TO N +2390 PRINT A$(I) +2400 NEXT I +2410 PRINT" ********** Bitte [Space Bar] drcken **********" +2420 V$=INKEY$:IF V$=" " THEN GOTO 2440 +2430 GOTO 2420 +2440 BEEP:BEEP:BEEP +2450 FOR Z=1 TO 9999:NEXT Z +2460 GOTO 330 +2470 CLS +2480 PRINT:PRINT:PRINT +2490 M$=DATE$ +2500 PRINT" M. D. Year" +2510 PRINT" ";M$ +2520 PRINT:PRINT:PRINT +2530 BEEP:PRINT" ********** Bitte [Space Bar] drcken **********" +2540 V$=INKEY$:IF V$=" " THEN GOTO 2560 +2550 GOTO 2540 +2560 BEEP:BEEP:BEEP +2570 FOR Z=1 TO 9999:NEXT Z +2580 GOTO 330 +2590 CLS +2600 PRINT"Es ist jetzt ";TIME$;" Uhr !!!" +2610 INPUT"Weckzeit [..:..:..] : ",T$ +2620 CLS +2630 LOCATE 12,30 +2640 N$=TIME$ +2650 PRINT N$ +2660 IF N$=T$ THEN GOTO 2770 +2670 V$=INKEY$:IF V$=" " THEN GOTO 2740 +2680 SEC=VAL(MID$(TIME$,7,2)) +2690 IF SEC=SSEC THEN 2630 ELSE SSEC=SEC +2700 IF SEC=0 THEN SOUND 2000,8:GOTO 2630 +2710 IF SEC=30 THEN SOUND 400,4:GOTO 2630 +2720 IF SEC< 0 THEN GOTO 2630 +2730 SOUND 1000,2:GOTO 2630 +2740 BEEP:BEEP:BEEP +2750 FOR Z=1 TO 9999:NEXT Z +2760 GOTO 330 +2770 BEEP:BEEP:BEEP:BEEP +2780 L$=INKEY$:IF L$=" " THEN GOTO 2630 +2790 GOTO 2770 +2800 CLS +2810 INPUT"Passwort : ",A$ +2820 IF A$="killing" OR A$="Killing" OR A$="KILLING" THEN 2840 +2830 GOTO 4060 +2840 CLS +2850 FILES +2860 X$=INKEY$:IF X$="" THEN 2860 +2870 CLS +2880 PRINT"Datei lschen heit das ein Programm oder eine Datei gelscht wird !!!" +2890 PRINT :INPUT"Dateiname : ",C$ +2900 IF C$="men" OR C$="MEN" OR C$="Men" THEN GOTO 330 +2910 CLS +2920 PRINT"Sind Sie sicher das Sie die Datei ";C$;" lschen wollen [j/n] ???" +2930 Z$=INKEY$:IF Z$="j" OR Z$="J" THEN 2960 +2940 IF Z$="n" OR Z$="N" THEN 2840 +2950 GOTO 2930 +2960 PRINT:PRINT"Sind Sie wirklich sicher das Sie ";C$;" lschen wollen [j/n] ???" +2970 Y$=INKEY$:IF Y$="j" OR Y$="J" THEN 3000 +2980 IF Y$="n" OR Y$="N" THEN 2840 +2990 GOTO 2970 +3000 CLS +3010 PRINT " *********** Ok ";C$;" wird gelscht **********" +3020 PRINT +3030 PRINT " ********** Wai't please i'm reckon **********" +3040 KILL C$ +3050 GOTO 2840 +3060 CLS +3070 INPUT"Passwort : ",A$ +3080 IF A$="Re-Name" OR A$="re-name" THEN 3100 +3090 GOTO 4060 +3100 CLS +3110 FILES +3120 X$=INKEY$:IF X$="" THEN 3120 +3130 CLS +3140 PRINT "Datei umbenennen heisst das ein Programm oder eine Datei umbenannt" +3150 PRINT "werden kann !!!" +3160 PRINT :INPUT"Dateiname : ",C$ +3170 IF C$="men" OR C$="MEN" OR C$="Men" THEN GOTO 330 +3180 PRINT:INPUT"Neuer Dateiname : ",D$ +3190 IF D$="men" OR D$="Men" OR D$="MEN" THEN 330 +3200 CLS +3210 PRINT "Sind Sie sicher das Sie ";C$;" in ";D$;" umbenennen wollen [j/n] ???" +3220 Y$=INKEY$:IF Y$="j" OR Y$="J" THEN 3250 +3230 IF Y$="n" OR Y$="N" THEN 3100 +3240 GOTO 3220 +3250 PRINT :PRINT "Sind Sie wirklich sicher das Sie ";C$;" in ";D$;" umbennen wollen [j/n]" +3260 X$=INKEY$:IF X$="j" OR X$="J" THEN 3290 +3270 IF X$="n" OR X$="N" THEN 3100 +3280 GOTO 3260 +3290 CLS +3300 PRINT "***** Ok ";C$;" wird in ";D$;" umbenannt *****" +3310 PRINT:PRINT"********** Wai't please i'm reckon **********" +3320 NAME C$ AS D$ +3330 GOTO 3100 +3340 BEEP +3350 CLS +3360 INPUT"Passwort : ",A$ +3370 IF A$="Time$" OR A$="time$" OR A$="TIME$" THEN 3390 +3380 GOTO 4060 +3390 CLS +3400 PRINT"Sie haben Uhr stellen gewhlt !!!" +3410 PRINT +3420 PRINT +3430 PRINT"Gegenwrtige Uhrzeit :";TIME$ +3440 PRINT +3450 INPUT"Neue Uhrzeit [HH:MM:SS] : ",A$ +3460 IF A$="" THEN 3480 +3470 TIME$=A$ +3480 PRINT"Ok" +3490 FOR Z=0 TO 1000:NEXT Z +3500 GOTO 320 +3510 CLS +3520 INPUT"Passwort : ",A$ +3530 IF A$="Date$" OR A$="date$" OR A$="DATE$" THEN 3550 +3540 GOSUB 4060 +3550 CLS +3560 PRINT"Sie haben Datum einstellen gewhlt !!!" +3570 PRINT:PRINT:PRINT"Gegenwrtiges Datum : ";DATE$ +3580 PRINT:PRINT:INPUT"Neues Datum [MM-DD-YYYY] : ",A$ +3590 IF A$="" THEN 3610 +3600 DATE$=A$ +3610 PRINT"Ok" +3620 FOR Z=0 TO 1000:NEXT Z +3630 GOTO 320 +3640 CLS +3650 INPUT"Passwort : ",A$ +3660 IF A$="screen" OR A$="SCREEN" OR A$="Screen" THEN 3680 +3670 GOTO 4060 +3680 PRINT"Sie haben SCREEN gewhlt !!!" +3690 PRINT"Bitte whlen sie einen Screen aus !?" +3700 PRINT"Screen 0: Textformat 40x25 oder 80x25 Rahmen : 8x8 oder 8x14 mit EGA 16 Colors" +3710 PRINT"Screen 1: 320x200 Bildelemente Textformat 80x25 Rahmen 8x8 16 Colors" +3720 PRINT"Screen 2: 640x200 ~ ~ ~ ~ 40x25 ~ ~ ~ 16 ~ ~" +3730 PRINT"Screen 7: 320x200 ~ ~ ~ ~ 40x25 ~ ~ ~ 16 ~ ~" +3740 PRINT"Screen 8: 640x200 ~ ~ ~ ~ 80x25 ~ ~ ~ 16 ~ ~" +3750 PRINT"Screen 9: 640x350 Bildelemente Textformat 80x25 ~ ~ 8x14 16 Colors" +3760 PRINT"Screen 10:640x350 ~ ~ ~ ~ 80x25 ~ ~ ~ 09 Pseudo-Colors" +3770 PRINT +3780 INPUT"Screen ",A +3790 IF A<0 OR A>10 THEN 3640 +3800 SCREEN A +3810 GOTO 320 +3820 CLS +3830 INPUT"Passwort:",A$ +3840 IF A$="dir" OR A$="DIR" OR A$="Dir" THEN 3860 +3850 GOTO 4060 +3860 CLS +3870 PRINT"Sie haben ChDir gewhlt.Geben Sie das Laufwerk und das Unterverzeichnis an !!!" +3880 PRINT +3890 INPUT"CHDIR";A$ +3900 CHDIR A$ +3910 CLS +3920 PRINT"*** Wait please i'm reckon ***" +3930 FOR Z=0 TO 5000:NEXT Z +3940 PRINT"Ok. Der Pfad ist ";A$;" !!!" +3950 GOTO 320 +3960 CLS +3970 INPUT"Passwort : ",A$ +3980 IF A$="Drucker-Memory" OR A$="drucker-memory" THEN 4000 +3990 GOTO 4060 +4000 PRINT"Wollen Sie wirklich die Datei BREAK.NEW schlieen und die Datei DRUCKERM.WIN ffnen ???" +4010 A$=INKEY$:IF A$="y" OR A$="Y" THEN 4040 +4020 IF A$="n" OR A$="N" THEN +4030 GOTO 4010 +4040 PRINT"Bitte drcken Sie die F2-Taste falls sie noch den Befehl RUN+ENTER enthlt !!!" +4050 LOAD"DRUCKERM.WIN":END +4060 REM Markus Birth +4070 A=350 +4080 A=A+10 +4090 COLOR ,15,7 +4100 CLS +4110 FOR Z=0 TO 250:NEXT +4120 COLOR ,0,0 +4130 CLS +4140 SOUND A,1 +4150 IF A=750 THEN 4070 +4160 GOTO 4080 +4170 CLS +4180 PRINT"Bitte drcken Sie die F2 Taste !!!" +4190 LOAD "sirene.win" +4200 CLS +4210 PRINT "Sie haben das Laden von ";CHR$(34);"WORLDTIM.WIN";CHR$(34);" gewhlt !" +4220 PRINT"Stimmt da ???" +4230 A$=INKEY$:IF A$="" THEN 4230 +4240 IF A$="n" OR A$="N" THEN GOTO 330 +4250 IF A$="j" OR A$="J" THEN GOTO 4270 +4260 GOTO 4230 +4270 PRINT"Wirklich ??? Bedenken Sie: Alle Daten werden aus dem Speicher gelscht !!!" +4280 A$=INKEY$:IF A$="" THEN 4280 +4290 IF A$="n" OR A$="N" THEN GOTO 330 +4300 IF A$="j" OR A$="J" THEN GOTO 4320 +4310 GOTO 4280 +4320 PRINT"Letzte Chance !!!" +4330 A$=INKEY$:IF A$="" THEN 4330 +4340 IF A$="n" OR A$="N" THEN GOTO 330 +4350 IF A$="j" OR A$="J" THEN GOTO 4370 +4360 GOTO 4330 +4370 CLS +4380 PRINT"Bitte drcken Sie die F2-Taste !!!" +4390 LOAD"worldtim.win":RUN +4400 CLS:INPUT"PASSWORT: ",A$ +4410 IF A$="RoboCop" THEN GOTO 4430 +4420 GOTO 4060 +4430 CLS:PRINT" *** PASSWORT-LISTE ausgeben ***" +4440 PRINT:PRINT"1 - Ausgabe auf Drucker: HP LaserJet Series II" +4450 PRINT"2 - Ausgabe auf Bildschirm: MORSE VGAplus" +4460 PRINT:INPUT"Wahl [1/2]: ",A$ +4470 IF A$="1" THEN GOTO 4500 +4480 IF A$="2" THEN GOTO 4910 +4490 PRINT"FALSCHEINGABE!!!":GOTO 4460 +4500 CLS:PRINT"Ausgabe auf dem Drucker" +4510 PRINT:PRINT"Schalten Sie den Drucker ein und lassen Sie ihn hochfahren!" +4520 PRINT"*** Taste wenn fertig ***" +4530 A$=INKEY$:IF A$="" THEN 4530 +4540 CLS:PRINT"*** Ausdruck auf Drucker luft ***" +4550 LPRINT +4560 LPRINT" *** Passwortliste von WINDOWS.BAS ***" +4570 LPRINT:LPRINT"Programm: GWBASIC.EXE Datei: WINDOWS.BAS" +4580 LPRINT"-Rate : 8-Bit Pass.: Alle" +4590 LPRINT +4600 LPRINT"ͻ" +4610 LPRINT"TasteFunktion Passwort " +4620 LPRINT"͹" +4630 LPRINT" 1 Basic eingabe GW-Basic / GW-BASIC / GW-basic " +4640 LPRINT"| 2| System | Sys / SYS / sys |" +4650 LPRINT"| 3| Joystick-Test | Stick / STICK / stick |" +4660 LPRINT"| 4| Break | End / END / end |" +4670 LPRINT"| 5| Datei laden | Load / LOAD / load |" +4680 LPRINT"| 6| Files | File / FILE / file |" +4690 LPRINT"| 7| Datum | Datum / DATUM / datum |" +4700 LPRINT"| 8| Sortieren | Sort / SORT / sort |" +4710 LPRINT"| 9| Datum | ** Kein PASSWORT erforderlich ** |" +4720 LPRINT"| 0| Uhrzeit | ** Kein PASSWORT erforderlich ** |" +4730 LPRINT"| | Farbe | ** Kein PASSWORT erforderlich ** |" +4740 LPRINT"| #| Datei lschen | Killing / KILLING / killing |" +4750 LPRINT"| ^| Datei umbenennen | Re-Name / RE-NAME / re-name |" +4760 LPRINT"| Q| Uhr stellen | Time$ / TIME$ / time$ |" +4770 LPRINT"| W| Datum stellen | Date$ / DATE$ / date$ |" +4780 LPRINT"| E| Screen | Screen / SCREEN / screen |" +4790 LPRINT"| R| ChDir [Change Directory] | Dir / DIR / dir |" +4800 LPRINT"| T| Drucken | Drucker-Memory / drucker-memory |" +4810 LPRINT"| Z| Sirenen | ** Kein PASSWORT erforderlich ** |" +4820 LPRINT"| U| WeltZeit | ** Kein PASSWORT erforderlich ** |" +4830 LPRINT"| I| Passwortliste | RoboCop |" +4840 LPRINT"| O| DOS-Shell | Quit / QUIT / quit |" +4850 LPRINT"|-----|---------------------------|-------------------------------------------|" +4860 LPRINT:LPRINT +4870 LPRINT"** Ende der Liste **" +4880 PRINT"** Ausdruck fertig **" +4890 PRINT +4900 GOTO 330 +4910 CLS:PRINT"Ausgabe auf dem Bildschirm" +4920 PRINT:PRINT"** Wenn bereit Taste drcken **" +4930 A$=INKEY$:IF A$="" THEN 4930 +4940 CLS:PRINT" *** Passwortliste von WINDOWS.BAS ***" +4950 PRINT +4960 PRINT"|-----|---------------------------|-------------------------------------------|" +4970 PRINT"|Taste|Funktion |Passwort |" +4980 PRINT"|-----|---------------------------|-------------------------------------------|" +4990 PRINT"| 1| Basic eingabe | GW-Basic / GW-BASIC / GW-basic |" +5000 PRINT"| 2| System | Sys / SYS / sys |" +5010 PRINT"| 3| Joystick-Test | Stick / STICK / stick |" +5020 PRINT"| 4| Break | End / END / end |" +5030 PRINT"| 5| Datei laden | Load / LOAD / load |" +5040 PRINT"| 6| Files | File / FILE / file |" +5050 PRINT"| 7| Datum | Datum / DATUM / datum |" +5060 PRINT"| 8| Sortieren | Sort / SORT / sort |" +5070 PRINT"| 9| Datum | ** Kein PASSWORT erforderlich ** |" +5080 PRINT"| 0| Uhrzeit | ** Kein PASSWORT erforderlich ** |" +5090 PRINT"| | Farbe | ** Kein PASSWORT erforderlich ** |" +5100 PRINT"| #| Datei lschen | Killing / KILLING / killing |" +5110 PRINT"| ^| Datei umbenennen | Re-Name / RE-NAME / re-name |" +5120 PRINT:PRINT" ** Taste fr weiter **" +5130 A$=INKEY$:IF A$="" THEN 5130 +5140 LOCATE 19,1 +5150 PRINT"| Q| Uhr stellen | Time$ / TIME$ / time$ |" +5160 PRINT"| W| Datum stellen | Date$ / DATE$ / date$ |" +5170 PRINT"| E| Screen | Screen / SCREEN / screen |" +5180 PRINT"| R| ChDir [Change Directory] | Dir / DIR / dir |" +5190 PRINT"| T| Drucken | Drucker-Memory / drucker-memory |" +5200 PRINT"| Z| Sirenen | ** Kein PASSWORT erforderlich ** |" +5210 PRINT"| U| WeltZeit | ** Kein PASSWORT erforderlich ** |" +5220 PRINT"| I| Passwortliste | RoboCop |" +5230 PRINT"| O| DOS-Shell | Quit / QUIT / quit |" +5240 PRINT"|-----|---------------------------|-------------------------------------------|" +5250 PRINT:PRINT"** Ende der Liste **" +5260 PRINT" *** Wenn fertig beliebige Taste drcken ***" +5270 A$=INKEY$:IF A$="" THEN 5270 +5280 GOTO 330 +5290 REM DOShell +5300 CLS +5310 PRINT"Dieses Programm geht in die DOS-Ebene und kehrt bei der Eingabe von" +5320 PRINT"EXIT" +5330 PRINT"wieder in GW-BASIC zurck." +5340 PRINT +5350 INPUT"Passwort: ",PASS$ +5360 IF PASS$="QUIT" OR PASS$="quit" OR PASS$="Quit" THEN GOTO 5380 +5370 GOTO 4060 +5380 REM Weiter im Programm +5390 INPUT"Programm, das aufgerufen werden soll (ENTER fr COMMAND): ",P$ +5400 IF P$="" THEN P$="COMMAND.COM" +5410 SHELL P$ +5420 PRINT"Mit Taste zurck zu WINDOWS.BAS ..." +5430 A$=INKEY$:IF A$="" THEN 5430 +5440 CLS:GOTO 330 + \ No newline at end of file