home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / extensions / jd / procs / _guru.amos / _guru.amosSourceCode
AMOS Source Code  |  1994-02-02  |  2KB  |  66 lines
  1. STDSCREEN
  2. For X=1 To Screen Height/8-3
  3.    T$="Zeile"+Str$(X)
  4.    Centre T$ : Print 
  5. Next 
  6. GTEXT$="Pseudo-Guru" : GTEXT1$=GTEXT$ : GTEXT2$=GTEXT$
  7. GURU[GTEXT$]
  8. Print Param
  9. Wait 100
  10. GURU[GTEXT1$+Chr$(10)+GTEXT2$]
  11. Print Param
  12. Wait 50
  13. Procedure STDSCREEN
  14.    Default 
  15.    Close Editor 
  16.    Close Workbench 
  17.    Screen Open 0,680,257,4,Hires
  18.    Screen Offset 0,0,0
  19.    Limit Mouse 112,42 To 447,298
  20.    Curs Off : Flash Off 
  21.    Colour 0,0 : Colour 1,$90 : Colour 2,$8F8 : Colour 3,$E0 : Rem Gruen    
  22.    ' Colour 0,0 : Colour 1,$555 : Colour 2,$EEE : Colour 3,$AAA : Rem Grau      
  23.    RES_SCREEN[0]
  24. End Proc
  25. Procedure RES_SCREEN[X]
  26.    Gr Writing 1 : Ink 2,1 : Pen 2 : Paper 1
  27.    If X=0 Then Cls 
  28. End Proc
  29. Procedure GURU[A$]
  30.    H=22 : B=Screen Width
  31.    IN=Instr(A$,Chr$(10))
  32.    If IN=0 Then T1$=A$ : A$=""
  33.    If IN<>0 Then H=31 : T1$=Left$(A$,IN-1) : A$=Right$(A$,Len(A$)-IN)
  34.    Screen Offset 0,0,-H
  35.    Screen Open 5,B,H+1,4,Hires
  36.    Screen Display 5,120,40,640,H+1
  37.    Curs Off : Flash Off 
  38.    F1=0 : F2=$D00
  39.    Ink 3
  40.    Polyline 1,1 To B-1,1 To B-1,H To 1,H To 1,1
  41.    Polyline 2,2 To B-2,2 To B-2,H-1 To 2,H-1 To 2,2
  42.    Polyline 3,2 To 3,H-1
  43.    Polyline B-3,2 To B-3,H-1
  44.    Polyline 4,2 To 4,H-1
  45.    Polyline B-4,2 To B-4,H-1
  46.    Colour 0,F1 : Colour 1,F1 : Colour 2,F2 : Colour 3,F2
  47.    Locate 1,1 : Centre T1$
  48.    If A$<>"" Then Locate 1,2 : Centre A$
  49.    While Mouse Key>0 : Wend 
  50.    BUTTON:
  51.    For X=1 To 3
  52.       E=Mouse Key : If E>0 Then Exit 
  53.       Wait 10
  54.    Next 
  55.    If E>0 Then Goto EN
  56.    Colour 3,F1
  57.    For X=1 To 3
  58.       E=Mouse Key : If E>0 Then Exit 
  59.       Wait 10
  60.    Next 
  61.    Colour 3,F2
  62.    If E=0 Then Goto BUTTON
  63.    EN:
  64.    Screen Close 5
  65.    Screen Offset 0,0,0
  66. End Proc[E]