#11 Article 1234 Posted at 1988/03/19 01:34:36 by ＪＩＯＮＧ (MAP604) []
Subject: ｲﾁｵｳ ｺﾝﾊﾞｰﾀｰ Ver2.0ab
1000 '***** DA-VINCI ｺﾝﾊﾞｰﾀｰ
1010 '***** Copyright By JIONG Project Dｺ
1020 '***** Make By 1988/Mar/05
1030 '***** Ver Up By 1988/Mar/14
1031 '***** Ver Up By 1988/Mar/18
1040 *MENU.
1050 CLS 3:WIDTH 80,25:CONSOLE 2,23,0,0:COLOR 4:LOCATE 0,0:PRINT"***** JDCOM-HEX ｺﾝﾊﾞｰﾀｰ V2.0a By JIONG Project Dｺ *****"
1060 COLOR 2:LOCATE 0,1:PRINT"***** MENU *****":COLOR 0
1070 LOCATE 10,3:PRINT "UP LOAD DATA ｺﾝﾊﾞｰﾄ (ｻｸｾｲ) === 1"
1080 LOCATE 10,5:PRINT "DOWN LOAD DATA ｺﾝﾊﾞｰﾄ (ﾓﾄﾞｼ) === 2"
1090 LOCATE 10,7:PRINT "END === 3"
1100 COLOR 2:LOCATE 10,10:INPUT "COMMAND No:";C$:COLOR 0
1110 IF INSTR("123",C$)=0 THEN BEEP:RUN
1120 ON INSTR("123",C$) GOTO *PH.,*HP.,*END.
1130 *PH.
1140 CLS:FILES 2:COLOR 2:LOCATE 0,1:PRINT"***** PIC-DATA => HEX-DATA *****":COLOR 0
1150 LOCATE 0,24:INPUT "(PIC_DATA=>HEX_DATA) ﾍﾝｶﾝ FILE NAME:";F$
1160 INPUT "*.IMG=1/*.DAV=2/*.TXT=3:(RET=1)";FF$
1170 IF FF$="1" OR FF$="" THEN FF$=".IMG"
1180 IF FF$="2" THEN FF$=".DAV"
1185 IF FF$="3" THEN FF$=".TXT"
1190 CLS
1200 OPEN "1:"+F$+FF$ FOR INPUT AS #1
1210 OPEN "2:"+F$+".DAT" FOR OUTPUT AS #2
1220 PRINT#2,"<<<"+F$+FF$+":JDCON >>>"
1230 A$=INPUT$(1,#1)
1240 G=G+1:LOCATE 0,3:PRINT RIGHT$("000"+HEX$(G),4);"Bytes ﾍﾝｶﾝ!"
1250 B$=RIGHT$("00"+HEX$(ASC(A$)),2)
1260 PRINT#2,B$;
1270 K=K+1:IF K>125 THEN K=0:PRINT#2,"":GG=GG+1
1280 IF EOF(1)=-1 THEN PRINT#2,"":PRINT#2,"<<<"+F$+FF$+">>>"+" ["+STR$(GG)+"Lines ]"+" [EOF]":CLOSE:GOTO 1310
1290 GOTO 1230
1300 PRINT"ｺﾝﾊﾞｰﾄ ｼｭｳﾘｮｳ ｼﾏｼﾀ"
1310 BEEP:GOTO *MENU.
1320 '***** Copyright By JIONG Project Dｺ
1330 '***** Make By 1988/Mar/05
1340 '***** Ver Up By 1988/Mar/14
1350 *HP.
1360 CLS:FILES 2:COLOR 2:LOCATE 0,1:PRINT"***** HEX-DATA => PIC-DATA *****":COLOR 0
1370 LOCATE 0,24:INPUT "(HEX_DATA=>PIC_DATA) ﾍﾝｶﾝ FILE NAME:";F$
1380 'INPUT "DAV=1/IMG=2/TXT=3";FF
1390 CLS
1400 OPEN "2:"+F$+".DAT" FOR INPUT AS #1
1410 LINE INPUT#1,A$:IF MM=1 THEN GOTO 1500
1420 FOR JI=1 TO LEN(A$)
1430 M$=MID$(A$,JI,1)
1440 IF M$="<" OR M$=">" OR M$=" " THEN GOTO 1470
1450 IF M$=":" THEN GOTO 1480
1460 MD$=MD$+M$
1470 NEXT JI
1480 OPEN "2:"+MD$ FOR OUTPUT AS #2:MD$=""
1490 IF MID$(A$,1,1)="<" THEN MM=1:GOTO 1410
1500 FOR I=1 TO LEN(A$) STEP 2
1510 GG=GG+1:LOCATE 0,3:PRINT RIGHT$("000"+HEX$(GG),4);"Bytes ﾍﾝｶﾝ ｼﾏｼﾀ!"
1520 PRINT#2,CHR$(VAL("&H"+MID$(A$,I,2)));
1530 NEXT I
1540 IF EOF(1)=-1 THEN CLOSE:GOTO 1560
1550 GOTO 1410
1560 BEEP:END
1570 *END.
1580 CONSOLE 0,25,0,1:WIDTH 40,25
1590 LOCATE 13,13:PRINT"ｵﾂｶﾚｻﾏ ﾃﾞｼﾀ"
1600 LOCATE 0,24:END
1610 '********** ﾂｶｲｶﾀ **********
1620 '
1630 ' DOWN LOAD ｺﾝﾊﾞｰﾄ ﾊ "ﾀﾞﾋﾞﾝﾁ" DATA ｦ HEX (JIONG-HEX?) ﾆ ﾍﾝｶﾝ ｼﾏｽ
1640 ' UP LOAD ｺﾝﾊﾞｰﾄ ﾊ HEX (JIONG-HEX?) ｦ "ﾀﾞﾋﾞﾝﾁ" DATA ﾆ ﾍﾝｶﾝ ｼﾏｽ
1650 ' ﾀﾞﾋﾞﾝﾁ DATA ﾉ ｽﾍﾞﾃ ﾉ ﾓｰﾄﾞ ﾆ ﾀｲｵｳ ｽﾙｺﾄｶﾞﾃﾞｷﾏｼﾀ
1660 ' ﾅｵ DOWN LOAD ｺﾝﾊﾞｰﾄ ﾉ NAME(FILE_NAME)ﾊ CG-DATA ﾉ NAMEﾆ ﾅﾘﾏｽ
1670 ' ***** ﾂｲｶ ｷﾉｳ TEXT FILE(ANC ﾉﾐ)ﾓ ｺﾝﾊﾞｰﾄ ﾃﾞｷﾏｽ
1675 ' ｺﾚﾃﾞ ﾀｼｮｳﾊ DATAﾘｮｳ ﾓ ﾍﾗｾﾙ ﾀﾞﾛｳｶ?
1680 'P.S. ｷｭｳ ﾊﾞｰｼﾞｮﾝ DATA ﾆﾊ ﾀｲｵｳ ｼﾃ ｲﾏｾﾝｶﾞ FILEﾉ ｱﾀﾏﾆ
1690 '<<< FILENAM.IMG:>>>ﾄ 1ｷﾞｮｳ ｲﾚﾃｵｹﾊﾞ ﾀｲｵｳ ｼﾏｽ
1700 '
1710 ' ﾁｩｳｲ!!!!!!!!!! BASICﾉ OPEN-FILEｽｳ ｦ 2ｲｼﾞｮｳﾆ ｼﾃｸﾀﾞｻｲ!!
1720 ' DATA-DISK ﾊ DRIVE 2 ﾆ ｲﾚﾃ ｸﾀﾞｻｲ!!
1730 ' (HEX&IMG&DAV-DATA)
1740 '
1750 ' DOC.make / 1988/Mar/14+Mer/18
1760 ' Make By JIONG Project Dｺ
1770 *E.:FILES 2
1780 INPUT A$
1790 OPEN "2:"+A$ FOR INPUT AS #1
1800 LINE INPUT#1,A$
1810 PRINT A$
1820 IF EOF(1)=-1 THEN END
1830 GOTO 1800
1630 ' DOWN->UP
1640 ' UP ->DOWN
ﾆﾃｲｾｲ ｼﾏｽ