home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 April / 1989-04.d64 / italics64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  797b  |  23 lines
  1. 10 rem copyright 1989 compute! publications, inc. - all rights reserved.
  2. 20 print"[147]":poke53280,14:poke53281,6
  3. 30 sa=832:is=52:ie=252
  4. 40 t=sa:ck=0
  5. 50 reada:if a=-1 then 70
  6. 60 poke t,a:t=t+1:ck=ck+a:goto50
  7. 70 if ck<>11204 then print"error in data":end
  8. 80 t=sa+35:h=int(t/256):l=t-h*256
  9. 90 poke sa+24,l:pokesa+29,h
  10. 100 poke sa+63,ie:poke sa+12,is:poke sa+78,is
  11. 110 sys sa:print"copyright 1989"
  12. 120 print"compute! publications, inc.":print"all rights reserved."
  13. 130 data 120,169,127,141,13,220,169,1,141,26
  14. 140 data 208,169,52,133,176,141,18,208,169,27
  15. 150 data 141,17,208,169,99,141,20,3,169,3
  16. 160 data 141,21,3,88,96,169,1,141,25,208
  17. 170 data 173,22,208,201,201,208,7,169,204,141
  18. 180 data 22,208,208,3,206,22,208,165,176,24
  19. 190 data 105,2,201,252,176,11,133,176,141,18
  20. 200 data 208,104,168,104,170,104,64,169,52,133
  21. 210 data 176,141,18,208,169,204,141,22,208,76
  22. 220 data 49,234,-1
  23.