home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 52 / 052.d81 / trail west (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  2.2 KB  |  61 lines
  1. 1 poke56576,199:poke53272,21:poke53265,155:poke53270,200
  2. 35 :
  3. 40 :
  4. 45 poke53265,peek(53265)and239
  5. 50 poke53280, 5:poke53281,11:print"[147]";chr$(142);
  6. 55 print"[152]esttrailwesttrailwesttrailwestt"
  7. 60 print"ilwesttra[154]O[183][183][183][183][183][183][183][183][183][183][183][183][183]P[152]esttrailwe"
  8. 65 print"trailwes[144]t[146][154][180][153]trailwest[154][167][152]ilwesttrai"
  9. 70 print"westtrail[144] [146][154]L[175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]trailwest"
  10. 75 print"ailwestt[144]rail west trail[146][152]westtrailw"
  11. 80 print"ttrailwesttrailwesttrailwesttra"
  12. 85 print"westt[154]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[152]ailwest"
  13. 90 print"railw[144]e[146][154][180][167][152]ttrail"
  14. 95 print"sttra[144]i[146][154][180]1[155])[153]playgame[154][167][152]westtr"
  15. 100 print"[160]lwest[144] [146][154][180][167][152]railwes"
  16. 105 print"trail[144]w[146][154][180]2[155])[153]readinstructions[154][167][152]sttrail"
  17. 110 print"esttr[144]a[146][154][180][167][152]lwestt"
  18. 115 print"ilwes[144]t[146][154][180]q[155])[153]quitto[150]loadstar[154][167][152]trailwe"
  19. 120 print"trail[144] [146][154][180][167][152]esttrai"
  20. 125 print"westt[144]r[146][154]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]ilwest"
  21. 130 print"ailwe[144]st trail west trail wes[146][152]ttrailw"
  22. 135 print"ttrailwesttrailwesttrailwesttra"
  23. 140 print"westtrailwesttrailwesttrailwest"
  24. 145 print"railwe[154]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[152]ttrail"
  25. 150 print"sttra[144]i[146][154][180][153]pleaseenterchoice[154][170][152]westtr"
  26. 155 print"lwest[144] [146][154]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]railwes"
  27. 160 print"trail[144]west trail west trail w[146][152]esttrail"
  28. 165 print"esttrailwesttrailwesttrailwestt"
  29. 170 poke53265,peek(53265)or16
  30. 175 geta$:ifa$=""then175
  31. 180 ifa$="1"then250
  32. 185 ifa$="2"then220
  33. 190 ifa$="q"then200
  34. 195 goto 175
  35. 200 open15,8,15,"r0:hello connect=hello connect":input#15,er,er$:close15
  36. 205 if er<>63 then print"[147]":end
  37. 210 load "hello connect",8,1
  38. 215 nf$="tw.game":goto225
  39. 220 nf$="tw.inst"
  40. 225 poke53280,5:poke53281,11
  41. 226 print"[147][208]lease wait while loading..."
  42. 230 print"[151]load"chr$(34)nf$chr$(34)",8,1"
  43. 235 print"run"
  44. 240 poke631,asc(""):poke632,13:poke633,13:poke198,3
  45. 245 end
  46. 250 poke53280, 0:poke53281, 0:print"[147]";
  47. 255 print"NOTICE"
  48. 260 print"[152][163][163][163][163][163][163][163][163][163][163][163]"
  49. 265 print"[154]Once[153]TRAILWEST[154]isloadedyou"
  50. 270 print"willhavetoreboottoreturnto"
  51. 275 print"the[158]LOADSTAR[154]operatingsystem."
  52. 280 print"[152]---"
  53. 285 print"[154]Doyouwishtoload[153]TRAILWEST[154]?"
  54. 290 print"[197]nter[217][152])[154]esor[206][152])[154]o."
  55. 295 geta$:ifa$=""then 295
  56. 300 ifa$="y"ora$="[217]" then 215
  57. 305 ifa$="n"ora$="[206]" then 45
  58. 310 goto 295
  59. 415 print"ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ"
  60. 425 print"[160]Z[153] press space to continue. [146]Z"
  61.