#11 Article 928 Posted at 1988/01/18 06:36:54 by 恭子命！ (MAP604) [PRG]
Subject: ﾃﾞﾓ ﾀﾞﾋﾞﾝﾁ ﾆ ｺﾝﾊﾞｰﾄ ﾉﾐ ﾉｾﾏｽｳ (BASIC)
1000 ' save "dav88.b"
1010 '
1020 CLEAR ,&HB900
1030 ON ERROR GOTO *ERR1
1040 ON STOP GOSUB *STP:STOP ON
1050 WIDTH 80,25:BLOAD "dav88"
1060 PRINT C$;:LOCATE 10,16,1:INPUT"FILE NAME ",NAM$
1070 IF LEN(NAM$)>6 THEN 1060 ELSE NAM$=NAM$+F$
1080 OPEN "filnam" AS #1
1090 FIELD #1,10 AS W$
1100 LSET W$=NAM$+".IMG"
1110 PUT #1,1
1120 CLOSE #1
1130 RETURN
1140 INPUT "SET DATA DRIVE No.";DRIVE
1150 GOSUB *FILNAM
1160 '
1170 GOSUB *DISK:NAM$=DR$+NM$+".IMG"
1180 '
1190 CLS:SCREEN 0,0
1200 '
1210 OPEN NAM$ AS #1
1220 FIELD #1,128 AS A$,128 AS B$
1230 AA$=RIGHT$("000"+HEX$(VARPTR(#1)+9),4)
1240 POKE &HB90E,VAL("&H"+RIGHT$(AA$,2))
1250 POKE &HB90F,VAL("&H"+LEFT$(AA$,2))
1260 AA=&HB903:CALL AA:AA=&HB900
1270 '
1280 *LOOP CALL AA:PUT #1:IF PEEK(&HB906)=0 THEN *LOOP
1290 '
1300 *RET1:CLOSE
1310 CLS 2:RUN"GLS.4"
1320 '
1330 *FILNAM
1340 OPEN"filnam" AS #1
1350 FIELD #1,10 AS A$
1360 GET #1,1
1370 NM$=A$
1380 CLOSE
1390 RETURN
1400 '
1410 *DISK
1420 IF PEEK (&HEC7D)=2 THEN DR$="2:":DRIVE=2:GOTO 1490
1430 LOCATE 30,11:PRINT"ﾄﾞﾗｲﾌﾞ1ｦ ﾃﾞｰﾀﾃﾞｨｽｸﾄ ｺｳｶﾝｼﾃｸﾀﾞｻｲ"
1440 LOCATE 30,12:PRINT"ｲｲﾃﾞｽｶ ? (Y or N)･･････････････";:
1450 A$=INPUT$(1):DRIVE=1
1460 FIELD #0,8 AS B$,1 AS C$
1470 DISKI$(1,1,18,14)
1480 IF C$="FE" THEN CLS:GOTO *DISK ELSE DR$="1:"
1490 CLS:RETURN
1500 '
1510 *STP
1520 RETURN
1530 '
1540 *ERR1
1550 IF DSKF(DRIVE)=0 THEN GOTO 1580
1560 RESUME 1150
1570 '
1580 COLOR 2:PRINT"Disk full":COLOR 7
1590 A$=INPUT$(1):RUN"GLS.4"
1600 '
DISK ﾊ ﾋｮｳｼﾞｭﾝ ﾉ FORMAT ﾃﾞ ｵｺﾅｯﾃ ｸﾀﾞｻｲ!!(DATA-DISKﾆｼﾃｸﾀﾞｻｲ!!)
ﾃﾞ ｲｶﾉ FILE 2ﾂ ｦ ﾂｶｯﾃ ｸﾀﾞｻｲ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!