mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
67 lines
2.1 KiB
QBasic
67 lines
2.1 KiB
QBasic
|
10 CLS
|
|||
|
|
20 PRINT"Intern-Time >>> ";TIME$
|
|||
|
|
30 PRINT"Intern-Date >>> ";DATE$
|
|||
|
|
40 PRINT
|
|||
|
|
50 INPUT"Date [Day ] : ",A
|
|||
|
|
60 IF A=0 THEN A=1
|
|||
|
|
70 INPUT"Date [Month ] : ",B
|
|||
|
|
80 IF B=0 THEN B=1
|
|||
|
|
90 INPUT"Date [Year ] : ",C
|
|||
|
|
100 PRINT
|
|||
|
|
110 PRINT A;".";B;".";C
|
|||
|
|
120 INPUT"Time [Hour's ] : ",D
|
|||
|
|
130 INPUT"Time [Minute's ] : ",E
|
|||
|
|
140 INPUT"Time [Second's ] : ",F
|
|||
|
|
150 PRINT
|
|||
|
|
160 PRINT D;":";E;":";F
|
|||
|
|
170 INPUT"Timer-Date [Day ] : ",G
|
|||
|
|
180 IF G=0 THEN G=1
|
|||
|
|
190 IF H=0 THEN H=1
|
|||
|
|
200 INPUT"Timer-Date [Month ] : ",H
|
|||
|
|
210 INPUT"Timer-Date [Year ] : ",I
|
|||
|
|
220 PRINT
|
|||
|
|
230 PRINT G;".";H;".";I
|
|||
|
|
240 INPUT"Timer [Hour's ] : ",J
|
|||
|
|
250 INPUT"Timer [Minute's] : ",K
|
|||
|
|
260 INPUT"Timer [Second's] : ",L
|
|||
|
|
270 A$=INKEY$:IF A$="" THEN 270
|
|||
|
|
280 CLS
|
|||
|
|
290 PRINT"Sind Sie sicher das die Eingaben stimmen [Y/N] ??? "
|
|||
|
|
300 A$=INKEY$:IF A$="" THEN 300
|
|||
|
|
310 IF A$="Y" OR A$="y" THEN 340
|
|||
|
|
320 IF A$="N" OR A$="n" THEN 10
|
|||
|
|
330 GOTO 300
|
|||
|
|
340 CLS
|
|||
|
|
350 F=F+1
|
|||
|
|
360 LOCATE 1,1:PRINT"Intern-Time >>> ";TIME$
|
|||
|
|
370 LOCATE 2,1:PRINT"Intern-Date >>> ";DATE$
|
|||
|
|
380 FOR Z=0 TO 4500:NEXT Z
|
|||
|
|
390 LOCATE 1,1:PRINT"Intern-Time >>> ";TIME$
|
|||
|
|
400 LOCATE 2,1:PRINT"Intern-Date >>> ";DATE$
|
|||
|
|
410 FOR Z=0 TO 4250:NEXT Z
|
|||
|
|
420 LOCATE 1,1:PRINT"Intern-Time >>> ";TIME$
|
|||
|
|
430 LOCATE 2,1:PRINT"Intern-Date >>> ";DATE$
|
|||
|
|
440 FOR Z=0 TO 4000:NEXT Z
|
|||
|
|
450 SOUND 2000,1:SOUND 1000,1
|
|||
|
|
460 IF F=60 THEN SOUND 37,1:F=0:E=E+1
|
|||
|
|
470 IF E=60 THEN SOUND 100,1:E=0:D=D+1
|
|||
|
|
480 IF D=24 THEN SOUND 500,1:D=0:A=A+1
|
|||
|
|
490 IF A=31 THEN SOUND 1000,1:A=1:B=B+1
|
|||
|
|
500 IF B=13 THEN SOUND 1500,1:B=1:C=C+1
|
|||
|
|
510 IF A=G AND B=H AND C=I AND D=J AND E=K AND F=L THEN 600
|
|||
|
|
520 LOCATE 1,1:PRINT"Intern-Time >>> ";TIME$
|
|||
|
|
530 LOCATE 2,1:PRINT"Intern-Date >>> ";DATE$
|
|||
|
|
540 LOCATE 4,1:PRINT"Time >>> ";D;":";E;":";F;" "
|
|||
|
|
550 LOCATE 5,1:PRINT"Date >>> ";A;".";B;".";C;" "
|
|||
|
|
560 LOCATE 7,1:PRINT"Timer-Time >>> ";J;":";K;":";L
|
|||
|
|
570 LOCATE 8,1:PRINT"Timer-Date >>> ";G;".";H;".";I
|
|||
|
|
580 A$=INKEY$:IF A$="" THEN 350
|
|||
|
|
590 END
|
|||
|
|
600 CLS
|
|||
|
|
610 PRINT"Es ist jetzt ";D;":";E;":";F;" Uhr !!!"
|
|||
|
|
620 PRINT"Es ist der ";A;".";B;".";C;" !!!"
|
|||
|
|
630 SOUND 37,1:SOUND 100,1:SOUND 1000,1:SOUND 2000,1:SOUND 3000,1
|
|||
|
|
640 A$=INKEY$:IF A$="" THEN 630
|
|||
|
|
650 CLS
|
|||
|
|
660 END
|
|||
|
|
|