home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / E.MENU (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.6 KB  |  272 lines
  1. 10 ;"OPEN15,9,15,"S0:E.M*":PRINT#15,"I":SAVE"E.MENU",9:VERIFY"E.M*",9
  2. 15 ;
  3. 20 MENU JSR FITHFI:LDX PERM:STX MXLO
  4. 25 LDX PERM[170]1:STX COLUMNS:JSR [143]ODEM
  5. 30 LDX #1:STX RET0;  [145]E KEY PRESS [129] ANY SELECTI[145]
  6. 35 ;
  7. 40 JSR CMND; COMM[175] LINE
  8. 45 ;
  9. 50 ;[172][172][172][172][172][172] HELP
  10. 55 ;
  11. 60 E1 JSR [161]1:CMP #"?":BNE E2
  12. 65 JMP MAHELP
  13. 70 ;
  14. 75 ;[172][172][172][172][172] LINEFEED [164]GGLE
  15. 80 ;
  16. 85 E2 CMP #"L":BNE E31
  17. 90 JSR GLEE:JMP MENU
  18. 95 ;
  19. 100 GLEE LDA FEED:CMP #1:BEQ E1Z
  20. 105 ;
  21. 110 LDY #1:LDA #"F":TAX:BNE EA2
  22. 115 ;
  23. 120 E1Z LDY #10:LDA #"N":LDX #32
  24. 125 ;
  25. 130 EA2 STY FEED:STA LF[164]:STX LF[164][170]1
  26. 135 RTS
  27. 140 ;
  28. 145 ;[172][172][172][172][172] USER [197]IDATI[145]S
  29. 150 ;
  30. 155 E31 CMP #"V":BNE EA1;   'S'
  31. 160 JMP GNAM; [129] NOW!    JMP SPRM
  32. 165 ;
  33. 170 ;[172][172][172][172][172] [188][145] [155]
  34. 175 ;
  35. 180 EA1 CMP #"C":BNE E2E
  36. 185 JMP TDCL
  37. 190 ;
  38. 195 ;[172][172][172][172][172] LIBRARY HOUSEKEEPING
  39. 200 ;
  40. 205 E2E CMP #"H":BNE E3
  41. 210 ;
  42. 215 LDA #64:STA PTEK:STA PTEK[170]1
  43. 220 ;
  44. 225 ; LEVEL OF AT LEAST ASST. [158]OP
  45. 230 ; BIT 6 MUST BE SET IN LEVEL 2
  46. 235 ;
  47. 240 JSR SECURITY:BCS MENU
  48. 245 ;
  49. 250 JMP E1C
  50. 255 ;
  51. 260 ;[172][172][172][172][172] EMAIL
  52. 265 ;
  53. 270 E3 CMP #"E":BNE E4; ENTR MSGS
  54. 275 JMP EMHL1
  55. 280 ;
  56. 285 ;[172][172][172][172][172] [188]OFF
  57. 290 ;
  58. 295 E4 CMP #"O":BNE E5
  59. 300 JSR DOVER:BNE MENU
  60. 305 JMP CALG
  61. 310 ;
  62. 315 ;[172][172][172][172][172] MAGAZINE
  63. 320 ;
  64. 325 E5 CMP #"M":BNE EB
  65. 330 JMP EE
  66. 335 ;
  67. 340 ;[172][172][172][172][172] FILE TRANSFERS
  68. 345 ;
  69. 350 EB CMP #"F":BNE E6
  70. 355 JMP MAULDL
  71. 360 ;
  72. 365 ;[172][172][172][172][172] USER FILE DISPLAY
  73. 370 ;
  74. 375 E6 CMP #"U":BNE E7
  75. 380 JMP UDAT
  76. 390 ;
  77. 395 ;[172][172][172][172][172] [164]GGLE 40[173]80 COLS
  78. 400 ;
  79. 405 E7 CMP #"T":BNE E8
  80. 410 JSR [164]GL:JMP MENU
  81. 415 ;
  82. 420 ;[172][172][172][172][172] PAGE [158]OP
  83. 425 ;
  84. 430 E8 CMP #"P":BEQ E9
  85. 435 ;
  86. 440 ;[172][172][172][172][172] GAME ROOM
  87. 445 ;
  88. 450 E32 CMP #"G":BNE E34
  89. 455 NOP:NOP:NOP; JSR [147]GAME
  90. 460 NOP:NOP:NOP; JMP PLAYGAME
  91. 465 ;
  92. 470 ;  JMP USER 1 [172][164] BE AT 49152
  93. 475 ; GAMES & XFER PRO[164]COLS WILL BE
  94. 480 ; [147]ED [175] CALLED THRU USER
  95. 485 ; WINDOWS. PARAMETERS WILL BE
  96. 490 ; SET BY CALLER ROUTINE.
  97. 495 ;
  98. 500 ;[172][172][172][172][172] CLEAN IN[197]ID KEYPRESS
  99. 505 ;
  100. 510 E34 JSR CLIV:JMP E1
  101. 515 ;
  102. 520 ;[172][172][172][172][172]
  103. 525 ;
  104. 530 ; PAGE [158]OP
  105. 535 ;
  106. 540 E9 LDA IMNS:BNE EA
  107. 545 INC PAG[170]1
  108. 550 LDA PAG[170]1:CMP #58:BCC ED
  109. 555 LDA #48:STA PAG[170]1
  110. 560 INC PAG
  111. 565 LDA PAG:CMP #58:BCC ED
  112. 570 LDA #48:STA PAG
  113. 575 ;
  114. 580 ED LDA #[179]XPAG:LDX #[177]XPAG
  115. 585 JSR STRING
  116. 590 LDA #0:STA [158]0
  117. 595 LDA $DC0A:STA IMNS[170]2
  118. 600 LDA #2:STA IMNS[170]1:STA IMNS
  119. 605 EA JMP MENU
  120. 610 [158]0 .BYTE 0
  121. 615 ;
  122. 620 ;[172][172][172][172][172][172][172][172]
  123. 625 ;
  124. 630 ; SHOW MENU
  125. 635 ;
  126. 640 MAHELP LDA #[179]XMAI:LDX #[177]XMAI
  127. 645 JSR STRING:JMP MENU
  128. 650 ;
  129. 655 ;[172][172][172][172][172][172][172][172]
  130. 660 ;
  131. 665 ; MAGAZINE
  132. 670 ;
  133. 675 EE LDA #45:STA EOM[170]19:STA EOM[170]23
  134. 680 LDA #61:STA EOM[170]20:STA EOM[170]22
  135. 685 LDA #42:STA EOM[170]21
  136. 690 ;
  137. 695 LDA #[179]XMGA:LDX #[177]XMGA:JSR STRING
  138. 700 LDA RATS:BEQ EF
  139. 705 JSR SUBCOM
  140. 710 EF JSR [161]1:CMP #"1":BNE EG
  141. 715 ;
  142. 720 LDA #16:STA PTEK:LSR:STA PTEK[170]1
  143. 725 JSR SECURITY:BCS EJ
  144. 730 ;
  145. 735 LDX #102:STX MAXL:STX LM:JMP EMAGI
  146. 740 EG CMP #"2":BNE EH
  147. 745 JMP MTEX
  148. 750 ;
  149. 755 EH CMP #"3":BNE EI
  150. 760 JMP MSCH
  151. 765 ;
  152. 770 EI CMP #"4":BNE EJ
  153. 775 LDA #"1":STA PROT
  154. 780 LDX #"P":LDY #46:STY BYTE
  155. 785 JMP MAGMENU
  156. 790 ;
  157. 795 EJ CMP #"?":BEQ EE
  158. 800 JMP MENU
  159. 805 ;
  160. 810 ;[172][172][172][172][172][172][172][172]
  161. 815 ;
  162. 820 EOO JSR STRING
  163. 825 LDA #[179]Y[176]N:LDX #[177]Y[176]N
  164. 830 JSR STRING:JSR [161]1
  165. 835 CMP #"Y"
  166. 840 EPP RTS
  167. 845 ;
  168. 850 ;[172][172][172][172][172][172]
  169. 855 ;
  170. 860 VERCOM JSR STRING
  171. 865 DOVER JSR [149]:CMP #"Y":RTS
  172. 870 ;
  173. 875 [182]ENT LDA [158]0
  174. 880 CMP #255:BNE EVV
  175. 885 LDA #0:STA IMNS:STA $D020
  176. 890 STA [158]0
  177. 895 ;
  178. 900 LDA #[179]XOUT:LDX #[177]XOUT
  179. 905 JMP STRING
  180. 910 EVV RTS
  181. 915 ;
  182. 920 E1C LDA #[179]XLIB:LDX #[177]XLIB
  183. 925 JSR STRING:LDA RATS:BEQ E1D
  184. 930 JSR SUBCOM
  185. 935 E1D JSR [161]1
  186. 940 ;
  187. 945 CMP #"S":BNE E1E
  188. 950 JMP EIJ
  189. 955 ;
  190. 960 E1E CMP #"R":BNE E1F
  191. 965 JMP EIJ
  192. 970 ;
  193. 975 E1F CMP #"I":BNE E1G
  194. 980 [197]I2 JSR INITL:JMP MENU
  195. 985 ;
  196. 990 E1G CMP #"V":BNE E1H
  197. 995 JSR [197]IDATE:JMP [197]I2
  198. 1000 ;
  199. 1005 E1H CMP #"T":BNE E1I
  200. 1010 EIJ JSR RET2:JSR [165]AME:BNE E1I
  201. 1015 E1I JMP MENU
  202. 1020 ;
  203. 1025 ;[172][172][172][172][172] [188][145]S
  204. 1030 ;
  205. 1035 TDCL LDX #4:STX PTEK
  206. 1040 DEX:STA PTEK[170]1
  207. 1045 JSR SECURITY:BCS TC5
  208. 1050 ;
  209. 1055 LDA CALL:TAX
  210. 1060 ;
  211. 1065 CPX #1:BNE TB3
  212. 1070 .BYTE 44
  213. 1075 TB3 LDX #"S"
  214. 1080 STX C[164]D[170]18; MESSAGE[173]S
  215. 1085 ;
  216. 1090 JSR [198]I:LDA HUNS:CMP #48:BNE TB0
  217. 1095 ;
  218. 1100 LDA #1
  219. 1105 ;
  220. 1110 TB0 STA C[164]D[170]8
  221. 1115 LDA TENS:CMP #48:BNE TB1
  222. 1120 ;
  223. 1125 LDA #1
  224. 1130 ;
  225. 1135 TB1 STA C[164]D[170]9
  226. 1140 ;
  227. 1145 LDA [145]ES:STA C[164]D[170]10
  228. 1150 ;
  229. 1155 LDA #[179]C[164]D:LDX #[177]C[164]D:STX RATS
  230. 1160 JSR STRING:JSR RATF
  231. 1165 ;
  232. 1170 ;[172][172][172][172][172] SHOW [188][145]S NOW
  233. 1175 ;
  234. 1180 LDA #130:STA $FD
  235. 1185 LDA #255:STA $FE
  236. 1190 ;
  237. 1195 JSR KRNLOFF
  238. 1200 TC0 LDY #0:LDA ($FD),Y:BNE TC6
  239. 1205 ;
  240. 1210 JSR TC1:BCC TC0
  241. 1215 ;
  242. 1220 TC5 JSR KRNL[145]:JSR ANY:JMP MENU
  243. 1225 ;
  244. 1230 TC6 JSR P0L:LDA RATS:BNE TC5
  245. 1235 JSR TC1:BCS TC5
  246. 1240 JSR KRNLOFF:JMP TC6
  247. 1245 ;
  248. 1250 TC1 LDA $FD:SEC:SBC #40:STA $FD
  249. 1255 BCS TC2
  250. 1260 DEC $FE
  251. 1265 ;
  252. 1270 ;[172][172][172][172][172]
  253. 1275 ;
  254. 1280 TC2 LDA $FE:CMP #247:BNE TC3
  255. 1285 LDA $FD:CMP #218:BCC TC4
  256. 1290 TC3 CLC:RTS
  257. 1295 TC4 SEC:RTS
  258. 1300 ;
  259. 1305 ;[172][172][172] PUT IN LOTEMP
  260. 1310 ;
  261. 1315 P0L LDY #39:LDA #0
  262. 1320 P1L STA LOTEMP,Y:DEY:BPL P1L
  263. 1325 ;
  264. 1330 LDY #39
  265. 1335 P2L LDA ($FD),Y:STA LOTEMP,Y
  266. 1340 DEY:BPL P2L
  267. 1345 JSR KRNL[145]
  268. 1350 LDA #[179]LOTEMP:LDX #[177]LOTEMP
  269. 1355 JSR STRING:JMP KRNLOFF
  270. 1360 ;
  271. 1365 .FILE 0:F.CHATMODE
  272.