home *** CD-ROM | disk | FTP | other *** search
- 10 ;"OPEN15,9,15,"S0:T.HE*":PRINT#15,"I":SAVE"T.HEADERS",9:VERIFY"T.HEA*",9
- 15 ;
- 20 ; T.HEADERS
- 25 ;
- 30 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
- 35 ;
- 40 ;
- 45 [164]WHOM .BYTE 0
- 50 ;
- 55 P[143]SG JSR LOKAT:BCC T1; BUMP AND SAVE IF CARRY IS SET.
- 60 ;
- 65 JSR BUMP:JMP P[143]SG
- 70 ;
- 80 T1 LDY MESG:LDA MESG[170]1
- 85 ;
- 90 JSR BSET:JSR BSHO
- 95 STA $FB:STY $FC:LDY #1:LDX #0
- 100 ;
- 105 T2 LDA ($FB),Y:BEQ T3
- 110 STA MSNUM,X
- 115 STA EOM[170]19,X:INX:INY:BNE T2
- 120 ;
- 125 T3 CPX #5:BEQ T4
- 130 LDA #1:STA MSNUM,X
- 135 STA EOM[170]19,X:INX:BNE T3
- 140 ;
- 145 T4 LDA #[179]XTWB:LDX #[177]XTWB; THIS WILL BE...
- 150 JSR STRING
- 155 ;
- 160 LDA #0:STA PRIVT:STA C0NT
- 165 ;
- 170 LDA EXFLAG:BNE T8; [162] [129] REPLIES
- 175 ;
- 180 LDA MESG:STA OWNR
- 185 LDA MESG[170]1:STA OWNR[170]1
- 190 ;
- 195 ;[172][172][172][172][172] ENTER TITLE
- 200 ;
- 205 T5 LDA #[179]XCLT:LDX #[177]XCLT:STX RATS
- 210 LDY #28:JSR [161]COM:BNE T5
- 215 ;
- 220 LDA RAPR:BNE T6
- 225 JMP EMAIL
- 230 ;
- 235 T6 LDA #[179]TITL:STA $62
- 240 LDA #[177]TITL:STA $63:JSR DROPDOWN
- 245 ;
- 250 ;[172][172][172][172][172] IS THIS PERS[145]AL
- 255 ;
- 260 T8 LDA #[179]XPRS:LDX #[177]XPRS:STX RATS; NO [181]ERRUPTI[145]S
- 265 JSR STRING:JSR [161]1
- 270 STA MDIT:CMP #"1":BEQ TJ; PUBLIC
- 275 CMP #"2":BNE T8; BAD ENTRY
- 280 INC PRIVT; PRIVT [178] 1 [139] PRIVATE
- 285 ;
- 290 LDA EXFLAG:BNE TJ; [162] [129] REPLIES
- 295 ;
- 300 ;[172][172][172][172][172] [164] WHOM
- 305 ;
- 310 ENTRV LDA #[179]XCVR:LDX #[177]XCVR:STX RATS
- 315 LDY #12:JSR [161]COM:BNE ENTRV
- 320 LDA RAPR:BNE T9
- 325 JMP EMAIL
- 330 ;
- 335 T9 JSR FINDUSER:BCS ENTRV
- 340 ;
- 345 LDA TRY:STA [164]WHOM; ADDRESSEE
- 350 ;
- 355 TJ LDY #0; S[128]ER'S NAME
- 360 TA LDA WYHL,Y:CMP #1:BEQ T10
- 365 CMP #13:BEQ T10
- 370 STA MALE,Y:LDA #0:STA MALE[170]1,Y
- 375 INY:CPY #12:BNE TA
- 380 ;
- 385 T10 LDA MDIT:CMP #"1":BEQ T7
- 390 ;
- 395 ;
- 400 TB LDA UNUM:JMP TF
- 405 ;
- 410 ;[172][172][172][172][172][172][172][172][172][172]
- 415 ;
- 420 T7 LDA EXFLAG:BNE TZ; [162] [129] REPLIES
- 425 ;
- 430 LDA #[179]XPBM:LDX #[177]XPBM:STX RET0
- 435 JSR STRING:JSR [161]1
- 440 CMP #"1":BEQ TD
- 445 CMP #"2":BEQ TE
- 450 ; [150]AULTS [164] ALL MEMBERS
- 455 ;
- 460 TZ LDA #255; ALL MEMBERS
- 465 .BYTE 44
- 470 TD LDA #254; ADVERTISEMENTS
- 475 .BYTE 44
- 480 TE LDA #253; PETITI[145]S
- 485 ;
- 490 TF STA TBYT; NEED VARIABLE
- 495 ;
- 500 RTS; [142] [175] ENTER MSG EDI[164]R
- 505 ;
- 510 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
- 515 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
- 520 ;
- 525 XTWB .BYTE 13 13
- 530 .BYTE "(null)HIS (null)ILL PEEKE (null)ESSAGE "
- 535 MSNUM .BYTE " ":.BYTE 13 13 0
- 540 ;
- 545 XCLT .BYTE 13 13
- 550 .BYTE "(null)ITLE ":.BYTE 58 0
- 555 ;
- 560 XPRS .BYTE 13 13
- 565 .BYTE "[1] (null)UBLIC [2] (null)ERSONAL ":.BYTE 58 0
- 570 ;
- 575 ;
- 580 XCVR .BYTE 13 13
- 585 .BYTE "(null)O (null)HOM ":.BYTE 58 0
- 590 ;
- 595 XPBM .BYTE 13 13
- 600 .BYTE "[1] ATNDVERTISEMENT":.BYTE 13
- 605 .BYTE "[2] (null)ETITION":.BYTE 13
- 610 .BYTE "[3] MID$UNK (null)AIL ":.BYTE 58 0
- 615 ;
- 620 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
- 625 ;
- 630 ; LOCATE MESSAGE NUMBER [175] TABLE
- 635 ; [185]. [142]S WITH [185]
- 640 ; SET [175] MESSAGE HI[173]LO IN MESG[170]1
- 645 ; [175] MESG.
- 650 ;
- 655 LOKAT LDA #0:STA [185]; STA BMPR
- 660 STA MESG[170]1:STA MESG
- 665 ;
- 670 TH LDY [185]:CPY #100:BNE TG
- 675 ;
- 680 ; [142] W[173]CARRY SET [175] [185] [178] 99
- 685 ;
- 690 DEC [185]:SEC:RTS; NEEDS BUMPED BACK
- 695 ;
- 700 TG LDA NUMLO,Y:LDX NUMHI,Y:BNE TI
- 705 CMP #0:BNE TI
- 710 ;
- 715 LDA MESG:CLC:ADC #1:STA MESG
- 720 LDA #0:ADC MESG[170]1:CMP #117:BNE TK
- 725 ;
- 730 ; MESSAGES TURN OVER AFTER 29999
- 735 ;
- 740 LDX MESG:CPX #48:BCC TK
- 745 LDX #1:STX MESG:LDA #0
- 750 ;
- 755 TK STA MESG[170]1
- 760 CLC:RTS
- 765 ;
- 770 TI STA MESG:STX MESG[170]1
- 775 INC [185]:BNE TH
- 780 ;
- 785 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
- 790 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
- 795 ;
- 800 INABUF JSR LOKAT:LDY [185]
- 810 ;
- 815 LDA MESG[170]1:STA NUMHI,Y
- 820 LDA MESG:STA NUMLO,Y
- 825 LDA [164]WHOM:STA [161][164],Y; [164] WHOM
- 830 ;
- 835 ; [139] THIS IS LAST BUFFER [185]TI[145], D[145]'T INIT [130] [185]ITI[145]
- 840 ;
- 845 CPY #99:BEQ FUBV
- 850 LDA #0:STA NUMLO[170]1,Y:STA NUMHI[170]1,Y
- 855 ;
- 860 ; [139] [168] PAGE 1, D[145]'T REC[176]D THIS AS A [162] MESSAGE. [145]LY REC[176]D
- 865 ; FIRST PAGE OF A MESSAGE.
- 870 ;
- 875 FUBV JSR STSV:LDY ADDER:BNE FUBW
- 880 ;
- 885 LDX CRX:CPX #48:BEQ T12
- 890 DEX:BNE T13
- 895 ;
- 900 .BYTE 44; MASTER [171] 1
- 905 ;
- 910 T12 LDX #57; BE WRITTEN
- 915 ;
- 920 T13 STX MASTER:JSR FL5
- 925 ;
- 930 ;[172][172][172][172][172][172][172]
- 935 ;
- 940 FUBW LDA CRX:STA INFI; CURRENT MESSAGE FILE IN RAM
- 945 STA TEMFG[170]1; PREFIX [129] TEMP FILE RECALL
- 950 LDA MESG:STA L[145]U,Y; RAM MSG #
- 955 LDA MESG[170]1:STA HINU,Y; TABLE
- 960 LDA TXTLO,Y:STA $64; MSG ADDRESS
- 965 LDA TXTHI,Y:STA $65
- 970 ;
- 975 ;[172][172][172][172][172] BUFFER MESSAGE TEXT
- 980 ;
- 985 LDY #255:STY BACK
- 990 ;
- 995 INA1 JSR INA4
- 1000 ;
- 1005 INA2 LDY #0
- 1010 LDA ($62),Y:BEQ INA1
- 1015 STA ($64),Y
- 1020 ;
- 1025 INA0 PHA:JSR UPZP
- 1030 INC $62:BNE INAA
- 1035 INC $63
- 1040 ;
- 1045 INAA PLA:CMP #13:BEQ INA1
- 1050 CMP #148:BEQ INA1
- 1055 CMP #255:BNE INA2
- 1060 ;
- 1065 ;[172][172][172][172][172] S[164]RE HEADER
- 1070 ;
- 1075 STA TEMFG; FLAG [162] MESSAGES
- 1080 LDA #1:STA LIVE; FLAG AS LIVE MESSAGE
- 1085 LDA UNUM:STA FROM
- 1090 LDA TBYT:STA [164]
- 1095 LDA BMO:STA M[145]TH
- 1100 LDA BDA:STA DATE
- 1105 LDA BYR:STA YEAR
- 1110 ;
- 1115 ; [139] [130] MESSAGE IS [179] 10 [167] S[164]RE ITS PO[181]ERS IN TXTLO[173]HI
- 1120 LDY ADDER:CPY #9:BEQ NOWY
- 1125 LDA $64:STA TXTLO[170]1,Y
- 1130 LDA $65:STA TXTHI[170]1,Y; [130] AREA
- 1135 ;
- 1140 NOWY LDA #[179]XOC:LDX #[177]XOC:STX RET0
- 1145 JSR STRING
- 1150 EO0 JSR [161]1:STA BYTE
- 1155 ;
- 1160 CMP #"C":BNE EO2
- 1165 .BYTE 44
- 1170 EO2 LDA #0
- 1175 STA C0NT
- 1180 ;
- 1185 LDA EXFLAG:STA RPLI
- 1190 ;
- 1195 LDY [185]
- 1200 LDA HIHEAD,Y:STA $63
- 1205 LDA LOHEAD,Y:STA $62
- 1210 ;
- 1215 LDY #0:STY RGSR[170]2:STY RGSR
- 1220 SHED LDA LIVE,Y:STA ($62),Y
- 1225 INY:CPY #60:BNE SHED
- 1230 ;
- 1235 ;
- 1240 ;[172][172][172][172][172] PROCESS SELECTED [130] [169]
- 1245 ;
- 1250 PSNS LDA BYTE:CMP #"M":BNE EO3
- 1255 JMP MENU; BBS MENU
- 1260 ;
- 1265 EO3 CMP #"C":BNE EO4
- 1270 ;
- 1275 ; MAX. 4 PAGES
- 1280 ;
- 1285 INC PAGE:LDA PAGE:CMP #5:BEQ EO4
- 1290 ;
- 1295 ; SET UP [129] [130] PAGE IN TABLES
- 1300 ;
- 1305 EO5 JSR LOKAT:BCC EO6
- 1310 JSR BUMP:JMP EO5
- 1315 EO6 JMP EMSD
- 1320 ;
- 1325 EO4 JMP EMHL1
- 1330 ;
- 1335 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
- 1340 ;
- 1345 ; SET PO[181]ERS [129] EDI[164]R BUFFER
- 1350 ;
- 1355 INA4 INC BACK:LDY BACK
- 1360 LDA LOPO,Y:STA $62
- 1365 LDA HIPO,Y:STA $63:RTS
- 1370 ;
- 1375 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
- 1380 ;
- 1385 ; FIND PO[181]ER [185] [129] TEXT
- 1390 ; BUFFER
- 1395 ;
- 1400 MDV .BYTE 64
- 1405 MASDV .BYTE 48 58
- 1410 MASTER .BYTE "0MESS,S,W"
- 1415 ;
- 1420 TEMDV .BYTE 48 58
- 1425 TEMFIL .BYTE "TEMP,S,W"
- 1430 ;
- 1435 ;
- 1440 FL5 LDA #[179]XSTN:LDX #[177]XSTN
- 1445 JSR STRING
- 1450 ;
- 1455 ;[172][172][172][172][172] SCRATCH FILE
- 1460 ;
- 1465 JSR [156]CHN
- 1470 LDA #[179]MASDV:LDX #[177]MASDV:JSR HIT1
- 1475 JSR INITL
- 1480 ;
- 1485 ;[172][172][172][172][172] [148] CURRENT BUFFER
- 1490 ;
- 1495 LDA #12
- 1500 LDX #[179]MDV:LDY #[177]MDV:JSR [148]X
- 1505 ;
- 1510 ;[172][172][172][172][172] FILL BUFFER W[173]0'S
- 1515 ;
- 1520 Z6959 LDA #38:STA $64; 6959
- 1525 LDA #27:STA $65
- 1530 TXN1 LDY #0:TYA:STA ($64),Y
- 1535 JSR UPZP:LDA $65:CMP #58:BNE TXN1
- 1540 LDA $64:CMP #162:BNE TXN1
- 1545 ;
- 1550 LDA #88:STA TXTLO
- 1555 LDA #27:STA TXTHI
- 1560 ;
- 1565 RTS; NOW EXIT [164] MESSAGE ENTRY
- 1570 ;
- 1575 ;[172][172][172][172][172] DETERMINE PROPER FILE
- 1580 ;
- 1585 STSV LDA MESG:STA ADDER
- 1590 LDA MESG[170]1:STA MIN[170]1
- 1595 LDA #48:STA CRX; 1ST CHR IN FILNM
- 1600 ;
- 1605 T14 LDA ADDER:CMP #101:BCS T16
- 1610 LDX MIN[170]1:BEQ SU10
- 1615 T16 SEC:SBC #100:STA ADDER
- 1620 ;
- 1625 BCS T14
- 1630 DEC MIN[170]1:JMP T14
- 1635 ;
- 1640 SU10 LDA ADDER:CMP #11:BCC T15
- 1645 INC CRX
- 1650 SEC:SBC #10:STA ADDER:BNE SU10
- 1655 ;
- 1660 T15 DEC ADDER:RTS
- 1665 ;
- 1670 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
- 1675 ;
- 1680 XSTN .BYTE 13 13 7 7
- 1685 .BYTE "(null)TAND PEEKY...":.BYTE 13 13
- 1690 .BYTE "ASCILING (null)ESSAGE PEEKLOCK...":.BYTE 13 13 0
- 1695 ;
- 1700 ;
- 1705 XOC .BYTE 13 7 7 13
- 1710 .BYTE "[LEN]ONTINUE":.BYTE 13
- 1715 .BYTE "[VAL]-(null)AIL (null)ENU ":.BYTE 13
- 1720 .BYTE "[(null)]AIN (null)ENU ":.BYTE 58 0
- 1725 ;
- 1730 ;[172][172][172][172][172] [148] CURRENT BUFFER
- 1735 ;
- 1740 [148]X JSR SETNAM
- 1745 ;
- 1750 LDA #2:LDX DRIV:TAY:JSR SETLFS
- 1755 JSR [159]:JSR [156]CHN
- 1760 ;
- 1765 LDA #27:STA $FE; 7000
- 1770 LDA #88:STA $FD
- 1775 LDA FEED:STA TEMP
- 1780 ;
- 1785 LDX #2:JSR CHKOUT
- 1790 LDY #0:STY BYTE:STY FEED
- 1795 ;
- 1800 ;[172][172][172][172][172] [148] PO[181]ER TABLES FIRST
- 1805 ;
- 1810 T11 LDA INFI,Y:JSR CHROUT
- 1815 INY:CPY #41:BNE T11
- 1820 ;
- 1825 ;[172][172][172][172][172] [143]AINDER OF TEXT FILE
- 1830 ;
- 1835 FLOT LDY #0:LDA ($FD),Y
- 1840 JSR CHROUT:BEQ FLOX
- 1845 ;
- 1850 LDX $FE:CPX #58:BEQ FLOX; 11776
- 1855 ;
- 1860 FLOY INC $FD:BNE FLOZ
- 1865 INC $FE
- 1870 ;
- 1875 FLOZ CMP #255:BNE FLOT
- 1880 INC BYTE:LDA BYTE:CMP #10:BNE FLOT
- 1885 ;
- 1890 FLOX JSR [156]CHN:LDA #2:JSR [160]
- 1895 LDA TEMP:STA FEED
- 1900 JMP INITL; INITIALIZE DRIVE
- 1905 ;
- 1910 ;[172][172][172][172][172] [148] TEMP MESSAGE FILE
- 1915 ;
- 1920 STUP .BYTE 13
- 1925 .BYTE "* ASCILING *":.BYTE 13 0
- 1930 ;
- 1935 ; SCRATCH[173][148] TEMP FILE OF THE CURRENT MESSAGES. LATER PO[181]ERS
- 1940 ; [175] HEADERS WILL HAVE [164] BE [148]D ALSO.
- 1945 ;
- 1950 FITHFI LDA TEMFG:BEQ T19
- 1955 ;
- 1960 ; [145]LY [148] [139] [162] MSGS PRESENT
- 1965 ;
- 1970 LDA #[179]STUP:LDX #[177]STUP
- 1975 JSR STRING:JSR INITL
- 1980 ;
- 1985 LDA #[179]TEMDV:LDX #[177]TEMDV
- 1990 JSR HIT1:JSR INITL
- 1995 ;
- 2000 ; LATER CHECK [129] ERR[176]S HERE
- 2005 ;
- 2010 LDA #11
- 2015 LDX #[179]TEMDV:LDY #[177]TEMDV:JSR [148]X
- 2020 ;
- 2025 LDA #0:STA TEMFG
- 2030 T19 RTS
- 2035 ;
- 2040 .FILE 0:U.M[135]ERS
-