Form auf Form

REM
REM LABEL FÜR HAUPTMENÜ DEFINIEREN
label Zahl00050
label Zahl00051
label Zahl00052
label Zahl00053
label Zahl00054
label Zahl00055
label Zahl00056
label Zahl00057
label Zahl00058
label Zahl00059
label Zahl00060
label Zahl00061
label Zahl00062
label Zahl00063
label Zahl00064
label Zahl00065
label Zahl00066
label Zahl00067
label Zahl00068
label Zahl00069
label Zahl00070
label Zahl00071
label Zahl00072
label Zahl00073
label Zahl00074
label Zahl00098
label Zahl00099
REM LABEL FÜR "?" FÜR HILFENENÜ DEFINIEREN *************************************
label Zahl00810 : REM INFO
label Zahl00811
label Zahl00812
label Zahl00813
label Zahl00829 : REM HILFE
REM LABEL FÜR RAHMEN UND SCHRIFTARTEN FESTLEGEN ********************************
label RAHMENAUFFORM01        :REM DOPPELRAHMEN SCHWARZ UM FORM 00000 ZEICHNEN
label RAHMENAUFFORM02        :REM DOPPELRAHMEN ROT    UM FORM 00000 ZEICHNEN
label RAHMENAUFFORM03        :REM DOPPELRAHMEN GRÜN    UM FORM 00000 ZEICHNEN
label RAHMENAUFFORM04        :REM DOPPELRAHMEN GELB    UM FORM 00000 ZEICHNEN
label SCHRIFTART09            :REM SCHRIFTART ARIAL 09
label SCHRIFTART10            :REM SCHRIFTART ARIAL 10
label SCHRIFTART11            :REM SCHRIFTART ARIAL 11
label SCHRIFTART12            :REM SCHRIFTART ARIAL 12
REM REAL "12,789"  VARIABLEN DEFINIEREN
DIM ZAEHLENi      : REM ZÄHLVARIABLE
DIM Bildbreite
DIM Bildhoehe
DIM ZUFALL_A :ZUFALL_A = 214013
DIM ZUFALL_C :ZUFALL_C = 2531011
DIM ZUFALL_Z :ZUFALL_Z = 16777216
REM INTEGER "%" VARIABLEN DEFINIEREN
DIM i%
DIM hoehe%
DIM links%
REM FESTE TEXTVARIABLEN AUF FORMEN DEFINIEREN **********************************
DIM FORM_TEXT00000$ :FORM_TEXT00000$ = "  PC-Zeit Programme  "
DIM FORM_TEXT00054$ :FORM_TEXT00054$ = " - Multimomentstudie - 1. Projekt Neu anlegen"
DIM FORM_TEXT00055$ :FORM_TEXT00055$ = " - Multimomentstudie - 2. Arbeitsplätze Neu anlegen"
DIM FORM_TEXT00056$ :FORM_TEXT00056$ = " - Multimomentstudie - 3. Beobachtungsumfang Neu bestimmen"
DIM FORM_TEXT00057$ :FORM_TEXT00057$ = " - Multimomentstudie - 4. Rundgangsplan Neu erstellen"
DIM FORM_TEXT00058$ :FORM_TEXT00058$ = " - Multimomentstudie - 5. Rundgangszeiten Neu ermitteln"
DIM FORM_TEXT00059$ :FORM_TEXT00059$ = " - Multimomentstudie - 6. Vorkommnisse Neu anlegen"
DIM FORM_TEXT00060$ :FORM_TEXT00060$ = " - Multimomentstudie - 7. SPRUNG 00060"
DIM FORM_TEXT00061$ :FORM_TEXT00061$ = " - Multimomentstudie - 8. SPRUNG 00061"
DIM FORM_TEXT00062$ :FORM_TEXT00062$ = " - Multimomentstudie - 9. SPRUNG 00062"
DIM FORM_TEXT00064$ :FORM_TEXT00064$ = " - Multimomentstudie - 1. Projekt anzeigen/ändern"
DIM FORM_TEXT00065$ :FORM_TEXT00065$ = " - Multimomentstudie - 2. Arbeitsplätze anzeigen/ändern"
DIM FORM_TEXT00066$ :FORM_TEXT00066$ = " - Multimomentstudie - 3. Beobachtungsumfang anzeigen"
DIM FORM_TEXT00067$ :FORM_TEXT00067$ = " - Multimomentstudie - 4. Rundgangsplan anzeigen"
DIM FORM_TEXT00068$ :FORM_TEXT00068$ = " - Multimomentstudie - 5. Rundgangszeiten anzeigen"
DIM FORM_TEXT00069$ :FORM_TEXT00069$ = " - Multimomentstudie - 6. Vorkommnisse anzeigen/ändern"
DIM FORM_TEXT00070$ :FORM_TEXT00070$ = " - Multimomentstudie - 9. SPRUNG 00070"
DIM FORM_TEXT00071$ :FORM_TEXT00071$ = " - Multimomentstudie - 9. SPRUNG 00071"
DIM FORM_TEXT00072$ :FORM_TEXT00072$ = " - Multimomentstudie - 9. SPRUNG 00072"
DIM FORM_TEXT00073$ :FORM_TEXT00073$ = " - Multimomentstudie - 9. SPRUNG 00073"
DIM FORM_TEXT00074$ :FORM_TEXT00074$ = " - Multimomentstudie - 9. SPRUNG 00074"
DIM FORM_TEXT00099$ :FORM_TEXT00099$ = " - Multimomentstudie - 9. SPRUNG 00099"
DIM FORM_TEXT00810$ :FORM_TEXT00810$ = " - Multimomentstudie - 9. SPRUNG 00810"
DIM FORM_TEXT00811$ :FORM_TEXT00811$ = " - Multimomentstudie - 9. SPRUNG 00811"
DIM FORM_TEXT00812$ :FORM_TEXT00812$ = " - Multimomentstudie - 9. SPRUNG 00812"
DIM FORM_TEXT00813$ :FORM_TEXT00813$ = " - Multimomentstudie - 9. SPRUNG 00813"
DIM FORM_TEXT00829$ :FORM_TEXT00829$ = " - Multimomentstudie - 9. SPRUNG 00829"
REM PROGRAMM STARTEN ***********************************************************
REM FORM          00000 DEFINIEREN            :REM ......FORM 00000 ERSTELLT
color              00000,0,255,0              :REM ......FARBE EINSTELLEN
width              00000,screen_x-0            :REM ......BREITE  1680
height            00000,screen_y-0            :REM ......HÖHE    1050
caption            00000,FORM_TEXT00000$      :REM ..... ÜBERSCHRIFT
border_normal      00000                      :REM ..... FULL BILDSCHIRM LEISTE
REM Hauptmenü
main_menu 00001
REM RAHMEN AUF FORM 00000 ERSTELLEN
Gosub RAHMENAUFFORM01                :REM DOPPELRAHMEN SCHWARZ UM FORM ZEICHNEN
REM ERSTELLEN VON 21 UNTERMENÜS
    sub_menu 00002:caption 00002,"Multimomentstudie" : parent 00002, 00001
