home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 53 / 053.d81 / logjam (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  2.8 KB  |  58 lines
  1. 10 ifpeek(830)=33 then 510
  2. 11 ifpeek(830)=20 then 250
  3. 99 poke53265,peek(53265)and239
  4. 100 poke53280, 6:poke53281, 1:print"[147][142]";
  5. 101 print"[155]                                                 [154]                    ";
  6. 102 print" [155]                   [154]  loadstar presents  [152] [155]                  [154]       ";
  7. 103 print"              [152] [155]                   [152]                     [155]             ";
  8. 104 print"                                            [146][156]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[155] ";
  9. 105 print"                [146][156][180][167][152] [155]               [146]O[156][180]l";
  10. 106 print"ogjam[156][167]P[155]               [146][165][156][180][151][163][163][163][163][163][163][163][163][163][163][163][163][163][156][167][167][152] [155] ";
  11. 107 print"             [146][165][156][180][167][167][152] [155]              [146][165][156][180]by";
  12. 108 print"bobblackmer[156][167][167][152] [155]              [146]L[156][180][167][186][152] [155]  ";
  13. 109 print"             [146][156][180][167][152]  [155]               [146][156]L[175][175][175][175][175][175][175][175][175][175][175]";
  14. 110 print"[175][175][175][175][175][175][175][175][175][175][186][152] [155]                 [152]                       [155]               ";
  15. 111 print"                                         [146]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[155]    ";
  16. 112 print"             [146][165]copyright1988[167][152] [155]                [146]L[175][175][175][175][175][175][175][175][175]";
  17. 113 print"[175][175][175][175][175][175][175][175][175][175][175][175][186][152] [155]                 [152]                       [155]             ";
  18. 114 print" [146]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[155]             [146][180][159]pressspacetocontinu";
  19. 115 print"e[167][152] [155]            [146]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152] [155]             [152]     ";
  20. 116 print"                      [155]     "
  21. 117 poke2023,96+128:poke56295,15:poke53265,peek(53265)or16
  22. 118 geta$:ifa$<>" "then 118
  23. 150 poke53265,peek(53265)and239
  24. 200 poke53280, 0:poke53281, 0:print"[147]";
  25. 201 print"[158][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  26. 202 print"[221][221]"
  27. 203 print"{$7d}[154]L[160]O[160]G[160][160]J[160]A[160]M[160][158]{$7d}"
  28. 204 print"{$7d}{$7d}"
  29. 205 print"{$7d}N[160]O[160]T[160]I[160]C[160]E[158]{$7d}"
  30. 206 print"{$7d}{$7d}"
  31. 207 print"{$7d}Toreturntothemenusystem[158]{$7d}"
  32. 208 print"{$7d}once[154]LOG[160]JAMhasbeenloaded[158]{$7d}"
  33. 209 print"{$7d}youmustpressthe[158]RUN/STOP{$7d}"
  34. 210 print"{$7d}and[158]RESTOREkeyssimultaneously[158]{$7d}"
  35. 211 print"{$7d}andthenenterRUN.[158]{$7d}"
  36. 212 print"{$7d}{$7d}"
  37. 213 print"{$7d}{$7d}"
  38. 214 print"{$7d}[155]Doyouwishtocontinueloading[158]{$7d}"
  39. 215 print"{$7d}[155]theprogram'[154]LOGJAM[155]'?[158]{$7d}"
  40. 216 print"{$7d}{$7d}"
  41. 217 print"{$7d}{$7d}"
  42. 218 print"{$7d}[155]PleaserespondY[155])[154]es[155]orN[155])[154]o[158]{$7d}"
  43. 219 print"{$7d}{$7d}"
  44. 220 print"{$7d}{$7d}"
  45. 221 print"{$7d}{$7d}"
  46. 222 print"{$7d}{$7d}"
  47. 223 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][189]":poke53265,peek(53265)or16
  48. 230 geta$:ifa$=""then 230
  49. 231 ifa$="[217]"ora$="y"then 500
  50. 232 ifa$="n"ora$="[206]"then 250
  51. 240 goto 230
  52. 250 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  53. 251 ifer<>63 then print"[147]":end
  54. 252 load"hello connect",8
  55. 500 print"[147][208]lease wait while loading..."
  56. 501 poke830,33:load"logjam.o",8,1
  57. 510 poke830,20:sys49152
  58.