home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 201 / 201.d81 / b.castle (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  200 lines
  1. 100 poke53280,0:poke53281,0:print"[147]"
  2. 140 poke55,0:poke56,56:clr:a$=""
  3. 142 dv=peek(186):ifdv<8thendv=8
  4. 143 dim r$(11),c(11),e(11),an$(13,15)
  5. 145 gosub60000:t=ti+150
  6. 146 ifti<tthen146
  7. 155 def fnd(i)=20-(len(an$(x,i))/2)
  8. 160 sys57812"castleunp.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  9. 170 sys57812"package.o",dv,0:poke780,0:poke781,80:poke782,195:sys65493
  10. 180 sys57812"castle 2.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  11. 182 sys57812"f.castle",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  12. 190 poke251,64:poke252,224:poke253,204:sys51456
  13. 195 poke252,224:poke253,204:sys51459
  14. 200 ip=50000:unpack=51456:hgr=51459
  15. 210 ps=50006:ba=50009
  16. 220 open2,dv,2,"castle text,p,r"
  17. 222 j=1:k=0:fori=0to1:sysip,2,40:i=st
  18. 224 ifa$="*"thenj=j+1:k=0:goto228
  19. 226 k=k+1:an$(j,k)=a$
  20. 228 next:close2
  21. 230 readnp
  22. 240 forx=1tonp:readr$(x),c(x)
  23. 250 next:t=ti+150
  24. 255 ift>tithen255
  25. 260 syshgr
  26. 270 forx=1tonp
  27. 280 gosub1810
  28. 290 sys57812r$(x),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  29. 310 gosub1910:ifa$="q"ora$="[209]"thengosub1250
  30. 312 gosub2000
  31. 320 e(x)=peek(53281)
  32. 340 kk=0:poke198,0
  33. 355 ifz3=0then360
  34. 357 z4=z4+1:z4=z4and15
  35. 358 poke53281,z4
  36. 360 kk=kk+1:geta$:ifa$=""andkk<800then355
  37. 370 ifa$="q"ora$="[209]"thengosub1250
  38. 380 ifa$="s"ora$="[211]"then 470
  39. 390 ifa$<>chr$(133)then410
  40. 400 z1=z1+1:z1=z1and15
  41. 405 poke53280,z1:goto340
  42. 410 ifa$<>chr$(134)then416
  43. 412 z2=z2+1:z2=z2and15
  44. 415 poke53281,z2:goto340
  45. 416 ifa$<>chr$(135)then420
  46. 417 z3=1-z3:ifz3=0thenpoke53281,e(x)
  47. 419 goto340
  48. 420 syshgr:print"[147]":poke198,0:next x
  49. 430 goto270
  50. 440 :
  51. 450 rem save koala pic
  52. 460 :
  53. 470 sys hgr
  54. 480 poke53280,0:poke53281,0
  55. 490 print"[147][154]":poke214,11:print
  56. 500 print"   [211]ave this unpacked picture? (y[154]/n[154])":poke198,0
  57. 510 geta$:ifa$<>"y"anda$<>"n"then510
  58. 520 ifa$="y"then560
  59. 530 goto1110
  60. 550 :
  61. 560 print"[147][154]":poke214,9:print
  62. 570 print" [201]nsert save disk and enter a filename."
  63. 580 :
  64. 590 print"       [206]ame : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][193][146]pic ";
  65. 600 ln%=10:sp$="                "
  66. 610 gosub690:ifnm$=""then1110
  67. 620 nm$=left$(chr$(129)+"pic "+nm$+sp$,15)
  68. 650 goto820
  69. 680 rem --- input routine ---
  70. 690 nm$="":x%=0:c%=peek(646)
  71. 700 print"[152][164][157]";:poke646,c%
  72. 710 geta$:ifa$=""then710
  73. 720 a%=asc(a$)
  74. 730 ifa%=20andx%thenx%=x%-1:nm$=left$(nm$,len(nm$)-1):print" [157][157]";:goto700
  75. 740 ifa%=20then710
  76. 750 ifa%=13thenprint" ":return
  77. 760 ifx%=ln%then710
  78. 770 ifa$<" "ora$>"z"anda$<"[193]"ora$>"[218]"ora%=34then710
  79. 780 nm$=nm$+a$:print""a$;:x%=x%+1:goto700
  80. 790 :
  81. 800 rem -- check for 'file exists' --
  82. 810 :
  83. 820 open15,dv,15,"r0:"+nm$+"="+nm$:input#15,er,er$:close15
  84. 830 ifer<>62thengosub1160:goto1110
  85. 840 :
  86. 850 rem ---      save pic       ---
  87. 860 :
  88. 920 gosub2000:nm$=nm$+",p,w"
  89. 930 sysps,nm$:syshgr
  90. 950 :
  91. 960 rem --- check for errors ---
  92. 970 :
  93. 980 open15,dv,15:input#15,er,er$,y$,z$:close15
  94. 990 iferthengosub1160:goto490
  95. 1000 :
  96. 1010 rem --    everything ok    ---
  97. 1020 :
  98. 1030 poke53280,0:poke53281,0
  99. 1040 print"[147][154]":poke214,7:print
  100. 1050 print"             [211]aving complete."
  101. 1060 print"   [201]f necessary, put the disk in"
  102. 1070 print"     the drive and press [211][208][193][195][197][154]."
  103. 1080 geta$:ifa$<>" "then1080
  104. 1090 open15,dv,15,"r0:package.o=package.o":input#15,er:close15
  105. 1100 ifer<>63 then 1040
  106. 1110 syshgr:goto420
  107. 1140 :
  108. 1150 rem ---   print dos error msg ---
  109. 1160 :
  110. 1170 poke53280,.:poke53281,.:print"[147]        [129] [196] [201] [211] [203]   [197] [210] [210] [207] [210] !
  111. 1180 [151]214,10:[153]
  112. 1190 a$[178]"print#valrror #"[170][196](er)[170]"print#,"[170]er$
  113. 1200 x%[178]22[171][195](a$)[173]2:[153][163]x%);a$
  114. 1210 [151]214,21:[153]
  115. 1220 [153]"print#        (NULL)ress (NULL)(NULL)atnlenvalprint# to continue."
  116. 1230 [161]a$:[139]a$[179][177]" "[167]1230
  117. 1240 [142]
  118. 1250 o[178][194](53270)[175]16
  119. 1255 [139]o[167][158]51459
  120. 1260 [151]53281,0:[151]53280,0
  121. 1270 [153]"loadcont  atnre you sure you want to quit? (ycont/ncont)"
  122. 1280 [151]198,0:[146]198,1:[161]ag$
  123. 1290 [139]ag$[178]"y"[176]ag$[178]"(NULL)"[167]1330
  124. 1295 [139]o[167][158]51459
  125. 1300 [142]
  126. 1320 [143] quit
  127. 1330 [137]40000
  128. 1380 [143] data <title>,<border color>
  129. 1390 [131] 11
  130. 1400 [131] castle 1.shp,0
  131. 1410 [131] courtyard.shp,0
  132. 1420 [131] guys.shp,0
  133. 1430 [131] girls.shp,0
  134. 1440 [131] missls.shp,0
  135. 1450 [131] frank.shp,0
  136. 1460 [131] vampire.shp,0
  137. 1470 [131] mummy.shp,0
  138. 1475 [131] creature.shp,0
  139. 1480 [131] the blob.shp,0
  140. 1490 [131] invisible.shp,0
  141. 1500 :
  142. 1770 [153]"";
  143. 1800 :
  144. 1810 [151]53281,0:[151]53280,0:[151]53272,31
  145. 1820 [153]"loadlistortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  146. 1830 [129]qx[178]1[164]14
  147. 1840 [153]"(NULL)"[163]38)"(NULL)":[130]
  148. 1850 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  149. 1860 [129]lx[178]217[164]217[170]26:[151]lx,([194](lx)[176]128):[130]
  150. 1870 [153]"print#"
  151. 1872 [129]i[178]1[164]13:[153]""an$(x,i):[130]
  152. 1900 [142]
  153. 1910 kk[178]0
  154. 1915 [151]214,15:[153]:[153]"list     (NULL)hile the slide is showing..."
  155. 1916 [153]"   asc1 sys- changes border color"
  156. 1917 [153]"   asc3 sys- changes background color"
  157. 1918 [153]"   asc5 sys- toggles (NULL)tarasclash (tm)
  158. 1919 print"    [211] [158]- takes you to [211][193][214][197] routine"
  159. 1920 print"    [209] [158]- quits"
  160. 1925 poke214,23:print
  161. 1930 print"[155][208]ress [209][155] to quit - [193]ny other to continue[145]"
  162. 1940 kk=kk+1:geta$:ifa$<>""orkk>1000thenreturn
  163. 1950 goto1940
  164. 1980 :
  165. 1990 :
  166. 2000 print"[147]";:iffhthenpoke254,0:sysba:goto2040
  167. 2020 poke251,64:poke252,224:poke253,204
  168. 2030 sysun
  169. 2040 poke53280,c(x):poke252,224:poke253,204:syshgr:return
  170. 2050 return
  171. 10000 d=peek(186):n$="b.castle":open15,d,15,"s0:"+n$:close15:saven$,d:end
  172. 40000 fori=0to21:poke828+i,8+i:next:poke788,49
  173. 40010 ifdv<8ordv>29ordv=8then40030
  174. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  175. 40030 a$="presenter":gosub40040:a$="hello connect"
  176. 40040 forj=8to29:i=peek(828+j-8):ifi=14thennext
  177. 40050 close2:open2,i,2:close2:ifstthen40070
  178. 40060 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40090
  179. 40070 next:ifa$="presenter"thenreturn
  180. 40080 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  181. 40090 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  182. 40100 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
  183. 40110 print"p[207]53272,23:run:":poke631,13:poke632,13:poke198,2:end
  184. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  185. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to10:printz$:next
  186. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  187. 60030 gosub61000
  188. 60090 poke214,12:print
  189. 60100 fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next:return
  190. 61000 z$(0)="[176][178][174][178] [178][176][192][174]  [176][192][174][176][192][174][176][192][174][176][178][174][178]  [176][192][174]"
  191. 61001 z$(1)=" [221] [171][192][179][171][179]   [221]  [171][192][179][173][192][174] [221] [221]  [171][179] "
  192. 61002 z$(2)=" [177] [177][160][177][173][192][189]  [173][192][189][177] [177][173][192][189] [177] [173][192][189][173][192][189]"
  193. 61003 z$(3)="[208]ictures by [215].[200]arned and [210].[196]erocher"
  194. 61004 z$(4)="[212]ext by [201].[211]loke and [205].[198]insterwald"
  195. 61005 z$(5)=""
  196. 61006 z$(6)="(c) 2001 [202]&[198] [208]ublishing, [201]nc."
  197. 61007 z$(7)=""
  198. 61008 z$(8)="www.loadstar.com"
  199. 61009 return
  200.