#11 Article 755 Posted at 1988/01/05 22:14:19 by FUJI (MAP624) [PRG.88]
Subject: Ｃ．Ｇ縮小プログラム２(PC-8801)
2 ' --------------------------------------------
3 ' ｶﾞﾒﾝ ｼｭｸｼｮｳ ﾌﾟﾛｸﾞﾗﾑ (ｾｰﾊﾞｰ) Ver 1.2
4 ' 61.02.10 By FUJI
5 ' --------------------------------------------
6 ' save "1:CG-SA.PR",A
10 ' ｼｮｷ ｾｯﾃｲ
20 DEFINT A-Z :DIM A(483)
30 ' C.G ｼｭｸｼｮｳ
40 FOR I=0 TO 39
50 GET (0,I*5+2)-(639,I*5+2),A : PUT (0,I),A,PSET
60 NEXT I
70 FOR I=0 TO 127
80 GET (I*5+2,0)-(I*5+2,39),A : PUT (I,0),A,PSET
90 NEXT I
100 ' C.G ｾｰﾌﾞ
110 PRINT "***** DATA DISK IN DRIVE 2 *****":PRINT
120 INPUT " INPUT FILE NAME :",FF$
130 GET (0, 0)-(127,19),A
140 B$=HEX$(PEEK(&HEB1E))+HEX$(PEEK(&HEB1D))
150 F$="2:"+FF$+".A" :BSAVE F$,VAL("&H"+B$),&H3DF
160 GET (0,20)-(127,39),A
170 B$=HEX$(PEEK(&HEB1E))+HEX$(PEEK(&HEB1D))
180 F$="2:"+FF$+".B" :BSAVE F$,VAL("&H"+B$),&H3DF
190 END
2 ' --------------------------------------------
3 ' ｶﾞﾒﾝ ｼｭｸｼｮｳ ﾌﾟﾛｸﾞﾗﾑ (ﾛｰﾀﾞｰ) Ver 1.3
4 ' 61.02.10 By FUJI
5 ' --------------------------------------------
6 ' save "1:CG-LO.PR",A
10 '
20 CLEAR,&HB8FF,512 :DEFINT A-Z :DIM A(483)
30 SCREEN 0,2
40 PRINT " *** DATA DISK IN DRIVE 2 ***":FILES 2
50 INPUT "INPUT FILE NAME : ",FF$
60 INPUT "DISPLY (X) : ",X
70 INPUT "DISPLY (Y) : ",Y
80 SCREEN 0,0
100 '
110 B$=HEX$(PEEK(&HEB1E))+HEX$(PEEK(&HEB1D))
120 F$="2:"+FF$+".A":BLOAD F$,VAL("&H"+B$)
130 PUT (X,Y),A,PSET
140 B$=HEX$(PEEK(&HEB1E))+HEX$(PEEK(&HEB1D))
150 F$="2:"+FF$+".B":BLOAD F$,VAL("&H"+B$)
160 PUT (X,Y+20),A,PSET
170 END