#11 Article 972 Posted at 1988/01/25 20:08:42 by FUJI (MAP624) [PRG.FU]
Subject: [1] FUJI LOADER & SAVER for PC-8801
10 ' ================================ 20 ' FUJI SAVER [Ver1.2] 30 ' Fof PC-8800 ｼﾘｰｽﾞ 40 ' 63.1.23 By FUJIWARA 50 ' ================================ 60 ' save "FUJI-S.prg",A 70 ' 100 ' ｼｮｷ ｾｯﾃｲ ----------------------------------------------- 110 CLEAR ,&HE000 :DEFINT A-C :DIM A(4100),B(243),C(298) 120 SCREEN 0,0 :CONSOLE 0,25,0,1 :WIDTH 80,20 200 ' SAVE ﾊﾝｲ ----------------------------------------------- 210 GET (0,0)-(639,1),B : GET (0,2)-(3,199),C 220 LINE (0,0)-(639,1),1,BF :LINE (0,2)-(3,199),1,BF 230 FOR I=0 TO 639 STEP 20 :PSET (I,0),4 :NEXT I 235 FOR I=0 TO 639 STEP 100 :PSET (I+1,0),4:NEXT I 240 FOR I=0 TO 199 STEP 10 :PSET (0,I),4 :NEXT I 245 FOR I=0 TO 199 STEP 50 :PSET (1,I),4 :NEXT I 250 PRINT :INPUT " ﾖｺ ･････ X1 :",X1 :INPUT " X2 :",X2 :X=X2-X1+1 255 LINE (X1,0)-(X1+1,1),2,BF :LINE (X2-1,0)-(X2,1),2,BF 260 PRINT :INPUT " ﾀﾃ ･････ Y1 :",Y1 :INPUT " Y2 :",Y2 :Y=Y2-Y1+1 265 LINE (0,Y1)-(2,Y1),2 :LINE (0,Y2)-(2,Y2),2 270 PUT (0,0),B,PSET :PUT (0,2),C,PSET 280 Y3=INT(Y/2)+1 :N=(((X+7)\8)*Y3*1+4)\2+1 290 PRINT :INPUT " C.G TYPE ( 0･･･W/B 1･･･COLOR ) :",S :S=S+1 295 ON S GOTO 300,400,600 :GOTO 290 300 ' W/B SAVE ----------------------------------------------- 310 CLS :PRINT :INPUT " W/B ﾓｰﾄﾞ ( 1,2,3 ) :",S 320 IF S=1 THEN SCREEN 1,0,0,1 :GOTO 350 330 IF S=2 THEN SCREEN 1,0,1,2 :GOTO 350 340 IF S=3 THEN SCREEN 1,0,2,4 :GOTO 350 350 PRINT :INPUT " ｺﾚﾃﾞ ｲｲﾃﾞｽｶ ? (0･･･No 1･･･Yes) :",S 360 IF S=1 THEN 370 ELSE 310 370 PRINT :INPUT " FILE NAME ( 6 ﾓｼﾞ ) :",F$ 380 F2$=F$+".fd0" :GOSUB 500 :GOTO 600 400 ' COLOR SAVE ---------------------------------------------- 410 PRINT :INPUT " FILE NAME ( 6 ﾓｼﾞ ) :",F$ 420 SCREEN 1,0,0,1 :F2$=F$+".fd1" :GOSUB 500 430 SCREEN 1,0,1,2 :F2$=F$+".fd2" :GOSUB 500 440 SCREEN 1,0,2,4 :F2$=F$+".fd3" :GOSUB 500 :GOTO 600 500 ' ﾍﾝｽｳ ｶｷｺﾐ ---------------------------------------------- 510 OPEN "1:"+F2$ FOR OUTPUT AS #1 520 WRITE #1,F2$,X,Y 530 GET (X1,Y1)-(X2,Y1+Y3-1),A :GOSUB 550 540 GET (X1,Y1+Y3)-(X2,Y2),A :GOSUB 550 :CLOSE #1 :RETURN 550 FOR I=0 TO (INT(N/30)+1)*30-1 STEP 30 560 WRITE #1,A(0+I),A(1+I),A(2+I),A(3+I),A(4+I),A(5+I),A(6+I),A(7+I),A(8+I),A(9+I),A(10+I),A(11+I),A(12+I),A(13+I),A(14+I),A(15+I),A(16+I),A(17+I),A(18+I),A(19+I),A(20+I),A(21+I),A(22+I),A(23+I),A(24+I),A(25+I),A(26+I),A(27+I),A(28+I),A(29+I) 570 NEXT I :RETURN 600 ' END ---------------------------------------------- 610 SCREEN 0,0 :CONSOLE 0,25,1,1 :END 10 ' ================================ 20 ' FUJI LOADER [Ver1.2] 30 ' Fof PC-8800 ｼﾘｰｽﾞ 40 ' 63.1.23 By FUJIWARA 50 ' ================================ 60 ' save "FUJI-L.prg",A 70 ' 100 ' ｼｮｷ ｾｯﾃｲ ------------------------------------------------ 110 CLEAR ,&HE000 :DEFINT A :DIM A(4100) 120 SCREEN 0,0 :CONSOLE 0,25,0,1 :WIDTH 80,20 :CLS 3 150 ' ｼﾞｮｳｹﾝ ｾｯﾃｲ ------------------------------------------------ 160 FILES :PRINT 170 INPUT " C.G TYPE ( 0･･･W/B 1･･･COLOR ):",S :S=S+1 180 INPUT " FILE NAME :",F$ :CLS 190 ON S GOTO 200,300,600 200 ' W/B LOAD ------------------------------------------------ 210 OPEN "1:"+F$+".fd0" FOR INPUT AS #1 220 INPUT #1,F2$,X,Y 230 PRINT :PRINT " C.Gﾉ ｵｵｷｻﾊ ";X;"x";Y;" ﾃﾞｽ " 240 PRINT :INPUT " ﾋｮｳｼﾞ ｲﾁｦ ｼﾃｲｼﾃ ｸﾀﾞｻｲ ･･･ X :",X1 250 INPUT " ･･･ Y :",Y1 255 IF X1>640-X OR Y1>200-Y THEN CLS :GOTO 230 260 PRINT :INPUT " ﾌｫｱ･ｸﾞﾗｳﾝﾄﾞ･ｶﾗｰ ( 0 - 7 ) :",C1 270 INPUT " ﾊﾞｯｸ･ｸﾞﾗｳﾝﾄﾞ･ｶﾗｰ ( 0 - 7 ) :",C2 :CLS 280 GOSUB 500 :PUT (X1,Y1),A,PSET,C1,C2 290 GOSUB 500 :PUT (X1,Y1+Y3),A,PSET,C1,C2 :CLOSE #1 :GOTO 600 300 ' COLOR LOAD ----------------------------------------------- 310 OPEN "1:"+F$+".fd1" FOR INPUT AS #1 320 INPUT #1,F2$,X,Y 330 PRINT " C.Gﾉ ｵｵｷｻﾊ ";X;"x";Y;" ﾃﾞｽ " 340 INPUT " ﾋｮｳｼﾞ ｲﾁｦ ｼﾃｲｼﾃ ｸﾀﾞｻｲ ･･･ X :",X1 350 INPUT " ･･･ Y :",Y1 355 IF X1>640-X OR Y1>200-Y THEN CLS :GOTO 330 360 GOSUB 500 :SCREEN 1,0,0,1 :PUT (X1,Y1),A,PSET 370 GOSUB 500 :PUT (X1,Y1+Y3),A,PSET :CLOSE #1 380 OPEN "1:"+F$+".fd2" FOR INPUT AS #1 390 INPUT #1,F2$,X,Y 400 GOSUB 500 :SCREEN 1,0,1,2 :PUT (X1,Y1),A,PSET 410 GOSUB 500 :PUT (X1,Y1+Y3),A,PSET :CLOSE #1 420 OPEN "1:"+F$+".fd3" FOR INPUT AS #1 430 INPUT #1,F2$,X,Y 440 GOSUB 500 :SCREEN 1,0,2,4 :PUT (X1,Y1),A,PSET 450 GOSUB 500 :PUT (X1,Y1+Y3),A,PSET :CLOSE #1 :GOTO 600 500 ' ﾍﾝｽｳ ｶｸﾉｳ ----------------------------------------------- 510 Y3=INT(Y/2)+1 :N=(((X+7)\8)*Y3*1+4)\2+1 520 FOR I=0 TO (INT(N/30)+1)*30-1 STEP 30 530 INPUT #1,A(0+I),A(1+I),A(2+I),A(3+I),A(4+I),A(5+I),A(6+I),A(7+I),A(8+I),A(9+I),A(10+I),A(11+I),A(12+I),A(13+I),A(14+I),A(15+I),A(16+I),A(17+I),A(18+I),A(19+I),A(20+I),A(21+I),A(22+I),A(23+I),A(24+I),A(25+I),A(26+I),A(27+I),A(28+I),A(29+I) 540 NEXT I :RETURN 600 ' END ----------------------------------------------- 610 SCREEN 0,0 :CONSOLE 0,25,1,1 :END