home *** CD-ROM | disk | FTP | other *** search
/ ZAM 3 / ZAM 3.adf / Source / 3D-WINDOW-EXAMPLE.AMOS / 3D-WINDOW-EXAMPLE.amosSourceCode
Encoding:
AMOS Source Code  |  1990-12-11  |  1.6 KB  |  53 lines
  1. Global STRT,TEND
  2. Shared STRT,TEND
  3.  
  4. Screen Open 0,640,200,8,Hires
  5. Flash Off : Curs Off 
  6. Colour 1,$FFF : Colour 2,$999 : Colour 3,$444 : Colour 4,$F00 : Colour 5,$FF0 : Colour 6,$D : Colour 7,$D0
  7. Cls 2
  8.  
  9. WOPEN[1,16,2,76,2,4,5,"",1]
  10. Centre At(,0)+"THIS 3D-WINDOW ROUTINE WAS CODED BY  *HAWK*  IN JANUARY 1993!"
  11. Centre At(,1)+"FEEL FREE TO USE THIS IN YOR OWN PRODUCTIONS!"
  12.  
  13. WOPEN[2,16,24,24,1,4,5,"",10]
  14. WOPEN[12,224,24,24,1,4,5,"",10]
  15. WOPEN[22,432,24,24,1,4,5,"",10]
  16. WOPEN[32,16,160,24,1,4,5,"",2]
  17. WOPEN[34,224,160,24,1,4,5,"",2]
  18. WOPEN[36,432,160,24,1,4,5,"",2]
  19. WOPEN[38,16,136,76,1,4,5,"YOU COULD BE REQUESTING SOMETHING BELOW ...",1]
  20.  
  21. For T=32 To 37
  22.    Window T
  23.    Centre At(,0)+"Press a Key"
  24. Next T
  25. Bell : Wait Key 
  26. STRT=2 : TEND=37
  27. WCLOSE[STRT,TEND]
  28.  
  29. Procedure WOPEN[WIN,XPOSSTART,YPOSSTART,WIDTH,HEIGHT,PAPCUL,PCUL,TXT$,REPEET]
  30.    For LOP=0 To REPEET-1
  31.       Wind Open WIN+LOP,XPOSSTART,YPOSSTART+(LOP*10),WIDTH,HEIGHT
  32.       Paper PAPCUL : Pen PCUL
  33.       Clw 
  34.       Ink 3
  35.       Draw XPOSSTART-1,(YPOSSTART-1)+(LOP*10) To XPOSSTART+(WIDTH*8)+1,(YPOSSTART-1)+(LOP*10)
  36.       Draw XPOSSTART-1,YPOSSTART+(LOP*10) To XPOSSTART-1,YPOSSTART+(HEIGHT*8)+(LOP*10)
  37.       Ink 1
  38.       Draw XPOSSTART,YPOSSTART+(HEIGHT*8)+(LOP*10) To XPOSSTART+(WIDTH*8)+1,YPOSSTART+(HEIGHT*8)+(LOP*10)
  39.       Draw XPOSSTART+1+(WIDTH*8),YPOSSTART+(LOP*10) To XPOSSTART+1+(WIDTH*8),YPOSSTART+(HEIGHT*8)+(LOP*10)
  40.       Centre At(,0)+TXT$
  41.       Home 
  42.    Next LOP
  43.    Curs Off 
  44. End Proc
  45.  
  46. Procedure WCLOSE[STRT,TEND]
  47.    Shared STRT,TEND
  48.    For LOP=STRT To TEND
  49.       Window LOP
  50.       Paper 2 : Clw 
  51.       Wind Close 
  52.    Next LOP
  53. End Proc