|
|
100
110
130 CONSOLE 0,25,1,1
140 WIDTH 80,25
150 CLS 3
160 MX=200
170 DIM DT$(MX,5)
180 ON ERROR GOTO *ERROR
190 OPEN "TELMEM.DAT" FOR INPUT AS #1
200 INPUT #1,NO
210 FOR I=1 TO NO
220 FOR J=1 TO 5
230 INPUT #,DT$(I,J)
240 NEXT J
250 NEXT I
260 CLOSE
270 ON ERROR GOTO 0
280
290 *MAIN
300
310 CLS:SL=0:Y=0
320 LOCATE 28,0:PRINT "TEL MEMO"
330 LOCATE 30,2:PRINT "トウロク : 1"
340 LOCATE 30,3:PRINT "テイセイ : 2"
350 LOCATE 30,4:PRINT "サクジョ : 3"
360 LOCATE 30,5:PRINT "ヒョウジ : 4"
370 LOCATE 30,6:PRINT "ケンサク : 5"
380 LOCATE 30,7:PRINT "キロク : 6"
390 LOCATE 30,8:PRINT "シュウリョウ : 7"
400 LOCATE 16,10:INPUT "バンゴウ デ エランデ クダサイ :",SL
410 IF SL<1 OR 7<SL THEN BEEP :GOTO *MAIN
420 CLS
430 LOCATE 1,0 :PRINT"No. ID ナマエ"
440 LOCATE 34,0:PRINT" ジタク TEL カイシャ TEL FAX No. "
450 ON SL GOSUB *INPT,*CRCT,*DELT,*DSPL,*SRCH,*FILE,*QUIT
460 LOCATE 10,22:INPUT "ナニカ キー ヲ オスト メニュー 二 モドリマス",KY$
470 GOTO *MAIN
480 *QUIT
490 CLS:LOCATE 20,7:INPUT "シュウリョウ ( 'Y'es or 'N'o ) ";ANS$
500 IF ANS$<>"Y" AND ANS$<>"y" THEN *MAIN
510 END
530 '
540 *INPT 'データ ニュウリョク
550 NO=NO+1
560 IF MX<NO THEN LOCATE 0,21:PRINT"コレイジョウ DATA ヲ フヤセマセン":RETURN
570 LOCATE 0,0:PRINT "DATA バンゴウ ";NO
580 LOCATE 0,3:INPUT "ID コード (6 モジ マデ ) :",DT$(NO,1)
590 LOCATE 0,4:INPUT "シメイ (22モジ マデ) :",DT$(NO,2)
600 LOCATE 0,5:INPUT "ジタク TEL (16モジ マデ) :",DT$(NO,3)
610 LOCATE 0,6:INPUT "カイシャ TEL (16モジ マデ) :",DT$(NO,4)
620 LOCATE 0,7:INPUT "FAX No. (16モジ マデ) :",DT$(NO,5)
630 RETURN
640 *CRCT 'シュウセイ
650 LOCATE 0,21:INPUT "ナンバン ノ データ ヲ テイセイ シマスカ : ";SN
660 IF SN<1 OR NO<SN THEN BEEP:GOTO 690
670 LO=NO:NO=SN-1*CLS:GOSUB *INPT
680 NO=LO
690 RETURN
700 *DELT 'サクジョ
710 LOCATE 0,21:INPUT "ナンバン ノ データ ヲ サクジョ シマスカ : ";SN
720 IF SN<1 OR NO<SN THEN BEEP:GOTO 830
730 FOR I=SN TO NO
740 FOR J=1 TO 5
750 DT$(I,J)=DT$(I+1,J)
760 NEXT J
770 NEXT I
780 NO=NO-1
790 RETURN
800 *DSPL 'サクジョ
810 LOCATE 0,21:PRINT "ナニカ キー ヲ オスト ツギ ノ ページ ヲ ヒョウジ シマス"
820 FOR I=1 TO NO
830 Y=Y+1
840 IF 20<Y THEN 850 ELSE 880
850 ANS$=INKEY$:IF ANS$="" THEN 850
860 Y=1:CLS
870 LOCATE 0,21:PRINT "ナニカ キー ヲ オスト ツギ ノ ページ ヲ ヒョウジシマス"
880 DN=I:GOSUB *DPRN
890 NEXT I
900 RETURN
910 *SRCH 'ケンサク
920 LOCATE 0,21:INPUT "ケンサクスル ID コード ハ : ";SR$
930 FOR I=1 TO NO
940 IF INSTR(DT$(I,1),SR$)=0 THEN 1010
950 Y=Y+1
960 IF 20<Y THEN 970 ELSE 1000
970 ANS$=INKY$:IF ANS$="" THEN 970
980 Y=1:CLS
990 LOCATE 0,21:PRINT "ナニカ キー ヲ オスト ツギ ノ ページ ヲ ヒョウジシマス"
1000 DN=1:GOSUB *DPRN
1010 NEXT I
1020 RETURN
1030 *FILE 'キロク
1040 LOCATE 15,10:INPUT "フロッピ― ノ ジュンビ OK ('Y'es or 'N'o)";KY$
1050 IF KY$="Y" THEN 1060 ELSE 1140
1060 OPEN "TELMEM.DAT" FOR OUTPUT AS #!
1070 PRINT #1,DT$(I,J)
1080 FOR I=1 TO NO
1090 FOR J=1 TO 5
1100 PRINT #1,DT$(I,J)
1110 NEXT J
1120 NEXT I
1130 CLOSE
1140 RETURN
1150 *DPRN 'データ ヒョウジ
1160 LOCATE 0,Y:PRINT DN;
1170 LOCATE 4,Y:PRINT DT$(DN,1);
1180 LOCATE 10,Y:PRINT DT$(DN,2);
1190 LOCATE 32,Y:PRINT DT$(DN,3);
1200 LOCATE 48,Y:PRINT DT$(DN,4);
1210 LOCATE 64,Y:PRINT DT$(DN,5);
1220 RETURN
1230 *ERROR 'エラー ショリ
1240 IF ERL=190 THEN RESUME 260
1250 ON ERROR GOTO 0
|
|