REM sub_menu 00003:caption 00003,"Form 03    " :      parent 00003, 00001
REM sub_menu 00004:caption 00004,"Form 04    " :      parent 00004, 00001
REM sub_menu 00005:caption 00005,"Form 05    " :      parent 00005, 00001
REM sub_menu 00006:caption 00006,"Form 06    " :      parent 00006, 00001
REM sub_menu 00007:caption 00007,"Form 07    " :      parent 00007, 00001
REM sub_menu 00008:caption 00008,"Form 08    " :      parent 00008, 00001
REM sub_menu 00009:caption 00009,"Form 09    " :      parent 00009, 00001
REM sub_menu 00010:caption 00010,"Form 10    " :      parent 00010, 00001
REM sub_menu 00011:caption 00011,"Form 11    " :      parent 00011, 00001
REM sub_menu 00012:caption 00012,"Form 12    " :      parent 00012, 00001
REM sub_menu 00013:caption 00013,"Form 13    " :      parent 00013, 00001
REM sub_menu 00014:caption 00014,"Form 14    " :      parent 00014, 00001
REM sub_menu 00015:caption 00015,"Form 15    " :      parent 00015, 00001
REM sub_menu 00016:caption 00016,"Form 16    " :      parent 00016, 00001
REM sub_menu 00017:caption 00017,"Form 17    " :      parent 00017, 00001
REM sub_menu 00018:caption 00018,"Form 18    " :      parent 00018, 00001
REM sub_menu 00019:caption 00019,"Form 19    " :      parent 00019, 00001
REM sub_menu 00020:caption 00020,"Form 20    " :      parent 00020, 00001
    sub_menu 00040:caption 00040," ? "        :      parent 00040, 00001
REM UNTERMENÜ 00002 ERSTELLEN **************************************************
sub_menu 00050:caption 00050,"Multimomentstudie      Neu anlegen ":parent 00050,00002
sub_menu 00051:caption 00051,"------------------------------------------------":parent 00051,00002
sub_menu 00052:caption 00052,"Multimomentstudie      Öffnen      ":parent 00052,00002
sub_menu 00053:caption 00053,"------------------------------------------------":parent 00053,00002
sub_menu 00054:caption 00054,"1. Projekt anlegen            ":parent 00054,00050
sub_menu 00055:caption 00055,"2. Arbeitsplätze anlegen      ":parent 00055,00050
sub_menu 00056:caption 00056,"3. Beobachtungsumfang bestimmen":parent 00056,00050
sub_menu 00057:caption 00057,"4. Rundgangsplan erstellen    ":parent 00057,00050
sub_menu 00058:caption 00058,"5. Rundgangszeiten ermitteln  ":parent 00058,00050
sub_menu 00059:caption 00059,"6. Vorkommnisse anlegen        ":parent 00059,00050
sub_menu 00060:caption 00060,"7. SPRUNG 00060                ":parent 00060,00050
sub_menu 00061:caption 00061,"8. SPRUNG 00061                ":parent 00061,00050
sub_menu 00062:caption 00062,"9. SPRUNG 00062                ":parent 00062,00050
REM sub_menu 00063:caption 00063,"----------------------------------------------":parent 00063,00002
sub_menu 00064:caption 00064,"1. Projekt anzeigen/ändern        ":parent 00064,00052
sub_menu 00065:caption 00065,"2. Arbeitsplätze anzeigen/ändern":parent 00065,00052
sub_menu 00066:caption 00066,"3. Beobachtungsumfang anzeigen  ":parent 00066,00052
sub_menu 00067:caption 00067,"4. Rundgangsplan anzeigen      ":parent 00067,00052
sub_menu 00068:caption 00068,"5. Rundgangszeiten anzeigen    ":parent 00068,00052
sub_menu 00069:caption 00069,"6. Vorkommnisse anzeigen/ändern ":parent 00069,00052
sub_menu 00070:caption 00070,"Zählen bis.......1.000        ":parent 00070,00002
sub_menu 00071:caption 00071,"Zählen bis......10.000        ":parent 00071,00002
sub_menu 00072:caption 00072,"Zählen bis.....100.000        ":parent 00072,00002
sub_menu 00073:caption 00073,"Zählen bis...1.000.000        ":parent 00073,00002
sub_menu 00074:caption 00074,"Systemvariablen                ":parent 00074,00002
sub_menu 00098:caption 00098,"----------------------------------------------":parent 00098,00002
sub_menu 00099:caption 00099,"Beenden                      ":parent 00099,00002

REM ****************************************************************************
REM SPRUNG NACH DEM KLICK ******************************************************
REM ****************************************************************************
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
      on_click 00050,Zahl00050
