システムアドミニストレーター チャットプログラム コミュニケーション通信Ⅰー福岡大

*************
TopicMaster

100 REM --------------------
110 REM Programing by Dai Fukuoka TopicMaster (C)2017.04.17-5.19(FRI)
120 REM Development Soft by Dennougumi(C)電脳組
130 REM --------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:COLOR 0,7,0,0,1:WIDTH 80,25:CLS 3:PAGE=1
150 DIM CSV$(9999,11):DIM CSV(9999,11):DIM METHOD$(9999,11):DIM METHOD(9999,11)
160 DIM LOC1(80):DIM LOC2(25):DIM VUID$(9999):DIM CHECKLIST$(999)
170 DIM UPASS$(9999):DIM COMMENTLOG$(999):LET COUNT=1:DIM RESS$(999)
180 IF POINT(639,399)=POINT(639,479) THEN SHOWMODE=1:GOTO *SCREENSKIP
190 FOR I=1 TO 9999:VUID$(I)="":UPASS$(I)="":NEXT
200 FOR I=1 TO 999:CHECKLIST$(I)="United":NEXT
210 FOR T=1 TO 80:LOC1(T)=(T*8):NEXT:FOR I=1 TO 25:LOC2(I)=(I*16):NEXT
220 LINE(LOC1(0),LOC2(0))-(LOC1(80),LOC2(1)),1,BF
230 LINE(LOC1(0),LOC2(2))-(LOC1(80),LOC2(22)),1,BF
240 LINE(LOC1(0),LOC2(24))-(LOC1(80),LOC2(25)),1,BF
250 LINE(LOC1(7),LOC2(2))-(LOC1(7),LOC2(22)),6
260 LINE(LOC1(14),LOC2(2))-(LOC1(14),LOC2(22)),6
270 LINE(LOC1(19),LOC2(2))-(LOC1(19),LOC2(22)),6
280 GOTO *STANDBY
290 *SCREENSKIP
300 FOR T=1 TO 80:LOC1(T)=(T*8):NEXT:FOR I=1 TO 25:LOC2(I)=(I*19):NEXT
310 LINE(LOC1(0),LOC2(0))-(LOC1(80),LOC2(1)),1,BF
320 LINE(LOC1(0),LOC2(2))-(LOC1(80),LOC2(22)),1,BF
330 LINE(LOC1(0),LOC2(24))-(LOC1(80),LOC2(25)),1,BF
340 LINE(LOC1(7),LOC2(2))-(LOC1(7),LOC2(22)),6
350 LINE(LOC1(14),LOC2(2))-(LOC1(14),LOC2(22)),6
360 LINE(LOC1(19),LOC2(2))-(LOC1(19),LOC2(22)),6
370 GOTO *STANDBY
380 *SYSTEMUP
390 LOCATE 0,22:INPUT "Mode:1.Certifacation Account/2.Administrator Login/3.Registry(1-3) :",MODE1:CLS:IF MODE1<1 OR MODE1>3 THEN *SYSTEMUP
400 IF MODE1=1 THEN *M1 ELSE IF MODE1=2 THEN *M2 ELSE *M3
410 *M1 LOCATE 0,22:INPUT "User Account Identify (6 Count) :",UID$:CLS
420 FOR CHECK=1 TO 9999:IF UID$=VUID$(CHECK) THEN CHECKED=CHECK:CHECK=9999
430 NEXT CHECK:CLS:IF CHECKED=0 THEN *SYSTEMUP
440 IF MODE1=1 THEN LOCATE 0,22:INPUT "User's Pass Word (6 Count) :",IPASS$:CLS
450 IF LEN(IPASS$)=6 OR LEN(IPASS$)=5 THEN LFLAG=1 ELSE *SYSTEMUP
460 FOR CHECK=1 TO 9999:IF UID$=VUID$(CHECK) THEN CHECKED=CHECK
470 NEXT CHECK
480 IF IPASS$=UPASS$(CHECKED) THEN LOGON=1
490 IF LOGON=1 THEN LOCATE 0,22:INPUT "Your Enter Topic Accept Login :",A:COUNT=COUNT+1:CLS:GOTO *START ELSE LOCATE 0,22:MODE1=3:GOTO *M3
500 *M3 LOCATE 0,22:INPUT"Registry Mode:1.New Sign In/2.Delete Account/3.Support (1-3) :",REG:CLS:IF REG<1 OR REG>3 THEN *SYSTEMUP
510 IF REG=2 THEN LOCATE 0,22:INPUT "Thread Number (1-999) :",THREAD:CLS:IF THREAD<1 OR THREAD>999 THEN *SYSTEMUP
520 IF REG=2 AND NOT UID$=VUID$(THREAD) THEN LOCATE 0,22:INPUT "Missing Account ID Name's :",A:GOTO *SYSTEMUP
530 IF REG<1 OR REG>3 THEN *SYSTEMUP
540 IF REG=2 THEN LOCATE 0,22:INPUT "Usre's Pass Word (6 count) :",UPASS$(COUNT):IF NOT LEN(UPASS$)=6 THEN *SYSTEMUP
550 IF REG=1 THEN LOCATE 0,22:INPUT "Create Your Thread ID (6 Count ID Word) :",UID$:GOTO *PASSWORDREMIND ELSE *START
560 LOCATE 0,22:INPUT "Success :",A:GOTO *START
570 *M2 LOCATE 0,22:INPUT"Oparator Login:1.TopicMasterAccount/2.ChangeAccount/3.Threade Delete (1-3) :",ADAC:CLS
580 IF ADAC<1 OR ADAC>3 THEN *SYSTEMUP
590 IF ADAC=3 THEN LOCATE 0,22:INPUT "Thread Number (1-999) :",DT1:CLS:IF DT1<1 OR DT1>999 THEN *SYSTEMUP
600 IF ADAC=3 THEN LOCATE 0,22:INPUT "Administrator Pass Word :",ADPS$:CLS:IF NOT LEN(ADPS$)=19 THEN *SYSTEMUP
610 FOR CHECK=1 TO 9999:IF ADPS$=UPASS$(CHECK) THEN CHECKED=CHECK:UID$=VUID$(CHECKED)
620 NEXT CHECK
630 IF ADAC=2 THEN LOCATE 0,22:INPUT "Administrator Old PassWord :",OPASS$:CLS:IF NOT LEN(OPASS$)=19 THEN *SYSTEMUP
640 IF ADAC=2 THEN LOCATE 0,22:INPUT "New Changing Administorator PassWord (4-4-4-4) :",NCAP$:CLS
650 IF ADAC=2 THEN IF NOT LEN(NCAP$)=19 THEN *SYSTEMUP
660 IF ADAC=2 THEN LOCATE 0,22:INPUT "Changed Success :",A:IDFLAG=1:GOTO *START
670 IF ADAC=1 THEN LOCATE 0,22:INPUT "Topic Master Login :",LOGINTM$
680 IF ADAC=1 AND LEN(LOGINTM$)=19 THEN IF ADPS$=LOGINTM$ THEN *CERTIFIAD
690 END IF
700 *PASSWORDREMIND
710 FOR CHECK=1 TO 9999:IF NOT VUID$(CHECK)="" AND UPASS$(CHECK)="" THEN VUID$(CHECK)=""
720 NEXT CHECK:
730 AA$=MID$(TIME$,1,2):BB$=MID$(TIME$,4,2):CC$=MID$(TIME$,7,2)
740 AA=VAL(AA$):BB=VAL(BB$):CC=VAL(CC$):AA=AA*10000:BB=BB*100:CC=CC*1:
750 LOCATE 0,0:PRINT AA+BB+CC
760 IPASS$=MID$(STR$(AA+BB+CC),2,6):IF UPASS$(CHECKED)=IPASS$ THEN VUIDA$(CHECKED)="":GOTO *PASSWORDREMIND
770 IF CHECK>9999 THEN CLS:LOCATE 0,22:PRINT IPASS$;:INPUT " Check Remarks Your ID's PassWord :",A:UPASS$(COUNT)=IPASS$:CHECKLIST$(COUNT)=UID$:VUID$(COUNT)=UID$
780 FOR I=1 TO 9999:IF UPASS$(I)="" THEN VUID$(I)=""
790 NEXT I
800 IF COUNT<1000 THEN *START
810 FOR CHECK=2 TO 999:CHECKLIST$(CHECK-1)=CHECKLIST$(CHECK):COMMENTLOG$(CHECK-1)=COMMENTLOG$(CHECK)
820 CHECKLIST$(999)=UID$:COMMENTLOG$(999)="":NEXT CHECK:CLS:LOCATE 0,22:INPUT "That ID Inserted :",A:GOTO *SYSTEMUP
830 *START CLS
840 FOR I=1+SHOWCOUNT TO 20+SHOWCOUNT:LOCATE 0,I+1:PRINT VUID$(I):LOCATE 7,I+1:PRINT RESS$(I);:LOCATE 14,I+1:PRINT I;:LOCATE 20:PRINT COMMENTLOG$(I)
850 NEXT
860 LOCATE 0,22:PRINT "Your Enter Login":LET TC=1
870 *TIMEBK WHILE TC<2 :TIMED$=TIME$
880 IF NOT TIMED$=TIME$ THEN TC="TC+1
890" WEND:LOCATE 0,22:PRINT SPACE$(79)
900 *TIMESKIP
910 *SHOWDISPLAY
920 IF TURNPOINT="0" THEN TURNPOINT="1
930" FOR I="1" TO 20:LOCATE 0,I+1:PRINT VUID$(I+SHOWCOUNT):LOCATE 7,I+1:PRINT RESS$(I+SHOWCOUNT);:LOCATE 14,I+1:PRINT I+SHOWCOUNT;:LOCATE 20:PRINT COMMENTLOG$(I+SHOWCOUNT)
940 NEXT
950 IF TURNPOINT="1" THEN ELSE IF TURNPOINT="2" THEN ELSE *RESSLOOP
960 *RESSLOOP
970 LOCATE 0,0:PRINT "Write Your Comment :":LOCATE 0,1:INPUT "",COMM$
980 IF COMM$="" THEN *RESSLOOP
990 LOCATE 0,0:PRINT SPACE$(79):LOCATE 0,1:PRINT SPACE$(79)
1000 LOCATE 0,0:PRINT "Response Thread ID /Pass is My Thread :":LOCATE 0,1:INPUT "",RESST$
1010 LOCATE 0,0:PRINT SPACE$(79):LOCATE 0,1:PRINT SPACE$(79)
1020 LOCATE 0,0:PRINT "Log Out User 0:No/1:Yes :":LOCATE 0,1:INPUT "",LOGOUTIS$
1030 LOCATE 0,0:PRINT SPACE$(79):LOCATE 0,1:PRINT SPACE$(79)
1040 IF COMM$="" OR LEN(COMM$)>=59 THEN *RESSLOOP
1050 COMMENTLOG$(COUNT)=COMM$:RESS$(COUNT)=RESST$
1060 IF RESST$="" THEN RESST$=UID$
1070 IF RESS$(COUNT)="" THEN RESS$(COUNT)=UID$
1080 IF LOGOUTIS$="" THEN ELSE IF LOGOUTIS$="1" THEN TURNPOINT=2:GOTO *LOGOUT
1090 FOR CHECK=1 TO 999:IF RESST$=RESS$(CHECK) THEN CHECKED=CHECK:CHECK=999
1100 NEXT CHECK:IF NOT RESST$=RESS$(CHECKED) THEN *RESSLOOP
1110 VUID$(COUNT)=UID$:COMMENTLOG$(COUNT)=COMM$:RESS$(COUNT)=RESST$
1120 IF PAGECOUNT=0 THEN PAGECOUNT=1
1130 IF COUNT>20*PAGECOUNT THEN PAGECOUNT=PAGECOUNT+1:SHOWCOUNT=(PAGECOUNT*20)-20:CLS
1140 COUNT=COUNT+1:GOTO *SHOWDISPLAY
1150 *STANDBY
1160 IF ADPS$="" THEN ADPS$="7750-2310-9690-1255"
1170 OPEN "TMLOG" AS 1:LFLAG=EOF(1):CLOSE 1:IF LFLAG=0 THEN *SYSTEMUP
1180 OPEN "TMLOG" FOR INPUT AS #1:FOR I=1 TO 999:INPUT #1,COMMENTLOG$(I),CHECKLIST(I),RESS$(I):NEXT:CLOSE #1
1190 OPEN "TMDATA" FOR INPUT AS #1:FOR I=1 TO 9999:INPUT #1,VUID$(I),UPASS$(I):NEXT:CLOSE #1
1200 OPEN "TMSEC" FOR INPUT AS #1:INPUT #1,ADPS$,UID$,IPASS$,RESST$,SHOWCOUNT,PAGECOUNT:CLOSE #1
1210 IF ADPS$="" THEN ADPS$="7750-2310-9690-1255"
1220 GOTO *SYSTEMUP
1230 *LOGOUT
1240 COUNT=COUNT+1
1250 IF TURNPOINT=0 THEN *SYSTEMUP
1260 IF ADPS$="" THEN ADPS$="7750-2310-9690-1255"
1270 OPEN "TMLOG" AS 2:LFLAG=EOF(2):CLOSE 2
1280 OPEN "TMLOG" FOR OUTPUT AS #2:FOR I=1 TO 999:WRITE #2,COMMENTLOG$(I),CHECKLIST$(I),RESS$(I):NEXT:CLOSE #2
1290 OPEN "TMDATA" FOR OUTPUT AS #2:FOR I=1 TO 9999:WRITE #2,VUID$(I),UPASS$(I):NEXT:CLOSE #2
1300 OPEN "TMSEC" FOR OUTPUT AS #2:WRITE #2,ADPS$,UID$,IPASS$,RESST$,SHOWCOUNT,PAGECOUNT:CLOSE #2
1310 IF TURNPOINT=2 THEN *STANDBY ELSE END
1320 *CERTIFIAD
1330 LOCATE 0,22:INPUT "Menu 1.RestoreData 2.DocumentCopy 3.ReTurn :",AD01$:CLS
1340 IF AD01$="1" THEN *SHOWDISPLAY ELSE IF AD01$="2" THEN *DOCUMENTCOPY ELSE *SYSTEMUP
1350 *DOCUMENTCOPY LOCATE 0,22:INPUT "Type Txt Import Okay ?:",ASKIT1$:CLS
1360 LOCATE 0,22:INPUT "Change FileName / Pass is Accept :",ASKIT2$:CLS
1370 IF ASKIT2$="" THEN *OPERATOR ELSE *NEWFILENAMEADD1
1380 *OPERATOR
1390 OPEN "TMLOG.txt" AS 2:ENDOFFILES=EOF(2):CLOSE 2
1400 OPEN "TMLOG.txt" FOR OUTPUT AS #2:FOR I=1 TO 999:WRITE #2,COMMENTLOG$(I),CHECKLIST$(I),RESS$(I):NEXT:CLOSE #2
1410 OPEN "TMDATA.txt" FOR OUTPUT AS #2:FOR I=1 TO 9999:WRITE #2,VUID$(I),UPASS$(I):NEXT:CLOSE #2
1420 OPEN "TMSEC.txt" FOR OUTPUT AS #2:WRITE #2,ADPS$,UID$,IPASS$,RESST$,SHOWCOUNT,PAGECOUNT:CLOSE #2
1430 GOTO *SYSTEMUP
1440 *NEWFILENAMEADD1
1450 CFN$=ASKIT2$+"LOG.txt"
1460 OPEN CFN$ AS 2:ENDOFFILES=EOF(2):CLOSE 2
1470 OPEN CFN$ FOR OUTPUT AS #2:FOR I=1 TO 999:WRITE #2,COMMENTLOG$(I),CHECKLIST$(I),RESS$(I):NEXT:CLOSE #2
1480 CFN$=ASKIT2$+"DATA.txt"
1490 OPEN CFN$ FOR OUTPUT AS #2:FOR I=1 TO 9999:WRITE #2,VUID$(I),UPASS$(I):NEXT:CLOSE #2
1500 CFN$=ASKIT2$+"SEC.txt"
1510 OPEN CFN$ FOR OUTPUT AS #2:WRITE #2,ADPS$,UID$,IPASS$,RESST$,SHOWCOUNT,PAGECOUNT:CLOSE #2
1520 GOTO *SYSTEMUP

