• TOP /
• BBS /
• #11 旧 CG・技術 /
• Article 493

• Older
• Newer

#11 Article 493 Posted at 1987/10/13 21:18:12 by Ami (MAP404) [PRG.CHI]

Subject: ﾁｬｲ ﾛｰﾀﾞ for FM-11/OS-9

PROCEDURE Cloader
(* CLoader by ﾁｬｲ   Ver.1.0
(* 640*200*1   for PC-9801
(* convert for OS-9/Basic09 640*400 by S.H
(* 

BASE 0

DIM x,x2,y,y2:INTEGER
DIM ipath:INTEGER
DIM a,ap,i,ii,C(6):INTEGER
DIM ta:STRING[1]
DIM filename:STRING[32]

ON ERROR GOTO 999
PRINT "         *** ﾁｬｲ ﾛｰﾀﾞ ver 1.0 **"
PRINT 
INPUT "Data path :",filename
RUN CLS
RUN LOCATE(0,0,0) \(* cursor off *)
x:=0 \y:=0
OPEN #ipath,filename:READ
REPEAT
 GET #ipath,ta
UNTIL ASC(ta)>=$30
ap:=ASC(ta)-$30
FOR i:=0 TO 5
 REPEAT
  GET #ipath,ta
 UNTIL ASC(ta)>=$20
 C(i):=ASC(ta)-$20
NEXT i
FOR i:=0 TO 5
 ii:=LAND(ap,2^i)
 IF ii=0 THEN 
  a:=0
 ELSE 
  a:=1
 ENDIF 
 x2:=x+C(i)+1
 y2:=y+y
 RUN LINE(x,y2,x2,y2,0,a)
 x:=x+C(i)+1
 IF x>639 THEN 
  IF y<199 THEN 
   y:=y+1
   x:=x-640
   y2:=y+y
   RUN LINE(0,y2,x,y2,0,a)
  ELSE 
   x:=639
  ENDIF 
 ENDIF 
NEXT i
IF x<639 OR y<199 THEN 
 GOTO 140
ENDIF 
CLOSE #ipath
GET #0,ta
999 
RUN LOCATE(0,0,1) \(* cursor on *)
END