home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / fb386 / rex_uty / tiffload.bas < prev    next >
BASIC Source File  |  1992-08-19  |  1KB  |  20 lines
  1. 10 CLEAR ,,512,541072,68192:DEFINT A-Z:TL=4096:EGB=0
  2. 15 LOADM ".\egbcall.rex",EGB:LOADM "tiffload.REX",TL:PRINT 
  3. 20 DIM STACK%(32867),EGBWORK%(1000),GETREG&(10),PARA%(100),PALT%(1025),LBUF%(8191,2):A&=CALLM(EGB,0,VARPTR(STACK%(32867))+1,VARPTR(EGBWORK%(0)),1536)
  4. 30 F$="a:\scr16_1.tif"+CHR$(0):GW&=VARPTR(EGBWORK%(0)):GOSUB *SCMODE:F&=PEEK(VARPTR(F$),4):FOR A=0 TO 17:PRINT CHR$(PEEK(F&+A));:NEXT
  5. 40 A&=CALLM(TL,F&,0,0,16384,16384,VARPTR(LBUF%(0,0)),GW&,VARPTR(PALT%(0)),VARPTR(STACK%(32867))+1,2,0):GOSUB 10130:END
  6. 10000 *SCMODE
  7. 10010 AH=1:AL=1:EDX&=12:'GOSUB *EGB  '256モード以外はテキスト画面はモード3
  8. 10020 SCREEN@ 2:AL=0:GOSUB *EGB    '16色はモード3 (AH,EDX&は230行で設定済)
  9. 10030 'AH=6:AL=1:EDX&=3:GOSUB *EGB  '両ページ表示/手前をページ1に
  10. 10040 AH=5:AL=0:GOSUB *EGB         '書き込みページを0(グラフィック画面)に
  11. 10050 RETURN
  12. 10060 '
  13. 10070 'EGB実行部(変数が破壊される事は無い)
  14. 10080 '
  15. 10090 *EGB
  16. 10100 A&=CALLM(EGB,AH,AL,EBX&,ECX&,EDX&,ESI&,RET&)
  17. 10110 IF A&<>0 THEN BEEP:PRINT "EGBの実行に失敗しました":END
  18. 10120 RETURN
  19. 10130 PRINT HEX$(A&):FOR A=0 TO 17:PRINT CHR$(PEEK(A&+A));:NEXT:PRINT :FOR A=0 TO 17:PRINT CHR$(PEEK(F&+A));:NEXT:RETURN
  20.