ロケーション関数をグラフィック座標で、カラムとラインの位置を、調整します。それによって、変数に文字幅が格納され、仮想関数を実現します。おもに、罫線の作成に使われる仮想関数です。その後の物も、時刻から自働でパスワードを振り分けたり、シンクロ座標から、空白のパスワードのＩＤを詰めて、ログインした回数で自働名簿を行います。また、番号を指定して該当順のメッセージレスポンスに対して、パスワードの入力と、記事の削除の機能の付加や、同じパスワードにログインする機能、ログイン時に、２秒経過すると、エントリー出来るように改良したりしました。主にこのソフトは、基本的なシーケンシャルを備えている他、メッセージログを溜めることと出力することが出来ます。主に食指を、サービス機関に設置されたコンピュータ上で、９８Ｂａｓｉｃで動作します。空港等に配置することにより、インターネット感覚でオフラインコミュニケーションを実現します。

This is Useing Virtual Function " LOC1 " And "LOC2 " is Automation A Justment Coordination at Cloumn And Line Inputing.Line-Out with on Drawing Virtual Function of Location Program,Next ITEM is Time-Pass-Word-Remind with No Synchronize List,This List is Delete Spacing Login Information,Slead Number Appointment Pass-Word Check It,Inquiry Same Pass-Word Gatein Delete Execution.This Program is Entery Same Time Wait 2 Second Times,Type Log is Entry Start.This Interface CSV Data Base is Standard 98 Basic Activity,Target User Service Area Examin Air Port and Install With 98Basic,This Program is Feeling of Internet Communication Compleate Offline BBS.



***********************