home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf4.pt5 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  224 lines
  1. 0 rem *** save"@0:inf4.pt5",8
  2. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0
  3. 2 goto740
  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. 10 dv=peek(186):ifdv<8thendv=8
  10. 20 rem *** clone-queen
  11. 21 print"[147][155]                                  [155]     ";
  12. 22 print"                                [168][185]  [155]  ";
  13. 23 print"                                [176][190][150]  [192]";
  14. 24 print"[168] [155]          [150]   [155]                  [192][190] ";
  15. 25 print"[150][175][172][175]  [191][155]          [150]   [155]               ";
  16. 26 print"  [221] [150] [190][185] [185][146][161]  [180][155]         [150]   [155]        ";
  17. 27 print"       [150]  [191][150][146] [170][191]   [172][146] [191][146]  [155]       ";
  18. 28 print" [150]         [155]         [150] [191][146] [150]  [187][192][192][172][146][190]";
  19. 29 print" [191]  [155]      [150]             [155]  [150]      [220] [150] ";
  20. 30 print"  [150][192][192][146] [150] [155]  [191]  [155]                ";
  21. 31 print"         [221] [150]  [169]  [206] [183][146]  [155] [180] [155]      ";
  22. 32 print"                  [150] [191][156]  [150][169][172][190][206][185][165] [146][181]";
  23. 33 print"[155] [182] [155]                           ";
  24. 34 print"[191][156][190][183][187][183][163] [150][181] [146][161] [191] [155]                 ";
  25. 35 print"          [156] [187] [146][187]  [172][150][161] [146][161][155] [191][155][146]":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. 283 f$="hello connect":goto291
  37. 284 f$="inf4.main":goto291
  38. 285 f$="inf4.pt7":goto291
  39. 286 f$="inf4.pt6":goto291
  40. 291 syssa+3:poke53281,0:poke53280,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. 490 rem *** cityscape11
  44. 491 print"[147][154]                                        ";
  45. 492 print" [154]                                    ";
  46. 493 print"   [155][146] [154]                         [185][185][187]    ";
  47. 494 print"       [155][146] [154]      [172][146][188]               [146][184][190]";
  48. 495 print"[158][172][190] [154]      [146][190]    [155][146] [154]  [162]   [146] [158][190][154][162][187]  ";
  49. 496 print"[146] [158][172][172] [154][162][162]   [146] [158][187][188]  [188][154]   [175][175][162][162][146] [188][190][155]   [158]";
  50. 497 print"[188][154] [158][190] [154]  [146] [158][190][190]   [188]  [188] [190] [154]  [146]  [158][190][154] [158][190][149] ";
  51. 498 print"[154]   [149][146] [158]  [191][146]  [155] [158][188][155]  [158] [188][154]   [172][146] [158][188][154]  [158]";
  52. 499 print"[190][154] [158][190][154] [158][191][154]    [187] [146] [158][190][154]   [158][191][154][146]   [146] [158][188][154] ";
  53. 500 print"   [158][191][155]   [158][191][154] [158][188][154]  [146]   [158][188][154]    [158][190][154]  [158][190][154]  ";
  54. 501 print"  [146]   [158][190][154]   [187] [146]   [158][188][154]   [155]    [154]   [172][146] ";
  55. 502 print" [158][188][154] [158][188][154] [158][191][154]    [158][191][154] [158][190][154]  [146]  [158][191][154]  [158][190][154]  ";
  56. 503 print" [146] [158][190][154] [158][191][154][146]  [158][188][154]    [158][188][154]  [181]   [158][188][154]      [158]";
  57. 504 print"[190][154]  [158][191][154]  [146]    [158][190][154]   [172][146]     [158][190][154] [158][191][154]   [158]";
  58. 505 print"[191][188][154] [181] [158][188][154]   [158][188][154]  [158][191][154]  [158][191][154][146]    [146]  [158][190][154]  ";
  59. 506 print"[158][191][154]     [158][190][190] [154]         [181]  [158][191][154][146]   [158][191][154]    ";
  60. 507 print" [158][190][154]   [146] [158][191][154][146] [158][191][154]      [158][191][154][146]    [158][190][155]":return
  61. 530 rem *** cityscape13
  62. 531 print"[147]                                        ";
  63. 532 print"                                        ";
  64. 533 print"                 +           [146]  [182]      ";
  65. 534 print"+       +                 [146]    [146][190]   [187] ";
  66. 535 print"                              [146]    [146]   ";
  67. 536 print"                               + [154][146]   ";
  68. 537 print" [146] [154]        [146]    [161]           +     [146]";
  69. 538 print"    [172][146]   [154]   [154]   [154]    [146]   [155] [161][146]  ";
  70. 539 print"               [146]            [154]     [146][190][155] ";
  71. 540 print"   [161][151][146]  [154]              [146][161]     [151]   ";
  72. 541 print"  [154]  [154]  [154]   [146]    [155]  [151]    +    [146][184][184]";
  73. 542 print"     [146][161]    [151]             [146]  [155]    [152]  [154]";
  74. 543 print"      [146]   [154]     [146][161]    [151]         [154] ";
  75. 544 print"      [155]         [146][190]      [146]   [146][161]      ";
  76. 545 print"    [154] [155]         [154] [151] [155]   [154]    [146]     ";
  77. 546 print"[154] [146]   [154] [146]  [154]              [155]     [154]";
  78. 547 print" [151]   [160][154]  [146]           [154] [146][155]":return
  79. 570 rem *** cityscape15
  80. 571 print"[147][151] [154] [151]       [152] [154] .   [151]  [154].[151]  [152] [155]   [154] ";
  81. 572 print"[155]   [154].[155]      [154].[155]   [154]       [154] [151]  [154].[151]   ";
  82. 573 print"  [154] [151]     [154].[151] [154] [151]     [154].  [151]   [152] [155]    [154]";
  83. 574 print" . [151] [154]  [151] [154] [151]     [154]  [151]   [154]       [152] ";
  84. 575 print"  [146]  [152]  [146] [155] [154] [155]  [154].[155]  [151]     [154]   [151] ";
  85. 576 print" [154] .       [154].    [154].[152][161]  [182][161]  [182][155][146]       ";
  86. 577 print"  [152]   [146] [154].      [152]   [146]  [154]   [154]    ";
  87. 578 print"[152][161]  [182][161]  [182][154][146].[155]  [154] [155]  [154], [152]    [146] [152]  [152] ";
  88. 579 print" [146]  [154] [152]   [158][146]   [154].  [154]  [152][172][190]      [182][155][146]";
  89. 580 print"   [154]. [155]  [152]      [151][146] [152]   [146]  [151][169]  [152] [146] [154]";
  90. 581 print" . [154] [151]  [152]    [151]    [152]   [146]  [154]   [155] [152]   ";
  91. 582 print"        [151][169]   [152]  [146] [151] [154] [151]  [152]    [151]     [152] ";
  92. 583 print" [151]   [155][146]  [152]    [151]    [152]    [151]      [152]  [151][146]  ";
  93. 584 print"[152]    [151]        [152] [151]   [146] [151]  [152]  [151]      [152] ";
  94. 585 print"[151]        [152]        [151]            [152][146] [151]  [152] ";
  95. 586 print" [151]  [155]   [151]  [155]   [151]     [152] [151]     [152]  [151]       ";
  96. 587 print" [160]      [152]  [151]  [155]   [151]  [155]     [151]   [152] [151] [155]   [151]";
  97. 588 print"  [152] [151]   [155]    [151]            [155]   [151]  [155]      ";
  98. 589 print"[151]   [155]     [151]     [155]     [151]  [155]   [151]      [155]   ";
  99. 590 print"[151]  [155]      [151]   [155]      [151]   [155]      [151] [155]     ";
  100. 591 print"[151]    [155]              [151] [155]      [151]  [155]       ";
  101. 592 print"       [151]   [155]              [151] [155]      [151]  [155] ";
  102. 593 print"             [151] [155]                                        ":return
  103. 690 rem *** lea lison2
  104. 691 print"[147][155]       [182]       [129]   [162][162][185][175]  [155]      [161]     ";
  105. 692 print"           [161]      [129]   [190] [183][184][190][188][146][187][155]      [182] ";
  106. 693 print"               [182]      [129]  [190][172][164][146][190][150][184][146][187][129][172][172]";
  107. 694 print"[146][187][155]     [161]                [161]     [150] [129]  [191][170][150]";
  108. 695 print"[146][162] [146][162][167][129][165][161] [155][146]     [182]                [182]   ";
  109. 696 print"  [150] [1