home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D01.D64 / design (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.6 KB  |  411 lines
  1. 100 POKE 52,112:POKE 56,112:CLR
  2. 110 (null) "[201]NIT"
  3. 120 (null) "[197]XEC"
  4. 130 (null) "[211]HUT[196]OWN"
  5. 140 END
  6. 150 :
  7. 160 (null) "[201]NIT"
  8. 170 (null)
  9. 180 D=0
  10. 190 P=2
  11. 200 DV=8
  12. 210 (null) 1,CLR
  13. 220 (null) (null) 1,CLR
  14. 230 (null) 1 DEF 40,1,16+6
  15. 240 (null) 2 DEF 21,15,6+1
  16. 250 (null) 4 DEF 30,6,16+2
  17. 260 (null) DEF 1,1
  18. 270 (null) (null) 100,100
  19. 280 (null) (null) D,P
  20. 290 (null) 4,0
  21. 300 (null) DEF 256,0,0,0,0,0,0,0,0
  22. 310 CG=0
  23. 320 DIM AC(15),SP(8),CH(8,8)
  24. 330 RESTORE
  25. 340 FOR I=0 TO 15
  26. 350 READ AC(I)
  27. 360 NEXT
  28. 370 BC=5:FC=144
  29. 380 (null) "[211]PR[196]EF"
  30. 390 RETURN
  31. 400 DATA 144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155
  32. 410 :
  33. 420 (null) "[197]XEC"
  34. 430 (null) 1 OPEN 0,0
  35. 440 (null) (null) 1,1
  36. 450 PRINT "[147][196]ESIGN  [211]YSTEM";
  37. 460 TE=0:SE=0
  38. 470 (null)
  39. 480 : (null) SE<>0 THEN (null) 1 (null):PRINT "[147][196]ESIGN  [211]YSTEM";
  40. 490 : (null):(null) (null)(1)
  41. 500 : PX=INT((null)(0)/8)
  42. 510 : (null) PX<=6 THEN (null) "[196]ESIGN[211]ERVICE"
  43. 520 : (null) PX>=8 AND PX<=13 THEN (null) "[211]YS[211]ERVICE"
  44. 530 (null) TE<>0
  45. 540 (null) (null) 0
  46. 550 (null) 1 CLOSE
  47. 560 RETURN
  48. 570 :
  49. 580 (null) "[211]HUT[196]OWN"
  50. 590 (null) (null) 0
  51. 600 (null) 4 CLR
  52. 610 (null) 2 CLR
  53. 620 (null) 1 CLR
  54. 630 (null) (null) 0
  55. 640 (null) 0
  56. 650 (null)
  57. 660 PRINT CHR$(142);"PROGRAM FINISHED"
  58. 670 RETURN
  59. 680 :
  60. 690 (null) "[196]ESIGN[211]ERVICE"
  61. 700 (null) 3 DEF 18,1,16+6
  62. 710 (null) 3 OPEN 0,1
  63. 720 PRINT "[196]ESIGN [195]HARACTERS";
  64. 730 (null) "[205][211]ELECT"
  65. 740 (null) SE (null) "[195]HAR[196]ES"
  66. 750 (null) SE=0 THEN (null) 3 CLOSE:(null) 3 CLR
  67. 760 RETURN
  68. 770 :
  69. 780 (null) "[211]YS[211]ERVICE"
  70. 790 (null) 3 DEF 22,1,16+6
  71. 800 (null) 3 OPEN 8,1
  72. 810 PRINT "[197]XIT TO [194]ASIC [211]YSTEM";
  73. 820 (null) "[205][211]ELECT"
  74. 830 B=0
  75. 840 (null) SE<>0 THEN OP$="[197]XIT TO [194]ASIC [211]YSTEM":(null) "[195]ONFIRM"
  76. 850 TE=B
  77. 860 (null) 3 CLOSE
  78. 870 (null) 3 CLR
  79. 880 RETURN
  80. 890 :
  81. 900 (null) "[205][211]ELECT"
  82. 910 SE=0
  83. 920 (null)
  84. 930 (null) (null)(3) AND ((null)(P)=128 OR (null)(P)=16) THEN SE=INT((null)(1)/8)+1
  85. 940 (null) (null) SE=0 AND ((null)(3) OR (null)(1))
  86. 950 RETURN
  87. 960 :
  88. 970 (null) "[195]ONFIRM"
  89. 980 OW=(null)(0)
  90. 990 (null) 4 OPEN 5,9
  91. 1000 PRINT "            ![211][212][207][208]!"
  92. 1010 PRINT (null)((30-LEN(OP$))/2,32);OP$
  93. 1020 PRINT "   [208]RESS [194]UTTON [212]O [195]ONFIRM"
  94. 1030 PRINT "     [200]IT [210]ETURN TO [195]ANCEL"
  95. 1040 (null) "[203]EY[211]WITCH"
  96. 1050 (null) 4 CLOSE
  97. 1060 (null) OW (null)
  98. 1070 RETURN
  99. 1080 :
  100. 1090 (null) "[203]EY[211]WITCH"
  101. 1100 (null)
  102. 1110 A=(null)(0)
  103. 1120 B=(null)(P):C=(null)(P):(null) C=16 THEN B=128
  104. 1130 (null) A=13 OR B=128
  105. 1140 RETURN
  106. 1150 :
  107. 1160 (null) "[195]HAR[196]ES"
  108. 1170 (null) 3 CLOSE
  109. 1180 (null) 3 CLR
  110. 1190 (null) 1 (null)
  111. 1200 PRINT "[147][207]PTIONS    [195]HARACTERS";
  112. 1210 (null) "[195]HAR[199]RID"
  113. 1220 TC=0
  114. 1230 (null)
  115. 1240 (null) NOT((null)(2)) THEN (null) 4,0
  116. 1250 (null) (null)(2) THEN (null) "[195]HECK[199]RID"
  117. 1260 (null) (null)(1) THEN (null) "[195]HECK[200]EADER"
  118. 1270 (null) (null) TC
  119. 1280 (null) 2 CLOSE
  120. 1290 RETURN
  121. 1300 :
  122. 1310 (null) "[195]HAR[199]RID"
  123. 1320 (null) 2 OPEN 10,5
  124. 1330 (null) 1,0:(null) 2,1:(null)
  125. 1340 (null) "[195]LR[199]RID"
  126. 1350 (null) 11,3:PRINT "[195]HAR =";
  127. 1360 (null) 11,4:PRINT "[193]SCII=";CD%;
  128. 1370 (null) 11,5:PRINT "[210]EV  = ";RV$;
  129. 1380 (null) 11,6:PRINT "[211]ET  =";SE%;
  130. 1390 (null) 1,13:PRINT "[156][198]ILE:[146]";
  131. 1400 RETURN
  132. 1410 :
  133. 1420 (null) "[195]HECK[199]RID"
  134. 1430 PX=INT((null)(0)/8):PY=INT((null)(1)/8)
  135. 1440 (null) PX<2 OR PX>9 OR PY<2 OR PY>9 THEN (null) 4,6:RETURN
  136. 1450 (null) 4,4
  137. 1460 (null) ((null)(P)<>128 AND (null)(P)<>16) THEN RETURN
  138. 1470 AX=PX-1:AY=PY-1
  139. 1480 M=2^(8-AX)
  140. 1490 FG=NOT(CH(AX,AY))
  141. 1500 (null) FG THEN SP(AY)=SP(AY)OR M
  142. 1510 (null) NOT(FG) THEN SP(AY)=SP(AY) AND (255-M)
  143. 1520 CH(AX,AY)=FG
  144. 1530 CH$="[207]"
  145. 1540 (null) CH(PX-1,PY-1) THEN CH$=" [146]"
  146. 1550 (null) PX,PY:PRINT CHR$(142);"[144]";CH$;"";
  147. 1560 (null) "[213]P[196]ATE"
  148. 1570 RETURN
  149. 1580 :
  150. 1590 (null) "[195]HECK[200]EADER"
  151. 1600 PX=INT((null)(0)/8)
  152. 1610 (null) PX>=0 AND PX<=6 THEN (null) "[196]O[207]PTION"
  153. 1620 (null) PX>=11 AND PX<=20 THEN (null) "[196]O[195]HARACTER"
  154. 1630 RETURN
  155. 1640 :
  156. 1650 (null) "[196]O[195]HARACTER"
  157. 1660 OW=(null)(0)
  158. 1670 (null) 3 DEF 10,6,22
  159. 1680 (null) 3 OPEN 11,1
  160. 1690 PRINT "[211]ELECT    [198]LIP      [210]EVERSE   [195]LEAR     [195]OLOUR    [213]PDATE";
  161. 1700 (null) "[205][211]ELECT"
  162. 1710 (null) 3 CLOSE
  163. 1720 (null) 3 CLR
  164. 1730 (null) OW (null)
  165. 1740 (null) SE<>5 AND SE<>0 THEN (null) "[194]USY"
  166. 1750 (null) SE (null) "[211]EL[195]HAR","[198]LIP","[210]EVERSE","[195]LEAR[195]","[195]OLOUR","[211]AVE[195][195]"
  167. 1760 (null) SE<>5 AND SE<>0 THEN (null) "[206]OT[194]USY"
  168. 1770 RETURN
  169. 1780 :
  170. 1790 (null) "[196]O[207]PTION"
  171. 1800 OW=(null)(0)
  172. 1810 (null) 3 DEF 20,3,22
  173. 1820 (null) 3 OPEN 0,1
  174. 1830 PRINT "[204]OAD [195]HARACTER [198]ILE [211]AVE [195]HARACTER  [198]ILE[197]XIT";
  175. 1840 (null) "[205][211]ELECT"
  176. 1850 (null) 3 CLOSE
  177. 1860 (null) 3 CLR
  178. 1870 (null) OW (null)
  179. 1880 (null) SE (null) "[204]OAD[195][211]ET","[211]AVE[195][211]ET","[195][197]XIT"
  180. 1890 RETURN
  181. 1900 :
  182. 1910 (null) "[195][197]XIT"
  183. 1920 (null) "[211]AVE[195][195]"
  184. 1930 TC=-1
  185. 1940 RETURN
  186. 1950 :
  187. 1960 (null) "[213]P[196]ATE"
  188. 1970 (null) DEF 256,SP(1),SP(2),SP(3),SP(4),SP(5),SP(6),SP(7),SP(8)
  189. 1980 (null) 18,3:PRINTCHR$(1);CHR$(BC);CHR$(FC);"@";
  190. 1990 RETURN
  191. 2000 :
  192. 2010 (null) "[199][213]P[196]ATE"
  193. 2020 (null) "[195]LR[199]RID"
  194. 2030 FOR Y=1 TO 8
  195. 2040 FOR X=1 TO 8
  196. 2050 CH(X,Y)=0
  197. 2060 (null) (SP(Y) AND 2^(8-X))<>0 THEN CH(X,Y)=-1:(null) 1+X,1+Y:PRINT "[144] [146]";
  198. 2070 NEXT X,Y
  199. 2080 RETURN
  200. 2090 :
  201. 2100 (null) "[198]LIP"
  202. 2110 FOR Y=1 TO 4
  203. 2120 TP=SP(Y)
  204. 2130 SP(Y)=SP(9-Y)
  205. 2140 SP(9-Y)=TP
  206. 2150 NEXT
  207. 2160 (null) "[199][213]P[196]ATE"
  208. 2170 (null) "[213]P[196]ATE"
  209. 2180 RETURN
  210. 2190 :
  211. 2200 (null) "[195]LR[199]RID"
  212. 2210 PRINT CHR$(142);"[144]";
  213. 2220 FOR Y=0 TO 7
  214. 2230 (null) 2,2+Y
  215. 2240 PRINT "[207][207][207][207][207][207][207][207][180]"
  216. 2250 NEXT
  217. 2260 PRINT "[183][183][183][183][183][183][183][183]"
  218. 2270 RETURN
  219. 2280 :
  220. 2290 (null) "[210]EVERSE"
  221. 2300 FOR Y=1 TO 8
  222. 2310 SP(Y)=255-SP(Y)
  223. 2320 NEXT Y
  224. 2330 (null) "[199][213]P[196]ATE"
  225. 2340 (null) "[213]P[196]ATE"
  226. 2350 RETURN
  227. 2360 :
  228. 2370 (null) "[195]LEAR[195]"
  229. 2380 FOR Y=1 TO 8
  230. 2390 SP(Y)=0
  231. 2400 NEXT Y
  232. 2410 (null) "[199][213]P[196]ATE"
  233. 2420 (null) "[213]P[196]ATE"
  234. 2430 RETURN
  235. 2440 :
  236. 2450 (null) "[195]OLOUR"
  237. 2460 (null) 4 OPEN 5,15
  238. 2470 (null) 2,6:(null)
  239. 2480 (null) 6,1
  240. 2490 PRINT "[144]   [159] [156]   [158] [129] [149] [150] [151] [152] [153] [154] [155] [146]";
  241. 2500 CX=0:CC=0
  242. 2510 (null) "[194]COL"
  243. 2520 (null)
  244. 2530 (null) (null)(4) AND ((null)(P)=128 OR (null)(P)=16) THEN (null) "[211]EL[195]OLOUR"
  245. 2540 (null) 6,4:PRINT CHR$(FC);"  [146]";
  246. 2550 (null) 18,4:PRINT CHR$(BC);"  [146]";
  247. 2560 (null) (null) CX<>0
  248. 2570 (null) 4 CLOSE
  249. 2580 (null) 2 (null)
  250. 2590 (null) 18,3:PRINTCHR$(1);CHR$(BC);CHR$(FC);"@";
  251. 2600 RETURN
  252. 2610 :
  253. 2620 (null) "[211]EL[195]OLOUR"
  254. 2630 PX=INT((null)(0)/8):PY=INT((null)(1)/8)
  255. 2640 (null) PY=3 AND PX>=2 AND PX<=11 THEN CC=1:(null) "[194]COL":RETURN
  256. 2650 (null) PY=3 AND PX>=14 AND PX<=23 THEN CC=2:(null) "[194]COL":RETURN
  257. 2660 (null) PY=3 AND (PX=26 OR PX=27) THEN CX=-1:RETURN
  258. 2670 (null) PY=1 AND PX>=6 AND PX<=20 THEN SC=PX-6
  259. 2680 (null) CC=2 THEN BC=AC(SC)
  260. 2690 (null) CC=1 THEN FC=AC(SC)
  261. 2700 RETURN
  262. 2710 :
  263. 2720 (null) "[194]COL"
  264. 2730 (null) 2,3
  265. 2740 PRINT "[198]OREGROUND  [155][194]ACKGROUND  [155][207][203][146]";
  266. 2750 (null) 2,3
  267. 2760 (null) CC=1 THEN PRINT "[198]OREGROUND  [155][194]ACKGROUND  [155][207][203][146]";
  268. 2770 (null) CC=2 THEN PRINT "[155][198]OREGROUND  [194]ACKGROUND  [155][207][203][146]";
  269. 2780 RETURN
  270. 2790 :
  271. 2800 (null) "[211]EL[195]HAR"
  272. 2810 (null) 4 OPEN 5,10
  273. 2820 PRINT "[150][147]   [195]HARACTER [197]DIT [211]ELECTION"
  274. 2830 (null) CI% THEN (null) "[199]OT[193][195]HAR"
  275. 2840 (null) CI% THEN (null) 4 CLOSE:RETURN
  276. 2850 (null)
  277. 2860 BA%=0
  278. 2870 (null) 2,2:INPUT "[197]NTER [193]SCII (0-255):    [157][157][157][157]";CD%
  279. 2880 (null) CD%<32 OR (CD%>=128 AND CD%<160) THEN BA%=-1
  280. 2890 (null) (null) BA%
  281. 2900 (null)
  282. 2910 (null) 2,3:INPUT "[197]NTER [211]ET (1 OR 2) :    [157][157][157][157]";SE%
  283. 2920 (null) (null) SE%<>1 AND SE%<>2
  284. 2930 (null)
  285. 2940 (null) 2,4:INPUT "[210]EVERSE ON ([217]/[206])   :    [157][157][157][157]";RV$
  286. 2950 (null) (null) RV$<>"Y" AND RV$<>"N"
  287. 2960 (null) 4 CLOSE
  288. 2970 CI%=-1
  289. 2980 (null) 2 (null)
  290. 2990 (null) 11,4:PRINT "[193]SCII=";CD%;
  291. 3000 (null) 11,5:PRINT "[210]EV  = ";RV$;
  292. 3010 (null) 11,6:PRINT "[211]ET  =";SE%;
  293. 3020 (null) "[204]OAD[213]P[195]HAR"
  294. 3030 RETURN
  295. 3040 :
  296. 3050 (null) "[199]OT[193][195]HAR"
  297. 3060 (null) "[211]AVE[195][195]"
  298. 3070 (null) 2,2:PRINT "[217]OU ARE ALREADY EDITING"
  299. 3080 PRINT "  [195]HARACTER";CD%;"IN SET";SE%
  300. 3090 PRINT "  [195]HARACTER HAS BEEN SAVED"
  301. 3100 PRINT "  [195]LICK TO CONTINUE";
  302. 3110 (null) "[203]EY[211]WITCH"
  303. 3120 PRINT "[150][147]   [195]HARACTER [197]DIT [211]ELECTION"
  304. 3130 CI%=0
  305. 3140 RETURN
  306. 3150 :
  307. 3160 (null) "[194]USY"
  308. 3170 POKE 53276,255
  309. 3180 (null) DEF 1,3
  310. 3190 (null) 20 (null) "[211]WITCH"
  311. 3200 RETURN
  312. 3210 :
  313. 3220 (null) "[211]WITCH"
  314. 3230 (null) V% THEN (null) DEF 1,4
  315. 3240 (null) NOT(V%) THEN (null) DEF 1,3
  316. 3250 V%=NOT(V%)
  317. 3260 RETURN
  318. 3270 :
  319. 3280 (null) "[206]OT[194]USY"
  320. 3290 (null) DEF 1,1
  321. 3300 (null) CLR
  322. 3310 POKE 53276,0
  323. 3320 RETURN
  324. 3330 :
  325. 3340 (null) "[211]AVE[195][195]"
  326. 3350 (null) RA%<(7*4096) THEN RETURN
  327. 3360 FOR I=0 TO 7
  328. 3370 POKE RA%+I,SP(I+1)
  329. 3380 NEXT
  330. 3390 RETURN
  331. 3400 :
  332. 3410 (null) "[204]OAD[195][211]ET"
  333. 3420 (null) 4 OPEN 5,10
  334. 3430 PRINT "[147]   [195]HARACTER [211]ET [198]ILE [204]OAD"
  335. 3440 UI%=0:(null) "[211]AVE[195][195]"
  336. 3450 CI%=0
  337. 3460 (null)
  338. 3470 (null) 2,2:INPUT "[198]ILE:";CF$
  339. 3480 (null) (null) CF$=""
  340. 3490 POKE 780,1:POKE 781,DV:POKE 782,0:SYS 65466
  341. 3500 FOR I=1 TO LEN(CF$):POKE 999+I,ASC(MID$(CF$,I,1)):NEXT
  342. 3510 POKE 780,LEN(CF$):POKE 781,232:POKE 782,3:SYS 65469
  343. 3520 POKE 780,0:POKE 781,0:POKE 782,112:SYS 65493
  344. 3530 (null) DV>8 THEN DF=VAL((null)(DV))
  345. 3540 (null) DF<>0 OR (ST AND (255-64))<>0 THEN (null) "[196]ISK[204]OAD[197]RR"
  346. 3550 (null) 4 CLOSE
  347. 3560 (null) 2 (null)
  348. 3570 (null) NOT UI% THEN (null) 1,13:PRINT "[156][198]ILE:[146]";CF$
  349. 3580 RETURN
  350. 3590 :
  351. 3600 (null) "[196]ISK[204]OAD[197]RR"
  352. 3610 (null) 2,4:PRINT "[208]ROBLEM LOADING [198]ILE. "
  353. 3620 (null) 2,5:PRINT "[208]RESS BUTTON TO [195]ONTINUE"
  354. 3630 UI%=-1
  355. 3640 (null) "[203]EY[211]WITCH"
  356. 3650 RETURN
  357. 3660 :
  358. 3670 (null) "[204]OAD[213]P[195]HAR"
  359. 3680 RA%=CD%
  360. 3690 (null) (CD%>=64 AND CD%<=95) OR (CD%>=160 AND CD%<=191) THEN RA%=CD%-64
  361. 3700 (null) (CD%>=96 AND CD%<=127) THEN RA%=CD%-32
  362. 3710 (null) SE%=2 THEN RA%=RA%+256
  363. 3720 (null) RV$="Y" THEN RA%=RA%+128
  364. 3730 RA%=28672+RA%*8
  365. 3740 FOR I=0 TO 7
  366. 3750 SP(I+1)=PEEK(RA%+I)
  367. 3760 NEXT I
  368. 3770 (null) "[199][213]P[196]ATE"
  369. 3780 (null) "[213]P[196]ATE"
  370. 3790 RETURN
  371. 3800 :
  372. 3810 (null) "[211]AVE[195][211]ET"
  373. 3820 (null) 4 OPEN 5,10
  374. 3830 PRINT "[147]   [195]HARACTER [211]ET [198]ILE [211]AVE"
  375. 3840 UI%=0
  376. 3850 (null)
  377. 3860 (null) 2,2:INPUT "[198]ILE:";CF$
  378. 3870 (null) (null) CF$=""
  379. 3880 (null) DV,"S0:"+CF$
  380. 3890 POKE 780,1:POKE 781,DV:POKE 782,0:SYS 65466
  381. 3900 FOR I=1 TO LEN(CF$):POKE 999+I,ASC(MID$(CF$,I,1)):NEXT
  382. 3910 POKE 780,LEN(CF$):POKE 781,232:POKE 782,3:SYS 65469
  383. 3920 POKE 253,0:POKE 254,112
  384. 3930 POKE 780,253:POKE 781,0:POKE 782,128:SYS 65496
  385. 3940 (null) DV>8 THEN DF=VAL((null)(DV))
  386. 3950 (null) DF<>0 OR (ST AND (255-64))<>0 THEN (null) "[194]AD[211]AVE"
  387. 3960 (null) 4 CLOSE
  388. 3970 (null) 2 (null)
  389. 3980 RETURN
  390. 3990 :
  391. 4000 (null) "[194]AD[211]AVE"
  392. 4010 (null) 2,4:PRINT "[208]ROBLEM SAVING [198]ILE. "
  393. 4020 (null) 2,5:PRINT "[208]RESS BUTTON TO [195]ONTINUE"
  394. 4030 (null) "[203]EY[211]WITCH"
  395. 4040 RETURN
  396. 4050 :
  397. 4060 (null) "[211]PR[196]EF"
  398. 4070 FOR I=0 TO 127
  399. 4080 READ Y
  400. 4090 POKE 52736+I,Y
  401. 4100 NEXT I
  402. 4110 RETURN
  403. 4120 DATA 64,0,1,16,170,4,6,170,144,10,170,160,42,170,168,41,105,104,169,235,106
  404. 4130 DATA169,235,106,169,235,106,170,170,170,170,170,170,170,170,170,170,170,170
  405. 4140 DATA166,170,154,169,85,106,170,85,170,42,170,168,10,170,160,5,0,64,0,0,64
  406. 4150 DATA0,0,80,0
  407. 4160 DATA2,0,128,12,170,32,6,170,144,10,170,160,42,170,168,41,105,104,169,235,106
  408. 4170 DATA169,235,106,169,235,106,170,170,170,170,170,170,170,170,170,170,170,170
  409. 4180 DATA 166,170,154,169,85,106,170,85,170,42,170,168,10,170,160,1,0,80,1,0,0
  410. 4190 DATA 5,0,0,0
  411.