home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 2
/
FreeSoftwareCollection2pd199x-jp.img
/
io_rex
/
view.bas
< prev
Wrap
BASIC Source File
|
1990-06-14
|
902b
|
30 lines
10000 '
10010 '<<< F-BASIC386で作ったVIEW.COM >>>
10020 '
10030 CLEAR ,,,,256
10040 LOADM "IO.REX",0
10050 OUTB&=&H00 : OUTW&=&H0A : INB=&H15 : INW=&H1E
10060 '
10070 SCREEN@ 1 : CLS 1 : LOAD@ "Q:\EARTH\TIK10.TIF"
10080 '<<< MAIN ROUTINE >>>
10090 BX=1 : CX&=0 : CY&=0
10100 FOR I=0 TO 8 : READ DX(I),DY(I) : NEXT I
10110 DATA 0,0,0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1
10120 *トリガ
10130 ON PTRIG(1) GOTO *拡大,*縮小,*方向ボタン,*終了
10140 *方向ボタン
10150 DIREC=PAD(1)
10160 CX&=(CX&+DX(DIREC)) AND 255 : CY&=(CY&+DY(DIREC)) AND 255
10170 CALLM OUTB&,&H440,17 : CALLM OUTB&,&H442,CX& : CALLM OUTB&,&H443,CY&
10180 GOTO *トリガ
10190 *終了 : END
10200 '
10210 *拡大
10220 IF BX<15 THEN BX=BX+1
10230 GOTO *ZOOM
10240 *縮小
10250 IF BX>0 THEN BX=BX-1
10260 *ZOOM
10270 A&=BX*&H11 : CALLM OUTB&,&H440,27 : CALLM OUTB&,&H442,A&
10280 FOR T=1 TO 200 : NEXT T : GOTO *トリガ