home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 March / Ahoy_Magazine_88-03_1988_Double_L.d64 / Curtains (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  371b  |  10 lines
  1. 0 print"[147]           [195]urtains....."
  2. 1 a=700
  3. 2 forb=atoa+61:readc:pokeb,c:d=d+c:nextb
  4. 3 ifd<>10475thenprint"error in data...":end
  5. 4 data173,33,208,162,0,133,251,134,252,134,253,173
  6. 5 data134,2,141,33,208,165,253,208,7,230,252,230
  7. 6 data252,184,80,4,198,252,198,252,173,18,208,197
  8. 7 data252,144,249,165,251,141,33,208,173,18,208,208
  9. 8 data251,165,252,208,214,230,253,165,253,201,2,144,206,96
  10.