REM  on_click 00051,Zahl00051                :REM ..... TRENNLINIE IM MENÜ
      on_click 00052,Zahl00052
REM  on_click 00053,Zahl00053                :REM ..... TRENNLINIE IM MENÜ
    on_click 00054,Zahl00054
    on_click 00055,Zahl00055
    on_click 00056,Zahl00056
    on_click 00057,Zahl00057
    on_click 00058,Zahl00058
    on_click 00059,Zahl00059
    on_click 00060,Zahl00060
    on_click 00061,Zahl00061
    on_click 00062,Zahl00062
REM on_click 00063,Zahl00063                      :REM ..... TRENNLINIE IM MENÜ
    on_click 00064,Zahl00064
    on_click 00065,Zahl00065
    on_click 00066,Zahl00066
    on_click 00067,Zahl00067
    on_click 00068,Zahl00068
    on_click 00069,Zahl00069
    on_click 00070,Zahl00070
    on_click 00071,Zahl00071
    on_click 00072,Zahl00072
    on_click 00073,Zahl00073
    on_click 00074,Zahl00074
REM on_click 00098,Zahl00098                      :REM ..... TRENNLINIE IM MENÜ
    on_click 00099,Zahl00099                      :REM ..... PROGRAMM BEENDEN


REM ****************************************************************************
REM ERSTELLEN UNTERMENÜ 0040 "?" ***********************************************
REM ****************************************************************************
    sub_menu 00810:caption 00810,"Hilfe"                    :parent  00810,0040
    sub_menu 00811:caption 00811,"Befehl0811"                :parent  00811,0040
    sub_menu 00812:caption 00812,"Befehl0812"                :parent  00812,0040
    sub_menu 00813:caption 00813,"Kalender"                  :parent  00813,0040
    sub_menu 00828:caption 00828,"----------------------"    :parent  00828,0040
    sub_menu 00829:caption 00829,"Info"                      :parent  00829,0040


REM ****************************************************************************
REM SPRUNG NACH DEM KLICK  *****************************************************
REM ****************************************************************************
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
      on_click 00810,Zahl00810
      on_click 00811,Zahl00811
      on_click 00812,Zahl00812
      on_click 00813,Zahl00813
REM  on_click 00828,Zahl00828                :REM ..... TRENNLINIE IM MENÜ
      on_click 00829,Zahl00829
end


REM ****************************************************************************
REM BEGINN DER UNTERPROGRAMME
REM ****************************************************************************

REM ****************************************************************************
Zahl00050:
caption  00000,FORM_TEXT00000$                      :    REM ..... ÜBERSCHRIFT
return
end

REM ****************************************************************************
Zahl00051:
return
end

REM ****************************************************************************
Zahl00052:
return
end

REM ****************************************************************************
Zahl00053:
return
end


REM ****************************************************************************
REM Multimomentstudie --- Projekt Neu anlegen
REM ****************************************************************************
Zahl00054:
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
caption  00000,FORM_TEXT00000$+FORM_TEXT00055$ :REM ..... ÜBERSCHRIFT
FORM                  01054                  :REM ......DEFINIEREN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
hoehe%    = 56                                :REM ......BEGINN VON OBEN
links%    = 08                                :REM ......BEGINN VON LINKS
Bildhoehe = screen_y-(hoehe%+49)              :REM ......ZÄHLVARIABL FESTLEGEN
COLOR              01054,146,159,215          :REM ......FARBE EINSTELLEN
width              01054,screen_x-(links%*2)  :REM ......BREITE  1680
top                01054,hoehe%                :REM ......HÖHE FENSTER
left              01054,links%                :REM ......BREITE FENSTER
REM border_normal  01054                      :REM ..... FULL BILDSCHIRM LEISTE
REM border_small  01054                      :REM ..... BILDSCHIRM NUR X
border_hide        01054                      :REM ..... BILDSCHIRM OHNE LEISTE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
For i% = hoehe% TO Bildhoehe Step 2            :REM ......BEGINN ZÄHLSCHLEIFE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
height            01054,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
                                                REM
message "Der Test ist fertig!"                :REM ..... Text ausgeben
                                                REM
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM
                                                REM
For i% = Bildhoehe TO 0 Step -2                :REM ......BEGINN ZÄHLSCHLEIFE
height            01054,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
                                                REM
caption  00000,FORM_TEXT00000$                :REM ..... ÜBERSCHRIFT
                                                REM
Gosub RAHMENAUFFORM03                          :REM FARBE GRÜN 000,255,000
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000


return                                        :REM ....RÜCKSPRUNG ZU FORM OOOOO
end                                            :REM ....ENDE DES MENÜ 00054
                                                REM
                                                REM
REM ****************************************************************************
REM  Multimomentstudie --- Arbeitsplätze Neu anlegen
REM ****************************************************************************
Zahl00055:
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
caption  00000,FORM_TEXT00000$+FORM_TEXT00055$ :REM ..... ÜBERSCHRIFT
FORM                  01055                  :REM ......DEFINIEREN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
hoehe%    = 56                                :REM ......BEGINN VON OBEN
links%    = 08                                :REM ......BEGINN VON LINKS
Bildhoehe = screen_y-(hoehe%+49)              :REM ......ZÄHLVARIABL FESTLEGEN
COLOR              01055,146,159,215          :REM ......FARBE EINSTELLEN
width              01055,screen_x-(links%*2)  :REM ......BREITE  1680
top                01055,hoehe%                :REM ......HÖHE FENSTER
left              01055,links%                :REM ......BREITE FENSTER
REM border_normal  01055                      :REM ..... FULL BILDSCHIRM LEISTE
REM border_small  01055                      :REM ..... BILDSCHIRM NUR X
border_hide        01055                      :REM ..... BILDSCHIRM OHNE LEISTE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
For i% = hoehe% TO Bildhoehe Step 2            :REM ......BEGINN ZÄHLSCHLEIFE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
height            01055,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
                                                REM
