home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 3 / SpanishScene3.iso / programas / fredius_darde-odrusba / programa-bbs < prev    next >
Text File  |  1999-05-27  |  31KB  |  819 lines
  1. REM  *********************************************************************
  2. REM  ***                                                               ***
  3. REM  ***               F R O N T W I N D O W    0 . 0 2                ***
  4. REM  ***                                                               ***
  5. REM  ***           Programao por: F R e D i u S   D a R D e            ***
  6. REM  ***                                                               ***
  7. REM  ***                    Phone (957) 23 71 98                       ***
  8. REM  ***                                                               ***
  9. REM  *********************************************************************
  10.  
  11.  
  12. DIM c$(11)
  13. WIDTH "scrn:",78
  14. registrados$="df1:cuestionarios/registrados"
  15. claves$="df1:clavesdir/claves"
  16. cuestionarios$="df1:cuestionarios/"
  17. mail$="df1:mail/"
  18. listmail$="df1:mail/listmail"
  19.  
  20. principio:
  21. GOSUB llamada
  22. GOSUB introcom
  23. GOSUB careta
  24. GOSUB vernivel
  25. IF regusu THEN GOSUB nivel1 ELSE GOSUB nivel0
  26. GOSUB noticias
  27.  
  28. principal:
  29.  
  30. s$="                   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿":GOSUB salmodem
  31. s$="                   ³          MeN£ PRiNCiPaL          ³ Û":GOSUB salmodem
  32. s$="                   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ Û":GOSUB salmodem
  33. s$="                     ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ":GOSUB salmodem
  34. s$="":GOSUB salmodem:GOSUB salmodem
  35. s$="                    R Ü Registrarse          B Ü Boletines":GOSUB salmodem
  36. s$="                   ÜÜÜÛ debidamente         ÜÜÜÛ":GOSUB salmodem
  37. s$="":GOSUB salmodem
  38. s$="                    M Ü Mensajillos          F Ü Ficherillos":GOSUB salmodem
  39. s$="                   ÜÜÜÛ                     ÜÜÜÛ":GOSUB salmodem
  40. s$="":GOSUB salmodem
  41. s$="                    I Ü 003 (Informaci¢n)    X Ü Salir de":GOSUB salmodem
  42. s$="                   ÜÜÜÛ                     ÜÜÜÛ BiSHo BBS":GOSUB salmodem
  43. s$="":GOSUB salmodem
  44. s$="                    L Ü Porcentaje de        U Ü Usuarios que":GOSUB salmodem
  45. s$="                   ÜÜÜÛ llamadas            ÜÜÜÛ s'han apuntao":GOSUB salmodem
  46. s$="":GOSUB salmodem:GOSUB salmodem
  47. buclef1:
  48. GOSUB tecla
  49. IF i$<>"R" AND i$<>"B" AND i$<>"M" AND i$<>"F" AND i$<>"I" AND i$<>"X" AND i$<>"L" AND i$<>"U" THEN buclef1
  50. IF (i$="B" OR i$="M" OR i$="F" OR i$="I" OR i$="L" OR i$="U") AND NOT(regusu) THEN GOSUB impedimento : GOTO principal
  51. IF i$="R" THEN GOSUB cuestionario
  52. IF i$="B" THEN GOSUB boletines
  53. IF i$="M" THEN GOSUB mensajes
  54. IF i$="F" THEN GOSUB ficheros
  55. IF i$="I" THEN GOSUB informacion
  56. IF i$="X" THEN salir
  57. IF i$="L" THEN GOSUB llamadas
  58. IF i$="U" THEN GOSUB listausuarios
  59. GOTO principal
  60.  
  61.  
  62. introcom:
  63.  
  64. s$="Pulsa el tecloide que pone 'RETURN':" : GOSUB salmodem
  65. buclea1:
  66. GOSUB tecla
  67. IF i$<>CHR$(13) THEN buclea1
  68. s$="" : GOSUB salmodem : GOSUB salmodem
  69. s$="FrontWindow 0.02; Noncommercial version (No se vende!!!)" : GOSUB salmodem
  70. s$="" : GOSUB salmodem
  71. s$="BiSHo is being loaded." : GOSUB salmodem
  72. s$="" : GOSUB salmodem : GOSUB salmodem
  73. s$="     * Proximo evento del sistema en el a¤o 3.382 (dentro de un rato) *" : GOSUB salmodem
  74. s$="" : GOSUB salmodem
  75. s$="          ÛÛÛÛÛÛÛÛÛÛ    ÛÛÛ    ÛÛÛÛÛÛÛ   ÛÛÛÛÛ   ÛÛÛÛ   ÛÛÛÛÛÛÛÛ" : GOSUB salmodem
  76. s$="         ±±ÛÛÛ±±±±±ÛÛ  ÛÛÛÛÛ  ÛÛÛ±±±±ÛÛ ±±ÛÛÛ   ±±ÛÛ   ÛÛÛ±±±±±ÛÛ" : GOSUB salmodem
  77. s$="        °°±ÛÛÛ°°°°±ÛÛÛ±ÛÛÛÛÛ ÛÛÛ°°°°±±ÛÛ°±ÛÛÛ  °°±ÛÛ  ÛÛÛ°°°°°±±ÛÛ" : GOSUB salmodem
  78. s$="         °±ÛÛÛ   °±ÛÛÛ±±ÛÛÛ ±ÛÛÛ   °°±± °±ÛÛÛ   °±ÛÛ ±ÛÛÛ    °°±ÛÛ" : GOSUB salmodem
  79. s$="         °±ÛÛÛ   °±ÛÛ°°±±± °±±ÛÛÛ   °°  °±ÛÛÛ   °±ÛÛ°±ÛÛÛ     °±ÛÛ" : GOSUB salmodem
  80. s$="         °±ÛÛÛÛÛÛÛÛÛ  °ÛÛÛÛÛ°±±ÛÛÛÛÛÛÛ  °±ÛÛÛÛÛÛÛÛÛÛ°±ÛÛÛ     °±ÛÛ" : GOSUB salmodem
  81. s$="         °±ÛÛÛ±±±±±ÛÛ ±±ÛÛÛ °°±±±±±±±ÛÛ °±ÛÛÛ±±±±±ÛÛ°±ÛÛÛ     °±ÛÛ" : GOSUB salmodem
  82. s$="         °±ÛÛÛ°°°°±ÛÛÛ°±ÛÛÛ  °°°°°°°±±ÛÛ°±ÛÛÛ°°°°±ÛÛ°±ÛÛÛ     °±ÛÛ" : GOSUB salmodem
  83. s$="         °±ÛÛÛ   °±ÛÛÛ°±ÛÛÛ        °°±ÛÛ°±ÛÛÛ   °±ÛÛ°±ÛÛÛ     °±ÛÛ" : GOSUB salmodem
  84. s$="         °±ÛÛÛ   °±ÛÛÛ°±ÛÛÛ  ÛÛÛ    °±ÛÛ°±ÛÛÛ   °±ÛÛ°±ÛÛÛ     °±ÛÛ" : GOSUB salmodem
  85. s$="         °±ÛÛÛ   °±ÛÛ °±ÛÛÛ ±±ÛÛÛ   °ÛÛ °±ÛÛÛ   °±ÛÛ°±±ÛÛÛ    °ÛÛ" : GOSUB salmodem
  86. s$="         °ÛÛÛÛÛÛÛÛÛÛ  °ÛÛÛÛÛ°±±ÛÛÛÛÛÛÛ  °ÛÛÛÛÛ  °ÛÛÛÛ°±±ÛÛÛÛÛÛÛÛ" : GOSUB salmodem
  87. s$="         ±±±±±±±±±±   ±±±±± °°±±±±±±±   ±±±±±   ±±±± °°±±±±±±±±" : GOSUB salmodem
  88. s$="        °°°°°°°°°°   °°°°°   °°°°°°°   °°°°°   °°°°   °°°°°°°°" : GOSUB salmodem
  89. s$="" : GOSUB salmodem
  90. s$="The Software FRONTWINDOW 0.02 es de dominio p£bico, pudiendo ser" : GOSUB salmodem
  91. s$="distribuido (que lo dudo) bajo invitada correspondiente al que lo" : GOSUB salmodem
  92. s$="hizo posible: FReDiuS DaRDe." : GOSUB salmodem
  93. s$="" : GOSUB salmodem
  94. s$="**EMSI_IRQ8E5643608 RemoteAcsex 0.01" : GOSUB salmodem
  95. s$="" : GOSUB salmodem : GOSUB salmodem
  96. intronombre:
  97. s$="Por favor, escribe tu nombre completo : " : GOSUB salmodem2 : GOSUB frase : nombre1$=f$
  98. s$="" : GOSUB salmodem
  99. s$="Espera, estoy buscando el fichero de usuarios ... (donde est ?)" : GOSUB salmodem
  100. OPEN claves$ FOR INPUT AS 9
  101. bucled4:
  102. FOR m=1 TO 4
  103. IF EOF(9) THEN CLOSE 9 : GOTO bucled5
  104. INPUT #9,con$(m)
  105. NEXT m
  106. IF nombre1$=con$(1) THEN CLOSE 9 : GOTO intrpass
  107. GOTO bucled4
  108. bucled5:
  109. con$(1)=nombre1$
  110. FOR n=2 TO 4
  111. con$(n)=""
  112. NEXT n
  113. s$="" : GOSUB salmodem
  114. s$="Lenguajes disponibles : " : GOSUB salmodem
  115. s$="" : GOSUB salmodem
  116. s$="  1 ..... Andal£                         2 ..... Batusi" : GOSUB salmodem
  117. s$="" : GOSUB salmodem : GOSUB salmodem
  118. bucleb1:
  119. s$="Elije el lenguaje que deseas utilizar : " : GOSUB salmodem2 : GOSUB tecla
  120. IF i$<>"1" AND i$<>"2" THEN bucleb1
  121. IF i$="2" THEN s$="Lo sentimos musho, pero a£n no est  disponible!!! (Colocando andal£)" : GOSUB salmodem
  122. s$="" : GOSUB salmodem
  123. s$="Tu nombre no ha sido localizado en el fichero de usuarios del sistema." : GOSUB salmodem
  124. s$="" : GOSUB salmodem
  125. s$="Nombre introducido: "+con$(1) : GOSUB salmodem
  126. s$="" : GOSUB salmodem
  127. s$="¨Es este nombre correcto?  [S/N]? " : GOSUB salmodem2
  128. bucleb2:
  129. GOSUB tecla
  130. IF i$<>"S" AND i$<>"N" THEN bucleb2
  131. IF i$="N" THEN intronombre
  132. s$="" : GOSUB salmodem
  133. s$="Bienvenido a BiSHo BBS" : GOSUB salmodem
  134. s$="" : GOSUB salmodem
  135. s$="        Este es un sistema totasmente de gorra (aunque se aceptan todos" : GOSUB salmodem
  136. s$="los cheques que se env¡en, para subvencionar las borracheras del igno-" : GOSUB salmodem
  137. s$="minioso Zyzop que tenemos)." : GOSUB salmodem
  138. s$="" : GOSUB salmodem
  139. s$="       Esperamos que tus pulularesss por esta BBS sean totalmente de" : GOSUB salmodem
  140. s$="nuestro agrado, y que te portes correctamente por tu bien propio. Y re-" : GOSUB salmodem
  141. s$="cuerda que todo lo que se nos ocurra podr  ser utilizado en tu contra," : GOSUB salmodem
  142. s$="y que tienes callado a permanecer derecho y a abogar un solicitado." : GOSUB salmodem
  143. s$="" : GOSUB salmodem
  144. s$="       No olvides rellenar el cuestionario que encontrar s en el men£" : GOSUB salmodem
  145. s$="principal, pues si no lo haces no podr s acceder a ninguna secci¢n de" : GOSUB salmodem
  146. s$="esta magna BBS (y te perder¡as uno de los mayores acontecimientos de" : GOSUB salmodem
  147. s$="nuestro siglo, despu‚s de la invenci¢n de la m quina de depilar bolas" : GOSUB salmodem
  148. s$="de billar)." : GOSUB salmodem
  149. s$="" : GOSUB salmodem
  150. s$="Ahora pulsa ENTER " : GOSUB salmodem
  151. bucled1:
  152. GOSUB tecla
  153. IF i$<>CHR$(13) THEN bucled1
  154. s$="" : GOSUB salmodem
  155. s$="¨Deseas HOT-KEYs? [S/N]? " : GOSUB salmodem2
  156. bucleb3:
  157. GOSUB tecla
  158. IF i$<>"S" AND i$<>"N" THEN bucleb3
  159. IF i$="N" THEN s$="Ea, pues nada." : GOSUB salmodem
  160. IF i$="S" THEN s$="Pues arrimal‚ la estufa al teclao!" : GOSUB salmodem
  161. s$="" : GOSUB salmodem
  162. s$="¨Cuantas lineas tiene tu pantalla? (entre 10 y 66, recomendadas 1024): " : GOSUB salmodem2
  163. GOSUB frase
  164. s$="Huyyy!... tantas?" : GOSUB salmodem
  165. s$="" : GOSUB salmodem
  166. s$="¨Desde donde llamas? (Ciudad y provincia) : " : GOSUB salmodem2
  167. GOSUB frase : con$(4)=f$
  168. s$="" : GOSUB salmodem
  169. s$="Hey, introduce tu tel‚fono:" : GOSUB salmodem
  170. s$="N£mero: " : GOSUB salmodem2
  171. GOSUB frase : con$(3)=f$
  172. s$="" : GOSUB salmodem
  173. s$="Consejos para introducir un Password (palabrejo clave):" : GOSUB salmodem
  174. s$="" : GOSUB salmodem
  175. s$="1.- No uses una palabra f cil de utilizar o muy com£n, como 'zapato'," : GOSUB salmodem
  176. s$="    'toto', 'pendejo', 'bitirrupitilunoisepa' o algo de por el estilo." : GOSUB salmodem
  177. s$="" : GOSUB salmodem
  178. s$="2.- No utilices el password para abrir latas de sardinas, ni lo repartas" : GOSUB salmodem
  179. s$="    por ah¡, ni lo publiques en alg£n semanario del coraz¢n." : GOSUB salmodem
  180. s$="" : GOSUB salmodem
  181. s$="3.- Graba a fuego lento el password debajo de la tapa del modem." : GOSUB salmodem
  182. bucleb4:
  183. s$="" : GOSUB salmodem
  184. s$="Introduce la Clave que quieres utilizar en el sistema : " : GOSUB salmodem2
  185. GOSUB frase : con$(2)=f$
  186. s$="" : GOSUB salmodem
  187. s$="Por favor, introducela otra vez para verificar: " : GOSUB salmodem2
  188. GOSUB frase
  189. IF f$<>con$(2) THEN s$="Est s tonto o qu‚? No has escrito la misma!" : GOSUB salmodem : GOTO bucleb4
  190. s$="" : GOSUB salmodem
  191. s$="¨Es correcta la informaci¢n que has suministrado al sistema? [S/N]? " : GOSUB salmodem2
  192. bucleb5:
  193. GOSUB tecla
  194. IF i$<>"S" AND i$<>"N" THEN bucleb5
  195. IF i$="N" THEN intronombre
  196. OPEN claves$ FOR APPEND AS 9
  197. FOR n=1 TO 4
  198. PRINT #9,con$(n)
  199. NEXT n
  200. CLOSE 9
  201. s$="" : GOSUB salmodem : GOSUB salmodem
  202. RETURN
  203. counter=1
  204. intrpass:
  205. s$="" : GOSUB salmodem
  206. s$="Password: " : GOSUB salmodem2 : GOSUB frase3
  207. IF counter>=6 THEN GOTO desconectar
  208. IF f$<>con$(2) THEN s$="" : GOSUB salmodem : s$="Ese no es el password, inutil!!!" : GOSUB salmodem : counter=counter+1 : GOTO intrpass
  209. RETURN
  210.  
  211.  
  212. careta:
  213.  
  214. s$="" : GOSUB salmodem : GOSUB salmodem
  215. s$="ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ °°°°°°°°°°±±±±±±±°±°°°°°°°°°°°°°°°°°°°°°°°ÛÛÛÛÛÛÛ" : GOSUB salmodem
  216. s$="º                        °°°°±±±±±±±±±±±±±±±±±±±±±°°   °°°°°°°°°°°°°°°°ÛÛÛÛÛÛ" : GOSUB salmodem
  217. s$="º  B I S H O  B B S  °°°°°±±±±±±±±±±±±±±±±±±±±±±±±±±°°    °°°°°°°°°°°°°°°°ÛÛÛ" : GOSUB salmodem
  218. s$="º                  °°°°°°±±±±±±±±±±±±±±°°°°±±±±ÛÛÛÛÛ±±°     °°°°°°°°°°°°°°°ÛÛ" : GOSUB salmodem
  219. s$="ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ °°°°°°°°°°°°±°±±±±°°°°°°±±±±±ÛÛÛÛÛ±±°   °°°°°°°°°°°°°°°°°Û" : GOSUB salmodem
  220. s$="º        Ú         °°°°°°°°°°°°°°°±±±±°°°  °°°±±±±Û±±±±±°     °°°°°°°°°°°°°°Û" : GOSUB salmodem
  221. s$="º Casi   ³ 300     °°°    °°°°°°°°±±±±±°  Û° °°±±±±±±±ÛÛ±°      °°°°°°°°°°°ÛÛ" : GOSUB salmodem
  222. s$="º toas   ³ 600    °°°   Û° °°°°°°°°°±±±±°±°°±±±±±±ÛÛÛÛÛÛÛ±±°      °°°°°°°°°°Û" : GOSUB salmodem
  223. s$="º las    ´1200    °°°°°°°°°°°°°°°°±±±±±±±±±±±±±±±±±ÛÛÛÛÛÛÛÛ±°       °°°°°°°°Û" : GOSUB salmodem
  224. s$="º velo-  ³2400   °°°°°°°°°°°°±°°°°±±ÛÛ±±±±±±±±±±±±±ÛÛÛÛÛÛÛÛ±°       °°°°°°°°Û" : GOSUB salmodem
  225. s$="º cidades³...ì  °°°°°°°°°°°±°±°±±±±±±ÛÛ±±±±±±±±±±±±ÛÛÛÛÛÛÛÛÛ±°    °  °°°°Û°ÛÛ" : GOSUB salmodem
  226. s$="º        À        °°±±±±±±±±±±±±±±±±±ÛÛÛÛ±±±±±±±±±ÛÛÛÛÛÛÛÛÛÛ±°    °  °°°°ÛÛÛÛ" : GOSUB salmodem
  227. s$="ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ °°°±±±±±±±±±±±°°±°±±±ÛÛÛÛ±±±±±±±ÛÛÛÛÛÛÛÛÛÛ±°°°°°°°°°°°°ÛÛÛÛÛ" : GOSUB salmodem
  228. s$="º                 °°±±±±±±±±±±±°°°°°±±±±±±±±±±±±ÛÛÛÛÛÛÛÛÛÛÛÛ±±±±±±±°°°°ÛÛÛÛÛÛ" : GOSUB salmodem
  229. s$="º El Zyzop es el  °°°°±°±°±°±±±° °°°°±±°±±ÛÛÛÛÛ±ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ±°°°°ÛÛÛÛÛÛ" : GOSUB salmodem
  230. s$="º Fredius Darde!  °°°°°°°°±±±±±±°°°°±±±±±±±ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ±°°ÛÛÛÛÛÛÛÛÛ" : GOSUB salmodem
  231. s$="º                  °°°°°°°±±±±±°°°±±±±±±±±ÛÛÛÛÛ±ÛÛÛÛÛÛÛÛÛÛÛÛÛ±°°±±±±±±±±±±ÛÛÛ" : GOSUB salmodem
  232. s$="ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ °°°°°°°±°±±°°°±°±±±±±±±±±ÛÛ±±±ÛÛÛÛÛÛÛÛÛÛÛÛ±±±±±±±±Û±±±±ÛÛÛ" : GOSUB salmodem
  233. s$="º                    °°°°°°°°°°°°°°°°°°°°°°°°°±±±±ÛÛÛÛÛÛÛÛÛÛÛ±ÛÛÛÛÛÛ±ÛÛÛÛÛ±ÛÛ" : GOSUB salmodem
  234. s$="º Phone: (957)237198 °°°°°°°°°°°°   ° °° ±±±±ÛÛÛ±±ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ" : GOSUB salmodem
  235. s$="º                     °°°°°°°°°°°°°°±±±±±±±±ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ" : GOSUB salmodem
  236. s$="ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ °°°°°°°°°°°°°°°°±°±±±±±±±±±ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ" : GOSUB salmodem
  237. s$="" : GOSUB salmodem : GOSUB salmodem : GOSUB salmodem
  238. RETURN
  239.  
  240.  
  241. nivel1:
  242.  
  243. s$="                   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿" : GOSUB salmodem
  244. s$="                   ³   NiVeL De uSuaRio : ATORNILLAO  ³ Û" : GOSUB salmodem
  245. s$="                   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ Û" : GOSUB salmodem
  246. s$="                     ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ" : GOSUB salmodem
  247. s$="" : GOSUB salmodem : GOSUB salmodem
  248. s$="                    Gozas del £nico nivel que existe en" : GOSUB salmodem
  249. s$="                    esta BBS." : GOSUB salmodem
  250. s$="                    (Se nota que haces buenas migas con" : GOSUB salmodem
  251. s$="                    el Zyzop)" : GOSUB salmodem
  252. s$="" : GOSUB salmodem : GOSUB salmodem
  253. s$="Pulsa el RETURN" : GOSUB salmodem
  254. buclea2:
  255. GOSUB tecla
  256. IF i$<>CHR$(13) THEN buclea2
  257. RETURN
  258.  
  259.  
  260. nivel0:
  261.  
  262. s$="              ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿" : GOSUB salmodem
  263. s$="              ³          eReS uN PeDaZo De NoVaTo          ³ Û" : GOSUB salmodem
  264. s$="              ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ Û" : GOSUB salmodem
  265. s$="               ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ" : GOSUB salmodem
  266. s$="" : GOSUB salmodem
  267. s$="                      En cuanto rellenes el cuestionario," : GOSUB salmodem
  268. s$="                   ya ser s un nuevo usuario del sistema" : GOSUB salmodem
  269. s$="                   (y todo el mundo sabr  tus secretos m s" : GOSUB salmodem
  270. s$="                   intimos)." : GOSUB salmodem
  271. s$="                                     Fredius Darde" : GOSUB salmodem
  272. s$="                                        (Zyzop)" : GOSUB salmodem
  273. s$="" : GOSUB salmodem : GOSUB salmodem
  274. s$="Pulsa el RETURN" : GOSUB salmodem
  275. buclek5:
  276. GOSUB tecla
  277. IF i$<>CHR$(13) THEN buclek5
  278. RETURN
  279.  
  280.  
  281. noticias:
  282.  
  283. s$="" : GOSUB salmodem : GOSUB salmodem
  284. s$="   +---------------------+" : GOSUB salmodem
  285. s$="---| EA!, Y'ASTAMOS AQUI |----------------------------------------04/04/93--" : GOSUB salmodem
  286. s$="   +---------------------+" : GOSUB salmodem
  287. s$="" : GOSUB salmodem
  288. s$="        Vaya! Pues ya parece que se me ha desbloqueado el teclado..." : GOSUB salmodem
  289. s$="" : GOSUB salmodem
  290. s$="                Ante todo daros la bienvenida a todos aquellos que" : GOSUB salmodem
  291. s$="        hab‚is llamado a BiSHo BBS (mi t¡o trabaja en telef¢nica) y" : GOSUB salmodem
  292. s$="        desearos que os sea tanto agradable como in£til vuestra visita" : GOSUB salmodem
  293. s$="        por estos lares." : GOSUB salmodem
  294. s$="" : GOSUB salmodem : GOSUB salmodem
  295. s$="   +-------------------------------------------------------+" : GOSUB salmodem
  296. s$="---| BLUE WAVE en Acci¢n.: Desde ahora chapuzones OFF LINE |------04/04/93--" : GOSUB salmodem
  297. s$="   +-------------------------------------------------------+" : GOSUB salmodem
  298. s$="" : GOSUB salmodem
  299. s$="                Existe en BiSHo BBS un servicio de venta de tickets" : GOSUB salmodem
  300. s$="        para la piscina de mi cu¤ado, en la que podr‚is disfrutar de" : GOSUB salmodem
  301. s$="        unas bellas 'olas azules'." : GOSUB salmodem
  302. s$="" : GOSUB salmodem : GOSUB salmodem
  303. s$="   +----------------------------+" : GOSUB salmodem
  304. s$="---| SE ADMITEN COLABORACIONES. |---------------------------------04/04/93--" : GOSUB salmodem
  305. s$="   +----------------------------+" : GOSUB salmodem
  306. s$="" : GOSUB salmodem
  307. s$="                Soy pobre!... esham‚ argo!!!" : GOSUB salmodem
  308. s$="" : GOSUB salmodem
  309. s$="                BiSHo BBS admite todo tipo de colaboraciones: cheques" : GOSUB salmodem
  310. s$="        al portador, cheques al Fredius, donaciones de bienes, pres-" : GOSUB salmodem
  311. s$="        tamos de tiempo indefinido, fruta, cacahuetes, ratitos con la" : GOSUB salmodem
  312. s$="        novia, borracheras, etc. Se agradecer n todas con un certifi-" : GOSUB salmodem
  313. s$="        cado fotocopiao del Club de Amigas del Fredius." : GOSUB salmodem
  314. s$="" : GOSUB salmodem : GOSUB salmodem
  315. s$="" : GOSUB salmodem : GOSUB salmodem
  316. s$="Pulsa el RETURN" : GOSUB salmodem
  317. buclea3:
  318. GOSUB tecla
  319. IF i$<>CHR$(13) THEN buclea3
  320. RETURN
  321.  
  322.  
  323. llamadas:
  324.  
  325. s$="" : GOSUB salmodem : GOSUB salmodem
  326. s$="        Porcentaje de utilizaci¢n por hora 12-11-67 - 04-04-93 (Linea 8)" : GOSUB salmodem
  327. s$="12  |" : GOSUB salmodem
  328. s$="11  |" : GOSUB salmodem
  329. s$="10  |" : GOSUB salmodem
  330. s$="09  |" : GOSUB salmodem
  331. s$="08  |" : GOSUB salmodem
  332. s$="08  |" : GOSUB salmodem
  333. s$="07  |" : GOSUB salmodem
  334. s$="06  |" : GOSUB salmodem
  335. s$="05  |" : GOSUB salmodem
  336. s$="05  |" : GOSUB salmodem
  337. s$="04  |" : GOSUB salmodem
  338. s$="03  |" : GOSUB salmodem
  339. s$="02  |" : GOSUB salmodem
  340. s$="02  |" : GOSUB salmodem
  341. s$="01  |" : GOSUB salmodem
  342. s$="    + ------------------------------------------------------------------------" : GOSUB salmodem
  343. s$="      12 01 02 03 04 05 06 07 08 09 10 11 12 01 02 03 04 05 06 07 08 09 10 11" : GOSUB salmodem
  344. s$="      Medianoche                          Ma¤ana" : GOSUB salmodem
  345. s$="" : GOSUB salmodem
  346. s$="NOTA: Bueno, la verdad es que no llama mucha gente..." : GOSUB salmodem
  347. s$="" : GOSUB salmodem
  348. s$="Pulsa el RETURN" : GOSUB salmodem
  349. buclea4:
  350. GOSUB tecla
  351. IF i$<>CHR$(13) THEN buclea4
  352. RETURN
  353.  
  354.  
  355. cuestionario:
  356.  
  357. s$="" : GOSUB salmodem : GOSUB salmodem
  358. s$="                      +------------------------+" : GOSUB salmodem
  359. s$="                      | BiSHo BBS (957) 237198 |" : GOSUB salmodem
  360. s$="                      |    C¢rdoba - SPAING    |" : GOSUB salmodem
  361. s$="                      |      Cuestionario      |" : GOSUB salmodem
  362. s$="                      +------------------------+" : GOSUB salmodem
  363. s$="" : GOSUB salmodem : GOSUB salmodem
  364. s$="Esta informaci¢n es solamente confidencial para el ZyZop. Para la" : GOSUB salmodem
  365. s$="dem s gente ser  s¢lo algo as¡ como un chisme. Una vez completados" : GOSUB salmodem
  366. s$="los datos, se te dejar  el mismo nivel que ten¡as, sin embargo" : GOSUB salmodem
  367. s$="tendr s acceso por completo a BiSHo BBS (sin restricciones de" : GOSUB salmodem
  368. s$="tipo moral, religiosas, de raza, culturales, de sexo o" : GOSUB salmodem
  369. s$="gastron¢micas)." : GOSUB salmodem
  370. s$="" : GOSUB salmodem
  371. s$="Cual es tu nombre completo? " : GOSUB salmodem
  372. GOSUB frase : c$(1)=f$
  373. s$="Cual es tu calle? " : GOSUB salmodem
  374. GOSUB frase : c$(2)=f$
  375. s$="Y tu ciudad y provincia? " : GOSUB salmodem
  376. GOSUB frase : c$(3)=f$
  377. s$="Que ordenador usas? " : GOSUB salmodem
  378. GOSUB frase : c$(4)=f$
  379. s$="C¢mo se llama tu novia? " : GOSUB salmodem
  380. GOSUB frase : c$(5)=f$
  381. s$="Cual es su tel‚fono? " : GOSUB salmodem
  382. GOSUB frase : c$(6)=f$
  383. s$="Cual es tu edad? " : GOSUB salmodem
  384. GOSUB frase : c$(7)=f$ : s$="Que viejo eres!!!" : GOSUB salmodem
  385. s$="Qu‚ tres cosas te llevar¡as a una isla llena de t¡as? " : GOSUB salmodem
  386. GOSUB frase : c$(8)=f$
  387. s$="Conoces al Zyzop? " : GOSUB salmodem
  388. GOSUB frase : c$(9)=f$
  389. s$="Y eso? " : GOSUB salmodem
  390. GOSUB frase : c$(10)=f$
  391. s$="Cuales son tus aficiones (sexo, droga, R&R, etc.)? " : GOSUB salmodem
  392. GOSUB frase : c$(11)=f$
  393. s$="" : GOSUB salmodem : GOSUB salmodem
  394. s$="             Nombre: "+c$(1) : GOSUB salmodem
  395. s$="          Direcci¢n: "+c$(2) : GOSUB salmodem
  396. s$="         Ciud/Prov.: "+c$(3) : GOSUB salmodem
  397. s$="          Ordenador: "+c$(4) : GOSUB salmodem
  398. s$="              Novia: "+c$(5) : GOSUB salmodem
  399. s$="        Phone novia: "+c$(6) : GOSUB salmodem
  400. s$="               Edad: "+c$(7) : GOSUB salmodem
  401. s$="      Lo que vendes: "+c$(8) : GOSUB salmodem
  402. s$="   Conoce a FReDiuS: "+c$(9) : GOSUB salmodem
  403. s$="           De d¢nde: "+c$(10) : GOSUB salmodem
  404. s$="       Perversiones: "+c$(11) : GOSUB salmodem
  405. s$="" : GOSUB salmodem
  406. s$="Grabar estas respuestas (S/N)? " : GOSUB salmodem2
  407. s$="" : GOSUB salmodem
  408. buclea6:
  409. GOSUB tecla
  410. IF i$<>"S" AND i$<>"N" THEN buclea6
  411. IF i$="N" THEN RETURN
  412. namefile$=cuestionarios$+con$(1)+".cuest"
  413. OPEN namefile$ FOR OUTPUT AS 9
  414. FOR n=1 TO 11
  415. PRINT #9,c$(n)
  416. NEXT n
  417. CLOSE 9
  418. OPEN registrados$ FOR APPEND AS 9
  419. PRINT #9,con$(1)
  420. CLOSE 9
  421. regusu=-1
  422. s$="Respuestas grabadas en stereo! Senkiu por rellenar el Cuestionario." : GOSUB salmodem
  423. s$="" : GOSUB salmodem
  424. s$="Espero que te r¡as con BiSHo BBS!" : GOSUB salmodem
  425. buclea7:
  426. s$="" : GOSUB salmodem
  427. s$="Pulsa el RETURN" : GOSUB salmodem
  428. buclea8:
  429. GOSUB tecla
  430. IF i$<>CHR$(13) THEN buclea8
  431. RETURN
  432.  
  433.  
  434. tecla:
  435.  
  436. i$=INKEY$
  437. IF i$="" THEN tecla
  438. i$=UCASE$(i$)
  439. s$=i$ : GOSUB salmodem
  440. RETURN
  441.  
  442.  
  443. tecla2:
  444.  
  445. i$=UCASE$(INKEY$)
  446. s$=i$ : GOSUB salmodem
  447. RETURN
  448.  
  449.  
  450. tecla3:
  451.  
  452. i$=UCASE$(INKEY$)
  453. RETURN
  454.  
  455.  
  456. frase:
  457.  
  458. f$=""
  459. bucletu5:
  460. ini$=INKEY$
  461. IF (ini$=CHR$(8) OR ini$=CHR$(127)) AND LEN(f$)>0 THEN f$=LEFT$(f$,LEN(f$)-1) : s$=CHR$(8) : GOSUB salmodem2 : GOTO bucletu5
  462. IF (ini$=CHR$(8) OR ini$=CHR$(127)) THEN bucletu5
  463. f$=f$+ini$
  464. s$=ini$ : GOSUB salmodem2
  465. IF ini$<>CHR$(13) THEN bucletu5
  466. IF f$="" THEN frase
  467. f$=LEFT$(f$,LEN(f$)-1)
  468. RETURN
  469.  
  470.  
  471. frase2:
  472.  
  473. f$=""
  474. bucletu6:
  475. ini$=INKEY$
  476. IF (ini$=CHR$(8) OR ini$=CHR$(127)) AND LEN(f$)>0 THEN f$=LEFT$(f$,LEN(f$)-1) : s$=CHR$(8) : GOSUB salmodem2 : GOTO bucletu6
  477. IF (ini$=CHR$(8) OR ini$=CHR$(127)) THEN bucletu6
  478. f$=f$+ini$
  479. s$=ini$ : GOSUB salmodem2
  480. IF ini$<>CHR$(13) THEN bucletu6
  481. f$=LEFT$(f$,LEN(f$)-1)
  482. RETURN
  483.  
  484.  
  485. frase3:
  486.  
  487. f$=""
  488. bucletpo5:
  489. ini$=INKEY$
  490. IF (ini$=CHR$(8) OR ini$=CHR$(127)) AND LEN(f$)>0 THEN f$=LEFT$(f$,LEN(f$)-1) : s$=CHR$(8) : GOSUB salmodem2 : GOTO bucletpo5
  491. IF (ini$=CHR$(8) OR ini$=CHR$(127)) THEN bucletpo5
  492. f$=f$+ini$
  493. IF ini$<>"" AND ini$<>CHR$(13) THEN s$=CHR$(254) : GOSUB salmodem2
  494. IF ini$<>CHR$(13) THEN bucletpo5
  495. IF f$="" THEN frase3
  496. f$=LEFT$(f$,LEN(f$)-1)
  497. RETURN
  498.  
  499.  
  500. salmodem:
  501.  
  502. PRINT s$
  503. RETURN
  504.  
  505.  
  506. salmodem2:
  507.  
  508. PRINT s$;
  509. RETURN
  510.  
  511.  
  512. desconectar:
  513.  
  514.  
  515. s$="" : GOSUB salmodem
  516. s$="Desconectado !!!!!!!!!!!" : GOSUB salmodem
  517. GOTO principio
  518.  
  519.  
  520. vernivel:
  521.  
  522. regusu=0
  523. OPEN registrados$ FOR INPUT AS 8
  524. buclec1:
  525. IF EOF(8) THEN CLOSE 8 : RETURN
  526. INPUT #8,gurutu$
  527. IF gurutu$=con$(1) THEN CLOSE 8 : regusu=-1 : RETURN
  528. GOTO buclec1
  529.  
  530.  
  531. llamada:
  532.  
  533. GOSUB tecla
  534. IF i$<>"`" THEN llamada
  535. RETURN
  536.  
  537.  
  538. impedimento:
  539.  
  540. s$="Lo siento, colega, pero si no rellenas el cuestionario no hay tu t¡a!" : GOSUB salmodem
  541. s$="" : GOSUB salmodem : GOSUB salmodem
  542. s$="Pulsa el RETURN" : GOSUB salmodem
  543. buclef8:
  544. GOSUB tecla
  545. IF i$<>CHR$(13) THEN buclef8
  546. RETURN
  547.  
  548.  
  549. ficheros:
  550.  
  551. s$="" : GOSUB salmodem : GOSUB salmodem
  552. s$="Lo siento m s que tu padre, pero el vago del FReDiuS todav¡a no ha" : GOSUB salmodem
  553. s$="desarrollado esta secci¢n de la BBS. M s adelante veremos..." : GOSUB salmodem
  554. s$="" : GOSUB salmodem : GOSUB salmodem
  555. s$="Pulsa el RETURN" : GOSUB salmodem
  556. buclef9:
  557. GOSUB tecla
  558. IF i$<>CHR$(13) THEN buclef9
  559. RETURN
  560.  
  561.  
  562. informacion:
  563.  
  564. s$="                           ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿" : GOSUB salmodem
  565. s$="                           ³    iNFoRMaCi¢N   ³ Û" : GOSUB salmodem
  566. s$="                           ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ Û" : GOSUB salmodem
  567. s$="                             ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ" : GOSUB salmodem
  568. s$="" : GOSUB salmodem
  569. s$="                     H Ü Hardware de        P Ü Software de" : GOSUB salmodem
  570. s$="                    ÜÜÜÛ BiSHo BBS         ÜÜÜÛ BiSHo BBS" : GOSUB salmodem
  571. s$="" : GOSUB salmodem
  572. s$="                     T Ü Tarifas            V Ü Men£" : GOSUB salmodem
  573. s$="                    ÜÜÜÛ telef¢nicas       ÜÜÜÛ principote" : GOSUB salmodem
  574. s$="" : GOSUB salmodem
  575. buclef11:
  576. GOSUB tecla
  577. IF i$<>"H" AND i$<>"P" AND i$<>"T" AND i$<>"V" THEN buclef11
  578. IF i$="H" THEN fichero$="df1:ficheros/hardware" : GOSUB leer
  579. IF i$="P" THEN fichero$="df1:ficheros/software" : GOSUB leer
  580. IF i$="T" THEN fichero$="df1:ficheros/tarifas" : GOSUB leer
  581. IF i$="V" THEN RETURN
  582. s$="" : GOSUB salmodem : GOSUB salmodem
  583. GOTO informacion
  584.  
  585.  
  586. boletines:
  587.  
  588. s$="                               ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿" : GOSUB salmodem
  589. s$="                               ³     BoLeTiNeS     ³ Û" : GOSUB salmodem
  590. s$="                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ Û" : GOSUB salmodem
  591. s$="                                 ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ" : GOSUB salmodem
  592. s$="" : GOSUB salmodem
  593. s$="                   1 Ü Singularidades mf.   2 Ü El canto miserable" : GOSUB salmodem
  594. s$="                  ÜÜÜÛ del espacio 4D      ÜÜÜÛ" : GOSUB salmodem
  595. s$="" : GOSUB salmodem
  596. s$="                   3 Ü Leyes machistas      4 Ü La llamada del Sol" : GOSUB salmodem
  597. s$="                  ÜÜÜÛ                     ÜÜÜÛ" : GOSUB salmodem
  598. s$="" : GOSUB salmodem
  599. s$="                   5 Ü Juventud, divino     6 Ü Lista de otras BBS" : GOSUB salmodem
  600. s$="                  ÜÜÜÛ tesoro              ÜÜÜÛ que no son ‚sta" : GOSUB salmodem
  601. s$="" : GOSUB salmodem
  602. s$="                   7 Ü Homo Burris          8 Ü Konam" : GOSUB salmodem
  603. s$="                  ÜÜÜÛ Films               ÜÜÜÛ" : GOSUB salmodem
  604. s$="" : GOSUB salmodem
  605. s$="                                 V Ü Men£ principal" : GOSUB salmodem
  606. s$="                                ÜÜÜÛ" : GOSUB salmodem
  607. s$="" : GOSUB salmodem : GOSUB salmodem
  608. buclef21:
  609. GOSUB tecla
  610. IF i$<>"1" AND i$<>"2" AND i$<>"3" AND i$<>"4" AND i$<>"5" AND i$<>"6" AND i$<>"7" AND i$<>"8" AND i$<>"V" THEN buclef21
  611. IF i$="1" THEN fichero$="df1:ficheros/singularidades" : GOSUB leer
  612. IF i$="2" THEN fichero$="df1:ficheros/misery" : GOSUB leer
  613. IF i$="3" THEN fichero$="df1:ficheros/machism" : GOSUB leer
  614. IF i$="4" THEN fichero$="df1:ficheros/sun" : GOSUB leer
  615. IF i$="5" THEN fichero$="df1:ficheros/humedo" : GOSUB leer
  616. IF i$="6" THEN fichero$="df1:ficheros/bbs-list" : GOSUB leer
  617. IF i$="7" THEN fichero$="df1:ficheros/hbf" : GOSUB leer
  618. IF i$="8" THEN fichero$="df1:ficheros/konam" : GOSUB leer
  619. IF i$="V" THEN RETURN
  620. s$="" : GOSUB salmodem : GOSUB salmodem
  621. GOTO boletines
  622.  
  623.  
  624. listausuarios:
  625.  
  626. s$="" : GOSUB salmodem : GOSUB salmodem
  627. s$="NoMBRe                                TeL‚FoNo           CiuDaD" : GOSUB salmodem
  628. s$="---------------------------------------------------------------------------" : GOSUB salmodem
  629. OPEN claves$ FOR INPUT AS 9
  630. bucleg1:
  631. IF EOF(9) THEN CLOSE 9 : GOTO bucleg2
  632. INPUT #9,t1$ : t1$=LEFT$(t1$,37) : t1=LEN(t1$)
  633. INPUT #9,t3$
  634. INPUT #9,t3$ : t3$=LEFT$(t3$,18) : t3=LEN(t3$)
  635. INPUT #9,t4$ : t4$=LEFT$(t4$,20)
  636. s$=t1$+STRING$(38-t1," ")+t3$+STRING$(19-t3," ")+t4$
  637. GOSUB salmodem
  638. GOTO bucleg1
  639. bucleg2:
  640. s$="" : GOSUB salmodem : GOSUB salmodem
  641. s$="Pulsa el RETURN" : GOSUB salmodem
  642. bucleg3:
  643. GOSUB tecla
  644. IF i$<>CHR$(13) THEN bucleg3
  645. s$="" : GOSUB salmodem : GOSUB salmodem
  646. RETURN
  647.  
  648.  
  649. salir:
  650.  
  651. s$="" : GOSUB salmodem : GOSUB salmodem
  652. s$="T¡o, de verdad que quieres salir? [S/N]" : GOSUB salmodem
  653. s$="" : GOSUB salmodem
  654. bucleh1:
  655. GOSUB tecla
  656. IF i$<>"S" AND i$<>"N" THEN bucleh1
  657. IF i$="N" THEN s$="Ah!, bueno..." : GOSUB salmodem : GOTO principal
  658. s$="Ea!, pues que te den como a Sen‚n... chao!" : GOSUB salmodem
  659. s$="" : GOSUB salmodem : GOSUB salmodem : GOSUB salmodem
  660. GOTO desconectar
  661.  
  662.  
  663. leer:
  664.  
  665. s$="" : GOSUB salmodem : GOSUB salmodem
  666. s$="Hey!, si quieres parar pulsa la tecloide 'P'." : GOSUB salmodem
  667. s$="" : GOSUB salmodem : GOSUB salmodem : GOSUB salmodem
  668. OPEN fichero$ FOR INPUT AS 9
  669. buclej2:
  670. GOSUB tecla3
  671. IF i$="P" THEN CLOSE 9 : s$="*** BREAK ***" : GOSUB salmodem : GOTO buclej1
  672. IF EOF(9) THEN CLOSE 9 : s$="--- FiN DeL FiCHeRo ---" : GOSUB salmodem : GOTO buclej1
  673. LINE INPUT #9,s$ : GOSUB salmodem
  674. GOTO buclej2
  675. buclej1:
  676. s$="" : GOSUB salmodem : GOSUB salmodem : GOSUB salmodem : GOSUB salmodem : GOSUB salmodem : GOSUB salmodem
  677. RETURN
  678.  
  679.  
  680. mensajes:
  681.  
  682. s$="                            ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿" : GOSUB salmodem
  683. s$="                            ³     MeNSaJeS     ³ Û" : GOSUB salmodem
  684. s$="                            ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ Û" : GOSUB salmodem
  685. s$="                              ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ" : GOSUB salmodem
  686. s$="" : GOSUB salmodem
  687. s$="                       L Ü Leer                E Ü Escribir" : GOSUB salmodem
  688. s$="                      ÜÜÜÛ mensajes           ÜÜÜÛ mensajes" : GOSUB salmodem
  689. s$="" : GOSUB salmodem
  690. s$="                       C Ü Cambiar             T Ü Listar" : GOSUB salmodem
  691. s$="                      ÜÜÜÛ de  rea            ÜÜÜÛ mensajes" : GOSUB salmodem
  692. s$="" : GOSUB salmodem
  693. s$="                                   V Ü Men£" : GOSUB salmodem
  694. s$="                                  ÜÜÜÛ general¡simo" : GOSUB salmodem
  695. s$="" : GOSUB salmodem : GOSUB salmodem
  696. buclet1:
  697. GOSUB tecla
  698. IF i$<>"L" AND i$<>"E" AND i$<>"C" AND i$<>"T" AND i$<>"V" THEN buclet1
  699. IF i$="L" THEN GOSUB leermensajes
  700. IF i$="E" THEN GOSUB escrmensajes
  701. IF i$="C" THEN GOSUB cambiararea
  702. IF i$="T" THEN GOSUB listmensajes
  703. IF i$="V" THEN RETURN
  704. GOTO mensajes
  705.  
  706. leermensajes:
  707. s$="" : GOSUB salmodem
  708. counter=1
  709. OPEN listmail$ FOR INPUT AS 8
  710. buclerr2:
  711. IF EOF(8) THEN CLOSE 9 : CLOSE 8 : s$="" : GOSUB salmodem : s$="Fin de la mensajer¡a!!!" : GOSUB salmodem : s$="" : GOSUB salmodem : RETURN
  712. LINE INPUT #8,t1$
  713. LINE INPUT #8,t2$
  714. LINE INPUT #8,t3$
  715. LINE INPUT #8,t4$
  716. s$="" : GOSUB salmodem : GOSUB salmodem
  717. s$="       De: "+t1$ : GOSUB salmodem
  718. s$="     Para: "+t2$ : GOSUB salmodem
  719. s$="     Tema: "+t3$ : GOSUB salmodem
  720. s$="    Fecha: "+t4$ : GOSUB salmodem
  721. s$="" : GOSUB salmodem
  722. OPEN mail$+str$(counter) FOR INPUT AS 9
  723. buclety1:
  724. IF EOF(9) THEN CLOSE 9 : goto buclett1
  725. LINE INPUT #9,s$ : GOSUB salmodem
  726. GOTO buclety1
  727. buclett1:
  728. counter=counter+1
  729. s$="" : GOSUB salmodem
  730. s$="--------------------------------------------------------------" : GOSUB salmodem
  731. s$="" : GOSUB salmodem
  732. s$="Pulsa el RETURN pa seguir y la 'P' pa par ..." : GOSUB salmodem
  733. bucleuu3:
  734. GOSUB tecla
  735. IF i$<>CHR$(13) AND i$<>"P" THEN bucleuu3
  736. IF i$="P" THEN CLOSE 9 : CLOSE 8 : s$="" : GOSUB salmodem : GOSUB salmodem : RETURN
  737. s$="" : GOSUB salmodem : GOSUB salmodem
  738. GOTO buclerr2
  739.  
  740.  
  741. escrmensajes:
  742.  
  743. fecha$=date$+" / "+time$
  744. s$="" : GOSUB salmodem : GOSUB salmodem
  745. s$="       De: "+con$(1) : GOSUB salmodem
  746. s$="     Para: " : GOSUB salmodem2 : GOSUB frase : dest$=f$
  747. s$="     Tema: " : GOSUB salmodem2 : GOSUB frase : tema$=f$
  748. s$="" : GOSUB salmodem
  749. s$="Empieza a escribir (si sabes) y escribe 'ok' en una l¡nea" : GOSUB salmodem
  750. s$="vacia para terminar." : GOSUB salmodem
  751. s$="" : GOSUB salmodem
  752. OPEN listmail$ FOR INPUT AS 9
  753. counter=0
  754. buclew1:
  755. IF EOF(9) THEN CLOSE 9 : counter=counter+1 : GOTO buclew2
  756. FOR n=1 TO 4 : LINE INPUT #9,correo$ : NEXT n
  757. counter=counter+1
  758. GOTO buclew1
  759. buclew2:
  760. counter$=str$(counter)
  761. OPEN "ram:"+counter$ FOR OUTPUT AS 9
  762. buclew3:
  763. GOSUB frase2
  764. IF f$="ok" THEN CLOSE 9 : GOTO buclew4
  765. PRINT #9,f$
  766. GOTO buclew3
  767. buclew4:
  768. s$="" : GOSUB salmodem : GOSUB salmodem
  769. s$="(G) grabar mensaje / (X) abandonar mensaje : " : GOSUB salmodem2
  770. buclew5:
  771. GOSUB tecla
  772. IF i$="X" THEN RETURN
  773. IF i$<>"G" THEN buclew5
  774. OPEN listmail$ FOR APPEND AS 9
  775. PRINT #9,con$(1)
  776. PRINT #9,dest$
  777. PRINT #9,tema$
  778. PRINT #9,fecha$
  779. CLOSE 9
  780. OPEN "ram:"+counter$ FOR INPUT AS 9
  781. OPEN mail$+counter$ FOR OUTPUT AS 8
  782. buclex1:
  783. IF EOF(9) THEN CLOSE 9 : PRINT #8,"" : PRINT #8,"Origin: BiSHo BBS ..................... The best of the bestia" : CLOSE 8 : RETURN
  784. LINE INPUT #9,e$
  785. PRINT #8,e$
  786. GOTO buclex1
  787.  
  788. listmensajes:
  789.  
  790. s$="" : GOSUB salmodem
  791. s$="De uSuaRio              a uSuaRio               TeMa              FeCHa" : GOSUB salmodem
  792. s$="----------------------------------------------------------------------------" : GOSUB salmodem
  793. OPEN listmail$ FOR INPUT AS 9
  794. bucler1:
  795. IF EOF(9) THEN CLOSE 9 : GOTO bucler2
  796. LINE INPUT #9,t1$ : t1$=LEFT$(t1$,23) : t1=LEN(t1$)
  797. LINE INPUT #9,t2$ : t2$=LEFT$(t2$,23) : t2=LEN(t2$)
  798. LINE INPUT #9,t3$ : t3$=LEFT$(t3$,17) : t3=LEN(t3$)
  799. LINE INPUT #9,t4$ : t4$=LEFT$(t4$,12)
  800. s$=t1$+STRING$(24-t1," ")+t2$+STRING$(24-t2," ")+t3$+STRING$(18-t3," ")+LEFT$(t4$,10)
  801. GOSUB salmodem
  802. GOTO bucler1
  803. bucler2:
  804. s$="" : GOSUB salmodem : GOSUB salmodem
  805. s$="Pulsa el RETURN" : GOSUB salmodem
  806. bucler3:
  807. GOSUB tecla
  808. IF i$<>CHR$(13) THEN bucler3
  809. s$="" : GOSUB salmodem : GOSUB salmodem
  810. RETURN
  811.  
  812. cambiararea:
  813. s$="" : GOSUB salmodem : GOSUB salmodem
  814. s$="Pero t¡o, qu‚ m s quieres?..." : GOSUB salmodem
  815. s$="" : GOSUB salmodem
  816. s$="... pues te chepas, pues en BiSHo BBS s¢lo hay un  rea!!!" : GOSUB salmodem
  817. s$="" : GOSUB salmodem : GOSUB salmodem
  818. RETURN
  819.