home *** CD-ROM | disk | FTP | other *** search
- 10 ;"OPEN15,9,15,"S0:Y.V*":PRINT#15,"I":SAVE"Y.VALIDATE",9:VERIFY"Y.V*",9
- 15 ;
- 20 ; Y.[197]IDATE
- 25 ;
- 30 GNAM LDA #[179]WHO:LDX #[177]WHO:STX RATS
- 35 LDY #12:JSR [161]COM:BNE Y98
- 40 LDA RAPR:BEQ Y98
- 45 ;
- 50 LDA UNUM:STA F1L
- 55 JSR FINDUSER:BCC Y99
- 60 JMP GNAM
- 65 ;
- 70 Y98 LDA F1L:STA UNUM
- 75 JMP MENU; [140] UBFR
- 80 ;
- 85 Y99 LDA TRY:STA SERCH:JSR POK
- 90 LDA F1L:STA UNUM:JSR RET2
- 95 ;
- 100 LDA $FB:STA F1L[170]2
- 105 LDA $FC:STA F1L[170]3
- 110 ;
- 115 LDA TRY:STA F1L[170]1; USER FOUND #
- 120 ;
- 125 Y85 LDA F1L[170]1:STA SERCH:STA SERCH[170]1
- 130 ;
- 135 LDX #1:STX YES:STX YES[170]2:STX YES[170]3
- 140 STX YES[170]4:STX YES[170]5:DEX:STX YES[170]1
- 145 ;
- 150 ; YES[170]5 FLAGS [142] IN P.
- 155 ;
- 160 Y00 JSR PZ; SHOW USER [131]
- 165 ;
- 170 ;[172][172][172][172][172] SHOW [150]AULT COLUMNS
- 175 ;
- 180 JSR RET1:JSR SHDF
- 185 LDA UBFR[170]31:JSR [198]I
- 190 LDA TENS:STA DFC:LDA [145]ES:STA DFC[170]1
- 195 LDA #[179]DFC:LDX #[177]DFC:JSR STRING
- 200 ;
- 205 ;[172][172][172][172][172] SHOW TERMINAL [139] BELL TERM
- 210 ;
- 215 LDA UBFR[170]24:BEQ Y01
- 220 JSR SHDF
- 225 LDA #[179]BT:LDX #[177]BT:JSR STRING
- 230 ;
- 235 ;[172][172][172][172][172] SHOW LINEFEED [150]AULT
- 240 ;
- 245 Y01 JSR SHDF
- 250 LDA UBFR[170]30:CMP #10:BNE Y02
- 255 ;
- 260 LDA #"N":LDX #32:BNE Y03
- 265 Y02 LDA #"F":TAX
- 270 ;
- 275 Y03 STA LFO[170]10:STX LFO[170]11
- 280 ;
- 285 LDA #[179]LFO:LDX #[177]LFO:JSR STRING
- 290 ;
- 295 ;[172][172][172][172][172]
- 300 ;
- 305 Y87 LDA #[179]XSEL:LDX #[177]XSEL:JSR EOO
- 310 CMP #"Y":BEQ Y84
- 315 JMP GNAM
- 320 ;
- 325 Y84 LDA #[179]XMMN:LDX #[177]XMMN:JSR STRING
- 330 STX RET0:LDA RATS:BEQ Y96
- 335 JSR SUBCOM
- 340 Y96 JSR [161]1
- 345 ;
- 350 ;[172][172][172][172][172] WRITE REC[176]D CHANGES
- 355 ;
- 360 CMP #"W":BNE Y75
- 365 Y70 JSR INK:JMP Y85
- 370 ;
- 375 ;[172][172][172][172][172] [161] A[168]HER REC[176]D
- 380 ;
- 385 Y75 CMP #"G":BNE Y74
- 390 LDA #147:JSR CHROUT:JMP GNAM
- 395 ;
- 400 ;[172][172][172][172][172] ERASE REC[176]D
- 405 ;
- 410 Y74 CMP #"E":BNE Y73
- 415 Y72 LDY #31:LDA #0
- 420 Y71 STA UBFR,Y:DEY:BPL Y71
- 425 JSR INK
- 430 LDA #147:JSR CHAR:JMP GNAM
- 435 ;
- 440 ;[172][172][172][172][172] CHANGE H[175]LE
- 445 ;
- 450 Y73 CMP #"H":BNE Y95
- 455 ;
- 460 LDA #[179]N[145]M:LDX #[177]N[145]M:LDY #12
- 465 JSR [161]COM
- 470 ;
- 475 LDY #0:LDX #8
- 480 Y77 LDA MISC,Y:BEQ Y69
- 485 ;
- 490 STA UBFR,X:INX:INY:CPY #12:BCC Y77
- 495 ;
- 500 Y69 CPX #19:BCS Y83
- 505 LDA #0:STA UBFR,X:INX:BNE Y69
- 510 ;
- 515 ;[172][172][172][172][172] CHANGE PASSW[176]D
- 520 ;
- 525 Y95 CMP #"P":BNE Y94
- 530 JSR [162]5; JSR DOVER:CMP #"Y":BNE Y83
- 535 ;
- 540 LDY #0
- 545 Y82 LDA WYPS,Y:CMP #13:BEQ Y81
- 550 STA UBFR,Y:INY:CPY #8:BNE Y82
- 555 ;
- 560 Y81 CPY #8:BCS Y83
- 565 LDA #0:STA UBFR,Y:INY:BNE Y81
- 570 ;
- 575 Y83 JMP Y85
- 580 ;
- 585 ;[172][172][172][172][172] CHANGE ACCESS
- 590 ;
- 595 Y94 CMP #"A":BNE Y93
- 600 JSR YK; SHOW ACCESS LEVELS
- 605 JMP Y85; DISPLAY AGAIN
- 610 ;
- 615 ;[172][172][172][172][172] CHANGE STATUS
- 620 ;
- 625 Y93 CMP #"S":BNE Y92
- 630 JSR YP; SHOW STATUSES
- 635 JSR [161]1:[175] #15:BEQ Y79
- 640 CMP #9:BCS Y79
- 645 ;
- 650 TAX:DEX:STX 15000
- 655 LDA SY,X:STA UBFR[170]20
- 660 STA 15001
- 665 ;
- 670 Y79 JMP Y85; DISPLAY AGAIN
- 675 ;
- 680 ;[172][172][172][172][172] CHANGE TIME LIMIT
- 685 ;
- 690 Y92 CMP #"T":BNE Y91
- 695 ;
- 700 LDA #[179]TIME:LDX #[177]TIME:JSR BEF2
- 705 BEQ Y79
- 710 CMP #121:BCS Y79
- 715 ;
- 720 STA UBFR[170]26:JMP Y85
- 725 ;
- 730 ;[172][172][172][172][172] CHANGE DL CREDITS
- 735 ;
- 740 Y91 CMP #"D":BNE Y90
- 745 ;
- 750 LDA #[179]CASH:LDX #[177]CASH:JSR STRING
- 755 JSR LOOK:BCS Y79
- 760 ;
- 765 LDA SERCH:STA UBFR[170]22
- 770 LDA SERCH[170]1:STA UBFR[170]23:JMP Y85
- 775 ;
- 780 ;[172][172][172][172][172] CHANGE COLUMNS
- 785 ;
- 790 Y90 CMP #"C":BNE Y89
- 795 ;
- 800 LDA UBFR[170]31:CMP #40:BNE Y78
- 805 LDA #80
- 810 .BYTE 44
- 815 Y78 LDA #40
- 820 ;
- 825 Y50 STA UBFR[170]31:JMP Y85
- 830 ;
- 835 ;[172][172][172][172][172] CHANGE TERMINAL
- 840 ;
- 845 Y89 CMP #"B":BNE Y76
- 850 LDA UBFR[170]24:E[176] #1:STA UBFR[170]24
- 855 JMP Y85
- 860 ;
- 865 ;[172][172][172][172][172] CHANGE LINEFEEDS
- 870 ;
- 875 Y76 CMP #"L":BNE Y88
- 880 ;
- 885 LDA UBFR[170]30:CMP #1:BNE Y86
- 890 LDA #10
- 895 .BYTE 44
- 900 Y86 LDA #1
- 905 STA UBFR[170]30:JMP Y85
- 910 ;
- 915 ;[172][172][172][172][172]
- 920 ;
- 925 Y88 JSR CLIV:JMP Y85
- 930 ;
- 935 ;[172][172][172][172][172]
- 940 ;
- 945 YP JSR RET3:LDA #1:STA LIN
- 950 JSR BRKT:JSR P10
- 955 JSR BRKT:JSR P11
- 960 JSR BRKT:JSR P12
- 965 JSR BRKT:JSR P13
- 970 JSR BRKT:JSR P14
- 975 JSR BRKT:JSR P15
- 980 JSR BRKT:JSR P16
- 985 JSR BRKT:JMP P98
- 990 ;
- 995 BRKT LDA #"[":JSR CHAR
- 1000 JSR SPC
- 1005 JSR LINER:LDA #"]":JSR CHAR:JMP SPC
- 1010 ;
- 1015 SY .BYTE 255 127 63 31 15 7 3 1
- 1020 ;
- 1025 ;[172][172][172][172] SHOW ACCESS CHOICES
- 1030 ;
- 1035 YK JSR RET2:LDX #0:STX UBFR[170]21
- 1040 LDX #128:STX MASK
- 1045 ;
- 1050 LDA #[179]TUD:LDX #[177]TUD:JSR YLK
- 1055 LDA #[179]TLIB:LDX #[177]TLIB:JSR YLK
- 1060 LDA #[179]TSIG:LDX #[177]TSIG:JSR YLK
- 1065 LDA #[179]TMAL:LDX #[177]TMAL:JSR YLK
- 1070 LDA #[179]TMAG:LDX #[177]TMAG:JSR YLK
- 1075 LDA #[179]TXFR:LDX #[177]TXFR:JSR YLK
- 1080 LDA #[179]TADV:LDX #[177]TADV:JSR YLK
- 1085 LDA #[179]TBBS:LDX #[177]TBBS:JSR YLK
- 1090 ;
- 1095 JMP Y85
- 1100 ;
- 1105 YLK JSR EOO:CMP #"Y":BNE YUK
- 1110 ;
- 1115 YMK LDA UBFR[170]21:[176]A MASK
- 1120 STA UBFR[170]21
- 1125 ;
- 1130 YUK LSR MASK:JMP RET1
- 1135 ;
- 1140 ;[172][172][172][172][172] OTHER [150]AULT SETTINGS
- 1145 ;
- 1150 SHDF LDA #[179]DFA:LDX #[177]DFA
- 1155 JMP STRING
- 1160 ;
- 1165 ;[172][172][172][172] EDIT SELECTI[145]
- 1170 ;
- 1175 ;[172][172][172][172][172]
- 1180 ;
- 1185 WHO .BYTE 13 37 84 13
- 1190 .BYTE "(null)SER (null)AME ":.BYTE 58 0
- 1195 ;
- 1200 XSEL .BYTE 13 13
- 1205 .BYTE "(null)PDATE (null)ECORD":.BYTE 0
- 1210 ;
- 1215 XMMN .BYTE 13 13
- 1220 .BYTE "[LEFT$]ANDLE [(null)]ASSWORD":.BYTE 13
- 1225 .BYTE "[(null)]TATUS [ATN]CCESS":.BYTE 13
- 1230 .BYTE "[STR$](null) LENREDITS [(null)]INEFEEDS":.BYTE 13
- 1235 .BYTE "[LEN]OLUMNS [PEEK]ELL (null)ERMINAL":.BYTE 13
- 1240 .BYTE "[(null)]IME (null)IMIT [(null)]RITE (null)ECORD ":.BYTE 13
- 1245 .BYTE "[VAL]RASE (null)ECORD [CHR$]ET (null)ECORD ":.BYTE 58 0
- 1250 TIME .BYTE 13 13:.BYTE "VALNTER (null)IME (null)IMIT IN (null)INUTES":.BYTE 13
- 1255 .BYTE "[(null)AX. 120] ":.BYTE 58 0
- 1260 CASH .BYTE 13 13:.BYTE "STR$OWNLOAD LENREDITS [29999 (null)AX] ":.BYTE 0
- 1265 ;
- 1270 N[145]M .BYTE 13 13
- 1275 .BYTE "VALNTER LEFT$ANDLE ":.BYTE 58 0
- 1280 ;
- 1285 DFA .BYTE "(null)SER (null)ETTING":.BYTE 58 32 0
- 1290 DFC .BYTE "40 LENOLUMNS":.BYTE 13 0
- 1295 BT .BYTE "PEEKELL (null)ERMINAL":.BYTE 13 0
- 1300 LFO .BYTE "(null)INFEEDS (null)FF":.BYTE 13 0
- 1305 ;[172][172][172][172][172] PUT BUFFER UNDER ROM
- 1310 ;
- 1315 INK JSR RET1:JSR DOVER:BNE K2N
- 1320 LDA RAPR:BEQ K2N
- 1325 ;
- 1330 LDA F1L[170]2:STA $FB
- 1335 LDA F1L[170]3:STA $FC
- 1340 ;
- 1345 LDY #31
- 1350 KIN LDA UBFR,Y:STA ($FB),Y
- 1355 DEY:BPL KIN
- 1360 K2N RTS
- 1365 ;
- 1370 .FILE 0:Z.[188][145]
-