mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-12-25 03:54:07 +00:00
Added WINDOWS.BAS and DRUCKERM.WIN module.
This commit is contained in:
parent
a60c95fb56
commit
bf6a75a6af
GPG Key ID:
A9928D7A098C3A9A
67
WINDOWS/DRUCKERM.WIN
Normal file
67
WINDOWS/DRUCKERM.WIN
Normal 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
|
||||
|
||||
545
WINDOWS/WINDOWS.BAS
Normal file
545
WINDOWS/WINDOWS.BAS
Normal file
@ -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 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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user