home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 November / 1993-11.d64 / merge.fb (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  674b  |  21 lines
  1. 10 print"[147]":poke53280,6:poke53281,6
  2. 50 a$="[208]lease read the accompanying":gosub500
  3. 70 a$="documentation in this month's issue of":gosub500
  4. 90 a$="[195][207][205][208][213][212][197]'s [199]azette":gosub500
  5. 100 a$="for information on running the":gosub500
  6. 110 a$="[205][197][210][199][197].[198][194][160]program.":gosub500
  7. 200 end
  8. 500 y= (40-len(a$))/2
  9. 510 for x=1 to y:printchr$(32);:next
  10. 520 printa$
  11. 530 return
  12. 59000 for j=40960 to 49151:pokej,peek(j):next
  13. 59010 poke42231,56:poke42288,96:poke42585,96
  14. 59020 for j=830 to 900:read v:pokej,v:next
  15. 60000 data 162,8,32,198,255,32,207,255,32,207,255,165
  16. 60010 data 1,41,254,133,1,160,0,32,207,255,32,207
  17. 60020 data 255,240,32,32,207,255,133,20,32,207,255,133
  18. 60030 data 21,32,207,255,153,0,2,240,3,200,208,245
  19. 60040 data 152,24,105,5,168,32,162,164,76,79,3,165
  20. 60050 data 1,9,1,133,1,32,89,166,76,128,164
  21.