home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 217 / 217.d81 / b.smasheroids (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2002-01-01  |  1.5 KB  |  45 lines
  1. 100 ifa=0thenprint"[147]":gosub210
  2. 110 ifa=0thena=1:load"smashpacker",8,1
  3. 120 ifa=1thena=2:load"smash.shp",8,1
  4. 130 ifa=2thena=3:gosub410:load"3000",8,1
  5. 140 ifa=3thena=4:load"8000",8,1
  6. 150 ifa=4thena=5:fori=0to3:v(i)=peek(51784+i):next:load"code",8,1
  7. 160 ifa=6then480
  8. 170 poke53265,v(0):poke53270,v(1):poke53272,v(2):poke56576,v(3)
  9. 180 gosub210:goto330
  10. 190 poke 53281,0:poke 53280,0
  11. 200 gosub410:loadf$,8
  12. 210 poke53280,0:poke53281,0:iffthenreturn
  13. 220 print"[147][159][176][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][178][174]";
  14. 230 a$="[171][156][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
  15. 240 b$="[171][154][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
  16. 250 c$="[221][221][221][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][221][221][221][221]"
  17. 260 printc$;:fori=1to3:printa$c$b$c$;:next
  18. 270 print"[173][177][177][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][177][177][177][189]";
  19. 280 fori=217to242:pokei,peek(i)or128:next
  20. 290 a$=" [155][157][163][157] [157] [157] [157] [157] [157] [157][151][163][145][145][145][145][145][145][145][145]"
  21. 300 poke214,12:print"[145]";:fori=1to33:printa$;:next:print"[155]"
  22. 310 fori=1to5:reada$:gosub320:next:return
  23. 320 printspc(20-len(a$)/2)""a$:a$="":return
  24. 330 print"[159][208]lay [210]egular or [208]ractice version? ([158][210][159]/[158][208][159])";
  25. 340 getp$:ifp$<>"r"andp$<>"p"then340
  26. 360 on-(p$="r")-2*(p$="p")goto460,470
  27. 370 poke214,24:print"[145]"spc(13)"[204] [207] [193] [196] [201] [206] [199]":return
  28. 380 data"[211][160][205][160][193][160][211][160][200] [197][160][210][160][207][160][201][160][196] [211]","by [211]cott [197]lder
  29. 390 [131]"(NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #72","www.loadstar.com"
  30. 400 [131]"lenopyright (len) 1990 (NULL)oftdisk"
  31. 410 [151]251,100 :[143]  .shp base addr
  32. 420 [151]252,64  :[143]  bitmap memory
  33. 430 [151]253,96  :[143]  color memory
  34. 440 [158]51456    :[143] unpack that shape!
  35. 450 [158]51459:[142]:[143] display pic
  36. 460 [158]49152:[137]490
  37. 470 a[178]6:[147]"practice",8,1
  38. 480 [158]49152
  39. 490 [151]198,0:a$[178]"hello connect":[159]15,8,15,"r:"[170]a$[170]"="[170]a$:[132]15,e:[160]15
  40. 500 [139] e[179][177]63 [167] [153]"loadopen":[128]
  41. 510 q$[178][199](34):[151]646,[194](53281):[153]"load"
  42. 520 [153]"load"q$a$q$",8"
  43. 530 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  44. 10000 d[178][194](186):n$[178]"b.smasheroids":[159]1,d,15,"s0:"[170]n$:[160]1:[148]n$,d:[128]
  45.