home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l180 / 1.ddi / IMAGEARY.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-02-07  |  773 b   |  20 lines
  1.  
  2.   ' imageary
  3.   ' (DRAW$) "r60 u14 l60 d14 r25 u8 r10 d8 l25 bu6 u4 r10 d4 l1"
  4.   ' (DRAW$) "0 br30 u4 r10 d4 l10 br30 bu6 m-40,-8 m-40,8 br20 "
  5.   ' (DRAW$) "bu4 u4 r10 d2"
  6.     DIM imageary%(0 TO 117)
  7.     FOR i% = 0 TO 117 
  8.         READ h$
  9.         imageary%(i%) = VAL("&H" + h$)
  10.     NEXT i%
  11.     DATA 51,15,0,FE0F,C007,0,0,0,800,F802,3E,0,0,0,1F08,100,F0
  12.     DATA 0,0,B00,E0,F00,80,0,0,7C,0,7C00,0,0,800F,0,0,E003,0,FF01
  13.     DATA FFFF,FFFF,FFFF,FF,3E00,20,0,0,200,F8,20C0,0,0,0,702,80
  14.     DATA 20,0,0,200,0,2000,FE0F,0,F83F,2,0,820,2,2000,208,0,2000
  15.     DATA 208,FC1F,820,2,0,820,1002,2004,208,0,2000,FE0F,410,F83F
  16.     DATA 2,0,20,1000,4,200,0,2000,0,410,0,2,0,20,1000,4,200,0
  17.     DATA 2000,0,410,0,2,0,20,1000,4,200,0,3F00,FFFF,FFFF,FFFF
  18.     DATA FE,0
  19.  
  20.