home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_014_19xx_-_de_Side_A.d64 / s.w.a.t. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  267 lines
  1. 10 dim di$(30):es=32768:syses+51
  2. 20 xa=23:ya=23:sd=8:dd=8:ld=8:sp=8
  3. 30 rem menue
  4. 40 gosub270:syses+3
  5. 50 print"[147]";:syses+6
  6. 60 print"    [208]hotomaker 4.0  from [211].[215].[193].[212]. !"
  7. 70 syses+6
  8. 80 printtab(8);"[1]....[204]oad [208]icture
  9. 90 [153][163]8);"[2]....(NULL)ave (NULL)icture
  10. 100 printtab(8);"[3]....[214]iew [208]icture
  11. 110 [153][163]8);"[4]....(NULL)ource str$isk";sd
  12. 120 [153][163]8);"[5]....str$est.- str$isk";dd
  13. 130 [153][163]8);"[6]....str$isk-lenommand
  14. 140 printtab(8);"[7]....[197]xit to basic
  15. 150 [161]x$:[145][197](x$)[137]1070,1610,2150,1000,1020,2230,1040
  16. 160 [137]150
  17. 170 bl[178][194](214)[171]1:[139]bl[179]0[167]bl[178]0
  18. 180 [151]214,bl:[151]781,bl:[158]59903:[142]
  19. 190 [161]#2,x$:[139]x$[178]""[167]x$[178][199](0)
  20. 200 xx[178][198](x$):[142]
  21. 210 [141]170:[153]"right$nsert (NULL)ourcedisk into str$rive"sd:[137]240
  22. 220 [141]170:[153]"right$nsert str$est.-str$isk into str$rive"dd:[137]240
  23. 230 [141]170:[153]"right$nsert str$isk into str$rive";ld
  24. 240 [141]260:[139]xx[178]88[167]730
  25. 250 [141]170:[153][163]10)"- (NULL)(NULL) -":[142]
  26. 260 [151]198,0:[146]198,1:[161]x$:xx[178][198](x$):[142]
  27. 270 [151]53248[170]21,0:[142]
  28. 280 [159]15,ld,15,"i0":[141]690
  29. 290 [159]2,ld,2,"#":[141]690:[153]"(NULL)(NULL)."
  30. 300 t[178]18:s[178]1:n[178]0
  31. 310 [152]15,"u1:";2;0;t;s:[152]15,"b-p";2;0
  32. 320 [141]190:t[178]xx:[141]190:s[178]xx
  33. 330 [129]x[178]0[164]7:[152]15,"b-p";2;x[172]32[170]2
  34. 340 [141]190:ft[178]xx
  35. 350 [139](ft [175]128)[178]0[176](ft [175]15)[178]0[167]580
  36. 370 ft[178]ft [175]7
  37. 380 [152]15,"b-p";2;x[172]32[170]5
  38. 390 [158]es[170]57,ff$
  39. 400 [152]15,"b-p";2;x[172]32[170]30
  40. 410 [141]190:lb[178][198](x$):[141]190:bl[178][198](x$)[172]256[170]lb
  41. 420 [153]bl;[163]7);ff$;[163]25);
  42. 430 [153][202]("seqprgusrrel",(ft[171]1)[172]3[170]1,3)
  43. 440 [161]x$:[139]m[178]8[167]510
  44. 450 [139](m[178]1[175]bl[178]2)[176]m[178]2[167]510
  45. 460 [139]m[178]3[175][200](ff$,3)[178]"ph."[167]510
  46. 470 [139]m[178]5[175][200](ff$,3)[178]"bn."[167]510
  47. 480 [139]m[178]6[175][201](ff$,4)[178]".gra"[167]510
  48. 490 [139]m[178]7[175][201](ff$,3)[178]".gr"[175][195](ff$)[178]16[167]510
  49. 500 [137]580
  50. 510 [153]"on";[163]33)" (NULL)/(NULL) "
  51. 520 [141]260:[139]xx[178]88[167]620
  52. 530 [139]x$[178]"n"[167][153]"on";[163]33)" (NULL)(NULL)  ":[137]580
  53. 540 [139]x$[179][177]"y"[167]520
  54. 550 n[178]n[170]1:di$(n)[178]ff$:[139]n[177]27[167]620
  55. 560 [153]"on";[163]33)" (NULL)val(NULL) "
  56. 570 [139]m[178]2[176]m[178]3[176]m[178]5[176]m[178]7[167]620
  57. 580 [139]x$[178]"x"[167]620
  58. 590 [130]x
  59. 600 [139]t[178]0[167]620
  60. 610 [137]310
  61. 620 [160]2:[160]15:[142]
  62. 630 [153]:[153]"are you sure ((NULL)/(NULL))"
  63. 640 [141]260:[139]xx[179][177]78[175]xx[179][177]89[167]640
  64. 650 [142]
  65. 660 [159]15,sd,15:[141]690:[160]15:[142]
  66. 670 [159]2,sd,2,ff$:[159]15,sd,15:[137]690
  67. 680 [159]2,dd,2,f$:[159]15,dd,15
  68. 690 [132]15,a,a$,a1,a2:[139]a[178]0[167][142]
  69. 700 [141]270:[160]2:[160]15
  70. 710 [141]170:[153]"valrror>wait";
  71. 720 [153]a;a$;a1;a2:[158]es[170]3:[141]260
  72. 730 [158]es[170]48:[137]30
  73. 740 [139]x$[178]"i"[167][158]es[170]12
  74. 750 [139]x$[178]"load"[167][158]es[170]9
  75. 760 [139]m[178]7[167]800
  76. 770 [139]x$[179][177]"s"[167]800
  77. 780 [139]sp[178]8[167]sp[178]1:[137]800
  78. 790 sp[178]8
  79. 800 x[178]x[170]((1[175]x$[178]"")[172]sp)[171]((1[175]x$[178]"cmd")[172]sp)
  80. 810 y[178]y[170]((1[175]x$[178]"")[172]sp)[171]((1[175]x$[178]"on")[172]sp)
  81. 820 [139]x$[178]"x"[167]730
  82. 830 [139]x[179]0[167]x[178]0
  83. 840 [139]y[179]0[167]y[178]0
  84. 850 [139]x[170]xa[177]319[167]x[178]319[171]xa
  85. 860 [139]y[170]ya[177]199[167]y[178]199[171]ya
  86. 870 [142]
  87. 880 [141]760
  88. 890 [139]m[178]5[167]960
  89. 900 xa[178]xa[170]((1[175]x$[178]"input")[172]sp)[171]((1[175]x$[178]"goto")[172]sp)
  90. 910 ya[178]ya[170]((1[175]x$[178]"dim")[172]sp)[171]((1[175]x$[178]"run")[172]sp)
  91. 920 [139]xa[177]mx[167]xa[178]mx
  92. 930 [139]xa[179]7[167]xa[178]7
  93. 940 [139]ya[177]my[167]ya[178]my
  94. 950 [139]ya[179]7[167]ya[178]7
  95. 960 [139]x[170]xa[177]319[167]xa[178]319[171]x
  96. 970 [139]y[170]ya[177]199[167]ya[178]199[171]y
  97. 980 [158]es[170]27,x,y,xa,ya
  98. 990 [142]
  99. 1000 [139]sd[178]8[167]sd[178]9:[137]30
  100. 1010 sd[178]8:[137]30
  101. 1020 [139]dd[178]8[167]dd[178]9:[137]30
  102. 1030 dd[178]8:[137]30
  103. 1040 [141]630
  104. 1050 [139]x$[178]"n"[167]30
  105. 1060 [144]
  106. 1070 ld[178]sd:[153]"load";:[158]es[170]6
  107. 1080 [153]"    (NULL)hotomaker 4.0  (NULL)ode: (NULL)oad
  108. 1090 syses+6:gosub2050
  109. 1100 onvzgoto1410,1150,1170,1420,1110,1160
  110. 1110 gosub210
  111. 1120 m=2:print"[147]";:gosub280:ifn=0then30
  112. 1130 syses:gosub670:syses+21
  113. 1140 gosub690:close15:goto 2150
  114. 1150 m=3:goto1180
  115. 1160 m=7:goto1180
  116. 1170 m=5
  117. 1180 gosub 210
  118. 1190 print"[147]";:gosub280:ifn=0then30
  119. 1200 ff$=di$(1)
  120. 1210 gosub670:ifm=3orm=5then1290
  121. 1220 gosub190:xs=xx:gosub190:ys=xx
  122. 1230 close2:close15:ifxs>0andys>0then1250
  123. 1240 gosub170:print"[203]eine [211]tarpainter- [199]rafik":gosub260:goto30
  124. 1250 ifxs<40andys<25then1270
  125. 1260 gosub170:print"[199]rafik zu gross":gosub260:goto30
  126. 1270 xa=xs*8-1:ya=ys*8-1
  127. 1280 x=0:y=0:sp=8:goto1320
  128. 1290 get#2,x$,x$,x$,x$
  129. 1300 gosub190:y1=xx:gosub190:ya=xx-y1
  130. 1310 gosub190:x1=xx-8:gosub190:xa=(xx-8)-x1:close2:close15
  131. 1320 syses
  132. 1330 syses+27,x,y,xa,ya
  133. 1340 getx$:xx=asc(x$+chr$(0))
  134. 1350 ifx$="x"thengosub270:goto2150
  135. 1360 if(xxand127)=13thenf=(xxand128)/128:goto1380
  136. 1370 gosub740:goto1330
  137. 1380 gosub670:ifm=7thensyses+60,f,x/8,y/8:goto1400
  138. 1390 syses+42,f,x,y,x+xa,y+ya
  139. 1400 gosub690:close15:goto1330
  140. 1410 m=1:xa=43:ya=44:eo=36:goto1430
  141. 1420 m=6:xa=87:ya=51:eo=30
  142. 1430 gosub210:print"[147]";:gosub280:ifn=0then30
  143. 1440 mx=319-xa:my=199-my:syses+6
  144. 1450 fori=1ton:gosub270
  145. 1460 syses+3:print"next file: "di$(i):gosub260
  146. 1470 ifx$="n"then1590
  147. 1480 ifx$="x"then30
  148. 1490 syses
  149. 1500 syses+27,x,y,xa,ya
  150. 1510 getx$:xx=asc(x$+chr$(0))
  151. 1520 ifx$="x"then1600
  152. 1530 if(xxand127)=13thenf=(xxand128)/128:goto1560
  153. 1540 ifx$="n"then1590
  154. 1550 gosub740:goto1500
  155. 1560 ff$=di$(i):gosub670
  156. 1570 syses+eo,f,x,y
  157. 1580 gosub690:close15:goto1510
  158. 1590 nexti
  159. 1600 gosub270:goto2150
  160. 1610 ld=dd:print"[147]";:syses+6
  161. 1620 print"    [208]hotomaker 4.0  [205]ode: [211]ave
  162. 1630 [158]es[170]6:[141]2050
  163. 1640 [145]vz[137]1700,1850,1860,1710,1650,1870
  164. 1650 [158]es:[141]260:[153]:[158]es[170]3
  165. 1660 f$[178]"":[133]"ascilename";f$:[139]f$[178]""[167]30
  166. 1670 f$[178][200](f$,16)[170]",p,w"
  167. 1680 [141]220:[141]680
  168. 1690 [158]es[170]24:[141]690:[160]15:[137]30
  169. 1700 m[178]1:xa[178]43:ya[178]44:eo[178]39:[137]1720
  170. 1710 m[178]6:xa[178]87:ya[178]51:eo[178]33
  171. 1720 mx[178]319[171]xa:my[178]199[171]ya:[158]es:[137]1770
  172. 1730 [158]es[170]27,x,y,xa,ya
  173. 1740 [161]x$:xx[178][198](x$[170][199](0))
  174. 1750 [139]x$[178]"x"[167]30
  175. 1760 [139](xx[175]127)[178]13[167]f[178](xx[175]128)[173]128:[137]1780
  176. 1770 [141] 740:[137]1730
  177. 1780 [141]270:[158]es[170]3:[153]
  178. 1790 f$[178]"":[133]"ascilename";f$:[139]f$[178]""[167]30
  179. 1800 [139]m[178]1[167]f$[178][200](f$,15)[170]",p,w":[137]1820
  180. 1810 f$[178][200](f$,10)[170]".gra,p,w"
  181. 1820 [141]220:[141]680
  182. 1830 [158]es[170]eo,f,x,y
  183. 1840 [141]690:[160]15:[137]30
  184. 1850 m[178]3:mx[178]230:my[178]167:[137]1880
  185. 1860 m[178]5:mx[178]239:my[178]79:xa[178]239:ya[178]79:[137]1880
  186. 1870 m[178]7:mx[178]319:my[178]199:xa[178]31:ya[178]31:sp[178]8
  187. 1880 [158]es:[141]740:[141]920
  188. 1890 [161]x$:xx[178][198](x$[170][199](0))
  189. 1900 [139](xx[175]127)[178]13[167]f[178](xx[175]128)[173]128:[137]1920
  190. 1910 [141]880:[137]1890
  191. 1920 [141]270:[158]es[170]3:[153]
  192. 1930 f$[178]"":[133]"ascilename";f$:[139]f$[178]""[167]30
  193. 1940 [139]m[178]7[167]f$[178][200](f$[170]"             ",13)[170]".gr,p,w"
  194. 1950 [139]m[178]3[167]f$[178][200]("ph."[170]f$,11)[170]",p,w"
  195. 1960 [139]m[178]5[167]f$[178][200]("bn."[170]f$,11)[170]",p,w"
  196. 1970 [141]220:x2[178]x[170]xa:y2[178]y[170]ya:c[178]1[175]((x[175]7)[177]0)
  197. 1980 b[178]([181](x[173]8)[170]c)[172](y[170]1)
  198. 1990 [141]680
  199. 2000 [139]m[178]3[167][158]es[170]45,f,x,y,x2,y2,b
  200. 2010 [139]m[178]5[167][158]es[170]54,f,x,y,x2,y2,b
  201. 2020 [139]m[178]7[167][158]es[170]63,f,x[173]8,y[173]8,xa[173]8[170]1,ya[173]8[170]1
  202. 2030 [141]690:[160]15:[137]30
  203. 2040 [144]
  204. 2050 [153]:[153][163]8);"[1]...(NULL)rintshop
  205. 2060 printtab(8);"[2]...[206]ewsroom [208]hoto
  206. 2070 [153][163]8);"[3]...(NULL)ewsroom peekanner
  207. 2080 printtab(8);"[4]...[208]rintmaster
  208. 2090 [153][163]8);"[5]...(NULL)tandard
  209. 2100 printtab(8);"[6]...[211]tarpainter
  210. 2110 [153][163]8);"[x]...(NULL)ain (NULL)enu
  211. 2120 gosub260:ifxx=88then730
  212. 2130 ifxx<49orxx>54then2120
  213. 2140 vz=val(x$):return
  214. 2150 syses:m=1
  215. 2160 getx$:gosub740
  216. 2170 ifx$<>"w"then2160
  217. 2180 mx=320:my=200:gosub920
  218. 2190 getx$:ifx$="w"thengosub270:goto2150
  219. 2200 ifx$="i"thensyses+18,x,y,x+xa,y+ya
  220. 2210 ifx$="[147]"thensyses+15,x,y,x+xa,y+ya
  221. 2220 gosub880:goto2190
  222. 2230 print"[147]";:syses+6
  223. 2240 print"  [196]iskcommand: [196]evice = ";
  224. 2250 ifld=sdthenprint"[211]ource";:goto2270
  225. 2260 print"[196]est. ";:ld=dd
  226. 2270 print" #"ld
  227. 2280 syses+6:print:print
  228. 2290 printtab(8)"[1]....[211]cratch [198]ile(s)
  229. 2300 [153][163]8)"[2]....(NULL)ename  ascile(s)
  230. 2310 printtab(8)"[3]....[214]alidate [196]isk"ld
  231. 2320 printtab(8)"[4]....[198]ormat [196]atadisk"ld
  232. 2330 printtab(8)"[5]....[195]atalog [196]isk"ld
  233. 2340 printtab(8)"[6]....[195]hange [211]ource/[196]est.
  234. 2350 [153][163]8)"[x]....(NULL)ain (NULL)enu
  235. 2360 gosub260:ifxx=88then30
  236. 2370 onval(x$)goto2470,2550,2390,2420,2640,2660
  237. 2380 goto2360
  238. 2390 gosub230:gosub170:ifx$="x"then2230
  239. 2400 open15,ld,15,"v0":close15
  240. 2410 open15,ld,15:gosub690:close15:goto2230
  241. 2420 gosub230:gosub170
  242. 2430 input"[196]iskname,[201][196]";dn$,id$
  243. 2440 gosub630:ifx$="n"then2230
  244. 2450 gosub170:printtab(10);"[208]lease [215]ait[145]"
  245. 2460 open15,ld,15,"n:"+dn$+","+id$:close15:goto2410
  246. 2470 m=8:gosub230:print"[147]":gosub280
  247. 2480 ifn=0then2230
  248. 2490 gosub630:ifx$="n"then2230
  249. 2500 syses+6:open15,ld,15:fori=1ton
  250. 2510 :print"scratching "di$(i);tab(32);
  251. 2520 print#15,"s:"+di$(i):input#15,a:ifa=1thenprint"[207][203]":goto2540
  252. 2530 print"[197]rr"a
  253. 2540 next:close15:syses+6:gosub260:goto2230
  254. 2550 m=8:gosub230:print"[147]":gosub280
  255. 2560 ifn=0then2230
  256. 2570 gosub630:ifx$="n"then2230
  257. 2580 syses+6:open15,ld,15:fori=1ton
  258. 2590 printdi$(i);tab(18)"wird zu";:inputf$
  259. 2600 print#15,"r:"+f$+"="+di$(i):input#15,a
  260. 2610 ifa=0thenprint"[145]";tab(36)" [207][203]":goto2630
  261. 2620 print"[145]";tab(36)" [197]rr"
  262. 2630 next:close15:syses+6:gosub260:goto2230
  263. 2640 gosub230:print"[147]";:syses+66,ld
  264. 2650 open15,ld,15:gosub690:close15:goto2230
  265. 2660 ifld=ddthenld=sd:goto2230
  266. 2670 ld=dd:goto2230
  267.