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

Added world time module.

This commit is contained in:
Markus Birth 1994-05-13 22:26:16 +02:00
parent 36d04b2d00
commit baa7240975
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A

87
WINDOWS/WORLDTIM.WIN Normal file
View File

@ -0,0 +1,87 @@
10 KEY 1,"RUN"+CHR$(13)
20 KEY 2,"LOAD"+CHR$(34)
30 KEY 3,"LIST"+CHR$(13)
40 KEY 4,"RUN 730"+CHR$(13)
50 KEY 5,"LIST -"
60 KEY 6,"COLOR 15"+CHR$(13)
70 KEY 7,"SYSTEM"+CHR$(13)
80 KEY 8,"KEY LIST"+CHR$(13)
90 KEY 9,"CLS"+CHR$(13)
100 KEY 10,"SAVE"+CHR$(34)+"WORLDTIM"+CHR$(34)+CHR$(13)
110 KEY OFF
120 CLS
130 SOUND 500,1.2:SOUND 455,1.2:SOUND 500,1.2:SOUND 455,1.2:SOUND 500,1.2:SOUND 455,1.2:SOUND 500,1.2
140 COLOR 15:PRINT"****************************** Weltzeituhr ************************************"
150 PRINT
160 PRINT" Dieses Programm ermittelt die Weltzeiten von :"
170 PRINT
180 COLOR 12:PRINT"Berlin M.E.Z."
190 COLOR 10
200 PRINT"London G.M.T Tokyo"
210 PRINT"Rio de Janeiro Hong Kong"
220 PRINT"Caracas Bangkok"
230 PRINT"New York Dacca"
240 PRINT"Chicago Karachi"
250 PRINT"Denver Dubai"
260 PRINT"Los Angeles Moscow"
270 PRINT"Honolulu Cairo"
280 COLOR 14
290 PRINT"DATE LINE";:COLOR 10:PRINT" Berlin"
300 PRINT"Wellington Sydney"
310 PRINT"Noumea"
320 PRINT
330 COLOR 27
340 PRINT
350 PRINT
360 PRINT
370 PRINT"Bitte Leertaste dr<64>cken"
380 COLOR 15
390 PRINT
400 PRINT"Funktionstasten: [SPACE],[E]nde,[G]et Time,Get [D]ate"
410 J$=INKEY$:IF J$="" GOTO 410
420 IF J$="e" OR J$="E" THEN CLS:SOUND 500,2:KEY ON:END
430 IF J$=" " THEN SOUND 500,2:GOTO 470
440 IF J$="g" OR J$="G" THEN CLS:SOUND 500,2:GOTO 1490
450 IF J$="d" OR J$="D" THEN CLS:SOUND 500,2:GOTO 1570
460 GOTO 420
470 CLS
480 COLOR 28:PRINT"********************** D E R P R O G R A M M I E R E R **********************"
490 PRINT
500 COLOR 15:PRINT"Ich w<>nsche Ihnen viel Spaá und nat<61>rlich das Sie immer"
510 PRINT"genau wissen wie sp„t es ist."
520 PRINT"Mit diesem Programm von mir : ";:COLOR 28:PRINT"W O R L D T I M E";:COLOR 15:
530 PRINT"Es ist ein sehr gutes Programm-ich habe zwei Tage daran gearbeitet."
540 PRINT"Ich habe immer mehr daran verbessert."
550 PRINT
560 PRINT"Viel Spaá noch ---> ";:COLOR 11:PRINT"Markus Birth":COLOR 15
570 PRINT
580 PRINT"Jede Zeile ist anders gef„rbt."
590 PRINT"Jede 1. Zeile ist ";:COLOR 14:PRINT"Gelb ";:COLOR 15:PRINT"gef„rbt."
600 PRINT"Jede 2. Zeile ist ";:COLOR 11:PRINT"Hellblau ";:COLOR 15:PRINT"gef„rbt."
610 PRINT"Die ”rtliche Zeit ist ";:COLOR 10:PRINT"Gr<47>n ";:COLOR 15:PRINT"gef„rbt."
620 PRINT"Jede Besonderheit(hier DATE LINE) ist ";:COLOR 12:PRINT"Rot ";:COLOR 15:PRINT"gef„rbt."
630 PRINT
640 PRINT
650 PRINT
660 PRINT
670 PRINT
680 COLOR 27
690 PRINT"Bitte die Leertaste dr<64>cken"
5863 THEN B$="4"
690 IF A=6 THEN B$="5"
700 IF A=7 THEN B$="6"
710 IF A=8 THEN B$="7"
720 IF A=9 THEN B$="8"
730 IF A=10 THEN B$="9"
740 IF A=11 THEN B$="A"
750 IF A=12 THEN B$="B"
760 IF A=13 THEN B$="C"
770 IF A=14 THEN B$="D"
780 IF A=15 THEN B$="E"
790 IF A=16 THEN B$="F"
800 IF A<1 OR A>16 THEN B$="9"
810 DNUM$=DNUM$+B$
820 IF LEN(DNUM$)=4 THEN DNUM$=DNUM$+"-"
830 IF LEN(DNUM$)>=9 THEN RETURN
840 GOTO 630