home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / Z.LOGON (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  7.0 KB  |  250 lines
  1. 10 ;"OPEN15,9,15,"S0:Z.L*":PRINT#15,"I":SAVE"Z.LOGON",9:VERIFY"Z.L*",9
  2. 15 ;
  3. 20 ;            Z.GENERAL
  4. 25 ;
  5. 30 ;[172][172][172]
  6. 35 ;
  7. 40 DENY .BYTE 7 13 37 83 13
  8. 45 .BYTE "** ATNCCESS STR$ENIED **":.BYTE 7 13 13 0
  9. 50 ;
  10. 55 ;        COMM[175] PROMPT
  11. 60 ;
  12. 65 SUBC .BYTE 13 13
  13. 70 .BYTE "(null)UB-
  14. 75 COMD .BYTE "[195]OMMAND * [?] FOR [200]ELP ":.BYTE 58 0
  15. 80 VERI .BYTE 13
  16. 85 .BYTE "[195]ONFIRM "
  17. 90 ;
  18. 95 YORN .BYTE "  [[217]/[206]]   ":.BYTE 58 0
  19. 100 ;
  20. 105 PAWS .BYTE 13 37 84 13
  21. 110 .BYTE "[[208]]AUSE     [[195]]ONTINUE":.BYTE 13 13 0
  22. 115 ;
  23. 120 ;
  24. 125 ;***
  25. 130 ;
  26. 135 ;        TRANSFERS
  27. 140 ;
  28. 145 ;
  29. 150 XF1L .BYTE "[197]NTER [198]ILENAME    ":.BYTE 58 0
  30. 155 CMNT .BYTE 13 13:.BYTE "[195]OMMENT":.BYTE 13 13 0
  31. 160 CMT .BYTE ">[157]":.BYTE 0
  32. 165 ;
  33. 170 PCOL .BYTE 13 13
  34. 175 .BYTE "[[208]]UNTER     [[216]]MODEM     [[212]]EXT ":.BYTE 58 0
  35. 180 MULT .BYTE 13 13
  36. 185 .BYTE "[[211]]INGLE     [[205]]ULTI-[198]ILE        ":.BYTE 58 0
  37. 190 KIND .BYTE 13 13
  38. 195 .BYTE "[[208]]RG        [[211]]EQ        [[213]]SR  ":.BYTE 58 0
  39. 200 UPDN .BYTE 13 37 84 37 83 13
  40. 205 .BYTE "[[196]]OWNLOAD   [[213]]PLOAD     [[204]]IST ":.BYTE 58 0
  41. 210 ;
  42. 215 DOX .BYTE 13 13
  43. 220 .BYTE "[201]S THIS A [196]OCS FILE? ":.BYTE 0
  44. 225 ;
  45. 230 PIK1 .BYTE 13 37 84 13
  46. 235 .BYTE "[[194]]ASIC             [[211]]EQUENTIAL":.BYTE 13
  47. 240 .BYTE "[[215]]ORD [208]ROCESSOR    [[196]]IRECTORY ":.BYTE 58 0
  48. 245 ;
  49. 250 PIK2 .BYTE 13 37 84 13
  50. 255 .BYTE "[1] [208]UBLIC [196]OWNLOAD":.BYTE 13
  51. 260 .BYTE "[2] [208]ROBATIONARY [194]ASE ":.BYTE 58 0
  52. 265 ;
  53. 270 PIK3 .BYTE 13 37 84 13 7 7
  54. 275 .BYTE ">>> [194][194][211] [204]IBRARY <<<[146]":.BYTE 13 13
  55. 280 .BYTE "[1] [205]AG    [2] [211]EQ    [4] [208]RG":.BYTE 13
  56. 285 .BYTE "[4] [213]SR    [5] [196]OX    [6] [193]LL":.BYTE 58 0
  57. 290 ;
  58. 295 ;
  59. 300 ;           Z.SYSOP
  60. 305 ;
  61. 310 XPAG .BYTE 13 37 83 13 7 7
  62. 315 .BYTE "      ***  [208]AGING [211]YSOP  ***":.BYTE 13 13 0
  63. 320 ;
  64. 325 XOUT .BYTE 13 37 83 13 7 7
  65. 330 .BYTE "*** [211]ORRY!  [211]YSOP [201]S [206]OT [193]VAILABLE ***":.BYTE 13 13 0
  66. 335 ;
  67. 340 ;        CHAT MODE
  68. 345 ;
  69. 350 ;
  70. 355 XCHT .BYTE 7 7 37 84 37 83 13 13
  71. 360 .BYTE "    [195]HAT [205]ODE":.BYTE 13 13 13
  72. 365 .BYTE ">> [200]EEEERE'S [211]YSOP <<":.BYTE 13 13 0
  73. 370 ;
  74. 375 PAG .BYTE "00"
  75. 380 ;
  76. 385 ;         USER DATA
  77. 390 ;
  78. 395 XIST .BYTE 13 37 84 13
  79. 400 .BYTE "[211]PECIFIC [205]EMBER? ":.BYTE 0
  80. 405 ;
  81. 410 XLAL .BYTE 13:.BYTE "[204]AST [204]OGON    ":.BYTE 0
  82. 415 XLAP .BYTE 13:.BYTE "[208]ASSWORD      ":.BYTE 0
  83. 420 XLAS .BYTE 13:.BYTE "[194][194][211] [211]TATUS    ":.BYTE 0
  84. 425 XLAG .BYTE 13:.BYTE "[193]CCESS        ":.BYTE 0
  85. 430 XLFE .BYTE 13:.BYTE "[204]IST [198]ROM [197]ND ":.BYTE 0
  86. 435 ;
  87. 440 WYRL .BYTE "              ":.BYTE 44 0
  88. 445 WYRF .BYTE "          ":.BYTE 13 0
  89. 450 WYDD .BYTE "                        ":.BYTE 13 0
  90. 455 WCTY .BYTE "                        ":.BYTE 13 0
  91. 460 WYTL .BYTE "                    ":.BYTE 13 0
  92. 465 WYST .BYTE "              ":.BYTE 13 0
  93. 470 WYPS .BYTE "        ":.BYTE 13 0
  94. 475 WYHL .BYTE "            ":.BYTE 13 0
  95. 480 WYDL .BYTE "     ":.BYTE 13 0
  96. 485 ;
  97. 490 XLIB .BYTE 13 37 84 13 7 7
  98. 495 .BYTE "[[211]]CRATCH":.BYTE 13
  99. 500 .BYTE "[[210]]ENAME":.BYTE 13
  100. 505 .BYTE "[[201]]NITIALIZE":.BYTE 13
  101. 510 .BYTE "[[214]]ALIDATE":.BYTE 13
  102. 515 .BYTE "[[212]]OGGLE [208]UBLIC [193]CCESS  ":.BYTE 58 0
  103. 520 ;
  104. 525 ;******
  105. 530 ;
  106. 535 XSST .BYTE 13 37 84 13
  107. 540 .BYTE "[211]ELECT [211]TATUS":.BYTE 13 13
  108. 545 SYSO .BYTE "[211]YSOP":.BYTE 13 0
  109. 550 ASYS .BYTE "[193]SST. [211]YSOP":.BYTE 13 0
  110. 555 SGSY .BYTE "[211][201][199] [211]YSOP":.BYTE 13 0
  111. 560 LEV1 .BYTE "[211]PECIAL [213]SER":.BYTE 13 0
  112. 565 LEV2 .BYTE "[211][201][199] [193]CCESS":.BYTE 13 0
  113. 570 LEV3 .BYTE "[210]EGULAR [213]SER":.BYTE 13 0
  114. 575 LEV4 .BYTE "[208]ROBATIONARY":.BYTE 13 0
  115. 580 LEV5 .BYTE "[206]ON-[205]EMBER":.BYTE 13 0
  116. 585 ;
  117. 590 TUD .BYTE "[213]SER [196]ATA       ":.BYTE 0
  118. 595 TLIB .BYTE "[204]IBRARY         ":.BYTE 0
  119. 600 TSIG .BYTE "[193]LL [211][201][199]'S       ":.BYTE 0
  120. 605 TMAL .BYTE "[193]LL [205]ESSAGES    ":.BYTE 0
  121. 610 TMAG .BYTE "[205]AGAZINE [197]DITOR ":.BYTE 0
  122. 615 TXFR .BYTE "[198]ILE [212]RANSFERS  ":.BYTE 0
  123. 620 TADV .BYTE "[193]DVERTISEMENTS  ":.BYTE 0
  124. 625 TBBS .BYTE "[194]ULLETIN [194]OARD  ":.BYTE 0
  125. 630 ;
  126. 635 XMAI .BYTE 13 37 84 13
  127. 640 .BYTE "[[205]]AGAZINE [197]DITOR     [[197]]-[205]AIL":.BYTE 13
  128. 645 ;
  129. 650 .BYTE "[[213]]SER [198]ILE           [[208]]AGE [211]YSOP":.BYTE 13
  130. 655 ;
  131. 660 .BYTE "[[212]]OGGLE "
  132. 665 COLUMNS .BYTE "80 [195]OLUMNS   [[198]]ILE [212]RANSFERS":.BYTE 13
  133. 670 ;
  134. 675 .BYTE "[[204]]INE [198]EEDS [207]"
  135. 680 LFTO .BYTE "FF      [[206]]EW [208]ARAMETERS":.BYTE 13
  136. 685 ;
  137. 690 .BYTE "[[199]]AME [210]OOM           [[211]]IG'S":.BYTE 13
  138. 695 .BYTE "[[195]]ALLERS             [[214]]ALIDATE [213]SERS":.BYTE 13
  139. 699 .BYTE "[[207]]FFLINE":.BYTE 13 13 0
  140. 700 ;
  141. 705 ;
  142. 710 ;          Z.MESSAGES
  143. 715 ;
  144. 720 ;****
  145. 725 ;
  146. 730 XSTT .BYTE 13 37 84 13
  147. 735 .BYTE "[205]ESSAGE [197]DITOR":.BYTE 13 13
  148. 740 MSGL .BYTE " 20 [204]INES      "
  149. 745 MSGC .BYTE "40 [195]OLUMNS    [208]AGE "
  150. 750 MSGP .BYTE "1":.BYTE 13 13 0
  151. 755 ;
  152. 760 MSGER .BYTE 13 37 84 13
  153. 765 .BYTE "[[211]]END [205]AIL   [[205]]AILBOX     [[206]]EW [205]AIL":.BYTE 13
  154. 770 ;
  155. 775 .BYTE "[[212]]ITLES      [[200]]EADERS     [[196]]ELETE":.BYTE 13
  156. 780 ;
  157. 785 .BYTE "[[215]] 40/80     [[213]]SERS       [[209]]UIT":.BYTE 13 0
  158. 790 ;
  159. 795 XEEM .BYTE 13 13
  160. 800 .BYTE "[206]O [206]EW [205]ESSAGES [198]OR [217]OU":.BYTE 13 13 0
  161. 805 XEWM .BYTE 13 13
  162. 810 .BYTE "00 [205]ESSAGES [215]AITING [198]OR [217]OU":.BYTE 13 13 0
  163. 815 XCON .BYTE 13 7 7 13
  164. 820 .BYTE ">> [195]ONTINUOUS [205]ODE <<":.BYTE 13 0
  165. 825 XHED .BYTE 13 7 7 13
  166. 830 .BYTE "[211]CAN [200]EADINGS":.BYTE 13 0
  167. 835 XTTS .BYTE 13 7 7 13
  168. 840 .BYTE "[211]CAN [212]ITLES":.BYTE 13 0
  169. 845 ;
  170. 850 XPLZ .BYTE 13 37 84 13
  171. 855 .BYTE "** [210]EPLY [212]HREAD **":.BYTE 13 0
  172. 860 ;
  173. 865 XEDP .BYTE 13 37 84 13
  174. 870 .BYTE "[[193]]DD        [[196]]ELETE       [[197]]DIT":.BYTE 13
  175. 875 .BYTE "[[205]]OVE       [[204]]IST         [[201]]NSERT":.BYTE 13
  176. 880 .BYTE "[[198]]ILE       [[209]]UIT         [[206]]EW":.BYTE 13
  177. 885 .BYTE "[[212]]RANSFER   [[213]]-[211]EARCH     [[211]]-[204]IST":.BYTE 13 0
  178. 890 ;
  179. 895 XBEF .BYTE 13 13:.BYTE "[194]EFORE "
  180. 900 ;
  181. 905 XWCH .BYTE "[215]HICH [204]INE ":.BYTE 58 0
  182. 910 EOM .BYTE 13 13:.BYTE "------======>> *       * <<======------":.BYTE 13 0
  183. 915 ;
  184. 920 XENU .BYTE 13 13:.BYTE "[197]NTER [206]UMBER ":.BYTE 58 0
  185. 925 ;
  186. 930 ;*****
  187. 935 ;
  188. 940 XMOP .BYTE 13
  189. 945 .BYTE "[[210]]EPLY         [[196]]ELETE":.BYTE 13
  190. 950 .BYTE "[[212]]HREAD        [[195]]ONTINUE  ":.BYTE 58 0
  191. 955 ;
  192. 960 XMGA .BYTE 13 37 84 13
  193. 965 .BYTE "**  [205]AGAZINE [197]DITOR  **[146]":.BYTE 13 13
  194. 970 .BYTE "[1] [195]REATE":.BYTE 13
  195. 975 .BYTE "[2] [210]EAD":.BYTE 13
  196. 980 .BYTE "[3] [196]ELETE":.BYTE 13
  197. 985 .BYTE "[4] [212]ABLE [207]F [195]ONTENTS ":.BYTE 58 0
  198. 990 ;
  199. 995 TOC .BYTE 13 13
  200. 1000 .BYTE ">> [212]ABLE [207]F [195]ONTENTS <<[146]":.BYTE 13 0
  201. 1005 ;
  202. 1010 ;
  203. 1015 ;          Z.LOGON
  204. 1020 ;
  205. 1025 XWLC .BYTE 13 37 84 13
  206. 1030 .BYTE "[215]ELCOME TO THE  [197].[199]. [194]ELL [146] [194][194][211] ":.BYTE 13 0
  207. 1035 ;
  208. 1040 XCNC .BYTE 13 7 7
  209. 1045 .BYTE "[195]ONNECT AT "
  210. 1050 BAUD .BYTE "1200 [194]AUD":.BYTE 13 0
  211. 1055 ;
  212. 1060 XUSR .BYTE 7 7
  213. 1065 .BYTE "[194][194][211] [201][196] [206]UMBER":.BYTE 13
  214. 1070 .BYTE "[0 [201]F [206]EW [213]SER]   ":.BYTE 58 0
  215. 1075 ;
  216. 1080 XPWD .BYTE 13
  217. 1085 .BYTE "[208]ASSWORD          ":.BYTE 58 0
  218. 1090 ;
  219. 1095 XSTM .BYTE 13 13
  220. 1100 .BYTE "[1] [195]OMMODORE":.BYTE 13
  221. 1105 .BYTE "[2] [193]MIGA":.BYTE 13
  222. 1110 .BYTE "[3] [207]THER    ":.BYTE 58 0
  223. 1115 ;
  224. 1120 XTAG .BYTE 13 13
  225. 1125 .BYTE "[193]RE [217]OU [207]N [212]ERMS [207]F [193]GREEMENT? ":.BYTE 58 0
  226. 1130 ;
  227. 1135 ;     NEW USERS
  228. 1140 ;
  229. 1145 XLLN .BYTE 13 13
  230. 1150 .BYTE "[204]AST [206]AME  ":.BYTE 58 0
  231. 1155 XLFN .BYTE 13
  232. 1160 .BYTE "[198]IRST [206]AME ":.BYTE 58 0
  233. 1165 XDDR .BYTE 13 13
  234. 1170 .BYTE "[193]DDRESS    ":.BYTE 58 0
  235. 1175 XCTY .BYTE 13
  236. 1180 .BYTE "[195]TY/[211]T/[218]IP ":.BYTE 58 0
  237. 1185 XTEL .BYTE 13 13
  238. 1190 .BYTE "[212]ELEPHONE  ":.BYTE 58 0
  239. 1195 XPSD .BYTE 13 13
  240. 1200 .BYTE "[208]ASSWORD   ":.BYTE 58 0
  241. 1205 XRPT .BYTE 13
  242. 1210 .BYTE "[193]GAIN      ":.BYTE 58 0
  243. 1215 XHDL .BYTE 13 13
  244. 1220 .BYTE "[206]AME [217]OU [215]ANT TO [213]SE [207]N [194][194][211]":.BYTE 13 13:.BYTE ">[157]":.BYTE 0
  245. 1225 XNFU .BYTE 13 13
  246. 1230 .BYTE "[193]LL [195]ORRESPONDENCE [212]O [217]OU [215]ILL [194]E":.BYTE 13
  247. 1235 .BYTE "[193]DDRESSED TO ":.BYTE 58 0
  248. 1240 ;
  249. 1245 .END A.ROM
  250.