home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 226 / 226.d81 / b.geezenstacks (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  271 lines
  1. 4 poke56,56:clr
  2. 5 dv=peek(186):ifdv<8thendv=8
  3. 8 dimm$(14):poke679,0:yq=1
  4. 9 i=rnd(-ti)
  5. 10 poke53281,0:poke53280,0:print""
  6. 12 sys57812"geezen font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  7. 14 poke53272,31
  8. 20 m$(1)="      [211][195][210][197][197][206] [198][210][193][205][197]        "
  9. 22 m$(2)="     [196][210][207][208] [198][210][207][205] [211][203][217]        "
  10. 24 m$(3)="     [218][207][207][205] [198][210][207][205] [204][197][198][212]       "
  11. 26 m$(4)="   [197][216][208][204][207][196][197] [198][210][207][205] [195][197][206][212][197][210]    "
  12. 28 m$(5)="        [209][213][201][195][203] [194][207][216]         "
  13. 30 m$(6)=" [197][210][193][211][197] [195][213][210][212][193][201][206] [204][197][198][212]/[210][201][199][200][212] "
  14. 32 m$(7)="  [197][210][193][211][197] [195][213][210][212][193][201][206] [213][208]/[196][207][215][206]   "
  15. 34 m$(8)="      [195][200][193][211][197][210] [205][193][210][209][213][197][197]      "
  16. 36 m$(9)="      [196][217][206][193][205][201][195] [212][201][212][204][197][211]      "
  17. 38 m$(10)="     [198][193][196][197] [213][208] [212][201][212][204][197][211]      "
  18. 40 m$(11)="        [212][197][204][197][212][217][208][197]         "
  19. 42 m$(12)="   [203][206][197][197]'[211] [203][193][204][197][201][196][207][211][195][207][208][197]   "
  20. 44 m$(13)="    [209][213][201][212] [212][207] [204][207][193][196][211][212][193][210]     "
  21. 90 print"[147][129]            [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]
  22. 100 [153]"  ortan^ortan^ortan^ortan^ortan^or^orortan^or=^ortan^ortan^^orexportan^
  23. 102 print"  [221][176][174][171][179] [171][179] [176][192][189][171][179] [221][221][221][173][192][174] [221] [171][192][179][221]  [171][179] [173][192][174]
  24. 104 [153]"  /tanexp/tanexp/tanexp/tanexp/tanexpexp/exp/tanexp > exp //tanexpexp/^/tanexp
  25. 110 print"[155]    [193] [195]ollection of [211]hort [210]outines by
  26. 120 [153]"            mid$ohn '(NULL)eb' (NULL)arrycont"
  27. 130 [129]i[178]1[164]13:[153][163]7)m$(i):[130]:[151]53370,0
  28. 140 [151]198,0
  29. 142 [151]214,yq[170]8:[153]
  30. 144 [153][163]7)""m$(yq)"on"
  31. 150 [161]a$:[139]a$[178]""[167]150
  32. 160 [153][163]7)"waitcont"m$(yq)
  33. 170 [139]a$[178]"on"[167]yq[178]yq[171]1:[139]yq[179]1[167]yq[178]13
  34. 180 [139]a$[178]""[167]yq[178]yq[170]1:[139]yq[177]13[167]yq[178]1
  35. 190 [139]a$[178][199](13)[167]210
  36. 200 [137]140
  37. 210 [145]yq[141]1000,1200,1400,1600,1800,2000,2200,2400,2600,2800,3000,3200,40000
  38. 220 [139]a$[178]"a"[167]210
  39. 230 [137]90
  40. 500 [151]214,18:[153]:[153][163]14)"print#ortantantantantantantantantantantan^
  41. 510 printtab(14)"[221] [193][152] - [193]gain [221]
  42. 520 [153][163]14)"(NULL) (NULL)print# - (NULL)enu  (NULL)
  43. 530 printtab(14)"[173][192][192][192][192][192][192][192][192][192][192][192][189]
  44. 540 [151]198,0
  45. 550 [161]a$:[139]a$[178]""[167]550
  46. 560 [142]
  47. 997 :
  48. 998 :[143] screen frame
  49. 999 :
  50. 1000 [153]"load":[143] clear screen
  51. 1010 s[178]54272:[143] color offset
  52. 1020 ch[178]102:[143] character
  53. 1030 co[178]2:[143] color
  54. 1040 [129]i[178]1024[164]1063:[151]i,ch:[151]i[170]s,co:[130]
  55. 1050 [129]i[178]1103[164]2023[169]40:[151]i,ch:[151]i[170]s,co:[130]
  56. 1060 [129]i[178]2022[164]1984[169][171]1:[151]i,ch:[151]i[170]s,co:[130]
  57. 1070 [129]i[178]1944[164]1064[169][171]40:[151]i,ch:[151]i[170]s,co:[130]
  58. 1080 [141]500
  59. 1090 [142]
  60. 1197 :
  61. 1198 :[143] drop from top
  62. 1199 :
  63. 1200 [153]"loadopen":[143] clear screen
  64. 1210 ro[178]10:[143] screen row to print on
  65. 1220 m$[178]"(NULL)(NULL)(NULL)(NULL) (NULL)val(NULL)(NULL)atnchr$val left$val(NULL)val"
  66. 1230 l[178][195](m$):tab[178](40[171]l)[173]2[171]1
  67. 1240 [129]j[178]1[164]l
  68. 1250 lt$[178][202](m$,j,1)
  69. 1260 [153]""
  70. 1270 [139]lt$[179][177]" "[167][129]k[178]1[164]ro[171]2:[153][163]ta[170]j)lt$"on":[153][163]ta[170]j)" ":[130]
  71. 1280 [153][163]ta[170]j)lt$:[130]
  72. 1290 [141]500
  73. 1300 [142]
  74. 1397 :
  75. 1398 :[143] zoom from left
  76. 1399 :
  77. 1400 [153]"loadopen":[143] clear screen
  78. 1410 ro[178]10:[143] screen row to print on
  79. 1420 m$[178]"(NULL)(NULL)(NULL)(NULL) (NULL)val(NULL)(NULL)atnchr$val left$val(NULL)val"
  80. 1430 [151]214,ro[171]1:[153]
  81. 1440 l[178][195](m$):tab[178](40[171]l)[173]2[171]1
  82. 1450 [129]j[178]l[164]1[169][171]1
  83. 1460 lt$[178]" "[170][202](m$,j,1)
  84. 1470 [139]lt$[179][177]"  "[167][129]k[178]1[164]j:[153][163]ta[170]k[171]1)lt$"on":[130]
  85. 1480 [130]:[153]
  86. 1490 [141]500
  87. 1500 [142]
  88. 1597 :
  89. 1598 :[143] explode from center
  90. 1599 :
  91. 1600 [153]"loadopen":[143] clear screen
  92. 1610 ro[178]10:[143] screen row to print on
  93. 1620 m$[178]"(NULL)(NULL)(NULL)(NULL) (NULL)val(NULL)(NULL)atnchr$val left$val(NULL)val"
  94. 1630 [151]214,ro[171]1:[153]
  95. 1640 [139][195](m$)[175]1[167]m$[178]m$[170]" "
  96. 1650 l[178][195](m$):tab[178](40[171]l)[173]2:tb[178]l[173]2:tc[178]ta[170]tb
  97. 1660 [129]j[178]1[164]tb:tc[178]tc[171]1
  98. 1670 [153][163]tc)[200](m$,j)[163]tb)[201](m$,j)"on"
  99. 1680 [129]t[178]1[164]40:[130]
  100. 1690 [130]
  101. 1700 [141]500
  102. 1710 [142]
  103. 1797 :
  104. 1798 :[143] quick box
  105. 1799 :
  106. 1800 [153]"loadopen":[143] clear screen
  107. 1810 hz$[178]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  108. 1820 sp$[178]"                                       ":co[178]0
  109. 1830 c[178][181]([187](0)[172]15)[170]1:[143] color
  110. 1840 x[178][181]([187](0)[172]18):[143] column
  111. 1850 xx[178][181]([187](0)[172]16):[143] x size
  112. 1860 y[178][181]([187](0)[172]10):[143] row
  113. 1870 yy[178][181]([187](0)[172]10):[143] y size
  114. 1880 [151]646,c:[151]214,y:[153]
  115. 1890 [153][163]x)"or"[200](hz$,xx)"^"
  116. 1900 [129]i[178]1[164]yy:[153][163]x)"(NULL)"[200](sp$,xx)"(NULL)":[130]
  117. 1910 [153][163]x)"/"[200](hz$,xx)"exp"
  118. 1920 co[178]co[170]1:[139]co[179]10[167]1830
  119. 1930 [141]500
  120. 1940 [142]
  121. 1997 :
  122. 1998 :[143] erase curtain l/r
  123. 1999 :
  124. 2000 [153]"loadopen";:[143] clear screen
  125. 2010 [129]i[178]0[164]23:[153]"mid$ust filling the screen with something.":[130]
  126. 2020 [129]j[178]0[164]23:c2$[178]c2$[170][199](32)[170][199](157)[170][199](17):[130]
  127. 2030 c2$[178]c2$[170][199](145)
  128. 2040 [129]j[178]0[164]19
  129. 2050 [139]j[178]0[167][151]781,24:[158]59903
  130. 2060 [153]""[163]j)c2$
  131. 2070 [153]""[163]38[171]j)c2$
  132. 2080 [130]:c2$[178]""
  133. 2090 [141]500
  134. 2100 [142]
  135. 2197 :
  136. 2198 :[143] erase curtain u/d
  137. 2199 :
  138. 2200 [153]"loadopen";:[143] clear screen
  139. 2210 [129]i[178]0[164]23:[153]"mid$ust filling the screen with something.":[130]
  140. 2220 [129]j[178]0[164]23:c2$[178]c2$[170][199](32)[170][199](157)[170][199](17):[130]
  141. 2230 c2$[178]c2$[170][199](145)
  142. 2240 [129]j[178]0[164]19
  143. 2250 [139]j[178]0[167][151]781,24:[158]59903
  144. 2260 [151]781,j:[158]59903
  145. 2270 [151]781,24[171]j:[158]59903
  146. 2280 [130]:c2$[178]""
  147. 2290 [141]500
  148. 2300 [142]
  149. 2397 :
  150. 2398 :[143] chaser marquee
  151. 2399 :
  152. 2400 [153]"loadopen";:[143] clear screen
  153. 2410 v[178]53248:[151]v[170]32,0:[151]v[170]33,0
  154. 2420 [129]x[178]0[164]37[169]3:[151]1024[170]x,64[170]32:[151]1024[170]x[170]1,128[170]32:[151]1024[170]x[170]2,192[170]32
  155. 2430 [151]1984[170]x,192[170]32:[151]1984[170]x[170]1,128[170]32:[151]1984[170]x[170]2,64[170]32
  156. 2440 [130]
  157. 2450 [129]x[178]0[164]22[169]3
  158. 2460 [151]1024[170]x[172]40,192[170]32:[151]1024[170](x[170]1)[172]40,128[170]32:[151]1024[170](x[170]2)[172]40,64[170]32
  159. 2470 [151]1063[170]x[172]40,64[170]32:[151]1063[170](x[170]1)[172]40,128[170]32:[151]1063[170](x[170]2)[172]40,192[170]32
  160. 2480 [130]:[151]2023,128[170]32
  161. 2490 [151]v[170]17,[194](v[170]17)[176]64:[151]v[170]34,1:[151]v[170]35,2:[151]v[170]36,2:[143] ext bkg mode
  162. 2500 [151]214,7:[153]:[153][163]14)"press a key
  163. 2510 a=peek(v+34):b=peek(v+35):c=peek(v+36)
  164. 2520 pokev+34,c:pokev+35,a:pokev+36,b
  165. 2530 geta$:ifa$=""thenforx=1to75:next:goto2510
  166. 2540 pokev+21,0:pokev+17,155:print"[147]":rem reset normal mode
  167. 2550 gosub500
  168. 2560 return
  169. 2597 :
  170. 2598 :rem dynamic titles
  171. 2599 :
  172. 2600 x=0:print"[147]";:rem clear screen
  173. 2610 n$(0)=">> dynamic title screen <<"
  174. 2620 n$(1)=">> a big howdy from the <<"
  175. 2630 n$(2)=">> folks at loadstar!!! <<
  176. 2632 n$(3)[178]""
  177. 2640 a[178]1:b[178]26:c[178]32:d[178]1:e[178]0:f[178]0:g[178]0:h[178]0:i[178]0:j[178]0:k[178]c:l[178]c:m[178]c:n[178]c:p[178]41:r[178]39
  178. 2650 [139]a[177]b[167]2750
  179. 2660 g[178]1263[170]e:h[178]1304[171]f:i[178]1903[170]e:j[178]1944[171]f:n1$[178][202](n$(x),a,d):n2$[178][202](n$(x),b,d)
  180. 2670 [139]n1$[178]a$[167]a[178]a[170]d:e[178]e[170]d:[137]2650
  181. 2680 [139]n2$[178]a$[167]b[178]b[171]d:f[178]f[170]d:[137]2650
  182. 2690 [15