home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 181 / 181.d81 / inf2.pt3 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  204 lines
  1. 0 rem ***** save"@0:inf2.pt3",8
  2. 1 dv=peek(186)
  3. 2 poke53272,29:goto250
  4. 5 poke198,0
  5. 6 getk$:ifk$=""then6
  6. 7 ifk$="s"andpeek(49152)=7thenpoke49152,0:sys49897:return
  7. 8 ifk$="s"andpeek(49152)=0thenpoke781,0:poke782,150:sys49664:poke49152,7
  8. 9 return
  9. 100 rem *** cityscape
  10. 101 print"[147][154]                 .[155]                    ";
  11. 102 print"  [154]  .[155]                                 ";
  12. 103 print"    [154]             [151][167][155]                   ";
  13. 104 print"       [151]         [154].   [151][217][165]     [154].[155]       ";
  14. 105 print"            [154]     [151][164]       [200][212]           ";
  15. 106 print"[176][192][174][176][192][174]   [154].[155]    [154] [151][206][165] [186][167]       [194][194]      ";
  16. 107 print"    [154].[151][194][158].[151][194][194][158].[151][194][155]        [151] [180][205][164][165][158].[151][163][205]   ";
  17. 108 print"[176][207][183][183][208][174]         [151][194][158].[151][194][194][158].[151][194][155]        [151][164][180][158]";
  18. 109 print".....[151][167] [164][206] [158].... [151][205]        [151][194][158].[151][194][194][158].[151]";
  19. 110 print"[173][174][155]       [151]  [158].....[151][167][164][165][158].  [158].. [158] .[151][208] ";
  20. 111 print"    [151][176][192][189] [151][173][189]  [151][194][155]       [151]            ";
  21. 112 print" [158]..   [151][170]  [151][207][177][208][220][158]... [158]. [158].[151][221]    [151][176][174]";
  22. 113 print"[155] [153]  [158]    [153]             [151][183][183]          [153]";
  23. 114 print" [151][221][164][155]   [151][180][155] [151][165]                         ";
  24. 115 print"      [153]  [158].[151][205][164][206][155]  [151][205] "
  25. 116 print"[156][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][155]":return
  26. 140 rem *** cityscape2
  27. 141 print"[147][155]    [156] [158]     [185][185][185][185][185] [151] [156] [155]   [156] [159] [156]   .";
  28. 142 print"  [156]   [156]     [155]   [158] [156] [158]    [156]  [156] [159] [181][151]  ";
  29. 143 print" [182] [151]   [156] [159]     [156]    [156]    [156]   . [155] ";
  30. 144 print" [158]    [155].     [181]   [182] [151]  . [156] [158]      [156]  ";
  31. 145 print" [158].       [155]  [158] .      [155]. [181][151]   [188][183][208][156] [159]";
  32. 146 print"     .  [156]     [155].      [155]  [158]   [167][183][183][183][204]";
  33. 147 print"[175][175][181]     [167]  [156] [158]     [156]   .    [167][183][183][180][155]   ";
  34. 148 print"[158]  [159].[167]            [167][175][175][175][175] [156] [159]   [167][184][184][184][180]  [167]";
  35. 149 print"  [165][155]   [175][175][175][186]             [151]   [167][175][175][175][175][175][186]   ";
  36. 150 print"[204][175] [167]  [183][183][183][204]               [154]  [159]   [154]    [151] ";
  37. 151 print"      [167][175][186][155]                [159]           ";
  38. 152 print"                   [159]                  ";
  39. 153 print" [159]                      [155][175][210][175] [154]     [159] ";
  40. 154 print"         [155][175][178][175][159]         [155][175][178][175][159]     [156][164][209][155]";
  41. 155 print"[200][209] [156][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][209][155][221][209][159] [156][164][164][164][164][164][164][164][159] [209]";
  42. 156 print"[155][221][153][209][156][164][164][164][164][159]   [155][200]  [159]               [155] [221]";
  43. 157 print"[159]   [159]   [159]   [159]  [155][221][159]       [153] [155][200]  [159]   ";
  44. 158 print"            [159] [155][221][159]  [159]    [159]    [159] [155][221]":return
  45. 200 rem *** options table
  46. 201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
  47. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  48. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  49. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  50. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  51. 206 gosub5:ifk$=""andx<3thenx=x+1
  52. 207 ifk$="[145]"andx>1thenx=x-1
  53. 208 ifk$=chr$(13)thenc=x:return
  54. 209 goto200
  55. 250 sys49615:poke781,0:poke782,150:sys49664:poke49152,7
  56. 277 vi=53248:pg=64:sa=pg*256:sp=248
  57. 278 ss=49152:pokevi+32,0:pokevi+33,0
  58. 279 pokevi+29,255:forzd=39to47:pokevi+zd,5:next:goto400
  59. 287 f$="inf2.pt5":goto291
  60. 290 f$="inf2.pt2"
  61. 291 syssa+3:poke53280,0:poke53281,0:poke49152,0:sys49935
  62. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  63. 294 poke631,13:poke632,13:poke198,2:end
  64. 300 rem *** murphy's
  65. 301 print"[147][152][175][186][151][175][175][186][152][175][175][186][185][175][186][151][175][175][186][152][175][175][186][175][175][186][151][175][175][186][152][175][175][186][175][175][186][151][175][175]";
  66. 302 print"[186][152][175][175][186][185][175][186][151][175][155][146] [152][186][185][175][186][155][175][175][186][152][175][175][186][151][175][175][186][152][185][175][186][175][175][186][151][175]";
  67. 303 print"[175][186][152][175][149][176][192][192][192][192][192][192][192][192][192][192][174][151][186][152][175][175][175][155][146] [152][175][186][155][175][175][186][151][185][185][186][152][185]";
  68. 304 print"[175][186][151][175][175][186][152][175][175][186][151][175][175][186][152][175][175][186][149][221]          [221][152][175][175][186][155][175][146] [152]";
  69. 305 print"[186][175][175][186][185][175][186][151][175][175][186][152][185][175][186][155][185][185][186][175][175][186][152][175][175][186][175][149][221] murphy's ";
  70. 306 print"[221][155][186][152][175][175][175][155][146] [152][175][186][151][204][185][186][155][175][175][186][152][175][175][175][186][175][175][186][155][175][175][186][152][185][186][155][175][175]";
  71. 307 print"[186][149][221]          [221][152][162][175][186][151][185][155][146] [152][186][155][175][175][186][152][162][175][186][175][175][186][151][175][175]";
  72. 308 print"[186][152][175][175][162][155][175][175][186][152][175][175][186][155][175][149][173][192][192][192][192][192][192][192][192][192][192][189][152][186][155][175][175][186][146] [152][175][186]";
  73. 309 print"[175][175][186][155][175][175][186][152][175][175][175][186][175][175][186][151][175][175][186][152][175][186][175][175][186][155][175][175][186][152][162][175][186][175][175][186][155][175][175][186]";
  74. 310 print"[152][175][175][186][175][155][146] [152][186][155][185][185][186][175][175][186][152][185][175][186][175][175][186][151][175][175][186][152][175][175][186][185][175][186][151][185][185][186]";
  75. 311 print"[155][175][175][186][152][162][175][186][175][175][186][151][175][175][186][152][162][175][155][146] [152][175][175][186][175][175][186][151][175][175][186][155][175][175][186][152][185][175]";
  76. 312 print"[186][151][175][175][186][152][175][186][175][175][186][155][175][175][186][152][185][175][186][151][185][185][186][152][175][175][162][151][175][175][186][152][175][155][146] [152][186][175]";
  77. 313 print"[175][162][155][175][175][186][175][175][186][152][175][175][186][175][175][175][186][151][175][186][152][175][175][186][155][175][175][186][152][162][175][186][175][175][186][151][175][175][186][152]";
  78. 314 print"[175][175][186][175][175][155][146] [151]                              ";
  79. 315 print"         [155][146] [151]                        [167][155]";
  80. 316 print"[192][192][192][146][174][151]          [155][146] [151]                  ";
  81. 317 print"      [167][155]   [146][221][151]          [155][146] [149][163][163][163][163][163][163][163][163][163][163]";
  82. 318 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][208][155]   [146][221][149][163][163][163][163][163][163][163][163][163][163][155][146] [149]  ";
  83. 319 print"                      [167][158][163][163][163][149][207]          [155]":return
  84. 340 rem *** cityscape3
  85. 341 print"[147][153]       [155] [153]          [152][167][153]                 ";
  86. 342 print"      [155].[153]           [155].[153]  [152] [190][188][146]  [153]  [155].[153] ";
  87. 343 print"        [155].[153]    [155]  [153]        [155] [153] [155].[153]     [152]";
  88. 344 print"[161] [190][146][161][153]     [155].[153]      [155].