home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 48 / 048side1.d81 / shapesquare (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  327 lines
  1. 1 rem--- shapesquare by david ben-zur---
  2. 3 ifa=0thena=1:load"shapesquare.font",8,1
  3. 4 ifa=1thena=2:load"ss",8,1
  4. 10 poke53272,19 :v=53248
  5. 20 dim p$(16),a(16),b(16),c(16),d(16)
  6. 30 dn$=""
  7. 40 sq$="[221]                        [221]"
  8. 100 print"[147]** shapesquare **":poke53281,0 :poke53280,14
  9. 102 m=54272
  10. 103 for r=m to m+24:poke r,0:next
  11. 105 a(1)=1187:a(2)=1192:a(3)=1197:a(4)=1202
  12. 106 a(5)=1387:a(6)=1392:a(7)=1397:a(8)=1402
  13. 107 a(9)=1587:a(10)=1592:a(11)=1597:a(12)=1602
  14. 108 a(13)=1787:a(14)=1792:a(15)=1797:a(16)=1802
  15. 110 m1$= "[159] [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]"
  16. 120 m2$=" [221]    [221]    [221]    [221]    [221]"
  17. 130 m3$=" [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
  18. 140 m4$=" [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]"
  19. 150 printm1$
  20. 160 for ii =1 to 3:gosub 200:print m3$:next:gosub 200:printm4$
  21. 180 goto 300
  22. 200 for i=1 to 4:printm2$:next :return
  23. 300 print"
  24. 500 [143] --- figures ----
  25. 501 [143]     -------
  26. 510 f$(1)[178]"cdescmdcmdcmdcmd#$%&cmdcmdcmdcmdlenstr$valasccmdcmdcmdcmdtab(tofnspc("
  27. 520 f$(2)[178]"ghijcmdcmdcmdcmd'()*cmdcmdcmdcmdchr$left$right$mid$cmdcmdcmdcmdthennotstep+"
  28. 530 f$(3)[178]"klmncmdcmdcmdcmd+,-.cmdcmdcmdcmd(NULL)(NULL)(NULL)(NULL)cmdcmdcmdcmd-*/^"
  29. 540 f$(4)[178]"opqrcmdcmdcmdcmd/(NULL)(NULL)(NULL)cmdcmdcmdcmd(NULL)(NULL)(NULL)(NULL)cmdcmdcmdcmdandor>="
  30. 542 f$(5)[178]"    cmdcmdcmdcmd    cmdcmdcmdcmd    cmdcmdcmdcmd    "
  31. 543 no$[178]"ortan^cmdcmdcmd(NULL)(NULL)cmdcmdcmd/tanexp"
  32. 545 [143] --------- places ----
  33. 546 [143]           ------
  34. 550 p$(1)[178]""
  35. 560 p$(2)[178]""
  36. 570 p$(3)[178]""
  37. 580 p$(4)[178]""
  38. 590 p$(5)[178]""
  39. 600 p$(6)[178]""
  40. 610 p$(7)[178]""
  41. 620 p$(8)[178]""
  42. 630 p$(9)[178]""
  43. 640 p$(10)[178]""
  44. 650 p$(11)[178]""
  45. 660 p$(12)[178]""
  46. 670 p$(13)[178]""
  47. 680 p$(14)[178]""
  48. 690 p$(15)[178]""
  49. 700 p$(16)[178]""
  50. 800 [143] --- print on screen ----
  51. 801 [143]     ---------------
  52. 805 [153],,,""f$(2)"ononwait"no$"cmdcmdon2"
  53. 810 [153],,"ononon"f$(1)"ononwait"no$"cmdcmdon1"
  54. 820 [153],,,""f$(4)"ononwait"no$"cmdcmdon4"
  55. 830 [153],,"ononon"f$(3)"ononwait"no$"cmdcmdon3"
  56. 900 [153],,"deff1wait-red  f3wait-green"
  57. 910 [153],,"contf5wait-blue sysf7wait-yellow"
  58. 920 [153],,"move with"
  59. 930 [153],,"crsr keys"
  60. 950 [153],,"printpress list abtuav "
  61. 960 [153],,"printto check screen."
  62. 2000 [143] --- sprite location ---
  63. 2001 [143]     ---------------
  64. 2010 [151]646,10
  65. 2020 xp[178]32:yp[178]68
  66. 2030 [151] v,xp:[151] v[170]1,yp
  67. 2040 [151] 2040,11
  68. 2050 [129] i[178]0 [164] 62:[135] a
  69. 2060 [151] 704[170]i,a : [130] i
  70. 2070 [151] v[170]21,1:[151]v[170]39,10:[143] color
  71. 2080 [151]v[170]1,yp:[143] y pos
  72. 2090 [151]v[170]16,0:[151] v,xp  :[143] x pos
  73. 2095 [151]v[170]29,1:[151] v[170]23,1:[143] expand
  74. 2100 [151]v[170]21,1:[151] v,xp:[151] v[170]1,yp
  75. 2110 [143] --- main loop -----
  76. 2111 [143]     ---------
  77. 2112 [161] k$
  78. 2114 ch[178][181](xp[172]yp[173]100):[141]5000
  79. 2115 jv[178][194](56320):fr[178]jv[175]16:jv[178]15[171](jv[175]15)
  80. 2120 [139]jv[178]8 [176] k$[178]""[176] k$[178]"l"[167] xp[178]xp[170]40:[141] 7000
  81. 2125 [139] xp[177]152 [167] xp[178]152
  82. 2140 [139]jv[178]4[176]k$[178]"cmd"[176] k$[178]"j"[167] xp[178]xp[171]40:[141] 7000
  83. 2150 [139] xp[179]32 [167] xp[178]32
  84. 2155 [139] k$[178]"q"[167] [141] 22000
  85. 2157 [139] k$[178]" "[167][158]886:[141]40000:[141]30000:[158]907
  86. 2160 [139]jv[178]2 [176]  k$[178]""[176] k$[178]"m"[167] yp[178]yp[170]40:[141] 7000
  87. 2170 [139] yp[177]188 [167] yp[178]188
  88. 2180 [139]jv[178]1 [176] k$[178]"on"[176] k$[178]"i"[167] yp[178]yp[171]40:
  89. 2190 [139] yp[179]68 [167] yp[178]68
  90. 2200 [139] k$[178]"e" [167] c6[178][194](646): [141]5000:[153] p$(b)"open"f$(5):[151]646,c6
  91. 2205 [139] k$[178]"x" [167] [138]
  92. 2210 [151]v[170]21,1:[151] v,xp:[151] v[170]1,yp
  93. 2220 :
  94. 2300 [139]k$[178]"1" [167] z[178]1:[141] 6000
  95. 2310 [139]k$[178]"2" [167] z[178]2:[141] 6000
  96. 2320 [139]k$[178]"3" [167] z[178]3:[141] 6000
  97. 2340 [139]k$[178]"4" [167] z[178]4:[141] 6000
  98. 2410 [139] k$[178]"input" [167] [151]v[170]39,10 :[151]646,10:[141] 6000
  99. 2420 [139] k$[178]"dim" [167] [151] v[170]39,5: [151]646,5:[141] 6000
  100. 2430 [139] k$[178]"read" [167] [151] v[170]39,14: [151]646,14:[141] 6000
  101. 2440 [139] k$[178]"let" [167] [151] v[170]39,7:[151]646,7:[141] 6000
  102. 2500 [139] fr[179][177]16 [167] [141] 5000:[141]6000 :[143] fire
  103. 2509 [139] k$[178][199](13) [167] [141] 10000:[139]lo[178]16[167]  [141]20000:[137] 3000    :[143]--
  104. 2510 [139] k$[178][199](13) [167] [141] 10035:[141]20000:[137] 3000:[143]--
  105. 2520 [139] k$[178][199](13) [167] [141] 10035:[139]lo[179][177]0[167] [141] 14000:[143]--cr
  106. 3000 lo[178]0:  [137]2110
  107. 5000 [143] ---- check sprite location ---
  108. 5001 [143]      ---------------------
  109. 5010 [139] ch[178]21 [167] b[178]1
  110. 5020 [139] ch[178]48 [167] b[178]2
  111. 5030 [139] ch[178]76 [167] b[178]3
  112. 5040 [139] ch[178]103 [167] b[178]4
  113. 5050 [139] ch[178]34 [167] b[178]5
  114. 5060 [139] ch[178]77 [167] b[178]6
  115. 5070 [139] ch[178]120 [167] b[178]7
  116. 5080 [139] ch[178]164 [167] b[178]8
  117. 5090 [139] ch[178]47 [167] b[178]9
  118. 5100 [139] ch[178]106 [167] b[178]10
  119. 5110 [139] ch[178]165 [167] b[178]11
  120. 5120 [139] ch[178]224 [167] b[178]12
  121. 5130 [139] ch[178]60 [167] b[178]13
  122. 5140 [139] ch[178]135 [167] b[178]14
  123. 5150 [139] ch[178]210 [167] b[178]15
  124. 5160 [139] ch[178]285 [167] b[178]16
  125. 5170 mh[178][194](646):[153]dn$;"print      press spaceprint for more commands  ":[151]646,mh
  126. 5200 [141] 7000
  127. 5300 [142]
  128. 6000 [143] --- print figure ----
  129. 6001 [143]     ------------
  130. 6005 [153] p$(b) f$(z)
  131. 6010 [142]
  132. 7000 [143]-- check figure ---
  133. 7001 [143]   ------------
  134. 7005 [139][194](a(b))[178]32 [167] z[178]5: [142]
  135. 7010 [139] [194](a(b))[178]164 [167] z[178]1
  136. 7020 [139] [194](a(b))[178]168 [167] z[178]2
  137. 7030 [139] [194](a(b))[178]172 [167] z[178]3
  138. 7040 [139] [194](a(b))[178]214 [167] z[178]4
  139. 7050 [142]
  140. 9000 [143] --- sprite data ----
  141. 9001 [143]     ---------------
  142. 9010 [131] 0,0,0,0,0,0,31,255
  143. 9020 [131] 248,16,0,8,16,0,8,16
  144. 9030 [131] 0,8,16,0,8,16,0,8
  145. 9040 [131] 16,0,8,16,0,8,16,0
  146. 9050 [131] 8,16,0,8,16,0,8,16
  147. 9060 [131] 0,8,16,0,8,16,0,8
  148. 9070 [131] 16,0,8,16,0,8,16,0
  149. 9080 [131] 8,31,255,248,0,0,0,255
  150. 10000 [143] --- check win ---
  151. 10001 [143]     ---------
  152. 10010 [129] i[178]1  [164] 16
  153. 10020 [139] [194](a(i))[178]32 [167] i[178]16:lo[178]16:[142]
  154. 10030 [130]
  155. 10032 [142]
  156. 10035 [143]       ---- _____ ----
  157. 10036 [153]dn$;"  c h e c k i n g . . .  "
  158. 10040 [129] i[178] 1 [164] 13 [169] 4
  159. 10050 [129] j[178] 1 [164] 3
  160. 10060 fk[178][194](a(i)):sk[178][194](a(j[170]i)):[139] fk[178]sk [167] i[178]13:j[178]3:lo[178]1: [142]
  161. 10070 [130]
  162. 10080 [129] j[178]2 [164] 3
  163. 10090 fk[178][194](a(i[170]1)):sk[178][194](a(j[170]1)):[139] fk[178]sk [167] i[178]13:j[178]3:lo[178]1:[142]
  164. 10100 [130]
  165. 10110 fk[178][194](a(i[170]2)):sk[178][194](a(i[170]3)):[139] fk[178]sk[167] i[178]13:lo[178]1:[142]
  166. 10120 :
  167. 11000 [143]        ----- ^^^^^ -----
  168. 11010 [129] ii[178]0 [164] 3
  169. 11020 [129] jj[178]5 [164] 13 [169] 4
  170. 11030 [139] [194](a(ii[170]1))[178][194](a(jj[170]ii))[167] lo[178]2:[142]
  171. 11040 [130]
  172. 11050 [129] jj[178]9 [164] 13 [169] 4
  173. 11060 [139] [194](a(ii[170]5))[178][194](a(jj[170]ii)) [167] lo[178]2:[142]
  174. 11070 [130]
  175. 11080 [139] [194](a(ii[170]9))[178][194](a(ii[170]13))[167] lo[178]2:[142]
  176. 12035 [143]       ---- ___ c ___ ---
  177. 12040 [129] i[178] 1 [164] 13 [169] 4
  178. 12050 [129] j[178] 1 [164] 3
  179. 12060 fk[178][194](a(i)[170]m)[175]15:sk[178][194](a(j[170]i)[170]m)[175]15
  180. 12065 [139] fk[178]sk [167] i[178]13:j[178]3:lo[178]3:[142]
  181. 12070 [130] j
  182. 12080 [129] j[178]2 [164] 3
  183. 12090 f2[178][194](a(i[170]1)[170]m)[175]15:s2[178][194](a(j[170]1)[170]m)[175]15
  184. 12095 [139] f2[178]s2 [167] i[178]13:j[178]3:lo[178]3:[142]
  185. 12100 [130] j
  186. 12110 f3[178][194](a(i[170]2)[170]m)[175]15:s3[178][194](a(i[170]3)[170]m)[175]15
  187. 12115 [139] f3[