home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / A.ROM (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.4 KB  |  164 lines
  1. 10 ;"OPEN15,9,15,"S0:A.ROM":PRINT#15,"I":SAVE"A.ROM",9:VERIFY"A.ROM",9
  2. 790 ;
  3. 795 ;[172][172][172][172][172][172]
  4. 800 ;
  5. 805 RAPR [178] 679
  6. 810 BYTE [178] 820
  7. 815 DIRE [178] 821; FILE [135][173]WRITE
  8. 820 STAK [178] 822
  9. 825 TYPE [178] 823;      TYPE U[173]S[173]P[173]A[173]R
  10. 830 EMDX [178] 824
  11. 835 CRUT [178] 825
  12. 840 MLG [178] 826
  13. 845 LOW [178] 827
  14. 850 RAPE [178] 829
  15. 855 TEMP [178] 830
  16. 860 AREG [178] 831
  17. 865 YREG [178] 832
  18. 870 CRX [178] 833;   2 BYTES
  19. 875 MIN [178] 835
  20. 880 GBNU [178] 837
  21. 885 U[176]D [178] 838
  22. 890 PROT [178] 839
  23. 895 USYT [178] 840;[143]OTE COMPUTER
  24. 900 ;
  25. 905 TRY [178] 841;       ATTEMPT COUNTER
  26. 910 RET0 [178] 842;   NO [179]CR[177] W[173]1 KEYPRESS
  27. 915 UNUM [178] 843;  USER NUMBER
  28. 920 PKY [178] 844; LAST KEYPRESS BYTE
  29. 925 BSIC [178] 845;  3 BYTES [164] [143]EMBER
  30. 930 ;             STAK PO[181]ER [175]
  31. 935 ;             [142] [164] BASIC ADDR.
  32. 940 L[145]G [178] 846
  33. 945 HFLG [178] 847; HEADINGS[173]TITLES
  34. 950 ;
  35. 955 MDIT [178] 848; FLAG [164] ENTER MESSAGE
  36. 960 ;            EDIT OPTI[145] MENU
  37. 965 MAIL [178] 849; FLAGS MSG[173]MAIL
  38. 970 LIN [178] 850; MSG LINE NUMBERS
  39. 975 HUNS [178] 851
  40. 980 TENS [178] 852
  41. 985 [145]ES [178] 853
  42. 990 LPPO [178] 854; PO[181]ER [164] MESSAGE EDIT BUFFER
  43. 995 LH [178] 855; TEMP S[164]RAGE [129] LINNUM
  44. 1000 LF [178] 856; [129] [155]ER. 0 [178] [155]    1 [178] [135]
  45. 1005 LM [178] 857; [129] [155]ER. 0 [178] MSG     1 [178] MAG
  46. 1010 MAXL [178] 858; MAX LINES MSG[173]MAG
  47. 1015 ASH [178] 859;  POCKET [129] AREG
  48. 1020 MASK [178] 860; [129] MESSAGE SEARCHES
  49. 1025 PERM [178] 861;  2 BYTES  [129] 40[173]80 COLUMN SELECTI[145] PRESERVATI[145]
  50. 1030 [144] [178] 863
  51. 1035 COMS [178] 864
  52. 1040 MOVE [178] 865; [129] LINE EDITING
  53. 1045 TLIM [178] 866
  54. 1050 LNTH [178] 867; [195]GTH S[164]RAGE
  55. 1055 MXDA [178] 868;  DAYS[173]M[145]TH
  56. 1060 NCNT [178] 869; [135]ING OPS
  57. 1065 CRDT [178] 870; [175] 871 ALSO
  58. 1070 MODE [178] 872
  59. 1075 SERCH [178] 873
  60. 1080 XREG [178] 875
  61. 1085 TMPIN [178] 879; USED IN J.
  62. 1090 [145]ER [178] 880
  63. 1095 SUB [178] 884
  64. 1100 ADDER [178] 885; MESSAGE [135]ERS[173]FILERS
  65. 1105 AGRE [178] 905; TERMS OF AGREEMENT
  66. 1110 ;
  67. 1115 LIVE [178] 906;      1  ACTIVE MSG
  68. 1120 PAGE [178] 907;      1  PAGE NUMBER
  69. 1125 MESG [178] 908;      2  MSG # LO[173]HI
  70. 1130 OWNR [178] 910;      2  OWNER LO[173]HI
  71. 1135 PRIVT [178] 912;     1  PRIVATE
  72. 1140 M[145]TH [178] 913;     1
  73. 1145 DATE [178] 914;      1
  74. 1150 YEAR [178] 915;      1
  75. 1155 TWST [178] 916;      3  NOW UNUSED
  76. 1160 FROM [178] 919;      1  S[128]ER NUMBER
  77. 1165 [164] [178] 920;        1  ADDRESSEE #
  78. 1170 MALE [178] 921;     12  S[128]ER H[175]LE
  79. 1175 TITL [178] 933;     28  TITLE
  80. 1180 C0NT [178] 962;      1  [154]INUED
  81. 1185 RPLI [178] 963;      1 REPLY
  82. 1190 BRNU [178] 964;      1
  83. 1195 FRW2 [178] 965;      1
  84. 1200 ;
  85. 1205 BMP [178] 967
  86. 1210 TBYT [178] 968
  87. 1215 [185] [178] 969
  88. 1220 BMO [178] 970; M[145]TH DAY YEAR
  89. 1225 BDA [178] 971
  90. 1230 BYR [178] 972
  91. 1235 ;
  92. 1240 PTEK [178] 975; [175] 976
  93. 1245 ACSS [178] 977; [175] 978
  94. 1250 IMNS [178] 989; [175] 990[173]1
  95. 1255 ;
  96. 1260 DRIV [178] 992; [175] 993[173]4[173]5
  97. 1265 IDEX [178] 996
  98. 1270 W[143] [178] 997;  [129] W[176]D WRAP
  99. 1275 BACK [178] 998;    [129] W[176]D WRAP
  100. 1280 MXLO [178] 999; COLUMNS
  101. 1285 AMP [178] 1000;  AM [176] PM
  102. 1290 HRS [178] 1001;  HOUR
  103. 1295 MNS [178] 1002;  MINUTE
  104. 1300 SEX [178] 1003;  SEC[145]D
  105. 1305 ;
  106. 1310 ;[172][172]
  107. 1315 ;
  108. 1320 ALT [178] 1024
  109. 1325 ALC [178] 55325
  110. 1330 ;
  111. 1335 LOPO [178] $C000; HI TABLE MSG LINES
  112. 1340 UBFR [178] $C000; [129] NOW
  113. 1345 HIPO [178] $C100; LO TABLE MSG LINES
  114. 1350 ;
  115. 1355 LOTEMP [178] $CE00;     52736
  116. 1360 HITEMP [178] $CF00;     52992
  117. 1365 ;
  118. 1370 BOL1 [178] $BFFF
  119. 1375 BOL2 [178] $CDFF
  120. 1380 BOH1 [178] $C0FF
  121. 1385 BOH2 [178] $CEFF
  122. 1390 ;
  123. 1395 MISC [178] 49253
  124. 1400 ;
  125. 1405 INFI [178] 6959; MSGS CURRENTLY IN RAM
  126. 1410 L[145]U [178] 6960; RAM MSG NUMBERS
  127. 1415 HINU [178] 6970
  128. 1420 TXTLO [178] 6980;RAM MSG [185]ITI[145]S
  129. 1425 TXTHI [178] 6990
  130. 1430 ;
  131. 1435 LOHEAD [178] 39848; MESSAGE HEADERS
  132. 1440 HIHEAD [178] 39948
  133. 1445 [135]ER [178] 40048
  134. 1450 ;
  135. 1455 [161][164] [178] 40148; MESSAGES [164] WHOM
  136. 1460 NUMLO [178] 40248
  137. 1465 NUMHI [178] 40348
  138. 1470 ;
  139. 1475 ;[172][172][172]
  140. 1480 ;
  141. 1485 BUF [178] $0200
  142. 1490 ;
  143. 1495 ;[172][172][172][172][172][172][172][172]
  144. 1500 ;
  145. 1505 SWCH [178] $B1AA
  146. 1510 BSET [178] $B391
  147. 1515 FAC1 [178] $B7B0
  148. 1520 BSHO [178] $BDDD
  149. 1525 KEYS [178] $A09E
  150. 1530 ;
  151. 1535 RESET [178] $EF7E
  152. 1540 SETLFS [178] $FFBA
  153. 1545 SETNAM [178] $FFBD
  154. 1550 [159] [178] $FFC0
  155. 1555 [160] [178] $FFC3
  156. 1560 CHKIN = $FFC6
  157. 1565 CHKOUT = $FFC9
  158. 1570 CLRCHN = $FFCC
  159. 1575 CHRIN = $FFCF
  160. 1580 CHROUT = $FFD2
  161. 1585 GETIN = $FFE4
  162. 1590 ;
  163. 1605 .FILE 0:AA.[159]
  164.