Dim L As Byte
Dim P As Byte
Dim O As Byte


Restore Ris1
For O = 0 To 15
   For P = 0 To 31
      Read L
      Call Point(p , O , L)
   Next P
Next O

Dim L As Byte
Dim P As Byte
Dim O As Byte
Dim I As Byte


Restore Ris1
For O = 0 To 15
   For P = 0 To 31
     I = P And &B0000_0111
     If I = 0 Then Read L
     If L.i = 1 Then Call Point(p , O , 1)
   Next P
Next O

Graf:


  Adrsstart = Lsdstr * Triglsd                            
  Incr Adrsstart                                            '
  Adrsend = Adrsstart + Lsdstr                              '

  For Adrsschet = Adrsstart To Adrsend                      '
          Shiftout Data_pin , Clk_pin , Led(adrsschet)    

  Next Adrsschet

  Set Stb_pin                                              

  Select Case Triglsd                                    
      Case 0
         A_pin = 1
         B_pin = 1
         Incr Triglsd
      Case 1
         A_pin = 0
         B_pin = 1
         Incr Triglsd
      Case 2
         A_pin = 1
         B_pin = 0
         Incr Triglsd
      Case 3
         A_pin = 0
         B_pin = 0
         Triglsd = 0
  End Select

  Reset Stb_pin                                             '
  '=====================================================================================================
Return
 

Declare Sub Point(byval X As Word , Byval Y As Byte , Byval Cl As Byte)      
...
...
...

Sub Point(x As Word , Y As Byte , Cl As Byte )              
   'X = 31 - x
   'Y = 15 - Y
   Xadrs = X / 8                                          
   Xadrs = Xadrs * 4                                        

   Xost = X Mod 8                                          

   Yadrs = Y Mod 4                                        
   Yadrs = Yadrs * Lsdstr                                  

   Yost = Y / 4                                            
   Yadrs = Yadrs + Yost                                    

   Yadrs = Xadrs + Yadrs                                    

   Yadrs = Lsdram - Yadrs                                  
   If Yadrs <= Lsdram And Yadrs > 0 Then
      Led(yadrs).xost = Not Cl.0                          
   End If

End Sub