message "Der Test ist fertig!"                :REM ..... Text ausgeben
                                                REM
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM
                                                REM
For i% = Bildhoehe TO 0 Step -2                :REM ......BEGINN ZÄHLSCHLEIFE
height            01055,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
                                                REM
caption  00000,FORM_TEXT00000$                :REM ..... ÜBERSCHRIFT
                                                REM
Gosub RAHMENAUFFORM03                          :REM FARBE GRÜN 000,255,000
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
                                                REM
return                                        :REM ....RÜCKSPRUNG ZU FORM OOOOO
end                                            :REM ....ENDE DES MENÜ 00055
                                                REM
                                                REM
REM ****************************************************************************
REM  Multimomentstudie --- Beobachtungsumfang bestimmen
REM ****************************************************************************
Zahl00056:
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
caption  00000,FORM_TEXT00000$+FORM_TEXT00056$ :REM ..... ÜBERSCHRIFT
FORM                  01056                  :REM ......DEFINIEREN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
hoehe%    = 56                                :REM ......BEGINN VON OBEN
links%    = 08                                :REM ......BEGINN VON LINKS
Bildhoehe = screen_y-(hoehe%+49)              :REM ......ZÄHLVARIABL FESTLEGEN
COLOR              01056,146,159,215          :REM ......FARBE EINSTELLEN
width              01056,screen_x-(links%*2)  :REM ......BREITE  1680
top                01056,hoehe%                :REM ......HÖHE FENSTER
left              01056,links%                :REM ......BREITE FENSTER
REM border_normal  01056                      :REM ..... FULL BILDSCHIRM LEISTE
REM border_small  01056                      :REM ..... BILDSCHIRM NUR X
border_hide        01056                      :REM ..... BILDSCHIRM OHNE LEISTE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
For i% = hoehe% TO Bildhoehe Step 2            :REM ......BEGINN ZÄHLSCHLEIFE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
height            01056,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
                                                REM
message "Der Test ist fertig!"                :REM ..... Text ausgeben
                                                REM
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM
                                                REM
For i% = Bildhoehe TO 0 Step -2                :REM ......BEGINN ZÄHLSCHLEIFE
height            01056,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
                                                REM
caption  00000,FORM_TEXT00000$                :REM ..... ÜBERSCHRIFT
                                                REM
Gosub RAHMENAUFFORM03                          :REM FARBE GRÜN 000,255,000
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
                                                REM
return                                        :REM ....RÜCKSPRUNG ZU FORM OOOOO
end                                            :REM ....ENDE DES MENÜ 00056
                                                REM
                                                REM
REM ****************************************************************************
REM  Multimomentstudie --- Rundgangsplan erstellen
REM ****************************************************************************
Zahl00057:
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
caption  00000,FORM_TEXT00000$+FORM_TEXT00057$ :REM ..... ÜBERSCHRIFT
FORM                  01057                  :REM ......DEFINIEREN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
hoehe%    = 56                                :REM ......BEGINN VON OBEN
links%    = 08                                :REM ......BEGINN VON LINKS
Bildhoehe = screen_y-(hoehe%+49)              :REM ......ZÄHLVARIABL FESTLEGEN
COLOR              01057,146,159,215          :REM ......FARBE EINSTELLEN
width              01057,screen_x-(links%*2)  :REM ......BREITE  1680
top                01057,hoehe%                :REM ......HÖHE FENSTER
left              01057,links%                :REM ......BREITE FENSTER
REM border_normal  01057                      :REM ..... FULL BILDSCHIRM LEISTE
REM border_small  01057                      :REM ..... BILDSCHIRM NUR X
border_hide        01057                      :REM ..... BILDSCHIRM OHNE LEISTE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
For i% = hoehe% TO Bildhoehe Step 2            :REM ......BEGINN ZÄHLSCHLEIFE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
height            01057,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
                                                REM
message "Der Test ist fertig!"                :REM ..... Text ausgeben
                                                REM
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM
                                                REM
For i% = Bildhoehe TO 0 Step -2                :REM ......BEGINN ZÄHLSCHLEIFE
height            01057,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
                                                REM
caption  00000,FORM_TEXT00000$                :REM ..... ÜBERSCHRIFT
                                                REM
Gosub RAHMENAUFFORM03                          :REM FARBE GRÜN 000,255,000
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
                                                REM
return                                        :REM ....RÜCKSPRUNG ZU FORM OOOOO
end                                            :REM ....ENDE DES MENÜ 00057
                                                REM
                                                REM
REM ****************************************************************************
REM  Multimomentstudie --- Rundgangszeiten ermitteln
REM ****************************************************************************
Zahl00058:
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
caption  00000,FORM_TEXT00000$+FORM_TEXT00058$ :REM ..... ÜBERSCHRIFT
FORM                  01058                  :REM ......DEFINIEREN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
hoehe%    = 56                                :REM ......BEGINN VON OBEN
links%    = 08                                :REM ......BEGINN VON LINKS
Bildhoehe = screen_y-(hoehe%+49)              :REM ......ZÄHLVARIABL FESTLEGEN
COLOR              01058,146,159,215          :REM ......FARBE EINSTELLEN
width              01058,screen_x-(links%*2)  :REM ......BREITE  1680
top                01058,hoehe%                :REM ......HÖHE FENSTER
left              01058,links%                :REM ......BREITE FENSTER
REM border_normal  01058                      :REM ..... FULL BILDSCHIRM LEISTE
REM border_small  01058                      :REM ..... BILDSCHIRM NUR X
border_hide        01058                      :REM ..... BILDSCHIRM OHNE LEISTE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
For i% = hoehe% TO Bildhoehe Step 2            :REM ......BEGINN ZÄHLSCHLEIFE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
height            01058,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM02                          :REM FARBE ROT    255,000,000
                                                REM
