home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf4.pt7 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  216 lines
  1. 0 rem *** save"@0:inf4.pt7",8
  2. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0:dv=peek(186)
  3. 2 goto850
  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. 34 sys57812"sinus ml 64",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  11. 200 rem *** options table
  12. 201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
  13. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  14. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  15. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  16. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  17. 206 gosub5:ifk$=""andx<3thenx=x+1
  18. 207 ifk$="[145]"andx>1thenx=x-1
  19. 208 ifk$=chr$(13)thenc=x:return
  20. 209 goto200
  21. 240 rem *** martha kent
  22. 241 print"[147]    [153] [155]      [155]    [220] [220]  [220]   [155] [149] [155]      ";
  23. 242 print"              [153] [155]     [155] [220]   [220]    [220] [220] ";
  24. 243 print"[155]                         [220] [220]   [220]  [220] [220] ";
  25. 244 print"  [220]     [155]  [153] [155]                     [149] ";
  26. 245 print"[146]     [220]   [220]  [155]                 [153] [155]    ";
  27. 246 print"  [220][149]    [146]  [220]           [155]    [153] [155]       ";
  28. 247 print"     [220]  [149]  [164][164][164]   [146][220]  [220]    [220] [155]        ";
  29. 248 print"             [220][149]     [205] [206]   [146][220][149]    [220]  ";
  30. 249 print"[155]   [153] [155]            [149]   [220][149]  [153][207][146][187][153][208][208][149]";
  31. 250 print"   [153][207][146][187][153][208][208][149][146] [220]      [155]           [153] [155] ";
  32. 251 print"[153] [155]    [220] [149]            [146] [220]    [149]   [155]  ";
  33. 252 print" [153] [155]      [150]      [220] [220] [149]     ..    [146]   ";
  34. 253 print" [220]     [155]            [150] [149]  [220] [220]  [149]       ";
  35. 254 print"   [146] [220]   [153] [149]     [155]          [150]  [149]  [220]  ";
  36. 255 print"[149] [220] [149]  [192][192][192][192][192]  [146] [220]  [220] [149]    [155]         ";
  37. 256 print"    [150] [149]   [153][194] [220][149][223]   [185][185][185]   [146]  [153][194] [220] [149] ";
  38. 257 print"  [153] [155]   [153] [155]          [149]   [153] [146] [149]  [223]   ";
  39. 258 print"    [146][169][160] [153] [146]  [153]   [155]            [153] [155]   ";
  40. 259 print"  [220][153] [146][220] [149]  [188][185][185][185][185][185][146][190]  [220][153] [146][220] [149]  [155] ";
  41. 260 print"  [153] [155]           [153] [155]  [149]  [153] [220] [220][149]   [183][146][162][185]";
  42. 261 print"[175]   [220][153]    [155]                    [149]  [150] ";
  43. 262 print"[149]  [149]       [146][155]":return
  44. 283 f$="hello connect":goto291
  45. 291 syssa+3:poke53281,0:poke53280,0:sys49935
  46. 293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
  47. 294 poke631,13:poke632,13:poke198,2:end
  48. 490 rem *** cityscape11
  49. 491 print"[147][154]                                        ";
  50. 492 print" [154]                                    ";
  51. 493 print"   [155][146] [154]                         [185][185][187]    ";
  52. 494 print"       [155][146] [154]      [172][146][188]               [146][184][190]";
  53. 495 print"[158][172][190] [154]      [146][190]    [155][146] [154]  [162]   [146] [158][190][154][162][187]  ";
  54. 496 print"[146] [158][172][172] [154][162][162]   [146] [158][187][188]  [188][154]   [175][175][162][162][146] [188][190][155]   [158]";
  55. 497 print"[188][154] [158][190] [154]  [146] [158][190][190]   [188]  [188] [190] [154]  [146]  [158][190][154] [158][190][149] ";
  56. 498 print"[154]   [149][146] [158]  [191][146]  [155] [158][188][155]  [158] [188][154]   [172][146] [158][188][154]  [158]";
  57. 499 print"[190][154] [158][190][154] [158][191][154]    [187] [146] [158][190][154]   [158][191][154][146]   [146] [158][188][154] ";
  58. 500 print"   [158][191][155]   [158][191][154] [158][188][154]  [146]   [158][188][154]    [158][190][154]  [158][190][154]  ";
  59. 501 print"  [146]   [158][190][154]   [187] [146]   [158][188][154]   [155]    [154]   [172][146] ";
  60. 502 print" [158][188][154] [158][188][154] [158][191][154]    [158][191][154] [158][190][154]  [146]  [158][191][154]  [158][190][154]  ";
  61. 503 print" [146] [158][190][154] [158][191][154][146]  [158][188][154]    [158][188][154]  [181]   [158][188][154]      [158]";
  62. 504 print"[190][154]  [158][191][154]  [146]    [158][190][154]   [172][146]     [158][190][154] [158][191][154]   [158]";
  63. 505 print"[191][188][154] [181] [158][188][154]   [158][188][154]  [158][191][154]  [158][191][154][146]    [146]  [158][190][154]  ";
  64. 506 print"[158][191][154]     [158][190][190] [154]         [181]  [158][191][154][146]   [158][191][154]    ";
  65. 507 print" [158][190][154]   [146] [158][191][154][146] [158][191][154]      [158][191][154][146]    [158][190][155]":return
  66. 510 rem *** cityscape12
  67. 511 print"[147][156]                                        ";
  68. 512 print"                                        ";
  69. 513 print"                                        ";
  70. 514 print"                                        ";
  71. 515 print"             [159][146]  [156]  [162][187]         [172][162][187][185]    ";
  72. 516 print" [162][187]          [146]  [187] [146]   [162][146]   [146]      [162][187]";
  73. 517 print"[146]       [164][175][159][146] [156]  [175][185]   [146] [184] [190]   [172][146]      ";
  74. 518 print" [146]    [172][146]       [187]  [146]  [159]     [156][162] [146][190]   ";
  75. 519 print"         [159]  [156] [146]    [181]          [146]       ";
  76. 520 print"               [159]  [156] [146]    [181]          [146]     ";
  77. 521 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][155]":return
  78. 550 rem *** cityscape14
  79. 551 print"[147]                                      ";
  80. 552 print"   .     .           .           .      ";
  81. 553 print"              .           .             ";
  82. 554 print"     .  [146]    [146][223]     [146]            ";
  83. 555 print"[146]                 [146]     [146] [223]  [146][169] ";
  84. 556 print"[146][188] [191]  .    [146]         .      [221]  [146] [190] ";
  85. 557 print"  [146]  [151]    [146]       [151]   [146]  [151]   ";
  86. 558 print"          [146]    [146]  [188]  [146] [191] [190] [151]   ";
  87. 559 print"     [151] [191] [146]  [151] [172][146][184][183][163][155]   [151]   [155] [172] [190]   ";
  88. 560 print"[191]   [146]   [191] [151] [191] [190]   [187]   [164][175][162][155][146]         ";
  89. 561 print"  [151]    [146]     [151]   [152]  [176]    [151] [188]   [190][146][190][155]  ";
  90. 562 print"            [151] [188] [190]      [152][183][183] [176] [176][176]  [151] [152] [176] ";
  91. 563 print" [155][146]                [151]     [152] [187][187][187][170] [176]  [176]  [176]";
  92. 564 print" [151] [152] [176] [146][184][155]                [152]   [170][151] [152] [190][190][190][170]";
  93. 565 print" [176] [176] [176]     [146][183][155]                  [152][191] [188][170][151] ";
  94. 566 print"[152]    [170]  [176] [176]  [185][185][146][183][183][155]                   [152]";
  95. 567 print"         [170] [176]  [175][162][146]              [155]        ";
  96. 568 print"  [152]       [164][164][186][162][146][184][163][155]  [152][155]":return
  97. 690 rem *** lea lison2
  98. 691 print"[147][155]       [182]       [129]   [162][162][185][175]  [155]      [161]     ";
  99. 692 print"           [161]      [129]   [190] [183][184][190][188][146][187][155]      [182] ";
  100. 693 print"               [182]      [129]  [190][172][164][146][190][150][184][146][187][129][172][172]";
  101. 694 print"[146][187][155]     [161]                [161]     [150] [129]  [191][170][150]";
  102. 695 print"[146][162] [146][162][167][129][165][161] [155][146]     [182]                [182]   ";
  103. 696 print"  [150] [129]  [181][170][150] [175] [146][161][129][187][191][188][155][146]     [161]           ";
  104. 697 print"     [161]      [