PBP Lookup Komutu Örneği

Include "bs1defs.bas"  

SO Con 0               ' Define serial out

Ana:
   W6 = W0 : Gosub HexW    
   Serout SO,N2400,[13,10] 
   Random W0     
   Goto Ana          

  

HexW:
   Gosub HexB13            ' Print MSB
   B13 = B12               ' Print LSB

HexB13:
   B11 = B13 / 16          ' Print MSB
   Gosub HexB11
   B11 = B13 & 15

HexB11:
   Lookup B11,["0123456789ABCDEF"],B10 ' B10 = HEX$(B11)
   Serout SO,N2400,[B10]
   Return

   End