home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 50 / 050.d81 / bytes (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  57 lines
  1. 5 poke53280,0:poke53281,0
  2. 21 print"[147][152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  3. 22 print"[221]          [218][197][210][207] [208][193][199][197] : [194]ytes           [152][221]";
  4. 23 print"[152][221]         [150]'[209] & [196] [204]ine [204]ocker'          [152][221]";
  5. 24 print"[221]             [153][194]y [202]im[160][210]ow               [152][221]";
  6. 25 print"[221]           [154][195]opyright 1988             [152][221]";
  7. 26 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  8. 27 poke770,131:poke771,164:poke816,165:poke817,244: rem disables fastload cart.
  9. 28 poke88,0:poke89,191:poke90,0:poke91,191:poke781,33:poke782,0
  10. 29 sys41964
  11. 30 poke88,0:poke89,255:poke90,0:poke91,255:poke781,33:poke782,0
  12. 31 sys41964
  13. 32 poke59639,5
  14. 33 poke1,53
  15. 34 print""
  16. 40 print"[158]   [215]elcome to [218][197][210][207] [208][193][199][197][160]: [194]ytes [196][197][205][207]
  17. 42 [153]" (NULL)ith only a few (NULL)(NULL)(NULL)vals you can keep the
  18. 43 print" top of your screen from scrolling off.
  19. 44 [153]" (NULL)his can be easily used in peekulletin
  20. 45 print" [194]oard programs, word processors and
  21. 47 [153]" many other programs.  (NULL)he uses are
  22. 48 print" unlimited.
  23. 49 [153]" ascor more information on how '(NULL) & str$"
  24. 50 [153]" (NULL)ine (NULL)ocker' works, read the article"
  25. 51 [153]" in (NULL)val(NULL)(NULL) (NULL)atnchr$valclose: peekytes.
  26. 52 print"   [208]ress [211][208][193][195][197][146] when ready to continue"
  27. 54 geta$:ifa$<>" "then54
  28. 55 fori=0to25:print"":fort=1to25:next:next
  29. 56 print"        1)  [210][197][210][213][206] [196]emo
  30. 57 [153]"        2)  valxit to peekatn(NULL)right$len
  31. 58 print"        3)  [197]xit to [158][204][207][193][196][211][212][193][210]"
  32. 59 print"       [197]nter [217]our [211]election
  33. 60 [153]""
  34. 65 [161] a$:[139]a$[178]""[167]65
  35. 66 [145] [197](a$) [137] 100,200,300
  36. 67 [137] 65
  37. 100 [153]"load":[137] 5
  38. 200 [153]"on (NULL)(NULL)right$(NULL) to peekatn(NULL)right$len : atnre you sure? ((NULL)/(NULL))
  39. 201 geta$:ifa$=""then201
  40. 202 ifa$="y"ora$="[217]"then 210
  41. 203 ifa$="n"ora$="[206]"then 55
  42. 205 goto 201
  43. 210 print"[206][207][212][197][160]: [194]efore reloading '[211][212][193][210]' you must
  44. 211 [153]" reset peekatn(NULL)right$len and (NULL)val(NULL)(NULL)atn(NULL) by...
  45. 214 print" [208][207][203][197]ing 1 with 55 ([208][207][203][197] 1, 55)  [207]r
  46. 215 [153]" by turning your computer (NULL)ascasc and then
  47. 216 print" back on.":end
  48. 300 print"[145] [197][216][201][212] to [204][207][193][196][211][212][193][210] : [193]re you sure? ([217]/[206])
  49. 301 [161]a$:[139]a$[178]""[167]301
  50. 302 [139]a$[178]"y"[176]a$[178]"(NULL)"[167] 310
  51. 305 [139]a$[178]"(NULL)"[176]a$[178]"n"[167] 55
  52. 306 [137] 301
  53. 310 [151]1,55:[153]"load"
  54. 311 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er,er$:[160]15
  55. 312 [139]er[179][177]63 [167] [153]"load":[128]
  56. 313 [147]"hello connect",8,1
  57.