API tools faq
paste
Advertisement
Guest User

BasicNoteIndented

a guest
Jul 29th, 2015
271
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.51 KB | None | 0 0
raw download clone embed print report
  1. :DCS6
  2. "000000003FFC20042CC42AA42CA42AA42CA4200427F420042FF420043FFC0000"
  3. CoordOff:GridOff:AxesOff
  4. 0->Xmin:1->DeltaX
  5. 0->Ymin:1->DeltaY
  6. SetUpEditor TIBN
  7. If not(dim(|LTIBN:Then
  8. " ->Str9
  9. 6->dim(|LTIBN
  10. 0->|LTIBN(1
  11. 1->|LTIBN(2
  12. End
  13. UnArchive Str9
  14. 28->Z
  15. While Z=28 or (A=12 and B=34 and K!=22
  16. DelVar ZClrDraw
  17. Horizontal 52
  18. Horizontal 51
  19. Text(~1,1,1,"BasicNote
  20. StorePic 1
  21. Text(~1,1,32,"Note
  22. RecallPic 1
  23. DelVar Pic1Line(38,4,38,50
  24. Line(94,4,94,50
  25. Line(0,4,0,50
  26. For(A,51,3,~8
  27. Horizontal A
  28. End
  29. Text(12,2,"NEW NOTE
  30. Text(20,2,"DEL ALL
  31. Text(28,2,"OPTIONS
  32. DelVar C1->B
  33. For(A,1,6)
  34. If 6C+A<=|LTIBN(1:Then
  35. Text(8A+4,40,sub(Str9,inString(Str9,"[xhat]T",B)+3,inString(Str9,"[xhat]N",B)-(3+inString(Str9,"[xhat]T",B
  36. 2+inString(Str9,"[xhat]E",B)->B
  37. End
  38. End
  39. 12->A:34->B
  40. Repeat K=22 or Z=28 or (B=90 and |LTIBN(1)>=6C+A/4-F) or (A=12 and B=34
  41. 0->P
  42. Repeat sum(K={22,105,23
  43. 1+int(A/8->F
  44. 1+iPart((|LTIBN(1)-1)/6
  45. Text(3,87+4not(iPart(.1Ans)),Ans
  46. Text(3,75+4not(iPart(.1(C+1))),C+1,"/
  47. getKey->K
  48. Text(A,B,"<
  49. If K:Then
  50. Text(A,B,"
  51. If (K=34 and A=52 and |LTIBN(1)>6C+6) or (K=25 and B=90 and A=12 and C>0:Then
  52. 4(K=34)+60(K=25->A:C+(K=34)-(K=25->C:1->D
  53. For(M,1,6C
  54. 2+inString(Str9,"[xhat]E",D->D
  55. End
  56. For(M,1,6
  57. Text(8M+4,40,"
  58. If |LTIBN(1)>=6C+M:Then
  59. Text(8M+4,40,sub(Str9,inString(Str9,"[xhat]T",D)+3,inString(Str9,"[xhat]N",D)-(3+inString(Str9,"[xhat]T",D
  60. 2+inString(Str9,"[xhat]E",D)->D
  61. End
  62. End
  63. End
  64. A+8(K=34)(A<28)(B=34)-8(K=25)(A>12)+8(K=34)(B=90)(A<52)-(A-28)(K=24)(A>28->A
  65. B+56((K=26)(B=34)-(K=24)(B=90->B
  66. End
  67. Text(A,B,"<
  68. End
  69. If K=105 or K=23:Then
  70. StorePic 1
  71. If B=34 or (K=23 and B=90 and |LTIBN(1)>=6C+A/4-F) or (B=90 and |LTIBN(1)>=6C+A/4-F:Then
  72. If B=34 or (K=23 and B=90):Then
  73. If A=12 and B=34:Then
  74. Str9+"[xhat]T ->Str9
  75. 1+|LTIBN(1->|LTIBN(1
  76. 1->P
  77. End
  78. If A=20 or (K=23 and B=90):Then
  79. Text(12,2,sub("DEL ALL DEL NOTE ",1+11(B=90),11
  80. For(I,20,50,6
  81. Text(I,1,"
  82. End
  83. Text(20,2,"CANCEL
  84. Text(28,2,"CONFIRM
  85. 20->Z
  86. Repeat K=105
  87. Text(Z,34,"<
  88. getKey->K
  89. If Ans:Then
  90. Text(Z,34,"
  91. Z+8((K=34)(Z=20)-(K=25)(Z=28->Z
  92. End
  93. End
  94. If Z=28:Then
  95. If B=34:Then
  96. " ->Str9:0->|LTIBN(1
  97. End
  98. If B=90:Then
  99. inString(Str9,"[xhat]T"->D
  100. For(I,1,6C+A/4-F-1
  101. 2+inString(Str9,"[xhat]E",D->D
  102. End
  103. If 6C+A/4-F=|LTIBN(1:Then
  104. sub(Str9,1,D-1->Str9
  105. Else
  106. sub(Str9,1,D-1)+sub(Str9,inString(Str9,"[xhat]T",D+1),length(Str9)-(~1+inString(Str9,"[xhat]T",D+1->Str9
  107. End
  108. |LTIBN(1)-1->|LTIBN(1
  109. End
  110. Text(52,2,"DELETED
  111. rand(30
  112. End
  113. If Z=20:Then
  114. ClrDraw
  115. RecallPic 1
  116. End
  117. 34->B
  118. End
  119. If A=28:Then
  120. For(I,12,58,8
  121. Text(~1,I,0,"
  122. End
  123. Text(12,13,"ARCHIVE NOTES ON EXIT
  124. Text(50,6,"UNARCHIVED FILES CAN BE
  125. Text(56,11,"SUBJECT TO DELETION
  126. Horizontal 13
  127. For(G,45,45,~6
  128. For(O,5,9
  129. Line(O,G,O,G+4
  130. End
  131. End
  132. DelVar K12->G
  133. Line(6,47,7,46,0
  134. Line(8,47,9,48,0
  135. Repeat K=22
  136. If K=105:Then
  137. If G=12
  138. not(|LTIBN(2->|LTIBN(2
  139. For(O,6,8
  140. Line(O,12-(G-46),O,12-(G-48),|LTIBN(2
  141. End
  142. Pt-On(9,12-(G-48
  143. If |LTIBN(2:Then
  144. Line(6,47,7,46,0
  145. Line(8,47,9,48,0
  146. End
  147. End
  148. Text(G,1,">
  149. Repeat sum(Ans={22,25,34,105
  150. getKey->K
  151. End
  152. Text(A,1,"
  153. End
  154. ClrDraw
  155. RecallPic 1
  156. End
  157. End
  158. DelVar K
  159. If P or B=90:Then
  160. inString(Str9,"[xhat]T->D
  161. If P:|LTIBN(1)-1
  162. If not(P:6C+A/4-F-1
  163. For(E,1,Ans
  164. 2+inString(Str9,"[xhat]E",D->D
  165. End
  166. ClrDraw
  167. Horizontal 55
  168. DelVar XDelVar RDelVar SDelVar C
  169. Text(0,69+4not(iPart(.1(C+1))),C+1
  170. Text(0,77,"/87
  171. Line(89,55,89,62
  172. Line(67,55,67,62
  173. If not(P:Then
  174. Text(56,30,"Rendering..
  175. sub(Str9,D+2,inString(Str9,"[xhat]N",D)-D-2->Str6
  176. Text(0,1,Ans
  177. sub(Str9,inString(Str9,"[xhat]N",D)+2,inString(Str9,"[xhat]E",D)-(2+inString(Str9,"[xhat]N",D->Str7
  178. For(G,1,1+int((length(Str7)-3)/23
  179. If G=9:Text(56,30,"
  180. If length(Str7)>2:Then
  181. 23->theta
  182. If length(Str7)<23G:length(Str7)-23(G-1->theta
  183. For(O,1,8+int(3.87Ans),4
  184. If theta=23 or 23(G-1)+(O-1)/4<length(Str7
  185. sub(Str7,23G-20-2(O>5)+int(O/4)(23G-20-2(O>5)+int(O/4)<=length(Str7)),1
  186. If Ans="
  187. "
  188. If O>5 and not(inString("wm",Ans)) and (theta=23 or 23(G-1)+(O-1)/4<length(Str7
  189. Text(6G+2,O-8,Ans
  190. If inString("wm",Ans:Then
  191. Text(6G+2,O-8,sub("WM",inString("wm",Ans),1
  192. Line(O,61-(6G+2),O+2,61-(6G+2),0
  193. Pt-Off(O+1,60-(6G+2
  194. End
  195. End
  196. End
  197. End
  198. Text(56,30,"
  199. End
  200. DelVar B8->A
  201. Lbl TT
  202. If P or K=11:Then
  203. " ->Str7
  204. " ->Str6
  205. Repeat length(Str6)>1 and (K=34 or K=105
  206. If 1=length(Str6
  207. Text(0,1,"ENTER TITLE
  208. Repeat Ans
  209. getKey->K
  210. End
  211. Ans-20-5int(.1Ans
  212. If 12>length(Str6) and 0<Ans and Ans<29 and K!=44 and K!=45:Then
  213. If 1=length(Str6
  214. Text(0,1,"
  215. Str6+sub("ABC DEFGHIJKLMNOPQRSTUVWXYZ",Ans,1->Str6
  216. End
  217. If K=23 and length(Str6)>1:Then
  218. sub(Str6,1,length(Str6)-1->Str6
  219. Text(0,1,Str6+"
  220. End
  221. If K=45:Then
  222. " ->Str6
  223. Text(0,1,"
  224. End
  225. Text(0,1,Str6
  226. End
  227. End
  228. If P
  229. Str9+sub(Str6,2,length(Str6)-1)+"[xhat]N[xhat]E->Str9
  230. If not(P
  231. sub(Str9,1,D+2)+sub(Str6,2,length(Str6)-1)+sub(Str9,inString(Str9,"[xhat]N",D),length(Str9)+1-inString(Str9,"[xhat]N",D->Str9
  232. 0->P
  233. Repeat K=22 or K=11
  234. Repeat Ans
  235. Line(B,61-A,B,57-A
  236. getKey->K
  237. Line(B,61-A,B,57-A,0
  238. End
  239. If Ans=21 or Ans=31:Then
  240. If Ans=21:Then
  241. DelVar Rnot(S->S
  242. If S:Then
  243. Text(0,91,"2
  244. Else
  245. Text(0,91,"
  246. End
  247. End
  248. If Ans=31:Then
  249. If not(R:3->R
  250. DelVar SR-1->R
  251. If R:Then
  252. Text(0,91,"A
  253. If R<2
  254. Text(0,91,"a
  255. Else
  256. Text(0,91,"
  257. End
  258. End
  259. End
  260. If X and (not(S) or (S and not(sum(K={24,25,26,34:Then
  261. For(theta,48,0,~6
  262. Line(0,theta,94,theta,0
  263. End
  264. DelVar XDelVar M
  265. End
  266. If K>=41 and K<=104:Then
  267. If R:sub("abc defghijklMnopqrstuvWxyztheta' :?ABC DEFGHIJKLMNOPQRSTUVWXYZtheta' :?",1+34(R-1),34
  268. If S:" |E{}[e] [ ] [i]
  269. If not(R) and not(S:"= ^ ,()/ 789plotdot 456-\>123+ 0.~
  270. If " "!=sub(Ans,K-20-5int(.1K),1) or (K=102 and R:Then
  271. sub(Ans,K-20-5int(.1K),1->Str8
  272. If B>89 and A<54:DelVar BA+6->A
  273. Text(A,B+1,"
  274. Text(A,B+1,Str8
  275. End
  276. If R=1 and inString("WM",Str8:Then
  277. Line(B+1,61-A,B+3,61-A,0
  278. Pt-Off(B+2,60-A
  279. sub("wm",inString("WM",Str8),1->Str8
  280. End
  281. 23int(A/6-1)+B/4+2->theta
  282. If Ans=length(Str7:Then
  283. Str7+Str8->Str7
  284. Else
  285. sub(Str7,1,theta)+Str8
  286. If theta+1<length(Str7
  287. Ans+sub(Str7,theta+2,length(Str7)-theta-1
  288. Ans->Str7
  289. End
  290. B+4->B
  291. End
  292. If sum(K={24,25,26,34:Then
  293. If A>8 and K=24 and not(B:Then
  294. 92->B:A-6->A
  295. End
  296. If not(S:Then
  297. B+4((K=26)(B<92)(length(Str7)>23int(A/6-1)+B/4+2)-(K=24)(B>0->B
  298. A+6((K=34)(A<54)(length(Str7)>=23int(A/6)+1)-(K=25)(A>8->A
  299. End
  300. If B=92 and A<54 and K=26:DelVar BA+6->A
  301. If K=34 and A<54 and 23int(A/6-(length(Str7)>23int(A/6-2)+(B-4(K-25))/4+1))+(B-4(K-25))/4+2>length(Str7:Then
  302. If S:Line(B,62-A,94,62-A,M=sum(K={26,34
  303. 4((length(Str7)-2)-23int(length(Str7)/23->B
  304. If S:Then
  305. 23int(A/6-1)+Ans/4+2->V
  306. Line(0,56-A,B,56-A,M=sum(K={26,34
  307. End
  308. End
  309. If S:Then
  310. If (length(Str7)>23int(A/6-1)+B/4+2 and K=26) or (K=24 and (B and A=8) or (B!=92 and A=50) or A>8 and A<54:Then
  311. If not(X:Then
  312. sum(K={26,34->M:23int(A/6-1)+B/4+2->X
  313. End
  314. Line(B,62-A-6,B+4((K=26)-(K=24)),62-A-6,M=sum(K={26,34
  315. B+4(K-25->B
  316. 23int(A/6-1)+Ans/4+2->V
  317. If V=X
  318. DelVar XDelVar M
  319. End
  320. End
  321. End
  322. If K=14 and X!=V:Then
  323. If X>V
  324. V+.01X
  325. If V>X
  326. X+.01V
  327. sub(Str9,1,1)+sub(Str7,iPart(Ans)+1,100fPart(Ans)-iPart(Ans))+sub(Str9,2,length(Str9)-1->Str9
  328. End
  329. If sum(K={15,23:Then
  330. If K=23:Then
  331. 23int(A/6)+B/4-21->theta
  332. If not(X) and Ans!=length(Str7) or (X:Then
  333. If not(X:Then
  334. If Ans+1<length(Str7
  335. sub(Str7,1,Ans)+sub(Str7,Ans+2,length(Str7)-Ans-1
  336. If theta+1=length(Str7
  337. sub(Str7,1,theta
  338. End
  339. If X:Then
  340. If X>V
  341. V+.01X->theta
  342. If V>X
  343. X+.01V->theta
  344. If 100fPart(Ans)<length(Str7
  345. sub(Str7,1,iPart(Ans))+sub(Str7,100fPart(Ans)+1,length(Str7)-100fPart(Ans
  346. If 100fPart(theta)=length(Str7
  347. sub(Str7,1,iPart(theta
  348. DelVar XDelVar M
  349. End
  350. Ans->Str7
  351. End
  352. End
  353. If K=15 and "[xhat]T"!=sub(Str9,2,2:Then
  354. sub(Str7,1,23int(A/6)+B/4-21)+sub(Str9,2,inString(Str9,"[xhat]T")-2
  355. If 23int(A/6)+B/4-21<length(Str7
  356. Ans+sub(Str7,23int(A/6)+B/4-20,abs(23int(A/6)+B/4-21-length(Str7
  357. Ans->Str7
  358. End
  359. For(G,int(A/6),1+int((length(Str7)-1)/23
  360. Text(6G+2,(B+1)(G=int(A/6))+(G>int(A/6)),"
  361. If length(Str7)>2:Then
  362. 23->theta
  363. If length(Str7)<23G:length(Str7)-23(G-1->theta
  364. For(O,(B+1)(G=int(A/6))+(G>int(A/6)),8+int(3.87Ans),4
  365. If theta=23 or 23(G-1)+(O-1)/4<length(Str7
  366. sub(Str7,23G-20-2(O>5)+int(O/4)(23G-20-2(O>5)+int(O/4)<=length(Str7)),1
  367. If Ans="
  368. "
  369. If O>5 and not(inString("wm",Ans)) and (theta=23 or 23(G-1)+(O-1)/4<length(Str7
  370. Text(6G+2,O-8,Ans
  371. If inString("wm",Ans:Then
  372. Text(6G+2,O-8,sub("WM",inString("wm",Ans),1
  373. Line(O,61-(6G+2),O+2,61-(6G+2),0
  374. Pt-Off(O+1,60-(6G+2
  375. End
  376. End
  377. End
  378. End
  379. If 23int(A/6)+B/4-21>length(Str7:Then
  380. 2+6(1+int((length(Str7)-1)/23->A
  381. 4((length(Str7)-2)-23int(length(Str7)/23->B
  382. End
  383. End
  384. End
  385. If K=11:Goto TT
  386. 0->K
  387. ClrDraw
  388. sub(Str9,1,inString(Str9,"[xhat]N",D)+1)+Str7+sub(Str9,inString(Str9,"[xhat]E",D),length(Str9)+(1-inString(Str9,"[xhat]E",D->Str9
  389. DelVar C12->A:34->B:2->F
  390. End
  391. End
  392. End
  393. End
  394. End
  395. If K!=22:Pause
  396. DelVar Pic1DelVar Str6DelVar Str7DelVar Str8ClrDraw
  397. If |LTIBN(2:Archive Str9
  398. Archive |LTIBN
  399. ClrHome
  400. Output(1,1,"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!