message "Der Test ist fertig!"                :REM ..... Text ausgeben
                                                REM
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM
                                                REM
For i% = Bildhoehe TO 0 Step -2                :REM ......BEGINN ZÄHLSCHLEIFE
height            01058,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
                                                REM
caption  00000,FORM_TEXT00000$                :REM ..... ÜBERSCHRIFT
                                                REM
Gosub RAHMENAUFFORM03                          :REM FARBE GRÜN 000,255,000
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
                                                REM
return                                        :REM ....RÜCKSPRUNG ZU FORM OOOOO
end                                            :REM ....ENDE DES MENÜ 00058
                                                REM
                                                REM
REM ****************************************************************************
Zahl00059:
return
end

REM ****************************************************************************
Zahl00060:
return
end

REM ****************************************************************************
Zahl00061:
return
end

REM ****************************************************************************
Zahl00062:
return
end

REM ****************************************************************************
Zahl00063:
return
end

REM ****************************************************************************
REM MULTIMOMENTSTUDIE 1. Projekt anzeigen/ändern *******************************
REM ****************************************************************************
Zahl00064:
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
caption  00000,FORM_TEXT00000$+FORM_TEXT00064$ :REM ..... ÜBERSCHRIFT
FORM                  01064                  :REM ......DEFINIEREN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
hoehe%    = 56                                :REM ......BEGINN VON OBEN
links%    = 08                                :REM ......BEGINN VON LINKS
Bildhoehe = screen_y-(hoehe%+49)              :REM ......ZÄHLVARIABL FESTLEGEN
COLOR              01064,146,159,215          :REM ......FARBE EINSTELLEN
width              01064,screen_x-(links%*2)  :REM ......BREITE  1680
top                01064,hoehe%                :REM ......HÖHE FENSTER
left              01064,links%                :REM ......BREITE FENSTER
REM border_normal  01064                      :REM ..... FULL BILDSCHIRM LEISTE
REM border_small  01064                      :REM ..... BILDSCHIRM NUR X
border_hide        01064                      :REM ..... BILDSCHIRM OHNE LEISTE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
For i% = hoehe% TO Bildhoehe Step 2            :REM ......BEGINN ZÄHLSCHLEIFE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
height            01064,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
                                                REM
message "Der Test ist fertig!"                :REM ..... Text ausgeben
                                                REM
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM
                                                REM
For i% = Bildhoehe TO 0 Step -2                :REM ......BEGINN ZÄHLSCHLEIFE
height            01064,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
                                                REM
caption  00000,FORM_TEXT00000$                :REM ..... ÜBERSCHRIFT
                                                REM
Gosub RAHMENAUFFORM03                          :REM FARBE GRÜN 000,255,000
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
                                                REM
return                                        :REM ....RÜCKSPRUNG ZU FORM OOOOO
end                                            :REM ....ENDE DES MENÜ 00064
                                                REM
                                                REM
REM ****************************************************************************
REM MULTIMOMENTSTUDIE 2. Arbeitsplätze anzeigen/ändern *************************
REM ****************************************************************************
Zahl00065:
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
caption  00000,FORM_TEXT00000$+FORM_TEXT00065$ :REM ..... ÜBERSCHRIFT
FORM                  01065                  :REM ......DEFINIEREN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
hoehe%    = 56                                :REM ......BEGINN VON OBEN
links%    = 08                                :REM ......BEGINN VON LINKS
Bildhoehe = screen_y-(hoehe%+49)              :REM ......ZÄHLVARIABL FESTLEGEN
COLOR              01065,146,159,215          :REM ......FARBE EINSTELLEN
width              01065,screen_x-(links%*2)  :REM ......BREITE  1680
top                01065,hoehe%                :REM ......HÖHE FENSTER
left              01065,links%                :REM ......BREITE FENSTER
REM border_normal  01065                      :REM ..... FULL BILDSCHIRM LEISTE
REM border_small  01065                      :REM ..... BILDSCHIRM NUR X
border_hide        01065                      :REM ..... BILDSCHIRM OHNE LEISTE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
For i% = hoehe% TO Bildhoehe Step 2            :REM ......BEGINN ZÄHLSCHLEIFE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
height            01065,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
                                                REM
message "Der Test ist fertig!"                :REM ..... Text ausgeben
                                                REM
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM
                                                REM
For i% = Bildhoehe TO 0 Step -2                :REM ......BEGINN ZÄHLSCHLEIFE
height            01065,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
                                                REM
caption  00000,FORM_TEXT00000$                :REM ..... ÜBERSCHRIFT
                                                REM
Gosub RAHMENAUFFORM03                          :REM FARBE GRÜN 000,255,000
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
                                                REM
return                                        :REM ....RÜCKSPRUNG ZU FORM OOOOO
end                                            :REM ....ENDE DES MENÜ 00065
                                                REM
                                                REM
REM ****************************************************************************
REM MULTIMOMENTSTUDIE 3. Beobachtungsumfang anzeigen ***************************
REM ****************************************************************************
Zahl00066:
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
caption  00000,FORM_TEXT00000$+FORM_TEXT00066$ :REM ..... ÜBERSCHRIFT
FORM                  01066                  :REM ......DEFINIEREN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
hoehe%    = 56                                :REM ......BEGINN VON OBEN
links%    = 08                                :REM ......BEGINN VON LINKS
Bildhoehe = screen_y-(hoehe%+49)              :REM ......ZÄHLVARIABL FESTLEGEN
COLOR              01066,146,159,215          :REM ......FARBE EINSTELLEN
width              01066,screen_x-(links%*2)  :REM ......BREITE  1680
top                01066,hoehe%                :REM ......HÖHE FENSTER
left              01066,links%                :REM ......BREITE FENSTER
REM border_normal  01066                      :REM ..... FULL BILDSCHIRM LEISTE
REM border_small  01066                      :REM ..... BILDSCHIRM NUR X
border_hide        01066                      :REM ..... BILDSCHIRM OHNE LEISTE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
For i% = hoehe% TO Bildhoehe Step 2            :REM ......BEGINN ZÄHLSCHLEIFE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
height            01066,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
                                                REM
