home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / PAIN / P__READM.ZIP / P!-READM.PPS < prev    next >
Encoding:
Text File  |  1995-06-09  |  13.9 KB  |  563 lines
  1. ;                          -------------------------
  2. ;                           PAiN!-READ-MESSAGE V1.0
  3. ;                          -------------------------
  4. ;
  5. ;
  6. ;                            (C) 1995 TYGER/PAiN!
  7. ;
  8. ; If you modify you are ok.
  9. ; If you modify and re-distribute you are a fucking poor lamer.
  10. ;
  11.  
  12. string a(11),b(11),s,c,d,cm,ss,cn(1),cm2
  13. integer w,x,y,i,dd,sx,mx,z,sx2
  14. date da
  15. uword f
  16. boolean ok
  17.  
  18. goto st
  19.  
  20. :na
  21. ansipos 11,11
  22. println "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  23. ansipos 11,12
  24. println "@X0F▐@X7F▓ ░▒▓▒     @X70WHiCH USER ?     @X7F░░▒▓@X0F█@X7F▓▒@X08▌"
  25. ansipos 11,13
  26. println "@X0F▐@X7F▒@X78░▄@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X7F▄▓░@X08▌"
  27. ansipos 11,14
  28. println "@X0F▐@X7F░@X78▒@X08▌                             @X0F▐@X7F▒@X78░@X08▌"
  29. ansipos 11,15
  30. println "@X0F▐@X7F @X78▒@X08▌                             @X0F▐@X7F░@X78▒@X08▌"
  31. ansipos 11,16
  32. println "@X0F▐@X78░░@X08▌                             @X0F▐@X7F @X78▓@X08▌"
  33. ansipos 11,17
  34. println "@X0F▐@X78▒ @X7F▀@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X78▀░ @X08▌"
  35. ansipos 11,18
  36. println "@X0F▐@X7F @X78░        @X70< ENTER NAME >           @X08▌"
  37. ansipos 11,19
  38. println "@X08 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  39.  
  40. let cm=""
  41. let sX=0
  42. :lp40
  43. ansipos 15+((26-len(cm))/2),15
  44. if (sx>2) print " @X0F"+left(cm,1)+"@X07"+mid(cm,2,sx-2)+"@X08"+right(cm,1)
  45. if (sx=2) print " @X0F"+"@X07"+left(cm,1)+"@X08"+right(cm,1)
  46. if (sx<2) print " @X0F"+"@X07"+cm
  47. print "@X89▒ "
  48. ansipos 40,1
  49. :lp41
  50. let ss=inkey()
  51. if (ss="") goto lp41
  52. if (ss=chr(13)) goto lp42
  53. if (ss=chr(8)) then
  54. if (sx>1) then
  55. dec sx
  56. let cm=left(cm,len(cm)-1)
  57. goto lp40
  58. endif
  59. if (sx=1) then
  60. let sx=0
  61. let cm=""
  62. goto lp40
  63. endif
  64. if (sx=0) goto lp40
  65. endif
  66. if (ss<" ") goto lp41
  67.  
  68. if (len(ss)=1) then
  69. if (sx<26) then
  70. inc sx
  71. let cm=cm+upper(ss)
  72. endif
  73. goto lp40
  74. endif
  75. goto lp40
  76.  
  77. :lp42
  78. if (cm="") then
  79. cls
  80. goto en
  81. endif
  82.  
  83. ansipos 15,15
  84. print "@X0F                         "
  85. ansipos 23,15
  86. print "@X01SEARCHiNG..."
  87. delay 1
  88. ansipos 23,15
  89. print "@X09SEARCHiNG..."
  90. delay 1
  91. ansipos 23,15
  92. print "@X03SEARCHiNG..."
  93. delay 1
  94. ansipos 23,15
  95. print "@X0BSEARCHiNG..."
  96. delay 1
  97. ansipos 23,15
  98. print "@X8FSEARCHiNG..."
  99. delay 1
  100. let dd=(fileinf(readline(pcbdat(),29),4))/400
  101. let ok=false
  102. for i=1 to dd
  103. getaltuser i
  104. if (u_name()=cm) let ok=true
  105. next
  106. ansipos 23,15
  107. print "@X0FSEARCHiNG..."
  108. delay 1
  109. ansipos 23,15
  110. print "@X0BSEARCHiNG..."
  111. delay 1
  112. ansipos 23,15
  113. print "@X03SEARCHiNG..."
  114. delay 1
  115. ansipos 23,15
  116. print "@X09SEARCHiNG..."
  117. delay 1
  118. ansipos 23,15
  119. print "@X81SEARCHiNG..."
  120. delay 1
  121. if (!ok) then
  122. ansipos 15,15
  123. print "@X0F                         "
  124. ansipos 23,15
  125. print "@X01N0T F0UND..."
  126. delay 1
  127. ansipos 23,15
  128. print "@X09N0T F0UND..."
  129. delay 1
  130. ansipos 23,15
  131. print "@X03N0T F0UND..."
  132. delay 1
  133. ansipos 23,15
  134. print "@X0BN0T F0UND..."
  135. delay 1
  136. ansipos 23,15
  137. print "@X0FN0T F0UND..."
  138. delay 20
  139. ansipos 23,15
  140. print "@X0BN0T F0UND..."
  141. delay 1
  142. ansipos 23,15
  143. print "@X03N0T F0UND..."
  144. delay 1
  145. ansipos 23,15
  146. print "@X09N0T F0UND..."
  147. delay 1
  148. ansipos 23,15
  149. print "@X01N0T F0UND..."
  150. delay 1
  151. goto na
  152. endif
  153. ansipos 15,15
  154. print "@X0F                         "
  155. return
  156.  
  157. :wc
  158. ansipos 33,6
  159. println "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  160. ansipos 33,7
  161. println "@X0F▐@X7F░ ░▒▓▒ @X70WHiCH C0NFERENCE @X7F░▒▓@X0F█@X7F▓▒@X08▌"
  162. ansipos 33,8
  163. println "@X0F▐@X7F @X78░▄@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X7F▄▒░@X08▌"
  164. ansipos 33,9
  165. println "@X0F▐@X78  @X08▌                        @X0F▐@X78  @X08▌"
  166. ansipos 33,10
  167. println "@X0F▐@X78  @X08▌                        @X0F▐@X78  @X08▌"
  168. ansipos 33,11
  169. println "@X0F▐@X78  @X08▌                        @X0F▐@X78  @X08▌"
  170. ansipos 33,12
  171. println "@X0F▐@X78  @X7F▀@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X78▀░ @X08▌"
  172. ansipos 33,13
  173. println "@X0F▐@X7F       @X70< / - ENTER >        @X08▌"
  174. ansipos 33,14
  175. println "@X08 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  176. let s=readline (pcbdat(),31)+".@@@"
  177. fopen 1,s,o_rd,s_dn:fread 1,f,2:let mx=fileinf(s,4)/f-1
  178. redim cn,mx
  179. for i=0 to mx
  180. fseek 1,i*f+2,seek_set:fread 1,cn(i),14:next:fclose 1
  181. let y=1
  182. :lp10
  183. ansipos 38,10
  184. if (y=1) println "@X78▌@X7FALL!@X78▐@X07  "+cn(curconf())+" "
  185. if (y=2) println "@X07 ALL!  @X78▌@X7F"+cn(curconf())+"@X78▐@X07"
  186. ansipos 40,1
  187. :lp11
  188. let s=inkey()
  189. if (s="") goto lp11
  190. if ((s="LEFT")|(s="RIGHT")) then if (y=1) then let y=2:goto lp10:endif
  191. let y=1
  192. goto lp10
  193. endif
  194. if (s=chr(27)) then cls:goto en:endif
  195. if (s<>chr(13)) goto lp10
  196. return
  197.  
  198. :dl
  199. ansipos 17,3
  200. println "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  201. ansipos 17,4
  202. println "@X0F▐@X7F░ ░▒▓▒ @X70D0WNL0AD ? @X7F░▒▓@X0F█@X7F▓▒@X08▌"
  203. ansipos 17,5
  204. println "@X0F▐@X78░░▄@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X7F▄▒░@X08▌"
  205. ansipos 17,6
  206. println "@X0F▐@X78▒▒@X08▌                  @X0F▐@X7F░@X78░@X08▌"
  207. ansipos 17,7
  208. println "@X0F▐@X78▓░@X08▌                  @X0F▐@X78░ @X08▌"
  209. ansipos 17,8
  210. println "@X0F▐@X78▒ @X08▌                  @X0F▐@X78  @X08▌"
  211. ansipos 17,9
  212. println "@X0F▐@X78░ @X7F▀@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X78▀░ @X08▌"
  213. ansipos 17,10
  214. println "@X0F▐@X7F     @X70< / - ENTER >    @X08▌"
  215. ansipos 17,11
  216. println "@X08 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  217. let z=2
  218. :lp15
  219. ansipos 25,7
  220. if (z=1) print "@X7F▌@X7FYES▐@X07  N0  "
  221. if (z=2) print "@X07 YES  @X7F▌@X7FN0@X7F▐"
  222. :lp16
  223. let s=inkey()
  224. if (s="") goto lp16
  225. if ((s="LEFT")|(s="RIGHT")) then if (z=1) then let z=2:goto lp15:endif
  226. let z=1
  227. goto lp15
  228. endif
  229. color @X01
  230. return
  231.  
  232. :st
  233. if (tokcount()<>0) then
  234. kbdstuff "r "+tokenstr()
  235. end
  236. endif
  237.  
  238. let a(1)="     ALL!     "
  239. let a(2)="    UNREAD    "
  240. let a(3)="    T0 Y0U    "
  241. let a(4)="   FR0M Y0U   "
  242. let a(5)="   SCAN NEW   "
  243. let a(6)=" SCAN BY DATE "
  244. let a(7)=" WAiTiNG MAiL "
  245. let a(8)="FR0M/T0 A USER"
  246. let a(9)="   T0 A USER  "
  247. let a(10)="  SEARCH F0R  "
  248. let a(11)="     QUiT     "
  249. let b(1)=" READ ALL MAiLS iN ALL C0NFERENCES Y0U HAVE ACCESS T0 "
  250. let b(2)="      READ ALL MESSAGES THAT Y0U HAVEN'T READ YET     "
  251. let b(3)="                 READ ALL MAiLS T0 Y0U                "
  252. let b(4)="                READ ALL MAiLS FR0M Y0U               "
  253. let b(5)="                  READ ALL NEW MAiLS                  "
  254. let b(6)="         READ ALL MAiLS FR0M 0N A SPECiFiC DATE       "
  255. let b(7)="   READ ALL MAiLS THAT ARE WAiTiNG T0 BE READ BY Y0U  "
  256. let b(8)="      READ ALL MAiLS FR0M AND T0 A SPECiFiC USER      "
  257. let b(9)="          READ ALL MAiLS T0 A SPECiFiC USER           "
  258. let b(10)="               SEARCH F0R SPECiFiC TEXT               "
  259. let b(11)="               QUiT AND RETURN T0 B0ARD              "
  260. let x=1
  261. print "@POFF@@CLS@"
  262. println "@X0F                           ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  263. println "@X0F                          ▐@X7F░ ░▒▓▒ @X70READ WHAT? @X7F░▒▓@X0F█@X7F▓▒@X08▌"
  264. println "@X08                         @X0F▌▐@X7F @X78░▄@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X7F▄▒░@X08▌@X0F▐"
  265. println "@X0F                         ▌▐@X78░▒@X08▌                  @X0F▐@X7F░@X78░@X08▌@X0F▐"
  266. println "@X0F                         ▌▐@X78▒▓@X08▌                  @X0F▐@X78░▒@X08▌@X0F▐"
  267. println "@X0F                        ▌▌▐@X78▓█@X08▌                  @X0F▐@X78▒▓@X08▌@X0F▐▐"
  268. println "@X0F                        ▌▌▐@X78█▓@X08▌                  @X0F▐@X78▓█@X08▌@X0F▐▐"
  269. println "@X0F                       @X07▌@X0F▌▌▐@X78▓▓@X08▌                  @X0F▐@X78▓█@X08▌@X0F▐▐@X07▐"
  270. println "@X07  @X08·  ∙ ■  ▀  ▄ ▀▄▀@X78█▓▒░@X07▌▌@X0F▌▌▐@X78░▒@X08▌                  @X0F▐@X78▒▓@X08▌@X0F▐▐@X07▐▐@X78 ░▒▓█@X08▀▄▀ ▄  ▀  ■ ∙  ·"
  271. println "@X08                       @X07▌@X0F▌▌▐@X78░░@X08▌                  @X0F▐@X78░▒@X08▌@X0F▐▐@X07▐"
  272. println "@X07                        @X0F▌▌▐@X78░ @X08▌                  @X0F▐@X78░░@X08▌@X0F▐▐"
  273. println "@X0F                        ▌▌▐@X78 ░@X08▌                  @X0F▐@X78░ @X08▌@X0F▐▐"
  274. println "@X0F                         ▌▐@X78  @X08▌                  @X0F▐@X78  @X08▌@X0F▐"
  275. println "@X0F                         ▌▐@X78  @X08▌                  @X0F▐@X78  @X08▌@X0F▐"
  276. println "@X0F                         ▌▐@X78  @X7F▀@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X78▀░ @X08▌@X0F▐"
  277. println "@X0F                          ▐@X7F     @X70< / - ENTER >    @X08▌"
  278. println "@X08                           ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  279. for i=1 to 11
  280. ansipos 32,i+3
  281. print "@X07 "+a(i)
  282. next
  283.  
  284. :lp1
  285. ansipos 31,x+3
  286. print "@X78▌ @X7F"+a(x)+"@X7F ▐"
  287. ansipos 12,19
  288. print "@X0D"+b(x)
  289. ansipos 40,1
  290. :lp2
  291. let s=inkey()
  292. if (s="") goto lp2
  293. ansipos 31,x+3
  294. print "@X07  "+a(x)+"  "
  295. if (s="UP") then
  296. dec x
  297. if (x<1) let x=11
  298. goto lp1
  299. endif
  300. if (s="DOWN") then
  301. inc x
  302. if (x>11) let x=1
  303. goto lp1
  304. endif
  305. if (s=chr(27)) then color @X01:cls:goto en:endif
  306. if (s<>chr(13)) goto lp1
  307. ansipos 12,19
  308. color @X01
  309. clreol
  310.  
  311. if (x=1) then
  312. gosub dl
  313. cls
  314. kbdstuff "r a"
  315. if (z=1) kbdstuff " z"
  316. kbdstuff chr(13)
  317. endif
  318.  
  319. if (x=2) then
  320. gosub wc
  321. gosub dl
  322. cls
  323. if (y=1) kbdstuff "r a u"
  324. if (y=2) kbdstuff "r u"
  325. if (z=1) kbdstuff " z"
  326. kbdstuff chr(13)
  327. goto en
  328. endif
  329.  
  330. if (x=3) then
  331. gosub wc
  332. gosub dl
  333. cls
  334. if (y=1) kbdstuff "r a y"
  335. if (y=2) kbdstuff "r y"
  336. if (z=1) kbdstuff " z"
  337. kbdstuff chr(13)
  338. goto en
  339. endif
  340.  
  341. if (x=4) then
  342. gosub wc
  343. gosub dl
  344. cls
  345. if (y=1) kbdstuff "r a f"
  346. if (y=2) kbdstuff "r f"
  347. if (z=1) kbdstuff " z"
  348. kbdstuff chr(13)
  349. goto en
  350. endif
  351.  
  352. if (x=5) then
  353. gosub wc
  354. gosub dl
  355. cls
  356. if (y=1) kbdstuff "r a s"
  357. if (y=1) kbdstuff "r s"
  358. if (z=1) kbdstuff " z"
  359. kbdstuff chr(13)
  360. goto en
  361. endif
  362.  
  363. if (x=7) then
  364. gosub dl
  365. cls
  366. kbdstuff "r a wait"
  367. if (z=1) kbdstuff " z"
  368. kbdstuff chr(13)
  369.  
  370. endif
  371.  
  372. if (x=6) then
  373. let dd=date()
  374. ansipos 20,11
  375. println "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  376. ansipos 20,12
  377. println "@X0F▐@X7F░ ░▒▓▒ @X70WHAT DATE? @X7F░▒▓@X0F█@X7F▓▒@X08▌"
  378. ansipos 20,13
  379. println "@X0F▐@X7F @X78░▄@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X7F▄▒░@X08▌"
  380. ansipos 20,14
  381. println "@X0F▐@X78░▒@X08▌                  @X0F▐@X7F░@X78░@X08▌"
  382. ansipos 20,15
  383. println "@X0F▐@X78▒▓@X08▌                  @X0F▐@X78▒▓@X08▌"
  384. ansipos 20,16
  385. println "@X0F▐@X78▓░@X08▌                  @X0F▐@X78░ @X08▌"
  386. ansipos 20,17
  387. println "@X0F▐@X78░ @X7F▀@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X78▀░ @X08▌"
  388. ansipos 20,18
  389. println "@X0F▐@X7F     @X70< / - ENTER >    @X08▌"
  390. ansipos 20,19
  391. println "@X08 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  392. :lp4
  393. ansipos 27,15
  394. let da=dd
  395. let d=replace(da,".","/")
  396.  
  397. print "@X78▌ @X7F"+d+"@X7F ▐"
  398. :lp3
  399. let s=inkey()
  400. if (s="") goto lp3
  401. if (s="UP") then
  402. inc dd
  403. if (dd>65535) let dd=65534
  404. goto lp4
  405. endif
  406. if (S="DOWN") then
  407. dec dd
  408. if (dd<1) let dd=1
  409. goto lp4
  410. endif
  411. if (s<>chr(13)) goto lp4
  412. gosub wc
  413. gosub dl
  414. print "@X01"
  415. cls
  416. if (y=1) kbdstuff "r n "+strip(d,"/")
  417. if (y=2) kbdstuff "r a n "+strip(d,"/")
  418. if (z=1) kbdstuff " z"
  419. kbdstuff chr(13)
  420. goto en
  421. endif
  422.  
  423. if (x=8) then
  424. gosub na
  425. gosub wc
  426. gosub dl
  427. print "@X01"
  428. cls
  429. if (y=1) kbdstuff "r a user "+cm+" 1-999999"
  430. if (y=2) kbdstuff "r user "+cm+" 1-999999"
  431. if (z=1) kbdstuff " z"
  432. kbdstuff chr(13)
  433. goto en
  434. endif
  435.  
  436. if (x=9) then
  437. gosub na
  438. gosub wc
  439. gosub dl
  440. print "@X01"
  441. cls
  442. if (y=1) kbdstuff "r a to "+cm+" 1-999999"
  443. if (y=2) kbdstuff "r to "+cm+" 1-999999"
  444. if (z=1) kbdstuff " z"
  445. kbdstuff chr(13)
  446. goto en
  447. endif
  448.  
  449. if (x=10) then
  450. let w=1
  451. ansipos 7,7
  452. println "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  453. ansipos 7,8
  454. println "@X0F▐@X7F░ ░▒▓▒ @X70SPECiFY A USER? @X7F░▒▓@X0F█@X7F▓▒@X08▌"
  455. ansipos 7,9
  456. println "@X0F▐@X7F @X78░▄@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X7F▄▒░@X08▌"
  457. ansipos 7,10
  458. println "@X0F▐@X78░▒@X08▌                       @X0F▐@X7F░@X78░@X08▌"
  459. ansipos 7,11
  460. println "@X0F▐@X70░▒@X08▌                       @X0F▐@X70░ @X08▌"
  461. ansipos 7,12
  462. println "@X0F▐@X70░ @X08▌                       @X0F▐@X70▒ @X08▌"
  463. ansipos 7,13
  464. println "@X0F▐@X78  @X7F▀@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X78▀░ @X08▌"
  465. ansipos 7,14
  466. println "@X0F▐@X7F       @X70< / - ENTER >       @X08▌"
  467. ansipos 7,15
  468. println "@X08 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  469. :lp19
  470. ansipos 18,11
  471. if (w=1) print "@X7F▌@X7FYES▐@X07  N0  "
  472. if (w=2) print "@X07 YES  @X7F▌@X7FN0@X7F▐"
  473. :lp18
  474. let s=inkey()
  475. if (s="") goto lp18
  476. if ((s="LEFT")|(s="RIGHT")) then if (w=1) then let w=2:goto lp19:endif
  477. let w=1
  478. goto lp19
  479. endif
  480. if (w=1) gosub na
  481. ansipos 3,14
  482. println "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  483. ansipos 3,15
  484. println "@X0F▐@X7F░ ░▒▓▒                     @X70ENTER SEARCH CRiTERiA                   @X7F░▒▓@X0F█@X7F▓▒@X08▌"
  485. ansipos 3,16
  486. println "@X0F▐@X7F @X78░▄@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X7F▄▒░@X08▌"
  487. ansipos 3,17
  488. println "@X0F▐@X78░▒@X08▌                                                                   @X0F▐@X7F░@X78░@X08▌"
  489. ansipos 3,18
  490. println "@X0F▐@X78░▓@X08▌                                                                   @X0F▐@X70░▒@X08▌"
  491. ansipos 3,19
  492. println "@X0F▐@X78░ @X08▌                                                                   @X0F▐@X70▒ @X08▌"
  493. ansipos 3,20
  494. println "@X0F▐@X78▓ @X7F▀@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X78▀░ @X08▌"
  495. ansipos 3,21
  496. println "@X0F▐@X7F     @X78(""@X70|@X78"" = 0R) (""@X70&@X78"" = AND)          E.G. : NUMBER @X70& @X78(VOICE @X70| @X78DATA)      @X08▌"
  497. ansipos 3,22
  498. println "@X08 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  499.  
  500. let cm2=""
  501. let sX2=0
  502. :lp45
  503. ansipos 26+((26-len(cm2))/2),18
  504. if (sx2>2) print " @X0F"+left(cm2,1)+"@X07"+mid(cm2,2,sx2-2)+"@X08"+right(cm2,1)
  505. if (sx2=2) print " @X0F"+"@X07"+left(cm2,1)+"@X08"+right(cm2,1)
  506. if (sx2<2) print " @X0F"+"@X07"+cm2
  507. print "@X89▒ "
  508. ansipos 40,1
  509. :lp46
  510. let ss=inkey()
  511. if (ss="") goto lp46
  512. if (ss=chr(13)) goto lp47
  513. if (ss=chr(8)) then
  514. if (sx2>1) then
  515. dec sx2
  516. let cm2=left(cm2,len(cm2)-1)
  517. goto lp45
  518. endif
  519. if (sx2=1) then
  520. let sx2=0
  521. let cm2=""
  522. goto lp45
  523. endif
  524. if (sx2=0) goto lp45
  525. endif
  526. if (ss<" ") goto lp46
  527.  
  528. if (len(ss)=1) then
  529. if (sx2<64) then
  530. inc sx2
  531. let cm2=cm2+upper(ss)
  532. endif
  533. goto lp45
  534. endif
  535. goto lp45
  536.  
  537. :lp47
  538. if (cm2="") then
  539. cls
  540. goto en
  541. endif
  542. ansipos 3,18
  543. println "@X0F▐@X78░▓@X08▌                                                                   @X0F▐@X70░▒@X08▌"
  544.  
  545. gosub wc
  546. gosub dl
  547. color @X01
  548. cls
  549. if (y=1) kbdstuff "r a"
  550. if (y=2) kbdstuff "r"
  551. if (w=1) kbdstuff " us "+cm
  552. kbdstuff " ts "+cm2+" 1-999999"
  553. if (z=1) kbdstuff " z"
  554. kbdstuff chr(13)
  555. goto en
  556. endif
  557.  
  558. :en
  559. cls
  560. print "@X0F(@X0BC@X03) @X0FT@X0BYGE@X03R / @X0FP@X0BAiN@X03!"
  561. delay 20
  562. end
  563.