home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 149 / 149.d81 / b.comic (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  31 lines
  1. 10 poke55,0:poke56,52:clr
  2. 15 dv=peek(186):ifdv<8thendv=8
  3. 20 print"[147][159]":poke53280,0:poke53281,0:gosub100
  4. 30 sys57812"comic meister",dv,0:poke780,.:poke781,.:poke782,192:sys65493
  5. 35 sys57812"f.comic",dv,0:poke780,.:poke781,.:poke782,56:sys65493
  6. 40 sys57812"comic.spr",dv,0:poke780,.:poke781,.:poke782,52:sys65493
  7. 45 sys57812"comic screen1",dv,0:poke780,.:poke781,.:poke782,232:sys65493
  8. 50 sys57812"comic screen2",dv,0:poke780,.:poke781,.:poke782,240:sys65493
  9. 55 sys57812"comic screen3",dv,0:poke780,.:poke781,.:poke782,224:sys65493
  10. 60 print"[144]load"chr$(34)"comic collector"chr$(34)","dv
  11. 70 print"run"
  12. 80 poke631,13:poke632,13:poke198,2:end
  13. 100 poke214,8:print
  14. 110 print"[154][176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174][157][148][178]"
  15. 120 fori=.to12:print"[171][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179][157][148][219]":next
  16. 130 print"[154][173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189][157][148][177]"
  17. 140 poke214,10:print
  18. 150 print"[155][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  19. 160 fori=.to9:print"[155][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146][219]":next
  20. 170 print"[219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219]"
  21. 200 poke214,11:print
  22. 210 fori=.to8:reada$:printtab(20-len(a$)/2)"[155]"a$:next
  23. 220 printtab(13)"[204][160][207][160][193][160][196][160][201][160][206][160][199][160]. . ."
  24. 230 return
  25. 10000 data"[193] n t h o n y  [210] o s e ' s"
  26. 10010 data"[195][160][207][160][205][160][201][160][195][160][160][195][160][207][160][204][160][204][160][197][160][195][160][212][160][207][160][210]",
  27. 10020 data"([195]) 1996 by [202] & [198] [208]ublishing, [201]nc.",
  28. 10030 data"[212]his program is not shareware
  29. 10040 [131]"or in the (NULL)ublic str$omain.",
  30. 10050 [131]"1-800-594-3370 or 1-318-221-8718"
  31.