message "Der Test ist fertig!"                :REM ..... Text ausgeben
                                                REM
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM
                                                REM
For i% = Bildhoehe TO 0 Step -2                :REM ......BEGINN ZÄHLSCHLEIFE
height            01066,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
                                                REM
caption  00000,FORM_TEXT00000$                :REM ..... ÜBERSCHRIFT
                                                REM
Gosub RAHMENAUFFORM03                          :REM FARBE GRÜN 000,255,000
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
                                                REM
return                                        :REM ....RÜCKSPRUNG ZU FORM OOOOO
end                                            :REM ....ENDE DES MENÜ 00066
                                                REM
                                                REM
REM ****************************************************************************
REM MULTIMOMENTSTUDIE 4. Rundgangsplan anzeigen ********************************
REM ****************************************************************************
Zahl00067:
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
caption  00000,FORM_TEXT00000$+FORM_TEXT00067$ :REM ..... ÜBERSCHRIFT
FORM                  01067                  :REM ......DEFINIEREN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
hoehe%    = 56                                :REM ......BEGINN VON OBEN
links%    = 08                                :REM ......BEGINN VON LINKS
Bildhoehe = screen_y-(hoehe%+49)              :REM ......ZÄHLVARIABL FESTLEGEN
COLOR              01067,146,159,215          :REM ......FARBE EINSTELLEN
width              01067,screen_x-(links%*2)  :REM ......BREITE  1680
top                01067,hoehe%                :REM ......HÖHE FENSTER
left              01067,links%                :REM ......BREITE FENSTER
REM border_normal  01067                      :REM ..... FULL BILDSCHIRM LEISTE
REM border_small  01067                      :REM ..... BILDSCHIRM NUR X
border_hide        01067                      :REM ..... BILDSCHIRM OHNE LEISTE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
For i% = hoehe% TO Bildhoehe Step 2            :REM ......BEGINN ZÄHLSCHLEIFE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
height            01067,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
                                                REM
message "Der Test ist fertig!"                :REM ..... Text ausgeben
                                                REM
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM
                                                REM
For i% = Bildhoehe TO 0 Step -2                :REM ......BEGINN ZÄHLSCHLEIFE
height            01067,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
                                                REM
caption  00000,FORM_TEXT00000$                :REM ..... ÜBERSCHRIFT
                                                REM
Gosub RAHMENAUFFORM03                          :REM FARBE GRÜN 000,255,000
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
                                                REM
return                                        :REM ....RÜCKSPRUNG ZU FORM OOOOO
end                                            :REM ....ENDE DES MENÜ 00067
                                                REM
                                                REM
REM ****************************************************************************
REM MULTIMOMENTSTUDIE 5. Rundgangszeiten anzeigen ******************************
REM ****************************************************************************
Zahl00068:
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
caption  00000,FORM_TEXT00000$+FORM_TEXT00068$ :REM ..... ÜBERSCHRIFT
FORM                  01068                  :REM ......DEFINIEREN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
hoehe%    = 56                                :REM ......BEGINN VON OBEN
links%    = 08                                :REM ......BEGINN VON LINKS
Bildhoehe = screen_y-(hoehe%+49)              :REM ......ZÄHLVARIABL FESTLEGEN
COLOR              01068,146,159,215          :REM ......FARBE EINSTELLEN
width              01068,screen_x-(links%*2)  :REM ......BREITE  1680
top                01068,hoehe%                :REM ......HÖHE FENSTER
left              01068,links%                :REM ......BREITE FENSTER
REM border_normal  01068                      :REM ..... FULL BILDSCHIRM LEISTE
REM border_small  01068                      :REM ..... BILDSCHIRM NUR X
border_hide        01068                      :REM ..... BILDSCHIRM OHNE LEISTE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
For i% = hoehe% TO Bildhoehe Step 2            :REM ......BEGINN ZÄHLSCHLEIFE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
height            01068,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
                                                REM
message "Der Test ist fertig!"                :REM ..... Text ausgeben
                                                REM
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM
                                                REM
For i% = Bildhoehe TO 0 Step -2                :REM ......BEGINN ZÄHLSCHLEIFE
height            01068,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
                                                REM
caption  00000,FORM_TEXT00000$                :REM ..... ÜBERSCHRIFT
                                                REM
Gosub RAHMENAUFFORM03                          :REM FARBE GRÜN 000,255,000
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
                                                REM
return                                        :REM ....RÜCKSPRUNG ZU FORM OOOOO
end                                            :REM ....ENDE DES MENÜ 00068
                                                REM
                                                REM
REM ****************************************************************************
REM MULTIMOMENTSTUDIE 6. Vorkommnisse anzeigen/ändern **************************
REM ****************************************************************************
Zahl00069:
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
caption  00000,FORM_TEXT00000$+FORM_TEXT00069$ :REM ..... ÜBERSCHRIFT
FORM                  01069                  :REM ......DEFINIEREN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
hoehe%    = 56                                :REM ......BEGINN VON OBEN
links%    = 08                                :REM ......BEGINN VON LINKS
Bildhoehe = screen_y-(hoehe%+49)              :REM ......ZÄHLVARIABL FESTLEGEN
COLOR              01069,146,159,215          :REM ......FARBE EINSTELLEN
width              01069,screen_x-(links%*2)  :REM ......BREITE  1680
top                01069,hoehe%                :REM ......HÖHE FENSTER
left              01069,links%                :REM ......BREITE FENSTER
REM border_normal  01069                      :REM ..... FULL BILDSCHIRM LEISTE
REM border_small  01069                      :REM ..... BILDSCHIRM NUR X
border_hide        01069                      :REM ..... BILDSCHIRM OHNE LEISTE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
For i% = hoehe% TO Bildhoehe Step 2            :REM ......BEGINN ZÄHLSCHLEIFE
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
height            01069,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
Gosub RAHMENAUFFORM04                          :REM FARBE ROT    255,000,000
                                                REM
