mbirth/gwbasic
1
0
Fork 0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-09-19 16:53:26 +01:00
Code Issues Releases Wiki Activity
master
gwbasic/WINDOWS/WINDOWS.BAS

545 lines
22 KiB
QBasic
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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 f<>r WINDOWS.KOP --> ",A$
90 IF A$="" THEN SAVE"Windows.KOP":GOTO 110
100 SAVE A$
110 REM
120 PRINT"Bitte dr<64>cken 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 l”schen ^ = 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 gew„hlt ."
670 PRINT"Es werden alle enthaltenen DATEN gel”scht !!!"
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 gew„hlt ."
760 PRINT"Es werden alle DATEN gel”scht und es wird in den Einschaltmodus zur<75>ckgekehrt !"
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 dr<64>cken !!!"
860 PRINT:PRINT:PRINT"Sind Sie sicher das Sie den Joysticktest gew„hlt 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 anschlieáend [ENTER] dr<64>cken !!!"
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 gew„hlt !!!"
1010 PRINT"BREAK l”scht nicht alle DATEN sondern steigt nur aus dem laufendem Programm aus"
1020 PRINT:PRINT:PRINT"Sind Sie sicher das Sie BREAK gew„hlt 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 gew„hlt ! Der Befehl Programm laden l”scht alle "
1350 PRINT"vorhandenen Daten , und ladet ein anderes programm !!!"
1360 PRINT"Bitte geben Sie den Dateinamen ein und dr<64>cken Sie die (ENTER)-Taste !!!"
1370 INPUT"Dateiname :";Y$
1380 IF Y$="" THEN BEEP:GOTO 1260
1390 IF Y$="MENš" OR Y$="men<65>" OR Y$="Men<65>" 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] dr<64>cken **********"
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 gew„hlt !!!"
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","M„rz","April","Mai","Juni"
1980 DATA "Juli","August","September","Oktober","November","Dezember"
1990 PRINT:PRINT:PRINT
2000 PRINT" ********** Bitte [Space Bar] dr<64>cken **********"
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 gew„hlt !!!"
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 n”tig 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] dr<64>cken **********"
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] dr<64>cken **********"
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 l”schen heiát das ein Programm oder eine Datei gel”scht wird !!!"
2890 PRINT :INPUT"Dateiname : ",C$
2900 IF C$="men<65>" OR C$="MENš" OR C$="Men<65>" THEN GOTO 330
2910 CLS
2920 PRINT"Sind Sie sicher das Sie die Datei ";C$;" l”schen 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$;" l”schen 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 gel”scht **********"
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<65>" OR C$="MENš" OR C$="Men<65>" THEN GOTO 330
3180 PRINT:INPUT"Neuer Dateiname : ",D$
3190 IF D$="men<65>" OR D$="Men<65>" 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 gew„hlt !!!"
3410 PRINT
3420 PRINT
3430 PRINT"Gegenw„rtige 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 gew„hlt !!!"
3570 PRINT:PRINT:PRINT"Gegenw„rtiges 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 gew„hlt !!!"
3690 PRINT"Bitte w„hlen 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 gew„hlt.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 schlieáen 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 dr<64>cken Sie die F2-Taste falls sie noch den Befehl RUN+ENTER enth„lt !!!"
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 dr<64>cken Sie die F2 Taste !!!"
4190 LOAD "sirene.win"
4200 CLS
4210 PRINT "Sie haben das Laden von ";CHR$(34);"WORLDTIM.WIN";CHR$(34);" gew„hlt !"
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 gel”scht !!!"
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 dr<64>cken 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 l„uft ***"
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"ºTaste³Funktion ³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 l”schen | 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 dr<64>cken **"
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 l”schen | Killing / KILLING / killing |"
5110 PRINT"| ^| Datei umbenennen | Re-Name / RE-NAME / re-name |"
5120 PRINT:PRINT" ** Taste f<>r 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 dr<64>cken ***"
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 zur<75>ck."
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 f<>r COMMAND): ",P$
5400 IF P$="" THEN P$="COMMAND.COM"
5410 SHELL P$
5420 PRINT"Mit Taste zur<75>ck zu WINDOWS.BAS ..."
5430 A$=INKEY$:IF A$="" THEN 5430
5440 CLS:GOTO 330

Reference in New Issue View Git Blame Copy Permalink