#11 Article 1269 Posted at 1988/03/30 01:27:13 by ＪＩＯＮＧ (MAP604) [PRG.DAV]
Subject: NEW ﾀﾞﾋﾞﾝﾁ DATAｺﾝﾊﾞｰﾀ ﾃﾞｽ ﾂｶｯﾃﾐﾃﾈ!!
1000 '*****-------------------------------*****
1010 '***** JDCON-HEX ｺﾝﾊﾞｰﾀｰ Ver 2.0c *****
1020 '***** DA-VINCI ｺﾝﾊﾞｰﾀｰ *****
1030 '***** Copyright By JIONG Project Dｺ *****
1040 '***** Make 1.0 By 1988/Mar/05 *****
1050 '***** Ver Up 2.0a By 1988/Mar/14 *****
1060 '***** Ver Up 2.0b By 1988/Mar/18 *****
1070 '***** Ver Up 2.0c By 1988/Mar/29 *****
1080 '*****-------------------------------*****
1090 'SAVE"COV_V2.BAS",A
1100 '********** MAIN **********
1110 ON ERROR GOTO *ERT.
1120 *MENU.
1130 G=0:GL=0:PL=0:LI=0:COU=0
1140 CLS 3:WIDTH 80,25:CONSOLE 2,23,0,1:COLOR 4:LOCATE 0,0:PRINT"***** JDCON-HEX ｺﾝﾊﾞｰﾀｰ V2.0c By JIONG Project Dｺ *****"
1150 COLOR 5:LOCATE 0,1:PRINT"***** MENU *****":COLOR 7
1160 LOCATE 10,3:PRINT "UP LOAD DATA ｺﾝﾊﾞｰﾄ (ｻｸｾｲ) === 1"
1170 LOCATE 10,5:PRINT "DOWN LOAD DATA ｺﾝﾊﾞｰﾄ (ﾓﾄﾞｼ) === 2"
1180 LOCATE 10,7:PRINT "DATA DISPLAY (ﾋｮｳｼﾞ)=== 3"
1190 LOCATE 10,9:PRINT "END (ﾔﾒﾏｽ) === 4"
1200 COLOR 6:LOCATE 10,12:INPUT "COMMAND No:";C$:COLOR 7
1210 IF INSTR("1234",C$)=0 THEN BEEP:RUN
1220 ON INSTR("1234",C$) GOTO *PH.,*HP.,*E.,*END.
1230 '********** Pic-Data => Hex-Data ﾍﾝｶﾝ RTN **********
1240 *PH.
1250 CLS:FILES 2:COLOR 5:LOCATE 0,1:PRINT"***** PIC-DATA => HEX-DATA *****":COLOR 7
1260 LOCATE 0,24:INPUT "(PIC_DATA=>HEX_DATA) ﾍﾝｶﾝ FILE NAME:";F$
1270 INPUT "*.IMG=1/*.DAV=2/*.TXT=3:(RET=1)";FF$
1280 IF FF$="1" OR FF$="" THEN FF$=".IMG"
1290 IF FF$="2" THEN FF$=".DAV"
1300 IF FF$="3" THEN FF$=".TXT"
1310 CLS
1320 OPEN "2:"+F$+FF$ FOR INPUT AS #1
1330 LOCATE 0,3:PRINT"DATA ｢";F$+FF$;"｣ ﾁｪｯｸ !:";STR$(LI);"Lines "
1340 AA$=INPUT$(1,#1):COU=COU+1
1350 IF COU=39 THEN LI=LI+1:COU=0
1360 IF EOF(1)<>-1 THEN GOTO 1330
1370 IF COU<>0 THEN LI=LI+1
1380 LOCATE 0,3:PRINT"DATA ｢";F$+FF$;"｣ ﾁｪｯｸ !:";STR$(LI);"Lines "
1390 CLOSE #1
1400 LOCATE 0,3:PRINT STRING$(80,32)
1410 OPEN "2:"+F$+FF$ FOR INPUT AS #1
1420 OPEN "2:"+F$+".DAT" FOR OUTPUT AS #2
1430 PRINT#2,"<<<"+F$+FF$+":JDCON >>>"+"["+STR$(LI)+"Lines ]"
1440 LOCATE 0,4:PRINT "<<<"+F$+FF$+":for Microsoft-Basic ( use JDCON ) >>>"+"["+STR$(LI)+"Lines ]"
1450 A$=INPUT$(1,#1)
1460 G=G+1:LOCATE 0,3:PRINT RIGHT$("000"+HEX$(G),4);"Bytes ﾍﾝｶﾝ!"
1470 B$=RIGHT$("00"+HEX$(ASC(A$)),2)
1480 PRINT#2,B$;
1490 K=K+1:IF K>38 THEN K=0:PRINT#2,"":GL=GL+1:LP=LP+1
1500 LOCATE 0,5 : PRINT "<<<<<"+STR$(GL)+" Line >>>>>"
1510 IF LP=50 THEN PRINT#2,"<<<<<"+STR$(GL)+" Line >>>>>":LP=0
1520 IF EOF(1)=-1 THEN IF LP<>0 THEN GL=GL+1:GOTO 1540:ELSE GOTO 1540
1530 GOTO 1450
1540 PRINT#2,"":PRINT#2,"<<<"+F$+FF$+">>>"+" ["+STR$(GL)+"Lines ]"+" [EOF]":CLOSE:GOTO 1550
1550 BEEP:GOTO *MENU.
1560 '*****--------------------------------------------------------------*****
1570 '***** Copyright By JIONG Project Dｺ *****
1580 '***** Make By 1988/Mar/05 *****
1590 '***** Ver Up 2.0a By 1988/Mar/14 *****
1600 '***** Ver Up 2.0b By 1988/Mar/15->ﾎﾄﾝﾄﾞ ｶｲﾘｮｳﾉ ﾖﾁ ｶﾞ ﾅｶｯﾀﾉﾃﾞｽｶﾞ *****
1610 '***** Ver Up 2.0c By 1988/Mar/29->PD->HD ﾉ ﾁｪｯｸ ｦ ｼﾀﾉﾃﾞ VerUPﾄｽﾙ *****
1620 '*****--------------------------------------------------------------*****
1630 '********** Hex-Data => Pic-Data ﾍﾝｶﾝ RTN **********
1640 *HP.
1650 CLS:FILES 2:COLOR 5:LOCATE 0,1:PRINT"***** HEX-DATA => PIC-DATA *****":COLOR 7
1660 LOCATE 0,24:INPUT "(HEX_DATA=>PIC_DATA) ﾍﾝｶﾝ FILE NAME:";F$
1670 CLS
1680 OPEN "2:"+F$+".DAT" FOR INPUT AS #2
1690 LINE INPUT#2,A$
1700 IF EOF(2)=-1 THEN CLOSE:GOTO 1870
1710 IF MM=1 THEN GOTO 1810
1720 FOR JI=1 TO LEN(A$)
1730 M$=MID$(A$,JI,1)
1740 IF M$=CHR$(13) THEN GOTO 1690
1750 IF M$="<" OR M$=">" OR M$=" " THEN LOCATE 0,4:PRINT A$:GOTO 1780
1760 IF M$=":" THEN GOTO 1790
1770 MD$=MD$+M$
1780 NEXT JI
1790 MD$="2:"+MD$:OPEN MD$ FOR OUTPUT AS #1:MD$=""
1800 IF MID$(A$,1,1)="<" THEN MM=1:LOCATE 0,5:PRINT A$:GOTO 1690
1810 FOR I=1 TO LEN(A$) STEP 2
1820 GG=GG+1:LOCATE 0,3:PRINT RIGHT$("000"+HEX$(GG),4);"Bytes ﾍﾝｶﾝ ｼﾏｼﾀ!"
1830 PRINT#1,CHR$(VAL("&H"+MID$(A$,I,2)));
1840 NEXT I
1850 IF EOF(2)=-1 THEN CLOSE:GOTO 1870
1860 LINE INPUT#2,A$:GOTO 1800
1870 BEEP:GOTO *MENU.
1880 *END.
1890 '********** ｺﾞｿﾞﾝｼﾞ END RTN ﾃﾞｲ!! **********
1900 CONSOLE 0,25,0,1:WIDTH 40,25
1910 LOCATE 13,13:PRINT"ｵﾂｶﾚｻﾏ ﾃﾞｼﾀ"
1920 LOCATE 0,24:END
1930 '********** ﾂｶｲｶﾀ **********
1940 '
1950 ' DOWN LOAD ｺﾝﾊﾞｰﾄ ﾊ "ﾀﾞﾋﾞﾝﾁ" DATA ｦ HEX (JIONG-HEX?) ﾆ ﾍﾝｶﾝ ｼﾏｽ
1960 ' UP LOAD ｺﾝﾊﾞｰﾄ ﾊ HEX (JIONG-HEX?) ｦ "ﾀﾞﾋﾞﾝﾁ" DATA ﾆ ﾍﾝｶﾝ ｼﾏｽ
1970 ' ﾀﾞﾋﾞﾝﾁ DATA ﾉ ｽﾍﾞﾃ ﾉ ﾓｰﾄﾞ ﾆ ﾀｲｵｳ ｽﾙｺﾄｶﾞﾃﾞｷﾏｼﾀ
1980 ' ﾅｵ DOWN LOAD ｺﾝﾊﾞｰﾄ ﾉ NAME(FILE_NAME)ﾊ CG-DATA ﾉ NAMEﾆ ﾅﾘﾏｽ
1990 ' ***** ﾂｲｶ ｷﾉｳ TEXT FILE(ANC ﾉﾐ)ﾓ ｺﾝﾊﾞｰﾄ ﾃﾞｷﾏｽ
2000 ' ｺﾚﾃﾞ ﾀｼｮｳﾊ DATAﾘｮｳ ﾓ ﾍﾗｾﾙ ﾀﾞﾛｳｶ?
2010 'P.S. ｷｭｳ ﾊﾞｰｼﾞｮﾝ DATA ﾆﾊ ﾀｲｵｳ ｼﾃ ｲﾏｾﾝｶﾞ FILEﾉ ｱﾀﾏﾆ
2020 '<<< FILENAME(ANK6ﾓｼﾞ).IMG:>>>ﾄ 1ｷﾞｮｳ ｲﾚﾃｵｹﾊﾞ ﾀｲｵｳ ｼﾏｽ
2030 '
2040 ' ﾁｩｳｲ!!!!!!!!!! BASICﾉ OPEN-FILESｽｳ ｦ 2ｲｼﾞｮｳﾆ ｼﾃｸﾀﾞｻｲ!!
2050 ' DATA-DISK ﾊ DRIVE 2 ﾆ ｲﾚﾃ ｸﾀﾞｻｲ!!
2060 ' (HEX&IMG&DAV-DATA)
2070 '
2080 ' DOC.make / 1988/Mar/14+Mer/18
2090 ' Make By JIONG Project Dｺ
2100 '------------------------------------------------------------------
2110 'ｺﾉ ｼﾀﾉ *E. ﾉ ｻﾌﾞﾙｰﾁﾝﾊ DATA ﾉ ｶｸﾆﾝ ﾖｳ ﾉ "ﾀﾀﾞﾉ READ-RTN ﾃﾞｽ
2120 '******.TXT FILE ﾅﾄﾞﾊ ｺﾚﾃﾞﾐﾚﾊﾞ ｲｲﾃﾞｼｮｳ !!?
2130 'OPEN ｼﾃ LINEﾆｭｳﾘｮｸ ｼ PRINT ｼ FileEnd ﾃﾞ BEEPｦ ﾅﾗｼ END ﾀﾀﾞ ｿﾚﾀﾞｹ!!
2140 '
2150 ' Make By 1988/Mar/05: Ver 0.1 JIONG Project Dｺ
2160 '
2170 *E.:COLOR 5:LOCATE 0,1:PRINT"***** DISPLAY *****":LOCATE 0,4:COLOR 7:CLS:FILES 2
2180 INPUT "FILE NAME INPUT:(ALL-NAME):";A$
2190 OPEN "2:"+A$ FOR INPUT AS #1
2200 LINE INPUT#1,A$
2210 C=7
2220 IF MID$(A$,1,1)="<" THEN C=5
2230 COLOR C
2240 PRINT A$
2250 C=7
2260 I$=INKEY$:IF I$<>"" THEN GOTO *KEY.
2270 IF EOF(1)=-1 THEN BEEP:CLOSE:GOSUB *KEY.
2280 GOTO 2200
2290 '***** KEY ﾏﾁ ﾀﾞｵ!! *****
2300 *KEY.
2310 COLOR 3:PRINT"ﾅﾆｶ KEY ｦ ｵｽﾄ MAIN-MENU ﾍ ﾓﾄﾞﾘﾏｽ!!":COLOR 7
2320 QQ$=INPUT$(1)
2330 CLOSE:GOTO *MENU.
2340 '********** ERROR ｦ ｵｺｼﾃｼﾏｯﾀ!! ｢ｲｼﾞﾒﾙ?｣ **********
2350 *ERT.
2360 CLOSE
2370 BEEP:GOTO *MENU.
2380 END
^
ｺﾚﾊ PC8801ﾃﾞ ｾｲｻｸ ｼﾏｼﾀｶﾞ PC9801ﾃﾞﾓ ｳｺﾞｸﾄ ｵﾓｲﾏｽ
ﾀﾒｼﾃﾐﾃ ｸﾀﾞｻｲﾈ!!
MAP604/JIONG