message "Der Test ist fertig!"                :REM ..... Text ausgeben
                                                REM
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM ......HIER DIE EINGABEN
                                                REM
                                                REM
For i% = Bildhoehe TO 0 Step -2                :REM ......BEGINN ZÄHLSCHLEIFE
height            01069,i%                    :REM ......HÖHE    1050
next i%                                        :REM ..... WEITER ZÄHLEN
                                                REM
caption  00000,FORM_TEXT00000$                :REM ..... ÜBERSCHRIFT
                                                REM
Gosub RAHMENAUFFORM03                          :REM FARBE GRÜN 000,255,000
Gosub RAHMENAUFFORM01                          :REM FARBE SCHWARZ 000,000,000
                                                REM
return                                        :REM ....RÜCKSPRUNG ZU FORM OOOOO
end                                            :REM ....ENDE DES MENÜ 00069
                                                REM
                                                REM
REM ****************************************************************************
Zahl00070:
Print
Print "Startzeit:    ",Time$
FOR ZAEHLENi= 1 TO 1000
NEXT ZAEHLENi
Print "gezählt bis:  ",ZAEHLENi-1
Print "Endzeit:      ", Time$
Print
end

REM ****************************************************************************
Zahl00071:
Print
Print "Startzeit:    ",Time$
FOR ZAEHLENi = 1 TO 10000
NEXT ZAEHLENi
Print "gezählt bis:  ",ZAEHLENi-1
Print "Endzeit:      ", Time$
Print
end

REM ****************************************************************************
Zahl00072:
Print
Print "Startzeit:    ",Time$
FOR ZAEHLENi = 1 TO 100000
NEXT ZAEHLENi
Print "gezählt bis:  ",ZAEHLENi-1
Print "Endzeit:      ", Time$
Print
end

REM ****************************************************************************
Zahl00073:
Print
Print "Startzeit:    ",Time$
FOR ZAEHLENi = 1 TO 1000000
NEXT ZAEHLENi
Print "gezählt bis:  ",ZAEHLENi-1
Print "Endzeit:      ", Time$
end


REM ****************************************************************************
Zahl00074:

gosub Schriftart09

Print

gosub RahmenaufForm01

Print "  Startzeit:    ",Time$
FOR ZAEHLENi = 1 TO 1000
NEXT ZAEHLENi
Print "  gezählt bis:  ",ZAEHLENi-1
Print "  Endzeit:      ", Time$

gosub RahmenaufForm01

Bildbreite = screen_x
Bildhoehe  = screen_y



Print
Print "  BildschirmBreite_ :  ",Bildbreite,"    Pixel"
Print
Print "  BildschirmHöhe__ : ",Bildhoehe ,"    Pixel"
Print

ZUFALL_Z = sgn(9.3)

Print "  ", ZUFALL_Z





end

REM ****************************************************************************
REM PSEUDO-LABEL WIRD NICHT ANGESPUNGEN ****************************************
REM ****************************************************************************
Zahl00098:
end

REM ****************************************************************************
REM POGRAMM BEENDEN ************************************************************
REM ****************************************************************************
Zahl00099:
terminate
return
end

REM ****************************************************************************




REM ****************************************************************************
REM HILFE "?"*******************************************************************
REM ****************************************************************************
Zahl00810:
return
end

REM ****************************************************************************
Zahl00811:
return
end

REM ****************************************************************************
Zahl00812:
return
end


REM ****************************************************************************
REM KALENDER  ******************************************************************
REM ****************************************************************************
Zahl00813:
return
end

REM ****************************************************************************
REM INFO ÜBER PROGRAMM
REM ****************************************************************************
Zahl00829:

REM UNTERMENÜ TEXT AUF FORM 0000 ERSTELLEN
width          00000,screen_x-0
height        00000,screen_x-0240
caption        00000,"INFO FUNKTION "


REM Bildbreite ermitteln und Form 99900 ausrichten
Bildbreite = screen_x
Bildbreite = Bildbreite/2
Bildbreite = Bildbreite - 200

REM Bildhoehe ermitteln und Form 99900 ausrichten
Bildhoehe = screen_y
Bildhoehe = Bildhoehe/2
Bildhoehe = Bildhoehe - 200

Form  99900
color 99900,255,0,0

top  99900,Bildhoehe
left  99900,Bildbreite
border_small  99900                    REM ..... FULL BILDSCHIRM NUR SCHLISSEN

caption 99900,"Info"

gosub RahmenForm00000
gosub Schriftart99001

command_target_is 99900

alpha  11829
top    11829,10
left    11829,10
caption 11829,"PC-ZEIT eine PROGRAMMSAMMLUNG"

alpha  12829
top    12829,40
left    12829,10
caption 12829,"von Stephan Scholz"

alpha  13829
top    13829,70
left    13829,10
caption 13829,"Stand: 2010"


REM Bildbreite und Bildbreite auf 0 setzen
Bildbreite = 0
Bildhoehe  = 0

end

REM ****************************************************************************
REM ****************************************************************************
REM UNTERPROGRAMME FÜR GOSUB ROUTINEN MIT RÜCKSPRUNG ***************************
REM ****************************************************************************
REM ****************************************************************************
REM
REM ****************************************************************************
REM RAHMEN SCHWARZ AUF ALLEN FORMEN ZEICHNEN ***********************************
REM ****************************************************************************
RAHMENAUFFORM01:

2d_pen_color 0,0,0                                :REM FARBE SCHWARZ 000,000,000


