home *** CD-ROM | disk | FTP | other *** search
/ Fritz: Win Best Test 1 / 70001.ZIP / 70001 / WINWARE1 / PROFAN / WIN.PRF < prev    next >
Text File  |  1993-09-26  |  3KB  |  84 lines
  1.         Declare x1%,x2%
  2.         ' WindowTitle "Starte Windows-Programme"
  3.                 Cls
  4.                 UseBrush 1,@Rgb(31,0,15)
  5.                 Rectangle 0,0-640,480
  6.                 TextColor @RGB(15,0,15),-1
  7.                 UseFont "Helv",48,0,1,1,0
  8.                 DrawText 251,30,"Starte"
  9.                 DrawText 132,75,"Windows-Programme"
  10.                 TextColor @RGB(7,0,0),-1
  11.                 UseFont "Helv",48,0,1,0,0
  12.                 DrawText 255,30,"Starte"
  13.                 DrawText 136,75,"Windows-Programme"
  14.                 TextColor 0,-1
  15.                 UseFont "System",0,0,0,0,0
  16.                 DrawIcon "Knopf1",10,10
  17.                 CopySizedBmp 10,10 - 32,32 > 10,10 - 64,32;0
  18.                 DrawText 20,18,"ENDE"
  19.                 UseBrush 1,32767
  20.                 Let x1% = 216
  21.                 Let x2% = 435
  22.                 RoundRect x1%,144 - x2%,180; 6,6
  23.                 RoundRect x1%,189 - x2%,225; 6,6
  24.                 RoundRect x1%,234 - x2%,270; 6,6
  25.                 RoundRect x1%,279 - x2%,315; 6,6
  26.                 RoundRect x1%,324 - x2%,360; 6,6
  27.                 RoundRect x1%,369 - x2%,405; 6,6
  28.                 UseFont "System",0,0,0,1,0
  29.                 Let x1% = 249
  30.                 Let x2% = 171
  31.                 DrawIcon "WINDOWS",x2%,144
  32.                 DrawText x1%,153,"Notizblock"
  33.                 DrawIcon "WINDOWS",x2%,189
  34.                 DrawText x1%,198,"Windows Write"
  35.                 DrawIcon "WINDOWS",x2%,234
  36.                 DrawText x1%,243,"Paintbrush"
  37.                 DrawIcon "WINDOWS",x2%,279
  38.                 DrawText x1%,288,"Profan Hilfe-Kartei"
  39.                 DrawIcon "WINDOWS",x2%,324
  40.                 DrawText x1%,333,"Rechner"
  41.                 DrawIcon "WINDOWS",x2%,369
  42.                 DrawText x1%,378,"System-Editor"
  43.                 UseBrush 1,@RGB(31,31,16)
  44.                 Rectangle 30,210 - 144,294
  45.                 UseFont "System",0,0,0,0,0
  46.                 DrawText 39,222,"Bitte einen"
  47.                 DrawText 39,237,"Menⁿpunkt"
  48.                 DrawText 39,252,"oder ein Icon"
  49.                 DrawText 39,267,"anklicken!"
  50. WaitForInput:
  51.                 WaitMouse
  52.                 Let x1% = 171
  53.                 Let x2% = 435
  54.                 Case @Mouse(x1%,144 - x2%,180):Goto "Notepad"
  55.                 Case @Mouse(x1%,189 - x2%,225):Goto "Write"
  56.                 Case @Mouse(x1%,234 - x2%,270):Goto "Paintbrush"
  57.                 Case @Mouse(x1%,279 - x2%,315):Goto "Cardfile"
  58.                 Case @Mouse(x1%,324 - x2%,360):Goto "Calculator"
  59.                 Case @Mouse(x1%,369 - x2%,405):Goto "SysEdit"
  60.                 Case @Mouse( 10, 10 -  65, 41):End
  61.                 Case @MenuItem(0)             :Gosub "NoHit"
  62.                 Goto "WaitForInput"
  63. NoHit:
  64.                 MessageBox "Bitte einen Menⁿpunkt anwΣhlen!","HINWEIS:",16
  65.                 Return
  66. Notepad:
  67.                 Shell "NOTEPAD.EXE"
  68.                 Goto "WaitForInput"
  69. Write:
  70.                 Shell "WRITE.EXE"
  71.                 Goto "WaitForInput"
  72. Paintbrush:
  73.                 Shell "PBRUSH.EXE"
  74.                 Goto "WaitForInput"
  75. Cardfile:
  76.                 Shell "CARDFILE.EXE PROFAN.CRD"
  77.                 Goto  "WaitForInput"
  78. Calculator:
  79.                 Shell "CALC.EXE"
  80.                 Goto "WaitForInput"
  81. SysEdit:
  82.                 Shell "SYSEDIT.EXE"
  83.                 Goto "WaitForInput"
  84.