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