home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / BBSMEMO.ZIP / BBS.CMD next >
OS/2 REXX Batch file  |  1989-11-24  |  67KB  |  1,707 lines
  1. /*    ─────────────────                                                      */
  2. /*      BBS - M é M o                                                        */
  3. /*    ─────────────────                                                      */
  4. /*                                                                           */
  5. /*   Programme crée par SANDORFI Emmanuel                                    */
  6. /*   en REXX     pour l'OS/2 protected mode                                  */
  7. /*                                                                           */
  8. /*   Ce petit programme vous permet d'avoir, et d'éditer une liste           */
  9. /*   des BBS que vous fréquentés avec vos login et pass propres à chacun     */
  10. /*   d'eux.                                                                  */
  11. /*                                                                           */
  12. /*       Version 1.0  d'Octobre 1989                                         */
  13. /*      -----------------------------                                        */
  14.  
  15. /*              Définition des divers paramtètres & varaibles                */
  16. /*                 pour l'effectuation du programme                          */
  17. vary=1
  18. esc='1B'x
  19.  
  20. /*               Premiere fonctions                                          */
  21. '@echo off'
  22. x=charout('con',esc'[34;40m')
  23. cls
  24. nbr=linein('bbscfg')
  25. call lineout 'bbscfg'
  26. del bbscfg
  27.  
  28. /*               Affichage de l'écran de presentation                        */
  29. /*                                                                           */
  30. x=charout('con',esc'[0;0f')
  31. y=charout('con',esc'[1;37;40m')
  32. say '┌─────────────────────────────────────────────────────────────────────────────┐'
  33. say '│                                                                             │'
  34. say '│                                                                             │'
  35. say '│                                                                             │'
  36. say '│                                                                             │'
  37. say '│                                                                             │'
  38. say '│                                                                             │'
  39. say '│                                                                             │'
  40. say '│                                                                             │'
  41. say '│                                                                             │'
  42. say '├────────────────┬────────────────────────────────────────┬───────────────────┤'
  43. say '│                │                                        │                   │'
  44. say '│                └────────────────────────────────────────┘                   │'
  45. say '│                                                                             │'
  46. say '│                                                                             │'
  47. say '│                                                                             │'
  48. say '│                                                                             │'
  49. say '│                                                                             │'
  50. say '│                                                                             │'
  51. say '│                             By  SANDORFI Emmanuel.      October 1989        │'
  52. say '└─────────────────────────────────────────────────────────────────────────────┘'
  53. say '                                                                               '
  54. y=charout('con',esc'[32;40m')
  55. x=charout('con',esc'[22;00f')
  56. say '                                                  Press'
  57. y=charout('con',esc'[1;37;40m')
  58. x=charout('con',esc'[22;57f')
  59. y=charout('con',esc'[1;37;41m')
  60. say '[Return]'
  61. y=charout('con',esc'[1;37;40m')
  62. x=charout('con',esc'[22;67f')
  63. y=charout('con',esc'[0;32;40m')
  64. say 'to continue   '
  65. y=charout('con',esc'[1;37;40m')
  66. x=charout('con',esc'[23;00f')
  67. y=charout('con',esc'[0;32;40m')
  68. say '                                                     or'
  69. y=charout('con',esc'[1;37;40m')
  70. x=charout('con',esc'[23;57f')
  71. y=charout('con',esc'[1;37;41m')
  72. say '[X]'
  73. y=charout('con',esc'[1;37;40m')
  74. x=charout('con',esc'[23;67f')
  75. y=charout('con',esc'[0;32;40m')
  76. say 'to cancel     '
  77. y=charout('con',esc'[1;37;40m')
  78.  
  79. x=charout('con',esc'[2;66f')
  80. y=charout('con',esc'[36;42m')
  81. say '▌  ▌▀▌'
  82. x=charout('con',esc'[3;66f')
  83. say '▌▄ ▌▄▌'
  84. y=charout('con',esc'[1;37;40m')
  85.  
  86.  
  87. y=charout('con',esc'[1;32;31m')
  88. x=charout('con',esc'[3;5f')
  89. say ' ▄▄         ▄▄         '
  90. x=charout('con',esc'[4;5f')
  91. say '  ▌          ▌         '
  92. x=charout('con',esc'[5;5f')
  93. say '  ▌          ▌                                    ▄▀▀                     '
  94. x=charout('con',esc'[6;5f')
  95. say '  ▌▄▄▄▄▄▄    ▌▄▄▄▄▄▄   ▌▀▀▀▀▀▌         ▌▄     ▄▌   ▄▄▄▄  ▌▄     ▄▌   ▄▄▄▌ '
  96. x=charout('con',esc'[7;5f')
  97. say '  ▌      ▌   ▌      ▌  ▌▄▄▄▄▄          ▌ ▀▄ ▄▀ ▌  ▌      ▌ ▀▄ ▄▀ ▌  ▌   ▌ '
  98. x=charout('con',esc'[8;5f')
  99. say '  ▌      ▌   ▌      ▌        ▌  ▄▄▄▄   ▌   ▀   ▌  ▌▀▀    ▌   ▀   ▌  ▌   ▌ '
  100. x=charout('con',esc'[9;5f')
  101. say '  ▀▀▀▀▀▀▀    ▀▀▀▀▀▀▀   ▀▀▀▀▀▀          ▌       ▌  ▌▄▄▄▄  ▌       ▌  ▌▄▄▄  '
  102. y=charout('con',esc'[1;37;40m')
  103.  
  104. x=charout('con',esc'[12;21f')
  105. y=charout('con',esc'[0;40;43m')
  106. say 'Bulletin Board System  -  Memorandum'
  107. y=charout('con',esc'[1;38;40m')
  108.  
  109.  
  110. x=charout('con',esc'[15;2f')
  111. y=charout('con',esc'[0;38;40m')
  112. say '      Programmed for'
  113. x=charout('con',esc'[15;23f')
  114. y=charout('con',esc'[1;33;40m')
  115. say 'OS/2'
  116. x=charout('con',esc'[15;28f')
  117. y=charout('con',esc'[0;38;40m')
  118. say 'full screen in'
  119. x=charout('con',esc'[15;43f')
  120. y=charout('con',esc'[0;36;40m')
  121. say 'REXX'
  122. y=charout('con',esc'[0;38;40m')
  123. x=charout('con',esc'[16;2f')
  124. say '      The fonction of this application is just for simplify the              '
  125. x=charout('con',esc'[17;2f')
  126. say '       management of yours Bbs. You can know your login, pass, number        '
  127. x=charout('con',esc'[18;2f')
  128. say '       in different Bbs.                                                     '
  129. y=charout('con',esc'[1;37;40m')
  130.  
  131.  
  132. x=charout('con',esc'[23;0f')
  133. gete=translate(linein())
  134. if gete='X' then signal goodbye
  135.             else signal menu
  136.  
  137. /*       Boucle 1.                 Menu prinicpal                            */
  138. /*                                 Demande des options, go au autres boucles */
  139. menu:
  140. x=charout('con',esc'[7m')
  141. cls
  142. say '┌─────────────────┬───────────────────────────────────────────────────────────┐'
  143. say '│  BBS - M é M o  │              M E N U     --  P r I n C i P a L  --        │'
  144. say '├─────────────────┼───────────────────────────────────────────────────────────┤'
  145. say '│                 │                                                           │'
  146. say '│    ▌▀▀▌         │      Liste des BBS avec vos  login, pass, niveau          │'
  147. say '│    ▌▀▀▌ ▄       │       + caractéristiques techniques du BBS.               │'
  148. say '│                 │                                                           │'
  149. say '├─────────────────┼───────────────────────────────────────────────────────────┤'
  150. say '│    ▄            │                                                           │'
  151. say '│    ▌▄▄          │      Ajouter, éditer ou détruire vos  données des         │'
  152. say '│    ▌▄▄▌ ▄       │       BBS fréquentés.                                     │'
  153. say '│                 │                                                           │'
  154. say '├─────────────────┼───────────────────────────────────────────────────────────┤'
  155. say '│                 │                                                           │'
  156. say '│    ▌▀▀          │      Toute l''aide nécéssaire sur BBS - M é M o            │'
  157. say '│    ▌▄▄▄ ▄       │        ainsi qu''une petite liste des BBS français.        │'
  158. say '│                 │                                                           │'
  159. say '├─────────────────┼───────────────────────────────────────────────────────────┤'
  160. say '│                 │                                                           │'
  161. say '│    ▌▀▀▌         │      Quitter le programme  BBS - M é M o                  │'
  162. say '│   ▄▌▄▄▌ ▄       │                                                           │'
  163. say '│                 │                                                           │'
  164. say '└─────────────────┴───────────────────────────────────────────────────────────┘'
  165. nbz=nbr
  166. x=charout('con',esc'[1;33;44m')
  167. say ' Commande -> '
  168. y=charout('con',esc'[24;14f')
  169.  
  170.  
  171. /*          Redirections des options [A], [B], [C] et [D] de la boucle 1      */
  172. /*                  Envois au boucle 2,3 et 4.                                */
  173. option:
  174. gete=translate(linein())
  175. if gete<>'A' & gete<>'B' & gete<>'C' & gete<>'D' & gete<>'H' then signal menuhelp
  176. if gete='A' then signal display
  177. if gete='B' then signal Edz
  178. if gete='C' then signal bbhelp
  179. if gete='D' then signal goodbye
  180. if gete='H' then signal menuhelp
  181. signal menu
  182.  
  183. /*                 Help pour le menu                                         */
  184. menuhelp:
  185. y=charout('con',esc'[24;0f')
  186. x=charout('con',esc'[1;33;44m')
  187. say ' Commande -> '
  188. y=charout('con',esc'[24;79f')
  189. y=charout('con',esc'[24;14f')
  190. say ' Aide séléctionée '
  191. x=charout('con',esc'[1;33;46m')
  192. y=charout('con',esc'[3;10f')
  193. say '╔═════════════╤════════════════════════════════════════════╗'
  194. y=charout('con',esc'[4;10f')
  195. say '║ HELP ME !!  │                                            ║'
  196. y=charout('con',esc'[5;10f')
  197. say '╟─────────────┘                                            ║'
  198. y=charout('con',esc'[6;10f')
  199. say '║ Il vous faut choisir une option: A, B, C, ou D.          ║'
  200. y=charout('con',esc'[7;10f')
  201. say '║ [A] suivi Cr -> Permet de consulter la liste de vos BBS  ║'
  202. y=charout('con',esc'[8;10f')
  203. say '║ [B] suivi Cr -> Editer une liste avec votre éditeur      ║'
  204. y=charout('con',esc'[9;10f')
  205. say '║ [C] suivi Cr -> Aide étendu pour BBS - M é M o           ║'
  206. y=charout('con',esc'[10;10f')
  207. say '║ [D] suivi Cr -> Quitter le programme                     ║'
  208. y=charout('con',esc'[11;10f')
  209. say '║ [H] suivi Cr -> Ce petit menu d`aide                     ║'
  210. y=charout('con',esc'[12;10f')
  211. say '╟──────────────────────────────────────────────────────────╢'
  212. y=charout('con',esc'[13;10f')
  213. say '║      Appuyer sur [RETURN] pour revenir à l`écran         ║'
  214. y=charout('con',esc'[14;10f')
  215. say '╚══════════════════════════════════════════════════════════╝'
  216. x=charout('con',esc'[1;33;44m')
  217. y=charout('con',esc'[24;31f')
  218. gete=translate(linein())
  219. signal menu
  220.  
  221. /*                      Boucle  2                                            */
  222. /*             Display  de la liste des BBS                                  */
  223.  
  224. display:
  225. if nbr=0 then signal menu
  226. uk=0
  227. x=charout('con',esc'[1;37;44m')
  228. cls
  229. x=charout('con',esc'[0;0f')
  230. say '┌────────────┬───────────────────┬──────────────┬────────────────┬───┬────────┐'
  231. say '│ Nom du BBS │  Login  Utilisé   │   Password   │ Numéro d''Acces │Mt.│ Divers │'
  232. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  233. say '│            │                   │              │                │   │        │'
  234. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  235. say '│            │                   │              │                │   │        │'
  236. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  237. say '│            │                   │              │                │   │        │'
  238. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  239. say '│            │                   │              │                │   │        │'
  240. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  241. say '│            │                   │              │                │   │        │'
  242. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  243. say '│            │                   │              │                │   │        │'
  244. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  245. say '│            │                   │              │                │   │        │'
  246. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  247. say '│            │                   │              │                │   │        │'
  248. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  249. say '│            │                   │              │                │   │        │'
  250. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  251. say '│            │                   │              │                │   │        │'
  252. say '└────────────┴───────────────────┴──────────────┴────────────────┴───┴────────┘'
  253. dipo:
  254. nbc=nbr
  255. nb=4
  256. cot=1
  257. do while cot<=10 & nbc>0
  258.    app='call '''nbc'bbsd.cmd'' nb'
  259.    interpret app
  260.    call lineout nbc'bbsd.cmd'
  261.    call lineout nbc'bbsd.cmd'
  262.    nbc=nbc-1
  263.    nb=nb+2
  264.    cot=cot+1
  265.    nf=nbc
  266. end
  267. sayer:
  268. x=charout('con',esc'[24;1f')
  269. x=charout('con',esc'[1;37;44m')
  270. say '                                                               '
  271. x=charout('con',esc'[24;0f')
  272. x=charout('con',esc'[1;37;41m')
  273. say ' Commande -> '
  274. x=charout('con',esc'[24;14f')
  275. gete=translate(linein())
  276. if gete<>'H' & gete<>'X' & gete<>'D' & gete<>'+' & gete<>'-' then signal disphelp
  277. if gete='H' then signal disphelp
  278. if gete='X' then signal menu
  279. if gete='D' then signal display
  280. if gete='+' then signal oco
  281. if gete='-' then signal oco
  282. signal sayer
  283.  
  284. oco:
  285. if nbr<=10 then signal sayer
  286. us=5
  287. oi=5
  288. if gete='-'
  289.    then do until oi=0
  290.         if nbc=0     then oi=0
  291.                      else oi=1
  292.         if nbc<=nbr   then oi=1
  293.                      else oi=0
  294.         if nbc>nbr   then nbc=nbr
  295.         if nbc>nbr   then oi=1
  296.         if nbc=nbr   then oi=1
  297.         leave
  298. end
  299. if gete='-' & oi=1 then signal Moyn
  300. if gete='-' & oi=0 then signal sayer
  301. oi=5
  302. if gete='+'
  303.    then do until us=0
  304.         if nbc<=999  then us=1
  305.                      else us=0
  306.         if nbc<nbr   then us=1
  307.                      else us=0
  308.         if nbc>nbr   then nbc=nbr
  309.         if nbc>nbr   then us=0
  310.         if nbc=nbr   then us=0
  311.                      else us=1
  312.         if nbc>=nbr-10 then us=0
  313.                        else us=1
  314.         if nf>1 then signal sayer
  315.         if mok=1 then nbc=nbc+mnx
  316.         if mok=1 then mok=0
  317.         if nbr<10   then us=0
  318.                     else us=1
  319. leave
  320. end
  321. if nbc=0 & nbc=1 & us<>0 then ply=1
  322. if gete='+' & us=1 then signal Puye
  323. if gete='+' & us=0 then signal sayer
  324. pl=5
  325. signal sayer
  326.  
  327. Puye:
  328. x=charout('con',esc'[1;37;44m')
  329. cls
  330. x=charout('con',esc'[0;0f')
  331. say '┌────────────┬───────────────────┬──────────────┬────────────────┬───┬────────┐'
  332. say '│ Nom du BBS │  Login  Utilisé   │   Password   │ Numéro d''Acces │Mt.│ Divers │'
  333. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  334. say '│            │                   │              │                │   │        │'
  335. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  336. say '│            │                   │              │                │   │        │'
  337. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  338. say '│            │                   │              │                │   │        │'
  339. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  340. say '│            │                   │              │                │   │        │'
  341. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  342. say '│            │                   │              │                │   │        │'
  343. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  344. say '│            │                   │              │                │   │        │'
  345. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  346. say '│            │                   │              │                │   │        │'
  347. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  348. say '│            │                   │              │                │   │        │'
  349. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  350. say '│            │                   │              │                │   │        │'
  351. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  352. say '│            │                   │              │                │   │        │'
  353. say '└────────────┴───────────────────┴──────────────┴────────────────┴───┴────────┘'
  354. bny=3
  355. nb=4
  356. cot=1
  357. nf=0
  358. if mok=1 then nbc=nbc+mnx
  359. if mok=1 then mok=0
  360. if nbc=0 then uab=1
  361. uab=nbc
  362. ulk=0
  363. uk=0
  364. do while cot<=10 & nbc>0 & nbc<=nbr
  365.    app='call '''nbc'bbsd.cmd'' nb'
  366.    interpret app
  367.    call lineout nbc'bbsd.cmd'
  368.    call lineout nbc'bbsd.cmd'
  369.    ulk=1
  370.    nbc=nbc+1
  371.    nb=nb+2
  372.    cot=cot+1
  373. end
  374. uk=nbc-uab
  375. signal sayer
  376.  
  377.  
  378. Moyn:
  379. toz=nbr-nbc
  380. x=charout('con',esc'[1;37;44m')
  381. cls
  382. x=charout('con',esc'[0;0f')
  383. say '┌────────────┬───────────────────┬──────────────┬────────────────┬───┬────────┐'
  384. say '│ Nom du BBS │  Login  Utilisé   │   Password   │ Numéro d''Acces │Mt.│ Divers │'
  385. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  386. say '│            │                   │              │                │   │        │'
  387. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  388. say '│            │                   │              │                │   │        │'
  389. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  390. say '│            │                   │              │                │   │        │'
  391. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  392. say '│            │                   │              │                │   │        │'
  393. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  394. say '│            │                   │              │                │   │        │'
  395. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  396. say '│            │                   │              │                │   │        │'
  397. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  398. say '│            │                   │              │                │   │        │'
  399. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  400. say '│            │                   │              │                │   │        │'
  401. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  402. say '│            │                   │              │                │   │        │'
  403. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  404. say '│            │                   │              │                │   │        │'
  405. say '└────────────┴───────────────────┴──────────────┴────────────────┴───┴────────┘'
  406. bny=3
  407. if nbc=0 then nbc=1
  408. nb=4
  409. mok=0
  410. cot=1
  411. mn1=nbc
  412. nxc=0
  413. cv=nbr-10
  414. toz=nbr-nbc
  415. if toz=0 then signal zdc
  416. if nbc>=cv & ulk=1
  417.  then do forever
  418.     ulk=0
  419.     nbc=nbc-9
  420.     signal zdc
  421.     leave
  422.  end
  423. if uk>=nbr
  424.    then do forever
  425.         if uk=0 then leave
  426.         nxc=uk-nbz
  427.         if nxc>=0 & nbr>10 then nbc=nbc-10
  428.         if nxc>=0 & nbr<=10 then signal sayer
  429.         leave
  430.    end
  431. if ulk=1 then nbc=nbc+uk
  432. if ulk=1 then ulk=0
  433. tyui:
  434. nf=0
  435. do while cot<=10 & nbc>0 & nbc<=nbr
  436.    app='call '''nbc'bbsd.cmd'' nb'
  437.    interpret app
  438.    call lineout nbc'bbsd.cmd'
  439.    call lineout nbc'bbsd.cmd'
  440.    nbc=nbc-1
  441.    nb=nb+2
  442.    cot=cot+1
  443.    mok=1
  444. end
  445. mn2=nbc
  446. mnx=mn1-mn2
  447. signal sayer
  448. zdc:
  449. do while cot<=10 & nbc>0
  450.    app='call '''nbc'bbsd.cmd'' nb'
  451.    interpret app
  452.    call lineout nbc'bbsd.cmd'
  453.    call lineout nbc'bbsd.cmd'
  454.    nbc=nbc-1
  455.    nb=nb+2
  456.    cot=cot+1
  457.    mok=1
  458. end
  459. mn2=nbc
  460. mnx=mn1-mn2
  461. signal sayer
  462.  
  463.  
  464.  
  465.  
  466. /*   Aide       */
  467. disphelp:
  468. y=charout('con',esc'[24;0f')
  469. x=charout('con',esc'[1;37;41m')
  470. say ' Commande -> '
  471. y=charout('con',esc'[24;79f')
  472. y=charout('con',esc'[24;14f')
  473. say ' Aide séléctionée '
  474. x=charout('con',esc'[1;33;46m')
  475. y=charout('con',esc'[3;10f')
  476. say '╔═════════════╤════════════════════════════════════════════╗'
  477. y=charout('con',esc'[4;10f')
  478. say '║ HELP ME !!  │                                            ║'
  479. y=charout('con',esc'[5;10f')
  480. say '╟─────────────┘                                            ║'
  481. y=charout('con',esc'[6;10f')
  482. say '║ [+] suivi Cr -> Page suivante tant qu''il en reste        ║'
  483. y=charout('con',esc'[7;10f')
  484. say '║ [-] suivi Cr -> Page précédente tant qu''il en reste      ║'
  485. y=charout('con',esc'[8;10f')
  486. say '║ [x] suivi Cr -> Retour menu principal                    ║'
  487. y=charout('con',esc'[9;10f')
  488. say '║ [h] suivi Cr -> Ce petit menu                            ║'
  489. y=charout('con',esc'[10;10f')
  490. say '║ [D] suivi Cr -> Vous ramene à la position initiale       ║'
  491. y=charout('con',esc'[11;10f')
  492. say '║                 Il se pourra, en effet, qu''à un moment   ║'
  493. y=charout('con',esc'[12;10f')
  494. say '║                 plus rien ne s''affiche, alors tapez [D]  ║'
  495. y=charout('con',esc'[13;10f')
  496. say '╟──────────────────────────────────────────────────────────╢'
  497. y=charout('con',esc'[14;10f')
  498. say '║      Appuyer sur [RETURN] pour revenir à l`écran         ║'
  499. y=charout('con',esc'[15;10f')
  500. say '╚══════════════════════════════════════════════════════════╝'
  501. x=charout('con',esc'[1;37;41m')
  502. y=charout('con',esc'[24;31f')
  503. gete=translate(linein())
  504. x=charout('con',esc'[1;37;41m')
  505. signal display
  506.  
  507.  
  508.  
  509. /*                      Boucle 4                                             */
  510. /*                                                                           */
  511. Edz:
  512. x=charout('con',esc'[0;34;47m')
  513. cls
  514. say '┌─────────────────────────────────────────────────────────────────────────────┐'
  515. say '│  Option [B] .... Edition, Destruction, Modification, Addition des données.  │'
  516. say '│                                                                             │'
  517. say '│                                                                             │'
  518. say '│                                                                             │'
  519. say '│                                                                             │'
  520. say '│  Veuillez choisir entre les différents choix proposés :                     │'
  521. say '│                                                                             │'
  522. say '│                                                                             │'
  523. say '│      [1] .  Edition d''une donnée (d''une BBS),                               │'
  524. say '│              Quand vous voulez rentrer une nouvelle Bbs ou si vous utilisez │'
  525. say '│              pour la première fois  BBS - M é M o.                          │'
  526. say '│                                                                             │'
  527. say '│      [2] .  Destruction, Modifcation d''une donnée.                          │'
  528. say '│              Cette option ne peut marcher que si vous avez précedamment     │'
  529. say '│              entrer une donnée                                              │'
  530. say '│                                                                             │'
  531. say '│      [3] .  Retour au menu, et abandon de cette option.                     │'
  532. say '│              Il est absolument nécessaire de faire l''option [1] pour pouvoir│'
  533. say '│              accéder au choix [A] dans le menu principal.                   │'
  534. say '│                                                                             │'
  535. say '├─────────────────────────────────────────────────────────────────────────────┤'
  536. say '│  Votre Choix ->                                                            ┌┘'
  537. say '└────────────────────────────────────────────────────────────────────────────┘'
  538. roptyu:
  539. x=charout('con',esc'[23;19f')
  540. say '                                              '
  541. x=charout('con',esc'[23;19f')
  542. x=charout('con',esc'[1;33m')
  543. gete=translate(linein())
  544. if gete<>'1' & gete<>'2' & gete<>'3' then signal roptyu
  545. if gete='1' then signal edit
  546. if gete='2' then signal optC
  547. if gete='3' then signal menu
  548. signal Edz
  549.  
  550.  
  551.  
  552.  
  553.  
  554. /*                                                                           */
  555. /*      DEBUT OPTION EDITION                                                 */
  556. /*                                                                           */
  557. /*                                                                           */
  558. /*                                                                           */
  559. /*   Definition des variables   pour l'edition                               */
  560. edit:
  561. x=charout('con',esc'[0;40m')
  562. cls
  563. fich='bbsd.cmd'
  564. nom=''
  565. login=''
  566. pass=''
  567. phone=''
  568. mintel=''
  569. region=''
  570.  
  571. x=charout('con',esc'[0;1f')
  572. x=charout('con',esc'[1;37;m')
  573. say ' Option [B] choisie :   EDITION de données sur vos BBS ......'
  574.  
  575. /*        DEmande des differentes donnes                                     */
  576. x=charout('con',esc'[0;37m')
  577. /*                        */
  578. /*   Demande du nom       */
  579. /*                  [10]  */
  580. x=charout('con',esc'[5;5f')
  581. x=charout('con',esc'[0;32m')
  582. say 'Entrer le nom du BBS:'
  583. nom2:
  584. x=charout('con',esc'[5;40f')
  585. x=charout('con',esc'[0;31m')
  586. say ' [          ]'
  587. x=charout('con',esc'[5;42f')
  588. x=charout('con',esc'[1;33;m')
  589. nom=linein()
  590. if length(nom)>10 then nom=''
  591. if nom=''         then x=charout('con',esc'[5;40f')
  592. if nom=''         then say '                                '
  593. if nom=''         then signal nom2
  594. x=charout('con',esc'[0;36m')
  595. /*                        */
  596. /*   Demande du login     */
  597. /*                  [18]  */
  598. x=charout('con',esc'[7;5f')
  599. x=charout('con',esc'[0;32m')
  600. say 'Entrer votre login utilisé:'
  601. login2:
  602. x=charout('con',esc'[7;40f')
  603. x=charout('con',esc'[0;31m')
  604. say ' [                  ]'
  605. x=charout('con',esc'[7;42f')
  606. x=charout('con',esc'[1;33;m')
  607. login=linein()
  608. if length(login)>18 then login=''
  609. if login=''       then     x=charout('con',esc'[7;40f')
  610. if login=''       then     say '                                '
  611. if login=''       then     signal login2
  612. x=charout('con',esc'[0;36m')
  613. /*                        */
  614. /*   Demande du Pass      */
  615. /*                [12]    */
  616. x=charout('con',esc'[9;5f')
  617. x=charout('con',esc'[0;32m')
  618. say 'Entrer votre pass utilisé:'
  619. pass2:
  620. x=charout('con',esc'[9;40f')
  621. x=charout('con',esc'[0;31m')
  622. say ' [            ]'
  623. x=charout('con',esc'[9;42f')
  624. x=charout('con',esc'[1;33;m')
  625. pass=linein()
  626. if length(pass)>12 then pass=''
  627. if pass=''         then x=charout('con',esc'[9;40f')
  628. if pass=''         then say '                                '
  629. if pass=''         then signal pass2
  630. x=charout('con',esc'[0;36m')
  631. /*                        */
  632. /*   Demande du Telephone */
  633. /*                [15]    */
  634. x=charout('con',esc'[11;5f')
  635. x=charout('con',esc'[0;32m')
  636. say 'Entrer le numero d''acces au BBS:'
  637. phone2:
  638. x=charout('con',esc'[11;40f')
  639. x=charout('con',esc'[0;31m')
  640. say ' [               ]'
  641. x=charout('con',esc'[11;42f')
  642. x=charout('con',esc'[1;33;m')
  643. phone=linein()
  644. if length(phone)>15 then phone=''
  645. if phone=''         then x=charout('con',esc'[11;40f')
  646. if phone=''         then say '                                '
  647. if phone=''         then signal phone2
  648. x=charout('con',esc'[0;36m')
  649. /*                         */
  650. /*   Demande, Minitel (o/n) */
  651. /*               [1]       */
  652. x=charout('con',esc'[13;5f')
  653. x=charout('con',esc'[0;32m')
  654. say 'Serveur en Videotext ou genre Qbbs:'
  655. minitel2:
  656. x=charout('con',esc'[13;40f')
  657. x=charout('con',esc'[0;31m')
  658. say ' [ ]'
  659. x=charout('con',esc'[13;42f')
  660. x=charout('con',esc'[1;33;m')
  661. minitel=linein()
  662. if length(minitel)>1  then minitel=''
  663. if minitel=''         then x=charout('con',esc'[13;40f')
  664. if minitel=''         then say '                                '
  665. if minitel=''         then signal minitel2
  666. x=charout('con',esc'[0;36m')
  667. /*                        */
  668. /*   Demande du la Region */
  669. /*               [8]     */
  670. x=charout('con',esc'[15;5f')
  671. x=charout('con',esc'[0;32m')
  672. say 'Quelle est la region, divers:'
  673. region2:
  674. x=charout('con',esc'[15;40f')
  675. x=charout('con',esc'[0;31m')
  676. say ' [        ]'
  677. x=charout('con',esc'[15;42f')
  678. x=charout('con',esc'[1;33;m')
  679. region=linein()
  680. if length(region)>8  then region=''
  681. if region=''         then x=charout('con',esc'[15;40f')
  682. if region=''         then say '                                '
  683. if region=''         then signal region2
  684. x=charout('con',esc'[0;36m')
  685. signal demande
  686. /*                                                                           */
  687. /*           Envoi dans le fichier special                                   */
  688.  
  689.  
  690. ecriture:
  691. x=charout('con',esc'[0;40m')
  692. cls
  693. nbr=nbr+1
  694. fich=nbr fich
  695. fich=space(fich,0)
  696. x1='x=charout(''con'',esc''[''nb'';03f'')'
  697. x2='x=charout(''con'',esc''[''nb'';16f'')'
  698. x3='x=charout(''con'',esc''[''nb'';36f'')'
  699. x4='x=charout(''con'',esc''[''nb'';51f'')'
  700. x5='x=charout(''con'',esc''[''nb'';68f'')'
  701. x6='x=charout(''con'',esc''[''nb'';71f'')'
  702.  
  703.  
  704. st1='say '''nom''''
  705. st2='say '''login''''
  706. st3='say '''pass''''
  707. st4='say '''phone''''
  708. st5='say '''minitel''''
  709. st6='say '''region''''
  710. /*                   Ecriture du  fichier                                    */
  711. /*                                                                           */
  712.  
  713. zz=lineout(fich,'/* 'nom' */')
  714. zz=lineout(fich,'/* 'nom' */')
  715. zz=lineout(fich,'esc=''1B''x')
  716. zz=lineout(fich,'arg nb .')
  717. zz=lineout(fich,x1)
  718. zz=lineout(fich,st1)
  719. zz=lineout(fich,x2)
  720. zz=lineout(fich,st2)
  721. zz=lineout(fich,x3)
  722. zz=lineout(fich,st3)
  723. zz=lineout(fich,x4)
  724. zz=lineout(fich,st4)
  725. zz=lineout(fich,x5)
  726. zz=lineout(fich,st5)
  727. zz=lineout(fich,x6)
  728. zz=lineout(fich,st6)
  729. zz=lineout(fich)
  730. zz=linein(fich)
  731. reco:
  732. cls
  733. x=charout('con',esc'[0;33m')
  734. x=charout('con',esc'[5;5f')
  735. say ' Toutes les données concernant le Bbs 'nom' ont été sauvegardés '
  736. x=charout('con',esc'[6;5f')
  737. say '  dans le fichier 'fich' .'
  738. x=charout('con',esc'[0;32m')
  739. x=charout('con',esc'[15;2f')
  740. say ' Voulez vous:  1°) revenir au menu, 2°) rentrer une nouvelle données '
  741. x=charout('con',esc'[15;74f')
  742. gete=translate(linein())
  743. if gete<>'1' & gete<>'2' & gete<>'X' then signal recohelp
  744. if gete='X' then signal menu
  745. if gete='1' then signal Edz
  746. if gete='2' then signal edit
  747. signal reco
  748.  
  749. recohelp:
  750. x=charout('con',esc'[1;33;46m')
  751. y=charout('con',esc'[3;10f')
  752. say '╔═════════════╤════════════════════════════════════════════╗'
  753. y=charout('con',esc'[4;10f')
  754. say '║ HELP ME !!  │                                            ║'
  755. y=charout('con',esc'[5;10f')
  756. say '╟─────────────┘                                            ║'
  757. y=charout('con',esc'[6;10f')
  758. say '║ Ce menu vous propose deux choix différents:              ║'
  759. y=charout('con',esc'[7;10f')
  760. say '║ - l''un étant de continuer à rentrer des données sur vos  ║'
  761. y=charout('con',esc'[8;10f')
  762. say '║   BBS cottoyés.                                          ║'
  763. y=charout('con',esc'[9;10f')
  764. say '║ - et l''autre, vous ramene au menu, tout en finissant     ║'
  765. y=charout('con',esc'[10;10f')
  766. say '║   l''option d''édition (sauvegarde a été effectué)         ║'
  767. y=charout('con',esc'[11;10f')
  768. say '║ [1] suivi Cr -> Retour au menu pricipal                  ║'
  769. y=charout('con',esc'[12;10f')
  770. say '║ [2] suivi Cr -> Continuer l''enregistrement de données    ║'
  771. y=charout('con',esc'[13;10f')
  772. say '║ [x] suivi Cr -> Abandon et retour au menu principal      ║'
  773. y=charout('con',esc'[14;10f')
  774. say '╟──────────────────────────────────────────────────────────╢'
  775. y=charout('con',esc'[15;10f')
  776. say '║      Appuyer sur [RETURN] pour revenir à l`écran         ║'
  777. y=charout('con',esc'[16;10f')
  778. say '╚══════════════════════════════════════════════════════════╝'
  779. x=charout('con',esc'[0;40m')
  780. y=charout('con',esc'[24;31f')
  781. gete=translate(linein())
  782. signal reco
  783.  
  784.  
  785. /*                                                                           */
  786. /*                            Fin d'ecriture du fichier                      */
  787.  
  788. demande:
  789. x=charout('con',esc'[0;40m')
  790. cls
  791. x=charout('con',esc'[3;0f')
  792. x=charout('con',esc'[0;32m')
  793. say ' Voici les données qui ont été entrer .... '
  794. x=charout('con',esc'[5;0f')
  795. x=charout('con',esc'[0;36m')
  796. say nom
  797. x=charout('con',esc'[5;20f')
  798. x=charout('con',esc'[0;31m')
  799. say '    ....... nom du BBS'
  800. x=charout('con',esc'[6;0f')
  801. x=charout('con',esc'[0;36m')
  802. say login
  803. x=charout('con',esc'[6;20f')
  804. x=charout('con',esc'[0;31m')
  805. say '    ....... votre nom utilisé'
  806. x=charout('con',esc'[7;0f')
  807. x=charout('con',esc'[0;36m')
  808. say pass
  809. x=charout('con',esc'[7;20f')
  810. x=charout('con',esc'[0;31m')
  811. say '    ....... le mot de pass utilisé'
  812. x=charout('con',esc'[8;0f')
  813. x=charout('con',esc'[0;36m')
  814. say phone
  815. x=charout('con',esc'[8;20f')
  816. x=charout('con',esc'[8;31m')
  817. say '    ....... le numero d''acces du BBS'
  818. x=charout('con',esc'[9;0f')
  819. x=charout('con',esc'[0;36m')
  820. say minitel
  821. x=charout('con',esc'[9;20f')
  822. x=charout('con',esc'[0;31m')
  823. say '    ....... serveur en videotext, ou sur minitel (Qbbs)'
  824. x=charout('con',esc'[10;0f')
  825. x=charout('con',esc'[0;36m')
  826. say region
  827. x=charout('con',esc'[10;20f')
  828. x=charout('con',esc'[0;31m')
  829. say '    ....... la localite du BBS ou divers renseignements'
  830. x=charout('con',esc'[14;10f')
  831. x=charout('con',esc'[0;33;44m')
  832. say 'Ces données vous conviennent-elles (o/n) ->'
  833. x=charout('con',esc'[1;37;44m')
  834. x=charout('con',esc'[14;53f')
  835. gete=translate(linein())
  836. if gete<>'O' & gete<>'N' & gete<>'X' then signal demahelp
  837. if gete='X' then signal Edz
  838. if gete='N' then signal reedit
  839. if gete='O' then signal ecriture
  840. signal demande
  841.  
  842. demahelp:
  843. x=charout('con',esc'[1;33;46m')
  844. y=charout('con',esc'[3;10f')
  845. say '╔═════════════╤════════════════════════════════════════════╗'
  846. y=charout('con',esc'[4;10f')
  847. say '║ HELP ME !!  │                                            ║'
  848. y=charout('con',esc'[5;10f')
  849. say '╟─────────────┘                                            ║'
  850. y=charout('con',esc'[6;10f')
  851. say '║ Cette section vous permet de vérifier que toutes les     ║'
  852. y=charout('con',esc'[7;10f')
  853. say '║ données que vous aviez précédamment entré sont sans      ║'
  854. y=charout('con',esc'[8;10f')
  855. say '║ erreurs. Plusieurs option vous sont alors proposées:     ║'
  856. y=charout('con',esc'[9;10f')
  857. say '║ [o] suivi Cr -> Acces a l''étape suivante (la sauvegarde) ║'
  858. y=charout('con',esc'[10;10f')
  859. say '║ [n] suivi Cr -> Revient au menu précédent permmettant    ║'
  860. y=charout('con',esc'[11;10f')
  861. say '║                 de corriger vos erreurs...               ║'
  862. y=charout('con',esc'[12;10f')
  863. say '║ [x] suivi Cr -> Abandon et retour au menu principal      ║'
  864. y=charout('con',esc'[13;10f')
  865. say '╟──────────────────────────────────────────────────────────╢'
  866. y=charout('con',esc'[14;10f')
  867. say '║      Appuyer sur [RETURN] pour revenir à l`écran         ║'
  868. y=charout('con',esc'[15;10f')
  869. say '╚══════════════════════════════════════════════════════════╝'
  870. x=charout('con',esc'[0;40m')
  871. y=charout('con',esc'[24;31f')
  872. gete=translate(linein())
  873. signal demande
  874.  
  875. reedit:
  876. x=charout('con',esc'[0;40m')
  877. cls
  878. nom3:
  879. x=charout('con',esc'[0;37m')
  880. x=charout('con',esc'[5;5f')
  881. x=charout('con',esc'[0;32m')
  882. say 'Nom du bbs {' nom '}'
  883. x=charout('con',esc'[5;60f')
  884. x=charout('con',esc'[0;31m')
  885. say ' [          ]'
  886. x=charout('con',esc'[5;62f')
  887. x=charout('con',esc'[1;33;m')
  888. nomx=linein()
  889. if length(nomx)>10 then xomx='~'
  890. if length(nomx)=0 then signal login3
  891. if xomx='~'         then x=charout('con',esc'[5;40f')
  892. if xomx='~'         then say '                                '
  893. if xomx='~'         then signal nom3
  894. nom=nomx
  895. login3:
  896. x=charout('con',esc'[0;36m')
  897. x=charout('con',esc'[7;5f')
  898. x=charout('con',esc'[0;32m')
  899. say 'Votre ID utilisée {' login '}'
  900. x=charout('con',esc'[7;60f')
  901. x=charout('con',esc'[0;31m')
  902. say ' [                  ]'
  903. x=charout('con',esc'[7;62f')
  904. x=charout('con',esc'[1;33;m')
  905. logix=linein()
  906. if length(logix)>18 then xogix='~'
  907. if length(logix)=0 then signal pass3
  908. if xogix='~'         then x=charout('con',esc'[7;40f')
  909. if xogix='~'         then say '                                '
  910. if xogix='~'         then     signal login3
  911. login=logix
  912. x=charout('con',esc'[0;36m')
  913. pass3:
  914. x=charout('con',esc'[9;5f')
  915. x=charout('con',esc'[0;32m')
  916. say 'Votre password {' pass '}'
  917. x=charout('con',esc'[9;60f')
  918. x=charout('con',esc'[0;31m')
  919. say ' [            ]'
  920. x=charout('con',esc'[9;62f')
  921. x=charout('con',esc'[1;33;m')
  922. pasx=linein()
  923. if length(pasx)>12 then xasx='~'
  924. if length(pasx)=0 then signal phone3
  925. if xasx='~'         then x=charout('con',esc'[9;40f')
  926. if xasx='~'         then say '                                '
  927. if xasx='~'         then signal pass3
  928. pass=pasx
  929. x=charout('con',esc'[0;36m')
  930. phone3:
  931. x=charout('con',esc'[11;5f')
  932. x=charout('con',esc'[0;32m')
  933. say 'Le numéro d''accès {' phone '}'
  934. x=charout('con',esc'[11;60f')
  935. x=charout('con',esc'[0;31m')
  936. say ' [               ]'
  937. x=charout('con',esc'[11;62f')
  938. x=charout('con',esc'[1;33;m')
  939. phonx=linein()
  940. if length(phonx)>15 then xhonx='~'
  941. if length(phonx)=0 then signal minitel3
  942. if xhonx='~'         then x=charout('con',esc'[11;40f')
  943. if xhonx='~'         then say '                                '
  944. if xhonx='~'         then signal phone3
  945. phone=phonx
  946. x=charout('con',esc'[0;36m')
  947. minitel3:
  948. x=charout('con',esc'[13;5f')
  949. x=charout('con',esc'[0;32m')
  950. say 'Videotext, Qbbs, (o/n) {' minitel '}'
  951. x=charout('con',esc'[13;60f')
  952. x=charout('con',esc'[0;31m')
  953. say ' [ ]'
  954. x=charout('con',esc'[13;62f')
  955. x=charout('con',esc'[1;33;m')
  956. minitex=linein()
  957. if length(minitex)>1  then xinitex='~'
  958. if length(minitex)=0 then signal region3
  959. if xinitex='~'         then x=charout('con',esc'[13;40f')
  960. if xinitex='~'         then say '                                '
  961. if xinitex='~'         then signal minitel3
  962. minitel=minitex
  963. x=charout('con',esc'[0;36m')
  964. region3:
  965. x=charout('con',esc'[15;5f')
  966. x=charout('con',esc'[0;32m')
  967. say 'Précisitions, région du BBS {' region '}'
  968. x=charout('con',esc'[15;60f')
  969. x=charout('con',esc'[0;31m')
  970. say ' [        ]'
  971. x=charout('con',esc'[15;62f')
  972. x=charout('con',esc'[1;33;m')
  973. regiox=linein()
  974. if length(regiox)>8  then xegiox='~'
  975. if length(regiox)=0 then signal demande
  976. if xegiox='~'         then x=charout('con',esc'[5;40f')
  977. if xegiox='~'         then say '                                '
  978. if xegiox='~'         then signal region3
  979. region=regiox
  980. x=charout('con',esc'[0;36m')
  981. signal demande
  982.  
  983. /*                                                                           */
  984. /*                                                                           */
  985. /*       FIN OPTION EDITION                                                  */
  986. /*                                                                           */
  987. /*                                                                           */
  988.  
  989.  
  990. optC:
  991. x=charout('con',esc'[1;33;40m')
  992. cls
  993. bny=3
  994. nbrc=nbr
  995. nbro=nbr
  996. if nbrc=0 then say 'Vous devez deja entré une donnée avant de pouvoir la corriger !!'
  997. do while nbrc>0 & bny<22
  998.       x=charout('con',esc'['bny';3f')
  999.       say nbrc '.'
  1000.       x=charout('con',esc'['bny';8f')
  1001.       ro1=linein(nbrc'bbsd.cmd')
  1002.       call lineout nbrc'bbsd.cmd'
  1003.       call lineout nbrc'bbsd.cmd'
  1004.       say ro1
  1005.       ro1=lineout(nbrc'bbsd.cmd')
  1006.       bny=bny+1
  1007.       nbrc=nbrc-1
  1008. end
  1009. bny2=3
  1010. if bny>=22
  1011.    then do while nbrc>0 & bny2<22
  1012.       x=charout('con',esc'['bny2';30f')
  1013.       say nbrc '.'
  1014.       x=charout('con',esc'['bny2';35f')
  1015.       ro1=linein(nbrc'bbsd.cmd')
  1016.       call lineout nbrc'bbsd.cmd'
  1017.       call lineout nbrc'bbsd.cmd'
  1018.       say ro1
  1019.       ro1=lineout(nbrc'bbsd.cmd')
  1020.       bny2=bny2+1
  1021.       nbrc=nbrc-1
  1022. end
  1023. bny=3
  1024. if bny2>=22
  1025.    then do while nbrc>0 & bny<22
  1026.       x=charout('con',esc'['bny';55f')
  1027.       say nbrc '.'
  1028.       x=charout('con',esc'['bny';60f')
  1029.       ro1=linein(nbrc'bbsd.cmd')
  1030.       call lineout nbrc'bbsd.cmd'
  1031.       call lineout nbrc'bbsd.cmd'
  1032.       say ro1
  1033.       ro1=lineout(nbrc'bbsd.cmd')
  1034.       bny=bny+1
  1035.       nbrc=nbrc-1
  1036. end
  1037. bny2=3
  1038. oky:
  1039. x=charout('con',esc'[23;0f')
  1040. x=charout('con',esc'[1;40m')
  1041. say '                                                                           '
  1042. x=charout('con',esc'[23;0f')
  1043. x=charout('con',esc'[37;41m')
  1044. say 'Numéro du BBS à modifier ou à éliminer ->'
  1045. x=charout('con',esc'[23;42f')
  1046. x=charout('con',esc'[1;37;41m')
  1047. gete=translate(linein())
  1048. if gete='X' then signal Edz
  1049. if gete='H' then signal Hepsp
  1050. if gete='D' then signal optC
  1051. if gete='+' then signal ecoo
  1052. if gete='-' then signal ecoo
  1053. da=datatype(gete)
  1054. if da='NUM' then signal conti
  1055.             else signal aller
  1056. signal oky
  1057.  
  1058. ecoo:
  1059. if nbrc>nbr then nbrc=nbr
  1060. pl=5
  1061. mo=5
  1062. do until mo=0
  1063. if nbrc=0     then mo=0
  1064.               else mo=1
  1065. if nbrc<nbr   then mo=1
  1066.               else mo=0
  1067. if nbrc>nbr   then mo=0
  1068. if nbrc=nbr   then mo=1
  1069. if nbrc+57=57 then mo=0
  1070.               else mo=1
  1071. leave
  1072. end
  1073. if gete='-' & mo=1 then signal moin
  1074. if gete='-' & mo=0 then signal oky
  1075. do until pl=0
  1076. if nbr<=999  then pl=1
  1077.              else pl=0
  1078. if nbrc<nbr  then pl=1
  1079.              else pl=0
  1080. if nbrc>nbr then pl=0
  1081. if nbrc=nbr  then pl=0
  1082.              else pl=1
  1083. if nbrc=nbr-57 then pl=0
  1084.              else pl=1
  1085. if nbrc<57   then pl=0
  1086.              else pl=1
  1087. if nbro-57=nbrc then pl=0
  1088.              else pl=1
  1089. leave
  1090. end
  1091. if nbrc=0 & nbrc=1 & pl<>0 then plx=1
  1092. if gete='+' & pl=1 then signal plus
  1093. if gete='+' & pl=0 then signal oky
  1094. signal oky
  1095.  
  1096.  
  1097.  
  1098. plus:
  1099. x=charout('con',esc'[1;33;40m')
  1100. cls
  1101. bny=3
  1102. if nbrc=0 then nbrc=1
  1103. if plx<=57 then nbrc=nbrc+plx
  1104. xlx=0
  1105. if plx<=57 then signal pp
  1106. if nbrc+57>nbr then signal pp
  1107. nbrc=nbrc+57
  1108. pp:
  1109. do while nbrc>0 & bny<22 & nbrc<=nbr
  1110.       x=charout('con',esc'['bny';3f')
  1111.       say nbrc '.'
  1112.       x=charout('con',esc'['bny';8f')
  1113.       ro1=linein(nbrc'bbsd.cmd')
  1114.       call lineout nbrc'bbsd.cmd'
  1115.       call lineout nbrc'bbsd.cmd'
  1116.       say ro1
  1117.       ro1=lineout(nbrc'bbsd.cmd')
  1118.       bny=bny+1
  1119.       nbrc=nbrc+1
  1120. end
  1121. bny2=3
  1122. if bny>=22
  1123.    then do while nbrc>0 & bny2<22 & nbrc<=nbr
  1124.       x=charout('con',esc'['bny2';30f')
  1125.       say nbrc '.'
  1126.       x=charout('con',esc'['bny2';35f')
  1127.       ro1=linein(nbrc'bbsd.cmd')
  1128.       call lineout nbrc'bbsd.cmd'
  1129.       call lineout nbrc'bbsd.cmd'
  1130.       say ro1
  1131.       ro1=lineout(nbrc'bbsd.cmd')
  1132.       bny2=bny2+1
  1133.       nbrc=nbrc+1
  1134. end
  1135. bny=3
  1136. if bny2>=22
  1137.    then do while nbrc>0 & bny<22 & nbrc<=nbr
  1138.       x=charout('con',esc'['bny';55f')
  1139.       say nbrc '.'
  1140.       x=charout('con',esc'['bny';60f')
  1141.       ro1=linein(nbrc'bbsd.cmd')
  1142.       call lineout nbrc'bbsd.cmd'
  1143.       call lineout nbrc'bbsd.cmd'
  1144.       say ro1
  1145.       ro1=lineout(nbrc'bbsd.cmd')
  1146.       bny=bny+1
  1147.       nbrc=nbrc+1
  1148. end
  1149. bny2=3
  1150. signal oky
  1151.  
  1152. moin:
  1153. x=charout('con',esc'[1;33;40m')
  1154. cls
  1155. bny=3
  1156. if nbrc<=57 then plx=nbrc
  1157. if nbrc<=57 then xlx=1
  1158. if nbrc=nbr then pl=0
  1159. if pl=1 then nbrc=nbrc-57
  1160. do while nbrc>0 & bny<22 & nbrc<=nbr
  1161.       x=charout('con',esc'['bny';3f')
  1162.       say nbrc '.'
  1163.       x=charout('con',esc'['bny';8f')
  1164.       ro1=linein(nbrc'bbsd.cmd')
  1165.       call lineout nbrc'bbsd.cmd'
  1166.       call lineout nbrc'bbsd.cmd'
  1167.       say ro1
  1168.       ro1=lineout(nbrc'bbsd.cmd')
  1169.       bny=bny+1
  1170.       nbrc=nbrc-1
  1171. end
  1172. bny2=3
  1173. if bny>=22
  1174.    then do while nbrc>0 & bny2<22 & nbrc<=nbr
  1175.       x=charout('con',esc'['bny2';30f')
  1176.       say nbrc '.'
  1177.       x=charout('con',esc'['bny2';35f')
  1178.       ro1=linein(nbrc'bbsd.cmd')
  1179.       call lineout nbrc'bbsd.cmd'
  1180.       call lineout nbrc'bbsd.cmd'
  1181.       say ro1
  1182.       ro1=lineout(nbrc'bbsd.cmd')
  1183.       bny2=bny2+1
  1184.       nbrc=nbrc-1
  1185. end
  1186. bny=3
  1187. if bny2>=22
  1188.    then do while nbrc>0 & bny<22 & nbrc<=nbr
  1189.       x=charout('con',esc'['bny';55f')
  1190.       say nbrc '.'
  1191.       x=charout('con',esc'['bny';60f')
  1192.       ro1=linein(nbrc'bbsd.cmd')
  1193.       call lineout nbrc'bbsd.cmd'
  1194.       call lineout nbrc'bbsd.cmd'
  1195.       say ro1
  1196.       ro1=lineout(nbrc'bbsd.cmd')
  1197.       bny=bny+1
  1198.       nbrc=nbrc-1
  1199. end
  1200. bny2=3
  1201. signal oky
  1202.  
  1203. aller:
  1204. x=charout('con',esc'[23;0f')
  1205. x=charout('con',esc'[1;34;47m')
  1206. say '   Veuillez taper: [X] partir, [H] aide, [numéro] étant proposer ->'
  1207. x=charout('con',esc'[23;68f')
  1208. gete=translate(linein())
  1209. if gete='X' then signal Edz
  1210. if gete='H' then signal Hepsp
  1211. if gete='D' then signal optC
  1212. if gete='+' then signal ecoo
  1213. if gete='-' then signal ecoo
  1214. da=datatype(gete)
  1215. if da='NUM' then signal conti
  1216.             else signal aller
  1217. signal aller
  1218.  
  1219. Hepsp:
  1220. x=charout('con',esc'[1;33;46m')
  1221. y=charout('con',esc'[3;10f')
  1222. say '╔═════════════╤════════════════════════════════════════════╗'
  1223. y=charout('con',esc'[4;10f')
  1224. say '║ HELP ME !!  │                                            ║'
  1225. y=charout('con',esc'[5;10f')
  1226. say '╟─────────────┘                                            ║'
  1227. y=charout('con',esc'[6;10f')
  1228. say '║ La demande ici, est fort simple:                         ║'
  1229. y=charout('con',esc'[7;10f')
  1230. say '║  Toutes les données déja inscrites sont identifier avec  ║'
  1231. y=charout('con',esc'[8;10f')
  1232. say '║ un numéro. Il vous suffit donc d''entrer le numéro        ║'
  1233. y=charout('con',esc'[9;10f')
  1234. say '║ correspondant au nom du BBS à corriger pour pouvoir      ║'
  1235. y=charout('con',esc'[10;10f')
  1236. say '║ y accéder...                                             ║'
  1237. y=charout('con',esc'[11;10f')
  1238. say '║ [+] suivi de CR -> Augmenter d''une page si possiblité    ║'
  1239. y=charout('con',esc'[12;10f')
  1240. say '║ [-] suivi de Cr -> Diminuer d''une page si possiblité     ║'
  1241. y=charout('con',esc'[13;10f')
  1242. say '║ [D] suivi de Cr -> Position de départ, à la dernière     ║'
  1243. y=charout('con',esc'[14;10f')
  1244. say '║                    donnée entrer.                        ║'
  1245. y=charout('con',esc'[15;10f')
  1246. say '╟──────────────────────────────────────────────────────────╢'
  1247. y=charout('con',esc'[16;10f')
  1248. say '║      Appuyer sur [RETURN] pour revenir à l`écran         ║'
  1249. y=charout('con',esc'[17;10f')
  1250. say '╚══════════════════════════════════════════════════════════╝'
  1251. x=charout('con',esc'[0;40m')
  1252. y=charout('con',esc'[24;31f')
  1253. gete=translate(linein())
  1254. signal optC
  1255.  
  1256.  
  1257.  
  1258.  
  1259.  
  1260.  
  1261. conti:
  1262. if gete>nbr then signal oky
  1263. if gete<=0 then signal oky
  1264. x=charout('con',esc'[0;36;40m')
  1265. cls
  1266. nor=gete
  1267. nxe=nor
  1268. nb=4
  1269. app='call '''nor'bbsd.cmd'' nb'
  1270. x=charout('con',esc'[1;0f')
  1271. say '┌────────────┬───────────────────┬──────────────┬────────────────┬───┬────────┐'
  1272. say '│ Nom du BBS │  Login  Utilisé   │   Password   │ Numéro d''Acces │Mt.│ Divers │'
  1273. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  1274. say '│            │                   │              │                │   │        │'
  1275. say '└────────────┴───────────────────┴──────────────┴────────────────┴───┴────────┘'
  1276. interpret app
  1277. call lineout nor'bbsd.cmd'
  1278. call lineout nor'bbsd.cmd'
  1279. contER:
  1280. x=charout('con',esc'[7;0f')
  1281. x=charout('con',esc'[31m')
  1282. say '                                                                            '
  1283. say '                                                                            '
  1284. say '                                                                            '
  1285. say 'Voici toutes les données que vous avez inscrites auparavant concernant ce BBS'
  1286. say 'Il vous est maintenant possible de modifier vos données, de les détruire ...'
  1287. say '... à jamais !, ou simplement d''abonner cette opération sans rien changer.'
  1288. say 'Vous avez le choix entre les options suivantes:                          '
  1289. say '             [M] suivi de Cr, Modifier les données inscrites ci-dessus      '
  1290. say '             [D] suivi de Cr, Detruire toutes ces données                   '
  1291. say '             [X] suivi de Cr, Abandonner tout, et revenir au  menu          '
  1292. say '             [H] suivi de Cr, Aide supplémentaire...mais que dire de plus ?!'
  1293. say '                                                                            '
  1294. say '                                                                            '
  1295. x=charout('con',esc'[22;0f')
  1296. x=charout('con',esc'[1;34;40m')
  1297. say '───────────────────────────────────────────────────────────────────────────────'
  1298. zygg:
  1299. x=charout('con',esc'[23;5f')
  1300. say '                                                                           '
  1301. x=charout('con',esc'[23;0f')
  1302. x=charout('con',esc'[1;33;0m')
  1303. say ' Veuillez entrer votre choix -> '
  1304. x=charout('con',esc'[23;32f')
  1305. gete=translate(linein())
  1306. if gete<>'M' & gete<>'D' & gete<>'X' & gete<>'H' then signal hecr
  1307. if gete='M' then signal modcr
  1308. if gete='D' then signal detcr
  1309. if gete='X' then signal Edz
  1310. if gete='H' then signal hecr
  1311. signal zygg
  1312.  
  1313. hecr:
  1314. x=charout('con',esc'[1;33;46m')
  1315. y=charout('con',esc'[7;10f')
  1316. say '╔═════════════╤════════════════════════════════════════════╗'
  1317. y=charout('con',esc'[8;10f')
  1318. say '║ HELP ME !!  │                                            ║'
  1319. y=charout('con',esc'[9;10f')
  1320. say '╟─────────────┘                                            ║'
  1321. y=charout('con',esc'[10;10f')
  1322. say '║ Tout vous est expliquer sur l''écran, alors pourquoi      ║'
  1323. y=charout('con',esc'[11;10f')
  1324. say '║ vouloir toujours embetter le monde avec de l''aide,       ║'
  1325. y=charout('con',esc'[12;10f')
  1326. say '║ toujours de l''Aide. Eh bin, non! Pas cette fois! Je ne   ║'
  1327. y=charout('con',esc'[13;10f')
  1328. say '║ vous redirais pas ce qu''y est deja inscrit sur l''écran.. ║'
  1329. y=charout('con',esc'[14;10f')
  1330. say '║ Suffit de lire!! Non mais des fois...                    ║'
  1331. y=charout('con',esc'[15;10f')
  1332. say '╟──────────────────────────────────────────────────────────╢'
  1333. y=charout('con',esc'[16;10f')
  1334. say '║      Appuyer sur [RETURN] pour revenir à l`écran         ║'
  1335. y=charout('con',esc'[17;10f')
  1336. say '╚══════════════════════════════════════════════════════════╝'
  1337. x=charout('con',esc'[0;40m')
  1338. y=charout('con',esc'[24;31f')
  1339. gete=translate(linein())
  1340. signal contER
  1341.  
  1342. detcr:
  1343. x=charout('con',esc'[1;37;40m')
  1344. cls
  1345. x=charout('con',esc'[2;2f')
  1346. say 'Voulez vous vraiment détruire cette donnée (o/n) ?'
  1347. x=charout('con',esc'[2;53f')
  1348. gete=translate(linein())
  1349. if gete<>'O' & gete<>'N' then signal detai
  1350. if gete='N' then signal Edz
  1351. if gete='O' then signal detcr2
  1352. signal detcr
  1353. detcr2:
  1354. fich=nxe'bbsd.cmd'
  1355. del fich
  1356. nom='-L i B r E-'
  1357. x1='x=charout(''con'',esc''[''nb'';03f'')'
  1358. st1='say '''nom''''
  1359. zz=lineout(fich,'/* 'nom' */')
  1360. zz=lineout(fich,'/* 'nom' */')
  1361. zz=lineout(fich,'esc=''1B''x')
  1362. zz=lineout(fich,'arg nb .')
  1363. zz=lineout(fich,x1)
  1364. zz=lineout(fich,st1)
  1365. zz=lineout(fich)
  1366. zz=linein(fich)
  1367. signal Edz
  1368.  
  1369.  
  1370. detai:
  1371. x=charout('con',esc'[1;33;46m')
  1372. y=charout('con',esc'[7;10f')
  1373. say '╔═════════════╤════════════════════════════════════════════╗'
  1374. y=charout('con',esc'[8;10f')
  1375. say '║ HELP ME !!  │                                            ║'
  1376. y=charout('con',esc'[9;10f')
  1377. say '╟─────────────┘                                            ║'
  1378. y=charout('con',esc'[10;10f')
  1379. say '║ A ce stade de l''option [DESTRUCTION], un dernier choix   ║'
  1380. y=charout('con',esc'[11;10f')
  1381. say '║ s''impose! Oui, je ne veux pas, Non, ayant bien réfléchi  ║'
  1382. y=charout('con',esc'[12;10f')
  1383. say '║ j''en veux encore.                                        ║'
  1384. y=charout('con',esc'[13;10f')
  1385. say '║ Donc si vous répondez oui [o], la donnée sera réduite    ║'
  1386. y=charout('con',esc'[14;10f')
  1387. say '║ à néans pour toujours, sinon vous abandonner, et au menu!║'
  1388. y=charout('con',esc'[15;10f')
  1389. say '╟──────────────────────────────────────────────────────────╢'
  1390. y=charout('con',esc'[16;10f')
  1391. say '║      Appuyer sur [RETURN] pour revenir à l`écran         ║'
  1392. y=charout('con',esc'[17;10f')
  1393. say '╚══════════════════════════════════════════════════════════╝'
  1394. x=charout('con',esc'[0;40m')
  1395. y=charout('con',esc'[24;31f')
  1396. gete=translate(linein())
  1397. signal detcr
  1398.  
  1399.  
  1400.  
  1401.  
  1402. modcr:
  1403. x=charout('con',esc'[0;37;40m')
  1404. cls
  1405. nb=4
  1406. app='call '''nxe'bbsd.cmd'' nb'
  1407. x=charout('con',esc'[1;0f')
  1408. say '┌────────────┬───────────────────┬──────────────┬────────────────┬───┬────────┐'
  1409. say '│ Nom du BBS │  Login  Utilisé   │   Password   │ Numéro d''Acces │Mt.│ Divers │'
  1410. say '├────────────┼───────────────────┼──────────────┼────────────────┼───┼────────┤'
  1411. say '│            │                   │              │                │   │        │'
  1412. say '└────────────┴───────────────────┴──────────────┴────────────────┴───┴────────┘'
  1413. interpret app
  1414. call lineout nxe'bbsd.cmd'
  1415. call lineout nxe'bbsd.cmd'
  1416. say ' '
  1417. x=charout('con',esc'[8;5f')
  1418. x=charout('con',esc'[0;32m')
  1419. say 'Nom du BBS:'
  1420. noz2:
  1421. x=charout('con',esc'[8;40f')
  1422. x=charout('con',esc'[0;31m')
  1423. say ' [          ]'
  1424. x=charout('con',esc'[8;42f')
  1425. x=charout('con',esc'[1;33;m')
  1426. nom=linein()
  1427. if length(nom)>10 then nom=''
  1428. if nom=''         then x=charout('con',esc'[8;40f')
  1429. if nom=''         then say '                                '
  1430. if nom=''         then signal noz2
  1431. x=charout('con',esc'[0;36m')
  1432. /*                        */
  1433. /*   Demande du login     */
  1434. /*                  [18]  */
  1435. x=charout('con',esc'[10;5f')
  1436. x=charout('con',esc'[0;32m')
  1437. say 'Login Utilisé:'
  1438. logiz2:
  1439. x=charout('con',esc'[10;40f')
  1440. x=charout('con',esc'[0;31m')
  1441. say ' [                  ]'
  1442. x=charout('con',esc'[10;42f')
  1443. x=charout('con',esc'[1;33;m')
  1444. login=linein()
  1445. if length(login)>18 then login=''
  1446. if login=''       then     x=charout('con',esc'[10;40f')
  1447. if login=''       then     say '                                '
  1448. if login=''       then     signal logiz2
  1449. x=charout('con',esc'[0;36m')
  1450. /*                        */
  1451. /*   Demande du Pass      */
  1452. /*                [12]    */
  1453. x=charout('con',esc'[12;5f')
  1454. x=charout('con',esc'[0;32m')
  1455. say 'Password:'
  1456. pasz2:
  1457. x=charout('con',esc'[12;40f')
  1458. x=charout('con',esc'[0;31m')
  1459. say ' [            ]'
  1460. x=charout('con',esc'[12;42f')
  1461. x=charout('con',esc'[1;33;m')
  1462. pass=linein()
  1463. if length(pass)>12 then pass=''
  1464. if pass=''         then x=charout('con',esc'[12;40f')
  1465. if pass=''         then say '                                '
  1466. if pass=''         then signal pasz2
  1467. x=charout('con',esc'[0;36m')
  1468. /*                        */
  1469. /*   Demande du Telephone */
  1470. /*                [15]    */
  1471. x=charout('con',esc'[14;5f')
  1472. x=charout('con',esc'[0;32m')
  1473. say 'Numéro d''acces:'
  1474. phonz2:
  1475. x=charout('con',esc'[14;40f')
  1476. x=charout('con',esc'[0;31m')
  1477. say ' [               ]'
  1478. x=charout('con',esc'[14;42f')
  1479. x=charout('con',esc'[1;33;m')
  1480. phone=linein()
  1481. if length(phone)>15 then phone=''
  1482. if phone=''         then x=charout('con',esc'[14;40f')
  1483. if phone=''         then say '                                '
  1484. if phone=''         then signal phonz2
  1485. x=charout('con',esc'[0;36m')
  1486. /*                         */
  1487. /*   Demande, Minitel (o/n) */
  1488. /*               [1]       */
  1489. x=charout('con',esc'[16;5f')
  1490. x=charout('con',esc'[0;32m')
  1491. say 'Minitel (o/n):'
  1492. minitez2:
  1493. x=charout('con',esc'[16;40f')
  1494. x=charout('con',esc'[0;31m')
  1495. say ' [ ]'
  1496. x=charout('con',esc'[16;42f')
  1497. x=charout('con',esc'[1;33;m')
  1498. minitel=linein()
  1499. if length(minitel)>1  then minitel=''
  1500. if minitel=''         then x=charout('con',esc'[16;40f')
  1501. if minitel=''         then say '                                '
  1502. if minitel=''         then signal minitez2
  1503. x=charout('con',esc'[0;36m')
  1504. /*                        */
  1505. /*   Demande du la Region */
  1506. /*               [8]     */
  1507. x=charout('con',esc'[18;5f')
  1508. x=charout('con',esc'[0;32m')
  1509. say 'Divers:'
  1510. regioz2:
  1511. x=charout('con',esc'[18;40f')
  1512. x=charout('con',esc'[0;31m')
  1513. say ' [        ]'
  1514. x=charout('con',esc'[18;42f')
  1515. x=charout('con',esc'[1;33;m')
  1516. region=linein()
  1517. if length(region)>8  then region=''
  1518. if region=''         then x=charout('con',esc'[18;40f')
  1519. if region=''         then say '                                '
  1520. if region=''         then signal regioz2
  1521. x=charout('con',esc'[0;36m')
  1522. fich=nxe'bbsd.cmd'
  1523. del fich
  1524. x1='x=charout(''con'',esc''[''nb'';03f'')'
  1525. x2='x=charout(''con'',esc''[''nb'';16f'')'
  1526. x3='x=charout(''con'',esc''[''nb'';36f'')'
  1527. x4='x=charout(''con'',esc''[''nb'';51f'')'
  1528. x5='x=charout(''con'',esc''[''nb'';68f'')'
  1529. x6='x=charout(''con'',esc''[''nb'';71f'')'
  1530. st1='say '''nom''''
  1531. st2='say '''login''''
  1532. st3='say '''pass''''
  1533. st4='say '''phone''''
  1534. st5='say '''minitel''''
  1535. st6='say '''region''''
  1536. zz=lineout(fich,'/* 'nom' */')
  1537. zz=lineout(fich,'/* 'nom' */')
  1538. zz=lineout(fich,'esc=''1B''x')
  1539. zz=lineout(fich,'arg nb .')
  1540. zz=lineout(fich,x1)
  1541. zz=lineout(fich,st1)
  1542. zz=lineout(fich,x2)
  1543. zz=lineout(fich,st2)
  1544. zz=lineout(fich,x3)
  1545. zz=lineout(fich,st3)
  1546. zz=lineout(fich,x4)
  1547. zz=lineout(fich,st4)
  1548. zz=lineout(fich,x5)
  1549. zz=lineout(fich,st5)
  1550. zz=lineout(fich,x6)
  1551. zz=lineout(fich,st6)
  1552. zz=lineout(fich)
  1553. zz=linein(fich)
  1554. signal Edz
  1555.  
  1556. bbhelp:
  1557. x=charout('con',esc'[0;31;46m')
  1558. cls
  1559. say '┌─────────────────────────────────────────────────────────────────────────────┐'
  1560. say '│   Aide Etendue sur  BBS - M é M o                              Page  1/5    │'
  1561. say '├─────────────────────────────────────────────────────────────────────────────┤'
  1562. say '│                                                                             │'
  1563. say '│                                                                             │'
  1564. say '│                                                                             │'
  1565. say '│       Ce programme a été rélisé en REXX sous OS/2 1.1                       │'
  1566. say '│       Par                                                                   │'
  1567. say '│                 SANDORFI Emmanuel      en Octobre de l''an de grÅce 1989.    │'
  1568. say '│                ───────────────────                                          │'
  1569. say '│                                                                             │'
  1570. say '│                                                                             │'
  1571. say '│     Pour me joindre:     QBBS     (Transpac ou Teletel 2 (3614))            │'
  1572. say '│                                   (code d''acces:  195150485*BBS)            │'
  1573. say '│                                   mail:  ZYGAR                              │'
  1574. say '│                                                                             │'
  1575. say '│                          MODULA   (4043 0124)                               │'
  1576. say '│                                   mail:  EMMANUEL SANDORFI                  │'
  1577. say '│                                                                             │'
  1578. say '│                          SUPTEL   (4899 1200)                               │'
  1579. say '│                                   mail:  MANU SANDORFI                      │'
  1580. say '│                                                                             │'
  1581. say '└──────────┤ Appuyer sur [Return] pour continuer, ou sur [X] pour abandonner├─┘'
  1582. gete=translate(linein())
  1583. if gete='X' then signal menu
  1584. cls
  1585. say '┌─────────────────────────────────────────────────────────────────────────────┐'
  1586. say '│   Aide Etendue sur  BBS - M é M o                              Page  2/5    │'
  1587. say '├─────────────────────────────────────────────────────────────────────────────┤'
  1588. say '│                                                                             │'
  1589. say '│                                                                             │'
  1590. say '│    BBS - M é M o  est un petit programme qui a pour simple but de faciliter │'
  1591. say '│    le management de toutes les BBS que vous fréquentées. C''est à dire:      │'
  1592. say '│          - une possibilité d''avoir tous vos bbs inscrits dans un sortes     │'
  1593. say '│            de répertoire, ainsi que leur numéro d''acces.                    │'
  1594. say '│          - une possibilité d''avoir le login et le password utilisé dans     │'
  1595. say '│            chaque bbs.                                                      │'
  1596. say '│          - le management des données sur vos BBS.                           │'
  1597. say '│    Enfin, il faut bien vous imaginer que ce n''est qu''un tout petit          │'
  1598. say '│    programme, donc ne pas vous attendre à quelquechose de fantasmagorique,  │'
  1599. say '│    bien que..... Hehehe                                                     │'
  1600. say '│                                                                             │'
  1601. say '│    Toutes les commandes devront etres généralment suivies de Return.        │'
  1602. say '│    Si vous ne mettez pas la bonne commande, dans la plupart des cas, un     │'
  1603. say '│    écran d''aide appparaitra (sinon tapez [H]).                              │'
  1604. say '│                                                                             │'
  1605. say '│    Les differents choix de menus sont:                                      │'
  1606. say '│                                                                             │'
  1607. say '└──────────┤ Appuyer sur [Return] pour continuer, ou sur [X] pour abandonner├─┘'
  1608. gete=translate(linein())
  1609. if gete='X' then signal menu
  1610. cls
  1611. say '┌─────────────────────────────────────────────────────────────────────────────┐'
  1612. say '│   Aide Etendue sur  BBS - M é M o                              Page  3/5    │'
  1613. say '├─────────────────────────────────────────────────────────────────────────────┤'
  1614. say '│                                                                             │'
  1615. say '│                                                                             │'
  1616. say '│       - Un View de vos données: Il permet en efftet une fois que vous avez  │'
  1617. say '│          rentré au moins un fichier concernant un BBS (option B au menu)    │'
  1618. say '│          de pouvoir lister ce que vous avez fait. Il se pourra qu''a un      │'
  1619. say '│          moment plus rien ne s''affiche, dnas ce cas la appuyer sur [D]      │'
  1620. say '│          qui remmtra le compteur a zero. Pour pouvoir changer de page, il   │'
  1621. say '│          vous suffit simplement de faire [+] ou [-] suivi d'Enter.          │'
  1622. say '│                                                                             │'
  1623. say '│       - Un programme d''édition permmettant de rentrer vos données.          │'
  1624. say '│                                                                             │'
  1625. say '│       - Un programme de modification qui apres etre aller dans [B],[2]      │'
  1626. say '│         affichera tous vos BBS. Pour le deplacement, voir ci-dessus.        │'
  1627. say '│         Ensuite pour selecter un BBS, tapez son numero correspondant.       │'
  1628. say '│         Si jamais vous le détruisez, aparaitra alors un nom ''- Libre - ''    │'
  1629. say '│         ou vous devez par la suite mettre qqchose dessus.                   │'
  1630. say '│                                                                             │'
  1631. say '│       - Abandon, qui vous ramenera sous le prompt OS/2                      │'
  1632. say '│                                                                             │'
  1633. say '└──────────┤ Appuyer sur [Return] pour continuer, ou sur [X] pour abandonner├─┘'
  1634. gete=translate(linein())
  1635. if gete='X' then signal menu
  1636. cls
  1637. say '┌─────────────────────────────────────────────────────────────────────────────┐'
  1638. say '│   Aide Etendue sur  BBS - M é M o                              Page  4/5    │'
  1639. say '├─────────────────────────────────────────────────────────────────────────────┤'
  1640. say '│                                                                             │'
  1641. say '│                                                                             │'
  1642. say '│   Cette version de BBS - M é M o   est en Beta Test, donc si vous trouvez   │'
  1643. say '│   quelques erreurs n''hésitez pas à m''en faire part dans un des BBS cités    │'
  1644. say '│   en première page.                                                         │'
  1645. say '│                                                                             │'
  1646. say '│                                                                             │'
  1647. say '│                                                                             │'
  1648. say '│   BBS - M é M o  n''est pas à considérer comme un gros programme, mais       │'
  1649. say '│   comme un démonstration de la puissance du language REXX.                  │'
  1650. say '│   Son but secondaire se montre par la gestion des BBS: on peut dire qu''en   │'
  1651. say '│   fin de compte, c''est une mini-database.                                   │'
  1652. say '│                                                                             │'
  1653. say '│                                                                             │'
  1654. say '│   BBS - M é M o  fonctionne sous OS/2 1.1 et +.  Attention la version du    │'
  1655. say '│   Rexx est SAA, non OS/2 !  Il peut y avoir des differences d''ou une non    │'
  1656. say '│   compatibilité ..                                                          │'
  1657. say '│       Donc verifiez la version de votre Rexx avant de déclarer que ....     │'
  1658. say '│                                                                             │'
  1659. say '└──────────┤ Appuyer sur [Return] pour continuer, ou sur [X] pour abandonner├─┘'
  1660. gete=translate(linein())
  1661. if gete='X' then signal menu
  1662. cls
  1663. say '┌─────────────────────────────────────────────────────────────────────────────┐'
  1664. say '│   Aide Etendue sur  BBS - M é M o                              Page  5/5    │'
  1665. say '├─────────────────────────────────────────────────────────────────────────────┤'
  1666. say '│                                                                             │'
  1667. say '│                                                                             │'
  1668. say '│   .... BBS - M é M o  ne fonctionne pas.                                    │'
  1669. say '│                                                                             │'
  1670. say '│                                                                             │'
  1671. say '│                                                                             │'
  1672. say '│                                                                             │'
  1673. say '│                                                                             │'
  1674. say '│       Et pour finir, je dédie ce tout tout petit programme au               │'
  1675. say '│                         ┌────────────────┐                                  │'
  1676. say '│                         │ DOMAINE PUBLIC │                                  │'
  1677. say '│                         └────────────────┘                                  │'
  1678. say '│                    Vente strictement interdite !!                           │'
  1679. say '│                                                                             │'
  1680. say '│                                                                             │'
  1681. say '│       LA MODIFICATION DU PROGRAMME BBS.CMD EST STRICTEMENT INTERDITE !!     │'
  1682. say '│       AINSI QUE SA VENTE.                                                   │'
  1683. say '│                                     LOGICIEL  FREEWARE                      │'
  1684. say '│                                                                             │'
  1685. say '└──────────┤ Appuyer sur [Return] pour continuer, ou sur [X] pour abandonner├─┘'
  1686. gete=translate(linein())
  1687. if gete='X' then signal menu
  1688. signal menu
  1689.  
  1690.  
  1691.  
  1692.  
  1693.  
  1694.  
  1695.  
  1696.  
  1697.  
  1698.  
  1699. /*            Boucle GOODBYE ->   Quitte le programme                        */
  1700. goodbye:
  1701. x=charout('con',esc'[1;33;40m')
  1702. cls
  1703. zz=lineout('bbscfg',nbr)
  1704. say ' Thanks to use BBS - M é M o '
  1705. x=charout('con',esc'[0;37;40m')
  1706. exit
  1707.