home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 2 / 002.d81 / cover page (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  1.2 KB  |  34 lines
  1. 5 v=53248:s=v+1024:ifa>.then60
  2. 10 pokev+32,.:pokev+33,.:print"[147][204][207][193][196][211][212][193][210]  [206]umber 2"
  3. 15 print"[129]    [201]n honor of the fourth of [202]uly":print
  4. 20 print"   we at [204][207][193][196][211][212][193][210] would like to say:":print
  5. 25 print"        '[196]on't tread on me!!'":print:printtab(17)"&":print
  6. 30 print"   have a happy and safe [202]uly 4th."
  7. 35 print
  8. 40 print
  9. 45 print
  10. 50 print
  11. 55 print"[158][204]oading [208]icture":a=1:load"cover.pic",8,1
  12. 60 s=54272:fori=.to23:pokes+i,.:next:pokes+24,15:pokes+5,255:pokes+6,255
  13. 65 pokes+12,255:pokes+13,255:pokes+19,255:pokes+20,255:pokes+1,3:pokes+8,3
  14. 70 pokes+15,3:pokes+7,7:pokes+14,18
  15. 100 clr:s=54272:print"[145][156][208]ress space bar to view cover."
  16. 110 print"[208]ress it again to return to menu."
  17. 115 poke198,.:wait198,1:poke53265,59:poke53272,120
  18. 120 poke56576,peek(56576)and254
  19. 125 pokes+4,17:pokes+11,17:pokes+18,17:fori=1to1000:next
  20. 130 poke198,.:wait197,64,64:poke53265,27:poke53272,23
  21. 135 pokes+4,16:pokes+11,16:pokes+18,16
  22. 136 poke56576,peek(56576)or1:poke198,.:print"[147]"
  23. 137 gosub63002
  24. 138 gosub63000
  25. 145 print"[147][196]ocking with [212]able of [195]ontents";
  26. 147 poke597,0:rem hide flag to zero
  27. 150 print"[144]load"chr$(34)"hello"chr$(34)",8":print"run":poke631,13:poke632,13
  28. 152 forx=stos+24:pokex,0:next
  29. 155 poke198,2:end
  30. 63000 fori=.to24:pokes+i,.:next:pokes+1,100:pokes+2,100:pokes+5,10:pokes+6,2
  31. 63001 pokes+24,15:pokes+4,33:fordl=1to600:next:poke2+4,32:return
  32. 63002 fori=0to24:pokes+i,0:next:pokes+1,40:pokes+2,40:pokes+5,10:pokes+6,2
  33. 63003 pokes+24,15:pokes+4,33:fordl=1to600:next:pokes+4,32:return
  34.