mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-14 09:16:45 +00:00
87 lines
2.9 KiB
Plaintext
87 lines
2.9 KiB
Plaintext
|
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<70> und nat<61>rlich das Sie immer"
|
|||
|
|
510 PRINT"genau wissen wie sp<73>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<70> noch ---> ";:COLOR 11:PRINT"Markus Birth":COLOR 15
|
|||
|
|
570 PRINT
|
|||
|
|
580 PRINT"Jede Zeile ist anders gef<65>rbt."
|
|||
|
|
590 PRINT"Jede 1. Zeile ist ";:COLOR 14:PRINT"Gelb ";:COLOR 15:PRINT"gef<65>rbt."
|
|||
|
|
600 PRINT"Jede 2. Zeile ist ";:COLOR 11:PRINT"Hellblau ";:COLOR 15:PRINT"gef<65>rbt."
|
|||
|
|
610 PRINT"Die <20>rtliche Zeit ist ";:COLOR 10:PRINT"Gr<47>n ";:COLOR 15:PRINT"gef<65>rbt."
|
|||
|
|
620 PRINT"Jede Besonderheit(hier DATE LINE) ist ";:COLOR 12:PRINT"Rot ";:COLOR 15:PRINT"gef<65>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
|
|||
|
|
|