home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 181 / 181.d81 / inf2.pt4 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  196 lines
  1. 0 rem ***** save"@0:inf2.pt4",8
  2. 1 dv=peek(186):ifdv<8thendv=8
  3. 2 poke53272,29:goto690
  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. 200 rem *** options table
  27. 201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
  28. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  29. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  30. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  31. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  32. 206 gosub5:ifk$=""andx<3thenx=x+1
  33. 207 ifk$="[145]"andx>1thenx=x-1
  34. 208 ifk$=chr$(13)thenc=x:return
  35. 209 goto200
  36. 286 f$="inf2.main":goto291
  37. 289 f$="inf2.pt3":goto291
  38. 290 f$="inf2.pt2"
  39. 291 syssa+3:poke53280,0:poke53281,0:poke49152,0:sys49935
  40. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  41. 294 poke631,13:poke632,13:poke198,2:end
  42. 690 sys49615:poke781,0:poke782,150:sys49664
  43. 716 rem *** setup variables
  44. 717 vi=53248:pg=64:sa=pg*256:sp=248
  45. 718 ss=49152:pokevi+32,0:pokevi+33,0
  46. 719 pokevi+29,255:forzd=39to47:pokevi+zd,4:next:goto840
  47. 730 rem *** cityscape4
  48. 731 print"[147][155][172][162][162] [151]        [150]      [151] [154]      [151] [154]    [151] ";
  49. 732 print"   [151]     [150] [155][161][190] [146][192][192][192][174][159].[151]   [150] [151] [150]     [154]";
  50. 733 print" [150] [154]             [155].  [151]   [150] [155][161][190] [158][146][188] [155]";
  51. 734 print" [221][151]   +[151] [150]   [155].[150]   [154]       [155].[154]   .    ";
  52. 735 print"[151] [175][175][175][150] [155][161][190][190][158][146][188] [155] [221][151]  [159].[149]            +[149]";
  53. 736 print"  [159].[149]          [151][180][158][172] [151][180][155][161][190][190][151][146] [158][188][188][155][221][151]  ";
  54. 737 print"     [150] [149] [155]+[149]        [151]      .[151]   [175][180][158][187] [151]";
  55. 738 print"[204][155][161][190] [158][146][188] [188][155][221][152]...[149][146]  [159].[129]  [149]    [151]   [155] [172]";
  56. 739 print" [172] [146] .[151]      [165][158] [172] [150] [155][161][190][190][158][146][188]  [155][221][152].. [149]";
  57. 740 print"[146] [151]        [152][172][172][172][155][172][172][172][172] [146] [151]       [165][158]   [150] ";
  58. 741 print"[155][161][190][190][151][146]  [158][188][155][221][152]...[151][168][168][168][182][146] [159].[151]   [152][172][191][191][155] [162][162]";
  59. 742 print"[162][162][146][174][152][166][166][166][146][186][207][204][151] [165] [158][172] [150] [155][161][190][190][158][146][188]  [155][221][152]..";
  60. 743 print".[151][168][168][168][182][146]        [155][172][158][146] :::[155][221][152][166][166][166][146][180][158][220][220][152][180][151][165]";
  61. 744 print"[158] [187] [150] [155][161][190][190][158][146][172]  [155][221][152]...[151][168][168][168][182][146] [155][164][164][164][151] [190]";
  62. 745 print"[190][190][155][172][158][146]::::[155][221][152][166][166][166][146][165][158][220][220][152][165][151][165][158]  [187][150] [155][161][190][190][146] ";
  63. 746 print"  [155][221][152]. .[151][168][168][168][182][152][146][170][158][168]::[151] [190][158][146]:[168][155][172][158][146]:: :[155][221]";
  64. 747 print"[152][166][166][166][146][165][158] [220][152][165][151][165][158]   [150] [155][161][190][190][146]   [155][221][152].[155][146][207][208]";
  65. 748 print"[151][168][155][146][207][208][151][182][152][146][170][158][168] :[151] [190][158][146]:[168][155] [158][146]::::[155][221][152][166][166]";
  66. 749 print"[166][146][165][158][220][220][152][165][151][180][158] [187] [150] [155][161] [190][146]  [158][191][155][221][152].[155][146][180][170][151][168]";
  67. 750 print"[155][146][165][170][151][182][152][146][170][158][168]::[155] [158]::[168][155][172][158][146]: ::[155][221][152][166][166][166][146][165][158][220]";
  68. 751 print"[220][152][165][151][165] [158]  [150] [155][161][190][190][146] [158][191] [155][221][152].[155][146][180][170][151][168][155][146][180]";
  69. 752 print"[170][151][182][152][146][167][158][168]  [155] [158]: [158][168][155][172][158][146]::::[155][221][152][166][166][166][146][165][158][220]";
  70. 753 print" [151][178][190][158] [187] [150] [155] [190] [146]   [155][221][152].[155][146][180][158][190][155] [158][190] [155][221]";
  71. 754 print"[152][167][158][168]:: [158]:: [155][172][158][146]: [158]::[155][221][152][166][166][166][158][146][220][220] [151][221][158]";
  72. 755 print"[172]   [150] [155] [190][190][146]  [158][191][155][221][152].[155][146][180][158][187][190][187][190][155][221][152][167][158][168]: ";
  73. 756 print" [158]::[168][155] [146] [158]:::[155][221][152][166][166][166][158][146][220][220][220][151][221]    [150] [191][190]";
  74. 757 print"[188][155][146]  [190][188][152],[155][146][180][190][188][146][187][158][190][155][221][191][191][188][158][146]: [190][191][146]";
  75. 758 print"[187][155][172][158][146]:[187] [172][162][162][152][166][166][146][162][158][220][220][191][146][162][185][158][187] [150] [191]";
  76. 759 print" [172][188] [146][191] [188][190]  [191][184][146][191]   [188][146][191] [146][187] [146][191] [188][146] [188][146][191]";
  77. 760 print" [146][191][191] [190][146][191] [146][191][191][188][191][188][146][191][191][162][146][191][191][191][191][146][191][188][146][191][190][191][190]";
  78. 761 print" [146][191][191][191] [146][191][191][162][146][191] [191][191][190][191][146][191][191][190] [191][191][190][188]  [146][191][191] [149][146][182]";
  79. 762 print"[172][146][190][191] [149][190][146][188][149][188][172][190][172][162][149][188][162][146][187][191][172][149][146][161][188][188][172][149][190]";
  80. 763 print"[146][184][172][149][146][161][187][191][172][146][191][172][149][146][161][191][187][149][190][146][191][172][149][188][146][191] [146][190]";
  81. 764 print"[149][182][161][150] [149][182][150]    [149][184][161][150]  [149][161][150][146]   [149][161][150][146]  [149][191][150]  [149][161]";
  82. 765 print"[150] [149][161][150]  [149][161][150] [149][188][161][150]  [149][186][181][150]  [149][182][150][155]":return
  83. 770 rem *** cityscape5
  84. 771 print"[147][154]                 .[155]                    ";
  85. 772 print"  [154]  [145].[155]                                 ";
  86. 773 print"    [154]             [152]  [155]                  ";
  87. 774 print"       [151]         [154].   [152][170][180][151]     [154].[155]      ";
  88. 775 print"             [154]     [151][16