#11 Article 1273 Posted at 1988/04/03 04:18:57 by ＪＩＯＮＧ (MAP604) [PRG.DAV]
Subject: NEW 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 '***** Ver Up 2.0d By 1988/Mar/31 *****
1090 '*****-------------------------------*****
1100 'SAVE"COV_V2.BAS",A
1110 '********** MAIN **********
1120 'ON ERROR GOTO *ERT.
1130 DIM DT$(50)
1140 *MENU.
1150 G=0:GL=0:PL=0:LI=0:COU=0:MAX=18:'ｺﾏﾝﾄﾞ LINE UP ﾖｳ
1160 CL$="1,2,3,4,5,6":AM=0
1170 CLS 3:WIDTH 80,25:CONSOLE 2,23,0,1:COLOR 4:LOCATE 0,0:PRINT"***** JDCON-HEX ｺﾝﾊﾞｰﾀｰ V2.0d By JIONG Project Dｺ *****"
1180 COLOR 5:LOCATE 0,1:PRINT"***** MENU *****":COLOR 7
1190 LOCATE 10, 3:PRINT "UP LOAD DATA ｺﾝﾊﾞｰﾄ (ｻｸｾｲ) � === 1"
1200 LOCATE 10, 5:PRINT "DOWN LOAD DATA ｺﾝﾊﾞｰﾄ (ﾓﾄﾞｼ) � === 2"
1210 LOCATE 10, 7:PRINT "DATA DISPLAY (ﾋｮｳｼﾞ) - === 3"
1220 LOCATE 10, 9:PRINT "NOW PRESS DATA (ﾂﾌﾞｼ) � === 4"
1230 LOCATE 10,10:PRINT "OLD PRESS DATA (ﾂﾌﾞｼ) � === 5"
1240 LOCATE 10,11:PRINT "NOW Re-PRESS DATA (ﾃﾝｶｲ) � === 6"
1250 LOCATE 10,12:PRINT "OLD Re-PRESS DATA (ﾃﾝｶｲ) � === 7"
1260 LOCATE 10,14:PRINT "END OF Programs (ｵｼﾏｲ) - === 8"
1270 LOCATE 10,16:PRINT "ASCII FILE A=>B COPY (COPY) - === 9"
1280 COLOR 6:LOCATE 10,MAX:PRINT "Command No.:("+CL$+") :";:LINE INPUT C$:COLOR 7
1290 IF INSTR("123456789",C$)=0 THEN BEEP:RUN
1300 ON INSTR("123456789",C$) GOTO *PH.,*HP.,*E.,*PRS.,*OPRS.,*RPS.,*ORPS.,*END.,*SCRT.
1310 '********** Pic-Data => Hex-Data ﾍﾝｶﾝ RTN **********
1320 *PH.
1330 CLS:FILES 2:COLOR 5:LOCATE 0,1:PRINT"***** PIC-DATA => HEX-DATA *****":COLOR 7
1340 LOCATE 0,24:INPUT "(PIC_DATA=>HEX_DATA) ﾍﾝｶﾝ FILE NAME:";F$
1350 INPUT "*.IMG=1/*.DAV=2/*.TXT=3:(RET=1)";FF$
1360 IF FF$="1" OR FF$="" THEN FF$=".IMG"
1370 IF FF$="2" THEN FF$=".DAV"
1380 IF FF$="3" THEN FF$=".TXT"
1390 CLS
1400 OPEN "2:"+F$+FF$ FOR INPUT AS #1
1410 LOCATE 0,3:PRINT"DATA ｢";F$+FF$;"｣ ﾁｪｯｸ !:";STR$(LI);"Lines "
1420 AA$=INPUT$(1,#1):COU=COU+1
1430 IF COU=39 THEN LI=LI+1:COU=0
1440 IF EOF(1)<>-1 THEN GOTO 1410
1450 IF COU<>0 THEN LI=LI+1
1460 LOCATE 0,3:PRINT"DATA ｢";F$+FF$;"｣ ﾁｪｯｸ !:";STR$(LI);"Lines "
1470 CLOSE #1
1480 LOCATE 0,3:PRINT STRING$(80,32)
1490 OPEN "2:"+F$+FF$ FOR INPUT AS #1
1500 OPEN "2:"+F$+".DAT" FOR OUTPUT AS #2
1510 PRINT#2,"<<<"+F$+FF$+":for Microsoft-Basic ( use JDCON ) >>>"+"["+STR$(LI)+"Lines ]"
1520 LOCATE 0,4:PRINT "<<<"+F$+FF$+":for Microsoft-Basic ( use JDCON ) >>>"+"["+STR$(LI)+"Lines ]"
1530 A$=INPUT$(1,#1)
1540 G=G+1:LOCATE 0,3:PRINT RIGHT$("000"+HEX$(G),4);"Bytes ﾍﾝｶﾝ!"
1550 B$=RIGHT$("00"+HEX$(ASC(A$)),2)
1560 PRINT#2,B$;
1570 K=K+1:IF K>38 THEN K=0:PRINT#2,"":GL=GL+1:LP=LP+1
1580 LOCATE 0,5 : PRINT "<<<<<"+STR$(GL)+" Line >>>>>"
1590 IF LP=50 THEN PRINT#2,"<<<<<"+STR$(GL)+" Line >>>>>":LP=0
1600 IF EOF(1)=-1 THEN IF LP<>0 THEN GL=GL+1:GOTO 1620:ELSE GOTO 1620
1610 GOTO 1530
1620 PRINT#2,"":PRINT#2,"<<<"+F$+FF$+">>>"+" ["+STR$(GL)+"Lines ]"+" [EOF]":CLOSE:GOTO 1630
1630 BEEP:GOTO *MENU.
1640 '*****--------------------------------------------------------------*****
1650 '***** Copyright By JIONG Project Dｺ *****
1660 '***** Make By 1988/Mar/05 *****
1670 '***** Ver Up 2.0a By 1988/Mar/14 *****
1680 '***** Ver Up 2.0b By 1988/Mar/15->ﾎﾄﾝﾄﾞ ｶｲﾘｮｳﾉ ﾖﾁ ｶﾞ ﾅｶｯﾀﾉﾃﾞｽｶﾞ *****
1690 '***** Ver Up 2.0c By 1988/Mar/29->PD->HD ﾉ ﾁｪｯｸ ｦ ｼﾀﾉﾃﾞ VerUPﾄｽﾙ *****
1700 '*****--------------------------------------------------------------*****
1710 '********** Hex-Data => Pic-Data ﾍﾝｶﾝ RTN **********
1720 *HP.
1730 CLS:FILES 2:COLOR 5:LOCATE 0,1:PRINT"***** HEX-DATA => PIC-DATA *****":COLOR 7
1740 LOCATE 0,24:INPUT "(HEX_DATA=>PIC_DATA) ﾍﾝｶﾝ FILE NAME:";F$
1750 CLS
1760 OPEN "2:"+F$+".DAT" FOR INPUT AS #2
1770 LINE INPUT#2,A$
1780 IF EOF(2)=-1 THEN CLOSE:GOTO 1950
1790 IF MM=1 THEN GOTO 1890
1800 FOR JI=1 TO LEN(A$)
1810 M$=MID$(A$,JI,1)
1820 IF M$=CHR$(13) THEN GOTO 1770
1830 IF M$="<" OR M$=">" OR M$=" " THEN LOCATE 0,4:PRINT A$:GOTO 1860
1840 IF M$=":" THEN GOTO 1870
1850 MD$=MD$+M$
1860 NEXT JI
1870 MD$="2:"+MD$:OPEN MD$ FOR OUTPUT AS #1:MD$=""
1880 IF MID$(A$,1,1)="<" THEN MM=1:LOCATE 0,5:PRINT A$:GOTO 1770
1890 FOR I=1 TO LEN(A$) STEP 2
1900 GG=GG+1:LOCATE 0,3:PRINT RIGHT$("000"+HEX$(GG),4);"Bytes ﾍﾝｶﾝ ｼﾏｼﾀ!"
1910 PRINT#1,CHR$(VAL("&H"+MID$(A$,I,2)));
1920 NEXT I
1930 IF EOF(2)=-1 THEN CLOSE:GOTO 1950
1940 LINE INPUT#2,A$:GOTO 1880
1950 BEEP:GOTO *MENU.
1960 *END.
1970 '********** ｺﾞｿﾞﾝｼﾞ END RTN ﾃﾞｲ!! **********
1980 CONSOLE 0,25,0,1:WIDTH 40,25
1990 LOCATE 13,13:PRINT"ｵﾂｶﾚｻﾏ ﾃﾞｼﾀ"
2000 LOCATE 0,24:END
2010 '********** DATA-TEXT-CRT-PUT-OUT RTN Ver?? **********
2020 ' Make By 1988/Mar/05: Ver 0.1 JIONG Project Dｺ
2030 '
2040 *E.:COLOR 5:LOCATE 0,1:PRINT"***** DISPLAY *****":LOCATE 0,4:COLOR 7:CLS:FILES 2
2050 INPUT "FILE NAME INPUT:(ALL-NAME):";A$
2060 OPEN "2:"+A$ FOR INPUT AS #1
2070 LINE INPUT#1,A$
2080 C=7
2090 IF MID$(A$,1,1)="<" THEN C=5
2100 COLOR C
2110 PRINT A$
2120 C=7
2130 I$=INKEY$:IF I$<>"" THEN GOTO *KEY.
2140 IF EOF(1)=-1 THEN BEEP:CLOSE:GOSUB *KEY.
2150 GOTO 2070
2160 '***** KEY ﾏﾁ ﾀﾞｵ!! *****
2170 *KEY.
2180 COLOR 3:PRINT"ﾅﾆｶ KEY ｦ ｵｽﾄ MAIN-MENU ﾍ ﾓﾄﾞﾘﾏｽ!!":COLOR 7
2190 QQ$=INPUT$(1)
2200 CLOSE:GOTO *MENU.
2210 '********** ERROR ｦ ｵｺｼﾃｼﾏｯﾀ!! ｢ｲｼﾞﾒﾙ?｣ **********
2220 *ERT.
2230 CLOSE
2240 BEEP:GOTO *MENU.
2250 END
2260 '********** ﾀｼｮｳﾉ ｱｯｼｭｸ ｦ ｶｹﾙ RTN (Ver 1.5) **********
2270 '***** Make By 88/Mar/31
2280 '***** Ver Up By 88/Apr/02
2290 '***** Copyriget By JIONG Project Dｺ
2300 *PRS.
2310 COLOR 5:LOCATE 0,1:PRINT"***** DATA PRESS Ver 1.5 *****"
2320 COLOR 7:CLS:LOCATE 0,3
2330 FILES 2
2340 LOCATE 0,20:INPUT "DATA NAME :";FAN$
2350 RESTORE *NEWDATA.
2360 READ DT$(ML):IF DT$(ML)="EN" THEN GOTO 2380
2370 ML=ML+1:GOTO 2360
2380 NAME "2:"+FAN$+".DAT" AS "2:"+FAN$+".BAK"
2390 OPEN "2:"+FAN$+".BAK" FOR INPUT AS #1
2400 OPEN "2:"+FAN$+".DAT" FOR OUTPUT AS #2
2410 LINE INPUT#1,A$
2420 IF EOF(1)=-1 THEN GOTO *PE.
2430 IF MID$(A$,1,1)="<" THEN B$=A$:AM=AM+1:GOTO 2520
2440 IF AM=1 THEN B$="<<< JDCON for Microsoft-Basic ( use Re-PRESS V1.5 and JDCON ) >>>":AM=2:GOTO 2520
2450 FOR I=1 TO LEN(A$) STEP 2
2460 M$=MID$(A$,I,2)
2470 FOR UL=0 TO 48
2480 IF M$=DT$(UL) THEN M$=CHR$(177+UL):GOTO 2500
2490 NEXT UL
2500 B$=B$+M$
2510 NEXT I
2520 PRINT#2,B$:PRINT B$:B$="":A$="":GOTO 2410
2530 *PE.
2540 CLOSE:RUN
2550 '********** ﾀｼｮｳﾉ ｱｯｼｭｸ ｦ ﾓﾄﾞｽ RTN (Ver 1.5) **********
2560 '***** Make By 88/Apr/01
2570 '***** Ver Up By 88/Apr/02
2580 '***** Copyriget By JIONG Project Dｺ
2590 *RPS.
2600 COLOR 5:LOCATE 0,1:PRINT"***** DATA RE-PRESS Ver 1.5 *****"
2610 COLOR 7:CLS:LOCATE 0,3
2620 FILES 2
2630 LOCATE 0,20:INPUT "DATA NAME :";FAN$
2640 RESTORE *NEWDATA.
2650 READ DT$(ML):IF DT$(ML)="EN" THEN GOTO 2670
2660 ML=ML+1:GOTO 2650
2670 NAME "2:"+FAN$+".DAT" AS "2:"+FAN$+".BAK"
2680 OPEN "2:"+FAN$+".BAK" FOR INPUT AS #1
2690 OPEN "2:"+FAN$+".DAT" FOR OUTPUT AS #2
2700 LINE INPUT#1,A$
2710 IF EOF(1)=-1 THEN GOTO *PE.
2720 IF MID$(A$,1,1)="<" AND MID$(A$,5,5)="JDCON" THEN GOTO 2700
2730 IF MID$(A$,1,1)="<" THEN B$=A$:GOTO 2830
2740 FOR I=1 TO LEN(A$)
2750 M$=MID$(A$,I,1)
2760 GOSUB *LNR.
2770 FOR UL=0 TO 48
2780 IF M$="." THEN M$="20":GOTO 2810
2790 IF M$=CHR$(177+UL) THEN M$=DT$(UL):GOTO 2810
2800 NEXT UL
2810 B$=B$+M$
2820 NEXT I
2830 PRINT#2,B$:PRINT B$:B$="":A$="":GOTO 2700
2840 *NEWDATA.
2850 DATA 00,01,02,03,04,05,06,07,08,09,0A,0B,0C,0D,0E,0F
2860 DATA 10,11,12,13,14,15,16,17,18,19,1A,1B,1C,1D,1E,1F
2870 DATA 20,22,33,44,55,66,77,88,99,AA,BB,CC,DD,EE,FF,EN
2880 '********** ﾀｼｮｳﾉ ｱｯｼｭｸ ｦ ｶｹﾙ RTN (Ver 1.0) **********
2890 '***** Make By 88/Mar/31
2900 '***** Copyriget By JIONG Project Dｺ
2910 *OPRS.
2920 COLOR 5:LOCATE 0,1:PRINT"***** DATA PRESS Ver 1.0 *****"
2930 COLOR 7:CLS:LOCATE 0,3
2940 FILES 2
2950 LOCATE 0,20:INPUT "DATA NAME :";FAN$
2960 RESTORE *OLDDATA.
2970 READ DT$(ML):IF DT$(ML)="EN" THEN GOTO 2990
2980 ML=ML+1:GOTO 2970
2990 NAME "2:"+FAN$+".DAT" AS "2:"+FAN$+".BAK"
3000 OPEN "2:"+FAN$+".BAK" FOR INPUT AS #1
3010 OPEN "2:"+FAN$+".DAT" FOR OUTPUT AS #2
3020 LINE INPUT#1,A$
3030 IF EOF(1)=-1 THEN GOTO *PE.
3040 IF MID$(A$,1,1)="<" THEN B$=A$:AM=1:GOTO 3130
3050 IF MID$(A$,1,1)="<" AND AM=1 THEN B$="<<< for Microsoft-Basic ( use Re-PRESSV1.0 and JDCON ) >>>":AM=0:GOTO 3120
3060 FOR I=1 TO LEN(A$) STEP 2
3070 M$=MID$(A$,I,2)
3080 FOR UL=0 TO 16
3090 IF M$=DT$(UL) THEN M$=CHR$(177+UL):GOTO 3110
3100 NEXT UL
3110 B$=B$+M$
3120 NEXT I
3130 PRINT#2,B$:PRINT B$:B$="":A$="":GOTO 3020
3140 '********** ﾀｼｮｳﾉ ｱｯｼｭｸ ｦ ﾓﾄﾞｽ RTN (Ver 1.0) **********
3150 '***** Make By 88/Apr/01
3160 '***** Copyriget By JIONG Project Dｺ
3170 *ORPS.
3180 COLOR 5:LOCATE 0,1:PRINT"***** DATA RE-PRESS Ver 1.0 *****"
3190 COLOR 7:CLS:LOCATE 0,3
3200 FILES 2
3210 LOCATE 0,20:INPUT "DATA NAME :";FAN$
3220 RESTORE *OLDDATA.
3230 READ DT$(ML):IF DT$(ML)="EN" THEN GOTO 3250
3240 ML=ML+1:GOTO 3230
3250 NAME "2:"+FAN$+".DAT" AS "2:"+FAN$+".BAK"
3260 OPEN "2:"+FAN$+".BAK" FOR INPUT AS #1
3270 OPEN "2:"+FAN$+".DAT" FOR OUTPUT AS #2
3280 LINE INPUT#1,A$
3290 IF EOF(1)=-1 THEN GOTO *PE.
3300 IF MID$(A$,1,1)="<" THEN B$=A$:GOTO 3390
3310 FOR I=1 TO LEN(A$)
3320 M$=MID$(A$,I,1)
3330 FOR UL=0 TO 16
3340 IF M$="." THEN M$="20":GOTO 3370
3350 IF M$=CHR$(177+UL) THEN M$=DT$(UL):GOTO 3370
3360 NEXT UL
3370 B$=B$+M$
3380 NEXT I
3390 PRINT#2,B$:PRINT B$:B$="":A$="":GOTO 3280
3400 *OLDDATA.
3410 '********** ASCII FILE A=>B COPY (ﾀﾞﾚﾃﾞﾓ ﾂｸﾚﾙﾝﾀﾞﾅ ｺﾚｶﾞ...) **********
3420 '********** ﾋﾐﾂﾉ ｷｰﾆﾖﾙ ｷﾉｳ 1 **********
3430 *SCRT.
3440 CLS:COLOR 5:LOCATE 0,1:PRINT"***** ASCII FILE A=>B COPY *****"
3450 PRINT"DRIVE A:";DSKF(1);" ｸﾗｽﾀｰ ｱｲﾃ ｲﾏｽ":FILES 1:PRINT:PRINT"DRIVE B:";DSKF(2);" ｸﾗｽﾀｰ ｱｲﾃ ｲﾏｽ":FILES 2
3460 INPUT "A=>B FILE NAME ";F$
3470 OPEN "1:"+F$ FOR INPUT AS #1
3480 OPEN "2:"+F$ FOR OUTPUT AS #2
3490 PRINT"A:"+F$+"===>B:"+F$
3500 LINE INPUT#1,AA$
3510 PRINT#2,AA$
3520 IF EOF(1)=-1 THEN CLOSE:CLS:GOTO *MENU.
3530 GOTO 3500
3540 '-------------------------END OF PROGRAM--------------------------------
3550 'ｺｺｶﾗ ﾊ (ｻｸｼｬﾉ ｲｲﾀｲ ﾎｰﾀﾞｲ) ﾃﾞｽ
3560 'ｲﾗﾅｲ ﾅﾗ CUT ｼﾃｸﾀﾞｻｲﾈ!!!!!
3570 ' ｺﾝﾄﾞ UP ｽﾙﾄｷﾊ Ver3.0a ﾆ ﾅﾙﾄ ｵﾓｳ
3580 'PC98ﾊﾞﾝ ﾃﾞ ﾂｶｴﾀﾗ BASIC-ｺﾝﾊﾟｲﾗ ﾃﾞ ｺﾝﾊﾟｲﾙ ｼﾃ ﾂｶｯﾃ ｸﾀﾞｻｲ SPEED ｶﾞ...
3590 '-----------------------------------------------------------------------
3600 '***** ｳｳﾑ ﾄﾆｶｸ Ver2.0d ﾀﾞ!!
3610 'ﾃﾞｷﾚﾊﾞ ｺｺﾝﾄｺ ｺｰｼﾀﾗ ｲｲﾝﾀﾞｹﾄﾞ.. ﾄｶ MAIL ﾅﾄﾞ ﾃﾞ ｵｷｶｾ ｸﾀﾞｻｲﾄ
3620 'ｳﾚｼｲ (ﾓｳ ﾈﾀｷﾞﾚ..) BUGﾊｯｹﾝ!!!ﾅﾝﾃ ｸﾚﾀﾗ ﾅﾝﾄｶ ｼﾏｽｼ BUG-FIXﾊﾞﾝ ﾅﾄﾞ UP
3630 'ｼﾃｸﾚﾃﾓ ｲｲﾝﾝﾃﾞｽｶﾞ................
3640 ' ﾃﾞｷﾚﾊﾞ PCS/ACS(ASCII-NET)ﾀﾞｹﾆﾊ UP ｼﾃﾎｼｸﾅｲﾅｱ
3650 ' ｱｿｺﾊ (ｳﾝｴｲ/ﾔﾘｶﾀ ｶﾞ ｷﾀﾅｲ!)ｷﾗｲﾅﾝﾃﾞｽ
3660 'ﾃﾞ ﾓｼ UP ｼﾃｱﾙﾉｦ ﾊｯｹﾝ ｼﾀﾗ ｹｼﾃ ﾓﾗｯﾃﾓ ｶﾏｲﾏｾﾝｼ
3670 'MAIL ﾃﾞ ｵｼｴﾃ ｸﾚﾙﾀﾞｹ ﾃﾞﾓ ｱﾘｶﾞﾀｲ!!
3680 ' ﾁｮｻｸｹﾝﾊ "ﾀﾞ･ﾋﾞﾝﾁ" 封封封封封封封封封封封� ｼｮｳｶﾞｸｶﾝ SOFT
3690 ' "JDCON-HEX ﾀﾞ･ﾋﾞﾝﾁ ｺﾝﾊﾞｰﾀｰ" 封装� JIONG Project Dｺ
3700 ' 燈� OCT SYSTEM MEDIA
3710 ' 囎� ﾄﾗｯﾌﾟ SOFT ﾊﾝﾊﾞｲﾌﾞ
3720 ' ﾆ ｱﾘﾏｽﾉﾃﾞ ｺｼﾞﾝﾃﾞ ｼｮｳｽﾙ ｺﾄ ﾉﾐ ﾆ ｵﾈｶﾞｲ ｼﾀｲ
3730 '
3740 '
3750 '********** ﾂｶｲｶﾀ **********
3760 '
3770 ' DOWN LOAD ｺﾝﾊﾞｰﾄ ﾊ "ﾀﾞﾋﾞﾝﾁ" DATA ｦ HEX (JIONG-HEX?) ﾆ ﾍﾝｶﾝ ｼﾏｽ
3780 ' UP LOAD ｺﾝﾊﾞｰﾄ ﾊ HEX (JIONG-HEX?) ｦ "ﾀﾞﾋﾞﾝﾁ" DATA ﾆ ﾍﾝｶﾝ ｼﾏｽ
3790 ' ﾀﾞﾋﾞﾝﾁ DATA ﾉ ｽﾍﾞﾃ ﾉ ﾓｰﾄﾞ ﾆ ﾀｲｵｳ ｽﾙｺﾄｶﾞﾃﾞｷﾏｼﾀ
3800 ' ﾅｵ DOWN LOAD ｺﾝﾊﾞｰﾄ ﾉ NAME(FILE_NAME)ﾊ CG-DATA ﾉ NAMEﾆ ﾅﾘﾏｽ
3810 ' ***** ﾂｲｶ ｷﾉｳ TEXT FILE(ANC ﾉﾐ)ﾓ ｺﾝﾊﾞｰﾄ ﾃﾞｷﾏｽ
3820 ' ｺﾚﾃﾞ ﾀｼｮｳﾊ DATAﾘｮｳ ﾓ ﾍﾗｾﾙ ﾀﾞﾛｳｶ?
3830 'P.S. ｷｭｳ ﾊﾞｰｼﾞｮﾝ DATA ﾆﾊ ﾀｲｵｳ ｼﾃ ｲﾏｾﾝｶﾞ FILEﾉ ｱﾀﾏﾆ
3840 '<<< FILENAME(ANK6ﾓｼﾞ).IMG:>>>ﾄ 1ｷﾞｮｳ ｲﾚﾃｵｹﾊﾞ ﾀｲｵｳ ｼﾏｽ
3850 '
3860 ' ﾁｩｳｲ!!!!!!!!!! BASICﾉ OPEN-FILESｽｳ ｦ 2ｲｼﾞｮｳﾆ ｼﾃｸﾀﾞｻｲ!!
3870 ' DATA-DISK ﾊ DRIVE 2 ﾆ ｲﾚﾃ ｸﾀﾞｻｲ!!
3880 ' (HEX&IMG&DAV-DATA)
3890 '
3900 ' DOC.make / 1988/Mar/14+Mer/18
3910 ' Make By JIONG Project Dｺ
3920 '------------------------------------------------------------------
^