home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 233 / 233.d81 / 643in1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2003-01-01  |  8.1 KB  |  292 lines
  1. 1 rem a$="643in1":open15,8,15,"s0:"+a$:     close15:savea$,8:verifya$,8
  2. 2 poke788,52:rembypass clock-stop check
  3. 10 xm=319:xc=xm/2:op=0:o=op:sa=24576
  4. 20 ym=199:yc=ym/2:c=-100:pt=1:ea=sa+7999:dn=peek(186):cp=0:sn=1:fp=0
  5. 22 ed$=".....end of line."
  6. 24 ed$=ed$+""
  7. 30 gosub6000:gosub9000
  8. 100 rem *** main ***
  9. 110 gosub8000
  10. 120 rem *** mainloop ***
  11. 130 e$="":print"";:gete$:ife$=""then130
  12. 140 gosub7000
  13. 150 goto120
  14. 200 rem *** reverse screen ***
  15. 250 fori=satoea
  16. 255 e$="":gete$:ife$="^"then299
  17. 260 pokei,255-peek(i)
  18. 280 nexti
  19. 290 getc$:ifc$=""then290
  20. 299 return
  21. 999 end
  22. 1000 rem *** 64 3in1 3.14 nexus ***
  23. 1001 poke53280,5
  24. 1100 for v= 1 to yc
  25. 1110 for n=-v to v
  26. 1120 c=c+.05
  27. 1124 if fp=0 then pt=1
  28. 1126 if fp=1 then pt=pt+1:if pt>1 then pt=0
  29. 1128 if  b=1 then e=e+1:if int(e/2)*2=e then v=-v
  30. 1130 x=int(xc+c*sin(n/(v/180)*3.14))
  31. 1140 y=int(yc-c*cos(n/(v/180)*3.14))
  32. 1150 if x>xm or x<0 or y>ym or y<0 then 1180
  33. 1170 gosub4000
  34. 1172 e$="":gete$:ife$="^"then1199
  35. 1180 v=abs(v)
  36. 1190 next n:next v
  37. 1191 poke53280,2
  38. 1192 c$="":getc$:ifc$=""then1192
  39. 1199 e=0:return
  40. 2000 rem *** 64 3in1 three nexus ***
  41. 2001 poke53280,5
  42. 2100 for v= 1 to yc
  43. 2110 for n=-v to v
  44. 2120 c=c+.05
  45. 2124 if fp=0 then pt=1
  46. 2126 if fp=1 then pt=pt+1:if pt>1 then pt=0
  47. 2128 if  b=1 then e=e+1:if int(e/2)*2=e then v=-v
  48. 2130 x=int(xc+c*sin(n/(v/180)*3))
  49. 2140 y=int(yc-c*cos(n/(v/180)*3))
  50. 2150 if x>xm or x<0 or y>ym or y<0 then 1180
  51. 2160 iffp=1thenpt=pt+1:ifpt>1thenpt=0
  52. 2162 iffp=0thenpt=1
  53. 2170 gosub4000
  54. 2172 e$="":gete$:ife$="^"then2199
  55. 2180 v=abs(v)
  56. 2190 next n:next v
  57. 2191 poke53280,2
  58. 2192 c$="":getc$:ifc$=""then2192
  59. 2199 e=0:return
  60. 3000 rem *** 64 3in1 rose nexus ***
  61. 3001 poke53280,5
  62. 3100 for v= 1 to yc
  63. 3110 for n=-v to v
  64. 3120 c=c+.05
  65. 3124 if fp=0 then pt=1
  66. 3126 if fp=1 then pt=pt+1:if pt>1 then pt=0
  67. 3128 if  b=1 then e=e+1:if int(e/2)*2=e then v=-v
  68. 3130 x=int(xc+c*sin(n/(v/180)*(NULL)))
  69. 3140 y=int(yc-c*cos(n/(v/180)*(NULL)))
  70. 3150 if x>xm or x<0 or y>ym or y<0 then 1180
  71. 3160 iffp=1thenpt=pt+1:ifpt>1thenpt=0
  72. 3162 iffp=0thenpt=1
  73. 3170 gosub4000
  74. 3172 e$="":gete$:ife$="^"then3199
  75. 3180 v=abs(v)
  76. 3190 next n:next v
  77. 3191 poke53280,2
  78. 3192 c$="":getc$:ifc$=""then3192
  79. 3199 e=0:return
  80. 4000 rem *** plot ***
  81. 4010 ifx>xmorx<0ory>ymory<0then4999
  82. 4020 ch=int(x/8):ro=int(y/8):ln=yand7
  83. 4030 by=sa+ro*320+8*ch+ln:bi=7-(xand7)
  84. 4040 ifpt=1thenpokeby,peek(by)or(2^bi)
  85. 4050 ifpt=0andpeek(by)=(peek(by)or(2^bi))thenpokeby,peek(by)-(2^bi)
  86. 4999 return
  87. 5000 rem *** setup hires ***
  88. 5010 poke53265,peek(53265)or32
  89. 5012 poke56576,150
  90. 5014 poke648,92
  91. 5016 poke53272,121
  92. 5020 ifcp=0thenfori=23552to24551:pokei,1:nexti:cp=1
  93. 5030 if op=0thenfori=satoea:pokei,0:nexti
  94. 5040 return
  95. 6000 rem *** text mode ***
  96. 6010 poke53265,peek(53265)and223
  97. 6012 poke56576,151
  98. 6013 poke648,4
  99. 6014 poke53272,21
  100. 6020 poke53281,0:poke53280,11:poke646,1
  101. 6030 return
  102. 7000 rem *** read keys *****
  103. 7010 ife$="1"thengosub5000:gosub1000
  104. 7020 ife$="2"thengosub5000:gosub3000
  105. 7030 ife$="3"thengosub5000:gosub2000
  106. 7040 ife$="4"thenop=1:gosub5000:op=o:gosub200
  107. 7050 ife$="5"thenop=op+1:o=op:ifop>1thenop=0:o=op
  108. 7060 ife$="6"thenop=0:gosub5000:op=o
  109. 7070 ife$="7"thenfp=fp+1:iffp>1thenfp=0
  110. 7080 ife$="8"thenprint"enter c value ";:f=1:gosub20000:c=val(f$):f=0
  111. 7090 ife$="9"thenb=b+1:ifb>1thenb=0
  112. 7091 remife$="9"thenprint"set step value ";:f=1:gosub20000:sn=abs(val(f$)):f=0
  113. 7092 ifsn>319thensn=1
  114. 7100 ife$="0"thenop=1:gosub5000:e$="":op=o:goto7120
  115. 7104 ife$="/"thengosub30000
  116. 7106 ife$="q"thenprinted$:poke788,49:goto40000
  117. 7108 ife$="s"thengosub10000
  118. 7109 ife$="?"thengosub50000
  119. 7110 gosub6000:gosub8000
  120. 7120 return
  121. 8000 rem *** menu ***
  122. 8008 poke53281,0:poke53280,11:poke646,1
  123. 8010 print"[147][144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  124. 8012 print"[155] 3 in 1 [206]exus, [204]otus [206]exus, [146]"
  125. 8013 print"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  126. 8018 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  127. 8020 print"[155] and [202][198][212][200][207][201] [206]exus [146]"
  128. 8022 print"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  129. 8030 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  130. 8032 print"[155] by [194]rian [195]rosthwaite [146]"
  131. 8034 print"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  132. 8040 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  133. 8042 print"[155]press....                 ? to what "
  134. 8050 print"  1 3 in 1 [206]exus 3.14     / drive # "
  135. 8060 print"  2 [204]otus [206]exus [208][201]                  "
  136. 8062 print"[146] [196][206] ="dn"[157] "
  137. 8070 print"  3 [202][198][212][200][207][201] (3)                      "
  138. 8080 print"  4 reverse plot screen             "
  139. 8090 print"  5 toggle over plot      [146] [207][208] ="op"  "
  140. 8100 print"  6 clear plot screen               "
  141. 8110 print"  7 false/true plot                 "
  142. 8112 print"[146] [198][208] ="fp"[157] "
  143. 8120 print"  8 set c                           "
  144. 8122 print"[146] [195] ="c"[157] "
  145. 8130 print"  9 mirror                [211] to save "
  146. 8132 print"[146] [205] ="b"[157] "
  147. 8140 print"  0 view        ^ menu    [209] to quit "
  148. 8142 print"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  149. 8150 return
  150. 8888 ____zzzzzpz]zz::a+++++++++++++aaa+qqqqqqqqqq/:::::print
  151. 9000 rem *** opening screens ***
  152. 9010 print"[147][159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  153. 9020 print"[154] [202] & [198] [208]ublishing [146]"
  154. 9030 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  155. 9040 print"[159][164][164][164]"
  156. 9050 print"[154] & [146]"
  157. 9060 print"[163][163][163]"
  158. 9070 print"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  159. 9080 print"[154] noesiscreation.org [146]"
  160. 9090 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  161. 9100 print"[159][164][164][164][164][164][164][164][164][164]"
  162. 9110 print"[154] present [146]"
  163. 9120 print"[163][163][163][163][163][163][163][163][163]"
  164. 9130 print"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  165. 9140 print"[154] 3 in 1 [206]exus, [204]otus [206]exus, [146]"
  166. 9150 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  167. 9160 print"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  168. 9170 print"[154] and [202][198][212][200][207][201] (3)  [146]"
  169. 9180 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  170. 9190 print"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  171. 9200 print"[154] by [194]rian [195]rosthwaite [146]"
  172. 9210 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  173. 9212 poke53370,0
  174. 9214 fortd=0to4000
  175. 9215 c$="":getc$:ifc$<>""then9218
  176. 9216 nexttd
  177. 9218 poke53371,0
  178. 9220 print"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  179. 9230 print"[153] [195]opyright 2004 [146]"
  180. 9240 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  181. 9250 print"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  182. 9260 print"[153] by [194]rian [195]rosthwaite [146]"
  183. 9270 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  184. 9272 print"[158][164][164][164]"
  185. 9274 print"[153] & [146]"
  186. 9276 print"[163][163][163]"
  187. 9280 print"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  188. 9290 print"[153] [202] & [198] [208]ublishing [146]"
  189. 9300 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  190. 9310 print"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  191. 9320 print"[153] [193]ll [210]ights [210]eserved. [146]"
  192. 9330 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  193. 9332 poke53370,0
  194. 9334 fortd=0to4000
  195. 9335 c$="":getc$:ifc$<>""then9338
  196. 9336 nexttd
  197. 9338 poke53371,0
  198. 9400 return
  199. 10000 rem *** save doodle ***
  200. 10010 a1=int(sa/256):a2=sa-256*a1
  201. 10012 s2=23552:ce=1023
  202. 10014 a3=int(s2/256):a4=s2-256*a3
  203. 10020 print"enter file name ";:gosub20000
  204. 10021 print"[147][158]saving",f$
  205. 10022 iff$=""then10110
  206. 10030 open15,dn,15,"s0:"+f$
  207. 10040 open1,dn,1,"0:"+f$+",p,w"
  208. 10050 print#1,chr$(a4);chr$(a3);
  209. 10055 forj=00toce:print#1,chr$(1);:nextj
  210. 10060 forj=satoea:print#1,chr$(peek(j));
  211. 10070 nextj
  212. 10090 close1:
  213. 10100 input#15,a$,b$:print"[147]"a$,b$:close15
  214. 10101 print"[208]ress <<[210][197][212][213][210][206]>> to continue."
  215. 10106 c$="":getc$:ifc$=""then10106
  216. 10110 return
  217. 20000 rem *** kb input ***
  218. 20010 rem a$="inkey64.0000":savea$,8:verifya$,8
  219. 20020 a$="":k=0:f$="":rem print"[147]enter file name to save:[159]";
  220. 20030 k$="":getk$:ifk$=""then20030
  221. 20040 ifk$=chr$(20)andf$<>""thenf$=left$(f$,len(f$)-1):k=k-1:goto20130
  222. 20050 iff$=""andk$=chr$(13)then20190
  223. 20060 ifk$=chr$(13)then20170
  224. 20070 ifk$="/"ork$="*"ork$="?"ork$=chr$(34)ork$="$"then20030
  225. 20080 ifk$="@"ork$="="then20030
  226. 20090 ifk$="[145]"ork$=""ork$="[157]"ork$=":"ork$=""then20030
  227. 20100 ifk$=","ork$=":"ork$=";"ork$=chr$(147)ork$=""then20030
  228. 20110 ifk$=chr$(148)then20030
  229. 20120 ifk$=chr$(20)andf$=""then20030
  230. 20130 ifk>14thenk=14:goto20030
  231. 20140 ifk<14thenk=k+1:goto20150
  232. 20142 goto20030
  233. 20150 ifk<=14thenprintk$;:ifk$<>chr$(20)thenf$=f$+k$
  234. 20160 goto20030
  235. 20170 iff$=""thengoto20200
  236. 20180 iff=0thenf$="dd"+f$
  237. 20190 iff=1theniff$>="a"then20030
  238. 20200 return
  239. 30000 rem *** logged drive ***
  240. 30010 rem dn=peek(186)
  241. 30020 print"[147][158][208]ress <</>> to change dn ([153]"dn"[158]),":print"<<[210][197][212][213][210][206]>> to continue."
  242. 30030 e$="":gete$:ife$=""then30030
  243. 30040 ife$<>"/"ande$<>chr$(13)then30030
  244. 30050 ife$=chr$(13)then30120
  245. 30060 dn=dn+1
  246. 30070 ifdn>30thendn=8
  247. 30080 open15,dn,15,""
  248. 30090 close15
  249. 30100 ifst<>0thenprint"[147][158]                       ([153]"dn"[158])":goto30060
  250. 30110 goto30020
  251. 30120 print"[147]":return
  252. 40000 fori=0to21:poke828+i,8+i:next
  253. 40010 ifdv<8ordv>29ordv=8then40030
  254. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  255. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  256. 40040 close2:open2,i,2:close2:ifstthen40060
  257. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  258. 40060 next:print"[147]":poke53272,23:poke186,8:end
  259. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  260. 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
  261. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  262. 50000 rem more mathematical madness!
  263. 50010 print"[147]what?!?!??";chr$(142)
  264. 50011 print" more mathematical madness!":fortd=0to999:next
  265. 50014 print""
  266. 51001 print" knunexus uno:"
  267. 51100 print" for v = 1 to 75 step 1
  268. 51110 [153]" for n = 0 to  v step sn
  269. 51120 print" c=c+.05
  270. 51130 [153]" x=v*sin(n/(  c/.5)*(NULL))
  271. 51140 print" y=v*cos(n/(1000/c)*[255])
  272. 51180 [153]" next n
  273. 51190 print" next v
  274. 52001 [153]"print knunexus ii:"
  275. 52100 [153]" for v = 75 to 1 step -1
  276. 52110 print" for n =  v to 0 step -1
  277. 52120 [153]" c=c+.05
  278. 52130 print" x=v*sin(n/(  c/.5)*[255])
  279. 52140 [153]" y=v*cos(n/(1000/c)*(NULL))
  280. 52180 print" next n
  281. 52190 [153]" next v
  282. 53001 print"[154] knunexus iii:"
  283. 53100 print" for v= 1 to 75 step 1
  284. 53110 [153]" for n=-v to  v step sn
  285. 53120 print" c=c+.05
  286. 53130 [153]" x=v*sin(n/(  c/.5)*(NULL))
  287. 53140 print" y=v*cos(n/(1000/c)*[255])
  288. 53180 [153]" next n
  289. 53190 print" next v
  290. 59800 e$[178]"":[161]e$:[139]e$[178]""[167]59800
  291. 59999 [142]
  292.