REM LINIEN OBEN
2d_line 0,0,screen_x- 9,0:                        REM AUSSENLINIE....OBEN
2d_line 3,3,screen_x-12,3:                        REM INNENLINE......OBEN

REM LINIEN LINKS
2d_line 0,0,0,screen_y-99:                        REM AUSSENLINIE....LINKS
2d_line 3,3,3,screen_y-102:                        REM INNENLINE......LINKS

REM LINIEN RECHTS
2d_line screen_x- 9,0,screen_x- 9,screen_y- 99 :    REM AUSSENLINIE....RECHTS
2d_line screen_x-12,3,screen_x-12,screen_y-102:    REM INNENLINIE.....RECHTS


REM LINIEN UNTEN
2d_line 0,screen_y- 99,screen_x- 9,screen_y- 99      :REM AUSSENLINIE....UNTEN
2d_line 3,screen_y-102,screen_x-12,screen_y-102  :REM INNENLINIE.....UNTEN

2d_pen_color 0,0,0                                :REM FARBE SCHWARZ 000,000,000

return
end

REM ****************************************************************************
REM RAHMEN ROT AUF ALLEN FORMEN ZEICHNEN ***************************************
REM ****************************************************************************
RAHMENAUFFORM02:

2d_pen_color 255,0,0                              :REM FARBE ROT 255,000,000

REM LINIEN OBEN
2d_line 1,1,screen_x-10,1                        :REM AUSSENLINIE....OBEN
2d_line 2,2,screen_x-11,2                        :REM INNENLINE......OBEN

REM LINIEN LINKS
2d_line 1,1,1,screen_y-100:                        REM AUSSENLINIE....LINKS
2d_line 2,2,2,screen_y-101:                        REM INNENLINE......LINKS

REM LINIEN RECHTS
2d_line screen_x-10,1,screen_x-10,screen_y-100    :REM AUSSENLINIE....RECHTS
2d_line screen_x-11,2,screen_x-11,screen_y-101    :REM INNENLINIE.....RECHTS

REM LINIEN UNTEN
2d_line 1,screen_y-100,screen_x-10,screen_y-100:      REM AUSSENLINIE....UNTEN
2d_line 2,screen_y-101,screen_x-11,screen_y-101:  REM INNENLINIE.....UNTEN

2d_pen_color 0,0,0                                :REM FARBE SCHWARZ 000,000,000

return
end


REM ****************************************************************************
REM RAHMEN GRÜN AUF ALLEN FORMEN ZEICHNEN ***************************************
REM ****************************************************************************
RAHMENAUFFORM03:

2d_pen_color 0,255,0                              :REM FARBE GRÜN 000,255,000

REM LINIEN OBEN
2d_line 1,1,screen_x-10,1                        :REM AUSSENLINIE....OBEN
2d_line 2,2,screen_x-11,2                        :REM INNENLINE......OBEN

REM LINIEN LINKS
2d_line 1,1,1,screen_y-100:                        REM AUSSENLINIE....LINKS
2d_line 2,2,2,screen_y-101:                        REM INNENLINE......LINKS

REM LINIEN RECHTS
2d_line screen_x-10,1,screen_x-10,screen_y-100    :REM AUSSENLINIE....RECHTS
2d_line screen_x-11,2,screen_x-11,screen_y-101    :REM INNENLINIE.....RECHTS

REM LINIEN UNTEN
2d_line 1,screen_y-100,screen_x-10,screen_y-100:      REM AUSSENLINIE....UNTEN
2d_line 2,screen_y-101,screen_x-11,screen_y-101:  REM INNENLINIE.....UNTEN

2d_pen_color 0,0,0                                :REM FARBE SCHWARZ 000,000,000

return
end

REM ****************************************************************************
REM RAHMEN GELB AUF ALLEN FORMEN ZEICHNEN **************************************
REM ****************************************************************************
RAHMENAUFFORM04:

2d_pen_color 255,255,0                            :REM FARBE GELB 255,255,000

REM LINIEN OBEN
2d_line 1,1,screen_x-10,1                        :REM AUSSENLINIE....OBEN
2d_line 2,2,screen_x-11,2                        :REM INNENLINE......OBEN

REM LINIEN LINKS
2d_line 1,1,1,screen_y-100:                        REM AUSSENLINIE....LINKS
2d_line 2,2,2,screen_y-101:                        REM INNENLINE......LINKS

REM LINIEN RECHTS
2d_line screen_x-10,1,screen_x-10,screen_y-100    :REM AUSSENLINIE....RECHTS
2d_line screen_x-11,2,screen_x-11,screen_y-101    :REM INNENLINIE.....RECHTS

REM LINIEN UNTEN
2d_line 1,screen_y-100,screen_x-10,screen_y-100:      REM AUSSENLINIE....UNTEN
2d_line 2,screen_y-101,screen_x-11,screen_y-101:  REM INNENLINIE.....UNTEN

2d_pen_color 0,0,0                                :REM FARBE SCHWARZ 000,000,000

return
end


REM ****************************************************************************
REM SCHRIFTART "ARIAL" GRÖSSE 09 ***********************************************
REM ****************************************************************************
Schriftart09:
font_name 00000,"Arial"
font_size 00000,09
return

REM ****************************************************************************
REM SCHRIFTART "ARIAL" GRÖSSE 10 ***********************************************
REM ****************************************************************************
Schriftart10:
font_name 00000,"Arial"
font_size 00000,10
return

REM ****************************************************************************
REM SCHRIFTART "ARIAL" GRÖSSE 11 ***********************************************
REM ****************************************************************************
Schriftart11:
font_name 00000,"Arial"
font_size 00000,11
return

REM ****************************************************************************
REM SCHRIFTART "ARIAL" GRÖSSE 12 ***********************************************
REM ****************************************************************************
Schriftart12:
font_name 00000,"Arial"
font_size 00000,12
font_bold 00000
return