ZX-Ревю 1995 №2 1994 г.

Спектрум в школе - Окна.


   (С) Вадим Пыльцов, г.Надым.      
                                    
              Окна.                 
                                    
   Эта программа,  строящая  "ок-   
на", может   быть   полезна   для   
оформления диалога  (меню) в сис-   
темах, создаваемых Вами.            
                                    
   10 REM WINDOWS                   
   20 LET X=3: LET Y=3: LET W=12:   
  LET H=8: LET V=1                  
   30 GO SUB 1000                   
   40 STOP                          
 1000 REM X,Y,W,H,V                 
 1010 LET T$="/": LET M$="/": LET   
  B$="Ы"                            
 1030 LET V$=""                     
 1040 FOR I=1 TO W                  
 1050 LET T$=T$+"/"                 
 1060 LET M$=M$+" "                 
 1070 LET B$=B$+"Ы"                 
 1080 NEXT I                        
 1090 LET T$=T$+"/": LET M$=M$+"/   
 "                                  
 1100 LET B$=B$+"Ы"                 
 1105 LET V$="": IF V=0 THEN  GO    
 TO 1500                            
 1110 FOR I=1 TO V                  
 1120 LET V$=V$+"ЫЫ"              
 1130 NEXT I                      
 1500 PRINT AT Y,X;T$             
 1510 FOR I=1 TO H                
 1520 PRINT AT Y+I,X;M$;: IF I>=V 
  THEN  PRINT V$                  
 1530 NEXT I                      
 1540 PRINT AT Y+I,X;T$;V$        
 1550 IF V=0 THEN  RETURN         
 1560 FOR I=1 TO V                
 1570 PRINT AT Y+H+I+1,X+V*2;B$   
 1580 NEXT I                      
 1590 RETURN                      
                                  
   В строке 20 задаются следующие 
параметры (в знакоместах):  X и Y 
- координаты верхнего левого угла 
окна; W - ширина окна; H - высота 
окна;  V -  ширина  отбрасываемой 
тени. В строках 1010, 1070, 1100, 
1120 используется символ  блочной 
графики CHR$ 143. В целом это до- 
вольно эффектная программа, кото- 
рую можно использовать почти вез- 
де,  модернизируя те или иные  ее 
части по мере надобности.         



СОДЕРЖАНИЕ:


  Оставте Ваш отзыв:

  НИК/ИМЯ
  ПОЧТА (шифруется)
  КОД



Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Железо - логические схемы.
PLAY, PLAY - Описание игры "1000".
Почта - о Спектруме и Спектрумистах в Молдове.

В этот день...   29 ноября