100 REM --------------------- 110 REM Programming by Dai Fukuoka 120 REM (C)“d”]‘g/ 2016.07.06-07.15 130 REM --------------------- 140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:COLOR 0,7,0,0,1:WIDTH 80,25:CLS 3 141 DIM CSV$(10000,11):DIM CHECK$(11):DIM TITLE$(12) 150 *RESTART LINE(0,0)-(640,19),5,BF:LINE(0,57)-(640,76),5,BF 160 LINE(0,115)-(640,134),5,BF:LINE(0,172)-(640,192),5,BF 170 LINE(0,229)-(640,248),5,BF:LINE(0,286)-(640,305),5,BF 190 TITLE$(1)="Card ID :":TITLE$(2)="Secure ID:":TITLE$(3)="E-Mail Address :" 200 TITLE$(4)="TelePhone :":TITLE$(5)="Name : ":TITLE$(6)="2Byte Name :" 210 TITLE$(7)="ZIP Code :":TITLE$(8)="Country,Continental,City : ":TITLE$(9)="Section,Street,Address Number :" 220 TITLE$(10)="Birth Year,Mounth,Day :":TITLE$(11)="Card Use Time Cycle Limid :" 230 *OPENFILENAME 240 CLS 250 LOCATE 0,0:PRINT "Open file Name :";:INPUT "",OFN$:IF OFN$="" THEN *START 260 OPEN OFN$ AS 1 270 IF EOF(1)=-1 THEN MAKE=-1 ELSE IF EOF(1)=1 THEN MAKE=1 280 CLOSE 1 290 IF MAKE=-1 THEN *MAKEFILE ELSE IF MAKE=1 THEN *INPUTFILE 300 *INPUTFILE 310 OPEN OFN$ FOR INPUT AS #1 320 FOR I=1 TO 10000:INPUT #1,CSV$(I,1),CSV$(I,2),CSV$(I,3),CSV$(I,4),CSV$(I,5),CSV$(I,6),CSV$(I,7),CSV$(I,8),CSV$(I,9),CSV$(I,10),CSV$(I,11):NEXT I 330 CLOSE #1 340 *START 350 CLS : LOCATE 0,0:PRINT "Page:";:INPUT "",PAGE:LOCATE 40,0:PRINT "Lot Number:";:INPUT "",LOT 360 IF PAGE=0 OR LOT=0 THEN *OPENFILENAME 370 IF LOT=1 THEN *TRYBLOCK ELSE IF LOT=2 THEN *TRYBLOCK1 380 IF LOT=3 THEN *TRYBLOCK2 ELSE IF LOT=3 THEN *TRYBLOCK2 390 IF LOT=4 THEN *TRYBLOCK3 ELSE IF LOT=5 THEN *TRYBLOCK4 400 IF LOT=5 THEN *TRYBLOCK4 ELSE IF LOT=6 THEN *TRYBLOCK5 410 IF LOT=7 THEN *TRYBLOCK5 ELSE IF LOT=8 THEN *TRYBLOCK6 420 IF LOT=9 THEN *TRYBLOCK8 ELSE IF LOT=10 THEN *TRYBLOCK9 430 IF LOT=11 THEN *TRYBLOCK10 440 *TRYBLOCK LOCATE 0,1:PRINT CSV$(PAGE,1):LOCATE 0,2:INPUT "Card ID Number:(20 Count):",A$ 450 ALEN=LEN(A$) 460 IF ALEN=0 THEN IF NOT CSV$(PAGE,1)="" THEN *TRYBLOCK1 470 IF NOT ALEN=19 THEN *START 480 FOR I=1 TO PAGE-1 490 IF A$=CSV$(PAGE,1) THEN *START 500 NEXT 510 FOR I=PAGE+1 TO 10000 520 IF A$=CSV$(PAGE,1) THEN *START 530 NEXT 540 IF CSV$(PAGE,1)="" THEN CSV$(PAGE,1)=A$:GOTO *TRYBLOCK1 550 GOTO *SKIPTO 560 *MAKEFILE 570 FOR I=1 TO 11:CSV$(1,I)="":NEXT 580 FOR I=1 TO 10000:FOR T=1 TO 11:CSV$(I,T)="":NEXT T,I 590 OPEN OFN$ FOR OUTPUT AS #1 600 FOR I=1 TO 10000 610 WRITE #1,CSV$(I,1),CSV$(I,2),CSV$(I,3),CSV$(I,4),CSV$(I,5),CSV$(I,6),CSV$(I,7),CSV$(I,8),CSV$(I,9),CSV$(I,10),CSV$(I,11) 620 NEXT I:CLOSE #1 630 GOTO *START 640 *SKIPTO 650 *TRYBLOCK1 LOCATE 0,4:PRINT CSV$(PAGE,2); 660 LOCATE 0,5:PRINT "Secure ID (001-9999) : ";:INPUT "",SID$ 670 IF VAL(SID$)<1 AND VAL(SID$)>9999 THEN *TRYBLOCK1 ELSE *TRYBLOCK2 680 IF CSV$(PAGE,2)="" THEN CSV$(PAGE,2)=SID$:GOTO *TRYBLOCK2 690 *TRYBLOCK2 LOCATE 0,7:PRINT CSV$(PAGE,3); 700 LOCATE 0,8:PRINT "E-Mail Address : ";:INPUT "",EMA$ 710 IF LEN(EMA$)=0 THEN IF NOT CSV$(PAGE,3)="" THEN *TRYBLOCK3 720 TB2$="false" 730 FOR I=1 TO LEN(EMA$):IF MID$(EMA$,I,1)="@" THEN TB2$="True" 740 NEXT I 750 IF CSV$(PAGE,3)="" THEN CSV$(PAGE,3)=EMA$ 760 IF TB2$="True" THEN *TRYBLOCK3 ELSE IF TB2$="false" THEN *TRYBLOCK2 770 *TRYBLOCK3 LOCATE 0,10:PRINT CSV$(PAGE,4); 780 LOCATE 0,11:PRINT "TelePhone : ";:INPUT "",TEL$ 790 IF LEN(TEL$)=0 THEN IF NOT CSV$(PAGE,4)="" THEN *TRYBLOCK4 800 IF TB3$="True" THEN *TRYBLOCK4 ELSE IF TB3$="false" THEN *TRYBLOCK3 810 IF CSV$(PAGE,4)="" THEN CSV$(PAGE,4)=TEL$ 820 *TRYBLOCK4 LOCATE 0,13:PRINT CSV$(PAGE,5); 830 LOCATE 0,14:PRINT "Name English : ";:INPUT "",NAMEENG$ 840 IF LEN(NAMEENG$)=0 THEN IF NOT CSV$(PAGE,5)="" THEN *TRYBLOCK5 850 IF NAMEENG$="" OR NAMEENG$=" " OR NAMEENG$="-" THEN *TRYBLOCK4 860 IF CSV$(PAGE,5)="" THEN CSV$(PAGE,5)=NAMEENFG$ 870 *TRYBLOCK5 LOCATE 0,16:PRINT CSV$(PAGE,6); 880 LOCATE 0,17:PRINT "Name Japan Kanji : ";:KINPUT KANJINAME$ 890 IF LEN(KANJINAME$)=0 THEN IF NOT CSV$(PAGE,6)="" THEN *TRYBLOCK6 900 IF KLEN(KANJINAME$,3)>0 THEN ELSE *TRYBLOCK5 910 IF KANJINAME$="" OR KANJINAME$=" " OR KANJINAME$="-" THEN *TRYBLOCK5 920 IF CSV$(PAGE,6)="" THEN CSV$(PAGE,6)=KANJINAME$ 930 CLS 940 *TRYBLOCK6 CLS:LOCATE 0,4:PRINT CSV$(PAGE,7); 950 LOCATE 0,5:PRINT "ZIP Code : ";:INPUT "",ZIP$ 960 TB6$="false":FOR I=1 TO 79:IF MID$(ZIP$,I,1)="-" THEN TB6$="True" 970 IF LEN(ZIP$)=0 THEN IF NOT CSV$(PAGE,7)="" THEN *TRYBLOCK7 980 IF CSV$(PAGE,10)="" THEN CSV$(PAGE,10)=BIRTH$ 990 NEXT I:IF TB6$="True" THEN *TRYBLOCK7 ELSE IF TB6$="false" THEN *TRYBLOCK6 1000 IF CSV$(PAGE,7)="" THEN CSV$(PAGE,7)=ZIP$ 1010 *TRYBLOCK7 LOCATE 0,7:PRINT CSV$(PAGE,8); 1020 LOCATE 0,8:PRINT "Contry And Continental and City : ";:INPUT "",ADR1$ 1030 IF LEN(ADR1$)=0 THEN IF NOT CSV$(PAGE,8)="" THEN *TRYBLOCK8 1040 IF ADR1$="" OR ADR1$=" " OR ARD1$="-" THEN *TRYBLOCK7 1050 IF CSV$(PAGE,8)="" THEN CSV$(PAGE,8)=ADR1$ 1060 *TRYBLOCK8 LOCATE 0,10:PRINT CSV$(PAGE,9); 1070 LOCATE 0,11:PRINT "Section and Street Number Address : ";:INPUT "",ADR2$ 1080 IF LEN(ADR2$)=0 THEN IF NOT CSV$(PAGE,9)="" THEN *TRYBLOCK9 1090 IF ADR2$="" OR ADR2$=" " OR ARD2$="-" THEN *TRYBLOCK8 1100 IF CSV$(PAGE,9)="" THEN CSV$(PAGE,9)=ADR2$ 1110 *TRYBLOCK9 LOCATE 0,13:PRINT CSV$(PAGE,10); 1120 LOCATE 0,14:PRINT "Birth Year-BirthMounth-BirthDay : ";:INPUT "",BIRTH$ 1130 IF LEN(BIRTH$)=0 THEN IF NOT CSV$(PAGE,10)="" THEN *TRYBLOCK10 1140 IF BIRTH$="" OR BIRTH$=" " OR BIRTH$="-" THEN *TRYBLOCK9 1150 *TRYBLOCK10 LOCATE 0,16:PRINT CSV$(PAGE,11); 1160 LOCATE 0,17:PRINT "Limid YYYY/MM/YY And Renewal Card : ";:INPUT "",LIMID$ 1170 IF LEN(LIMID$)=0 THEN IF NOT CSV$(PAGE,11)="" THEN *CHECK 1180 TB3$="false":FOR I=1 TO LEN(LIMID$):IF MID$(LIMID$,I,1)="-" THEN TB3$="True" 1190 NEXT I 1200 IF CSV$(PAGE,11)="" THEN CSV$(PAGE,11)=LIMID$ 1210 IF LEN(LIMID$)=10 OR LEN(LIMID$)=8 THEN ELSE *TRYBLOCK10 1220 *CHECK 1230 IF NOT A$="" THEN LET CSV$(PAGE,1)=A$ 1240 IF NOT SID$="" THEN LET CSV$(PAGE,2)=SID$ 1250 IF NOT EMA$="" THEN LET CSV$(PAGE,3)=EMA$ 1260 IF NOT TEL$="" THEN LET CSV$(PAGE,4)=TEL$ 1270 IF NOT NAMEENG$="" THEN LET CSV$(PAGE,5)=NAMEENG$ 1280 IF NOT NAMEKANJI$="" THEN LET CSV$(PAGE,6)=NAMEKANJI$ 1290 IF NOT ZIP$="" THEN LET CSV$(PAGE,7)=ZIP$ 1300 IF NOT ADR1$="" THEN LET CSV$(PAGE,8)=ADR1$ 1310 IF NOT ADR2$="" THEN LET CSV$(PAGE,9)=ADR2$ 1320 IF NOT BIRTH$="" THEN LET CSV$(PAGE,10)=BIRTH$ 1330 IF NOT LIMID$="" THEN LET CSV$(PAGE,11)=LIMID$ 1340 OPEN OFN$ FOR OUTPUT AS #1 1350 FOR I=1 TO 10000:WRITE #1,CSV$(I,1),CSV$(I,2),CSV$(I,3),CSV$(I,4),CSV$(I,5),CSV$(I,6),CSV$(I,7),CSV$(I,8),CSV$(I,9),CSV$(I,10),CSV$(I,11):NEXT I 1360 CLOSE #1 1370 LOCATE 0,18:PRINT "0:SKIP 1:Print Mode ?:";:INPUT "",PRINTER 1380 IF PRINTER=0 THEN GOTO *START 1390 IF PRINTER=1 THEN *PRINTSCREEN 1400 *PRINTSCREEN CLS:CLS 3 1450 OPEN OFN$ FOR INPUT AS #1 1460 FOR I=1 TO 10000:INPUT #1,CSV$(I,1),CSV$(I,2),CSV$(I,3),CSV$(I,4),CSV$(I,5),CSV$(I,6),CSV$(I,7),CSV$(I,8),CSV$(I,9),CSV$(I,10),CSV$(I,11):NEXT I 1470 CLOSE #1 1480 COUNT=0:LC=1:FOR COUNT=1 TO 11 1500 LOCATE 0,LC:PRINT CSV$(PAGE,COUNT) 1510 LC=LC+2 1519 NEXT 1520 LOCATE 0,0:PRINT TITLE$(1) 1521 COUNT=0:LC=2:FOR COUNT=2 TO 11 1522 LOCATE 0,LC:PRINT TITLE$(COUNT) 1523 LC=LC+2 1524 NEXT:LOCATE 70,0:INPUT "",Q$ 1530 GOTO *RESTART 1540 *LOOPOUT