home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 164 / 164.d81 / b.geezenstacks (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-01  |  6.8 KB  |  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 [151]g,k:g[178]g[170]p:k[178][194](g):[151]g,[198](n1$)
  183. 2700 [151]h,l:h[178]h[170]r:l[178][194](h):[151]h,[198](n2$)
  184. 2710 [151] i,m:i[178]i[171]r:m[178][194](i):[151] i,[198](n1$)
  185. 2720 [151]j,n:j[178]j[171]p:n[178][194](j):[151]j,[198](n2$)
  186. 2730 [139] g[177][178]i[167]a[178]a[170]d:b[178]b[171]d:e[178]e[170]d:f[178]f[170]d:k[178]c:l[178]c:m[178]c:n[178]c:[137]2650
  187. 2740 [137]2690
  188. 2750 [129]s[178]0[164]2:[158]59626:[130]:x[178]x[170]1:[139]n$(x)[179][177]""[167]2640
  189. 2760 l[178][195](m$):mi[178]38[171]l[173]2:[129]i[178]1[164][195](m$)[171]19
  190. 2770 [153]pl$[166]mi)[200](m$,i)[201](m$,l[171](l[171]i)):mi[178]mi[171]1:[130]
  191. 2780 [141]500
  192. 2790 [142]
  193. 2797 :
  194. 2798 :[143] fade up titles
  195. 2799 :
  196. 2800 [153]"load";:[143] clear screen
  197. 2810 [153]"":c$[178]"listprint#pokestop":d$[178]""
  198. 2820 [143] put starting and ending message in a$
  199. 2830 [143] starting line into s -- ending line into e
  200. 2840 a$[178]"lenome up to the (NULL)ower":s[178]24:e[178]2:[141]2880
  201. 2850 a$[178]"and kick off your shoes.":s[178]24:e[178]4:[141]2880
  202. 2860 a$[178]"right$t's cool inside!":s[178]24:e[178]6:[141]2880
  203. 2870 [137]2940
  204. 2880 [129] x[178]s[164]e[169][171]1:[129]y[178]0[164](s[171]x)[170](x[179]s[171]4)[172](s[171]4[171]x)
  205. 2890 [153][200](d$,x[170]y)[163]20[171][195](a$)[173]2)[202](c$,y[170]1,1)a$"":[130]y,x
  206. 2900 [129] c[178]2[164]5:[129]y[178]1[164]5[171]c
  207. 2910 [153][200](d$,e[170]y)[163]20[171][195](a$)[173]2)[202](c$,c[170]y,1)a$""
  208. 2920 [130]:[130]
  209. 2930 [142]
  210. 2940 [141]500
  211. 2950 [142]
  212. 2997 :
  213. 2998 :[143] teletype
  214. 2999 :
  215. 3000 [153]"load":[143] clear screen
  216. 3010 [143] put message in m$ and gosub3060
  217. 3020 m$[178]"right$mportant message from (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)!":[141]3060
  218. 3030 m$[178]"(NULL)our fly is unzipped!":[141]3060
  219. 3040 m$[178]"(NULL)ver and out.":[141]3060
  220. 3050 [137]3190
  221. 3060 [151]54273,99:[151]54278,250
  222. 3070 [151]54276,129
  223. 3080 [129]i[178]1[164][195](m$)
  224. 3090 [153]" waitcmd";
  225. 3100 [129]j[178]1[164]19:[130]
  226. 3110 [151]54296,15
  227. 3120 [153][202](m$,i,1);
  228. 3130 [151]54296,0
  229. 3140 [130]:[153]
  230. 3150 [151]54276,32:[151]54296,15
  231. 3160 [129]j[178]1[164]299:[130]
  232. 3170 [151]54276,0:[151]54296,0
  233. 3180 [142]
  234. 3190 [141]500
  235. 3192 [142]
  236. 3197 :
  237. 3198 :[143] knee's kaleidoscope
  238. 3199 :
  239. 3200 [153]"load":[143] clear screen
  240. 3210 m[178]1024[170]500:r[178]10:f[178]40:s[178]m[170]54272
  241. 3220 [151]53371,0
  242. 3222 [139][194](679)[167]3280
  243. 3224 [151]679,1:[134]d(14,5)
  244. 3230 [129]i[178]1[164]13:[129]j[178]1[164]4:[135]d(i,j):[130]:[130]
  245. 3240 [131]109,112,110,125,112,109,125,110,110,125,109,112,125,110,112,109
  246. 3250 [131]108,124,126,123,124,108,123,126,126,123,108,124,123,126,124,108
  247. 3260 [131]107,107,115,115,115,115,107,107,113,114,114,113,114,113,113,114
  248. 3270 [131]32,32,32,32
  249. 3280 [153]"         (NULL)ress a key when bored
  250. 3290 x=int(rnd(0)*r):y=int(rnd(0)*r)*f
  251. 3300 c=rnd(0)*15+1:p=rnd(0)*24+1:ifp>12thenp=13
  252. 3310 pokem+x-y,d(p,1):pokes+x-y,c
  253. 3320 pokem+x+y,d(p,2):pokes+x+y,c
  254. 3330 pokem-x+y,d(p,3):pokes-x+y,c
  255. 3340 pokem-x-y,d(p,4):pokes-x-y,c
  256. 3350 ifpeek(203)<>64then3370
  257. 3360 goto3290
  258. 3370 gosub500
  259. 3380 return
  260. 10000 d=peek(186):n$="b.geezenstacks":open15,d,15,"s0:"+n$:close15:saven$,d:end
  261. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  262. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  263. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  264. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  265. 40040 close2:open2,i,2:close2:ifstthen40060
  266. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  267. 40060 next:return
  268. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  269. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  270. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  271.