home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 209 / 209.d81 / b.mini xmas / b.080d / b.a7ae (.txt)
Encoding:
Commodore BASIC  |  2001-01-01  |  48.6 KB  |  59 lines
  1. 2 poke56,32:clr:poke788,49:tq=ti:poke53371,0
  2. 4 dv=peek(186):ifdv<8thendv=8
  3. 6 poke53281,0:poke53280,0:print"[147]"
  4. 8 gosub60000
  5. 10 ifti<tq+150then10
  6. 13 rem  sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  7. 14 sys57812"snow man.shp",dv,0:poke780,0:poke781,0:poke782,40:sys65493
  8. 15 sys57812"santa.shp",dv,0:poke780,0:poke781,0:poke782,66:sys65493
  9. 16 sys57812"kids.shp",dv,0:poke780,0:poke781,0:poke782,91:sys65493
  10. 17 sys57812"madonna.shp",dv,0:poke780,0:poke781,0:poke782,109:sys65493
  11. 18 rem  sys57812"mini font",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  12. 19 print"":poke53272,25
  13. 20 p(0)=40:p(1)=66:p(2)=91:p(3)=109
  14. 21 b(0)=6:b(1)=6:b(2)=6:b(3)=0
  15. 22 s=54272:i=rnd(-ti)
  16. 23 ifti<tq+400then23
  17. 24 print"[147]"
  18. 26 poke53280,0:gosub300
  19. 30 poke214,18:print:fori=0to4:printtab(10)left$(z$,20):next
  20. 32 poke214,19:print:printtab(12)"[211][208][193][195][197] - [208]icture"
  21. 34 printtab(15)"[209] - [209]uit"
  22. 50 r=int(rnd(1)*1000)+1024
  23. 52 ifpeek(r)>224andpeek(r)<256thenifrnd(1)>.5thenrr=32:goto64
  24. 60 ifpeek(r)<>32then50
  25. 62 rr=int(rnd(1)*30)+225
  26. 64 poker,rr:poker+s,1
  27. 70 geta$:ifa$=""then50
  28. 80 ifa$="q"then40000
  29. 90 ifa$<>" "then50
  30. 110 poke251,p(p):poke252,224:poke253,204
  31. 120 poke53280,b(p):sys51456:sys51459
  32. 130 poke198,0
  33. 140 geta$:ifa$=""then140
  34. 150 poke53281,1:sys51459:poke53281,0
  35. 160 p=(p+1)and3
  36. 170 goto26
  37. 300 print""tab(7)"[174]  [176] [176][192][192][174] [174]   [176][192][178][192][174]' [176][192][192][174]
  38. 302 [153][163]7)"(NULL)or^(NULL) -tantan< (NULL)     (NULL)    /tantan^
  39. 304 printtab(7)"[173][189][173][189] [189]  [173] [173][192][192][189]  [177]    [173][192][192][189]"
  40. 306 printtab(13)"[153][176][174][176][174] [178] [176][174][176] [178]"
  41. 308 printtab(13)"[221][173][189][221] [221] [221][221][221] [221]"
  42. 310 printtab(13)"[189]  [173] [177] [189][173][189] [177]"
  43. 312 print"    [176][192][174] [174] [176] [176][192][174] [178] [176][192][174][176][192][178][192][174][176][174][176][174] [176][192][174] [176][192][174]
  44. 314 [153]"    (NULL)   -tan< -=exp (NULL) /tan^  (NULL)  (NULL)/exp(NULL) -tan< /tan^
  45. 316 print"    [173][192][189] [189] [173] [189][173][189] [177] [173][192][189]  [177]  [189]  [173] [189] [173] [173][192][189]
  46. 318 [142]
  47. 10000 d[178][194](186):n$[178]"0:mini xmas.b":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  48. 40000 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  49. 40010 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","dv
  50. 40020 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  51. 60000 [153]"load":z$[178]" print#                                      "
  52. 60010 [151]214,13:[153]:[129]i[178]0[164]8:[153]z$:[130]
  53. 60030 z$(0)[178]"(NULL) atn (NULL) (NULL) ' (NULL)    (NULL) right$ (NULL) right$ - (NULL) (NULL) atn (NULL)"
  54. 60032 z$(2)[178]"by (NULL)alt left$arned and ascender (NULL)ucker"
  55. 60040 z$(4)[178]"(len) 2001 by mid$ & asc (NULL)ublishing, right$nc.
  56. 60050 z$(6)="www.loadstar.com
  57. 60090 [151]214,14:[153]
  58. 60100 [129]i[178]0[164]6:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  59.