home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 181 / 181.d81 / inf2.pt5 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  202 lines
  1. 0 rem ***** save"@0:inf2.pt5",8
  2. 1 dv=peek(186):ifdv<8thendv=8
  3. 2 poke53272,29:goto540
  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. 140 rem *** cityscape2
  10. 141 print"[147][155]    [156] [158]     [185][185][185][185][185] [151] [156] [155]   [156] [159] [156]   .";
  11. 142 print"  [156]   [156]     [155]   [158] [156] [158]    [156]  [156] [159] [181][151]  ";
  12. 143 print" [182] [151]   [156] [159]     [156]    [156]    [156]   . [155] ";
  13. 144 print" [158]    [155].     [181]   [182] [151]  . [156] [158]      [156]  ";
  14. 145 print" [158].       [155]  [158] .      [155]. [181][151]   [188][183][208][156] [159]";
  15. 146 print"     .  [156]     [155].      [155]  [158]   [167][183][183][183][204]";
  16. 147 print"[175][175][181]     [167]  [156] [158]     [156]   .    [167][183][183][180][155]   ";
  17. 148 print"[158]  [159].[167]            [167][175][175][175][175] [156] [159]   [167][184][184][184][180]  [167]";
  18. 149 print"  [165][155]   [175][175][175][186]             [151]   [167][175][175][175][175][175][186]   ";
  19. 150 print"[204][175] [167]  [183][183][183][204]               [154]  [159]   [154]    [151] ";
  20. 151 print"      [167][175][186][155]                [159]           ";
  21. 152 print"                   [159]                  ";
  22. 153 print" [159]                      [155][175][210][175] [154]     [159] ";
  23. 154 print"         [155][175][178][175][159]         [155][175][178][175][159]     [156][164][209][155]";
  24. 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]";
  25. 156 print"[155][221][153][209][156][164][164][164][164][159]   [155][200]  [159]               [155] [221]";
  26. 157 print"[159]   [159]   [159]   [159]  [155][221][159]       [153] [155][200]  [159]   ";
  27. 158 print"            [159] [155][221][159]  [159]    [159]    [159] [155][221]":return
  28. 200 rem *** options table
  29. 201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
  30. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  31. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  32. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  33. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  34. 206 gosub5:ifk$=""andx<3thenx=x+1
  35. 207 ifk$="[145]"andx>1thenx=x-1
  36. 208 ifk$=chr$(13)thenc=x:return
  37. 209 goto200
  38. 288 f$="inf2.pt4":goto291
  39. 289 f$="inf2.pt3":goto291
  40. 291 syssa+3:poke53280,0:poke53281,0:poke49152,0:sys49935
  41. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  42. 294 poke631,13:poke632,13:poke198,2:end
  43. 540 sys49615:poke781,0:poke782,150:sys49664
  44. 566 rem *** setup variables
  45. 567 vi=53248:pg=64:sa=pg*256:sp=248
  46. 568 ss=49152:pokevi+32,0:pokevi+33,0:pokevi+29,255
  47. 569 forzd=36to47:pokevi+zd,5:next
  48. 570 rem *** setup sinus interrupt
  49. 571 syssa
  50. 572 rem *** poke sprite data
  51. 582 pokevi+21,0:rem turn sprites on
  52. 583 pokess,7:zz=2:zy=10:zx=zy:gosub730
  53. 584 pokesa+6,3:pokesa+7,3:pokesa+8,zz
  54. 585 pokesa+9,zz:pokesa+10,zy
  55. 586 pokesa+13,zx
  56. 587 pokevi+37,14
  57. 588 pokevi+38,zc
  58. 590 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  59. 591 if zy=40 then zy=10:zx=zx+5
  60. 592 y=y+1:ify<3thenzc=5
  61. 593 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=8thenyy=0:goto596
  62. 594 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:goto800
  63. 595 goto584
  64. 596 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  65. 597 ifxx=1andpeek(vi+21)=1thengosub770:xx=2
  66. 598 ifxx=3andpeek(vi+21)=1thengosub140:xx=4
  67. 599 goto594
  68. 600 rem *** ray newcube
  69. 601 print"[147]               [149][185][185][162][162][162][162][162][185][175][154]       [155]      ";
  70. 602 print"       [150]       [149]   [129][190][149]         [129][188][149][146][187] ";
  71. 603 print"  [155]               [150]      [149]   [190][129] [149]     ";
  72. 604 print"    [129] [149] [146]    [155]              [150]     [149]    ";
  73. 605 print" [129][163][163][149][163]     [163][129][163][163][149] [146]     [155]             [150]";
  74. 606 print"   [149]       [223][163][146][209][163][149][165] [167][163][146][209][163][149][169] [146]     [155] ";
  75. 607 print"            [150]   [149]     [129][207][149] [129] [163][163][163][149] [129] [149] [129]";
  76. 608 print"[163][163][163] [149] [129][208][149][146]     [155]            [150]  [149]      [129]";
  77. 609 print"[223][149] [129][205]  [206]   [205]  [206][149] [129][146][169][149]       [155]         ";
  78. 610 print" [150]  [149]       [223][167][129]  [149] [183][184][183] [129]  [149][165][146][169]      [155]  ";
  79. 611 print"          [150] [158] [149]         [129]  [149][175][210][210][210][175][129]  [149] ";
  80. 612 print"[155][146] [149]      [155]            [150]   [149]       [223][129] ";
  81. 613 print"  [175][175][175]   [149][146][169]         [155]          [150]    [149]  ";
  82. 614 print"     [129][223] [149]     [129] [146][169][149]          [155]        ";
  83. 615 print"  [150]    [154] [129]       [150] [129][163][163][163][149][163][163][155][146] [149]         ";
  84. 616 print"  [155]             [150] [129]             [149] [129][146]   ";
  85. 617 print"     [155]                  [129][164][175][175][158][223]     [129]   ";
  86. 618 print" [149] [158]     [146][169][129][175][175][164][155]":return
  87. 670 rem *** thad vyner (rodent)
  88. 671 print"[147]"spc(27)"[150][149]     [150]                     ";
  89. 672 print"           [149]  [185][185][185][185][184][184][184][184][146][185]   [150]           ";
  90. 673 print"               [149] [190]          [146] [150]        ";
  91. 674 print"                   [149]             [188][150][146]   ";
  92. 675 print"                       [149][187] [185][185][150][190][149][162]   [150][188][149] ";
  93. 676 print"   [150][146]                         [149][190]  [150] [192][192] ";
  94. 677 print"   [192][192] [149]  [188][150][146]               [155]  [150]       [149]";
  95. 678 print"[190]  [150][172][146][187][162][150][188]  [146][190][187][184][150][187][149]   [150][146]            ";
  96. 679 print"   [155]  [150]       [149][188]  [150][188][183][183][190]  [188][183][183][190][149]  [146][190][150]    ";
  97. 680 print"           [155]  [150]        [149][187] [150]  [206][188][187][172][190][205]  [149] ";
  98. 681 print"[172][150][146]                [155]  [150]        [149]  [150] [167]  ";
  99. 682 print"[188][190]  [165] [149]  [150][146]                [155]  [150]         ";
  100. 683 print"[149] [150][146][188]  [183][197][197][183]  [146][190][149] [150][146]                  ";
  101. 684 print"[155] [150]        [129] [149][188] [150][146][188]  [183][183]  [146][190][149] [172][152][146] [150]   ";
  102. 685 print"              [155] [150]        [149] [150]  [149] [150][146][188] [149] ";
  103. 686 print" [150] [146][190][149] [146][190][150] [151] [150]                 [155] [150]     ";
  104. 687 print"   [154]    [150] [162][149]  [150][146][162] [154]      [150]             ";
  105. 688 print"         [154]      [150][172] [183][183] [146][187][154]      [150]       ";
  106. 689 print"       [155]  [150]         [190] [146]          [188][146][155]":return
  107. 730 rem *** cityscape4
  108. 731 print"[147][155][172][162][162] [151]        [150]      [151] [154]      [151] [154]    [151] ";
  109. 732 print"   [151]     [150] [155][161][190] [146][192][192][192][174][159].[151]   [150] [151] [150]     [154]";
  110. 733 print" [150] [154]             [155].  [151]   [150] [155][161][190] [158][146][188] [155]";
  111. 734 print" [221][151]   +[151] [150]   [155].[150]   [154]       [155].[154]   .    ";
  112. 735 print"[151] [175][175][175][150] [155][161][190][190][158][146][188] [155] [221][151]  [159].[149]            +[149]";
  113. 736 print"  [159].[149]          [151][180][158][172] [151][180][155][161][190][190][151][146] [158][188][188][155][221][151]  ";
  114. 737 print"     [150] [149] [155]+[149]        [151]      .[151]   [175][180][158][187] [151]";
  115. 738 print"[204][155][161][190] [158][146][188] [188][155][221][152]...[149][146]  [159].[129]  [149]    [151]   [155] [172]";
  116. 739 print" [172] [146] .[151]      [165][158] [172] [150] [155][161][190][190][158][146][188]  [155][221][152].. [149