home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / fb386 / sprplay / sprget2.bas < prev    next >
BASIC Source File  |  1980-01-02  |  1KB  |  35 lines
  1. 10 '****************************************************************
  2. 20 '**　  ＢＡＳＩＣ の ＤＡＴＡ文形式のデ－タより、スプライトを  **
  3. 30 '**　読み込み，定義をするプログラムです。                      **
  4. 40 '**　　デ－タファイルをマ－ジしてから起動して下さい。          **
  5. 50 '****************************************************************
  6. 60 '
  7. 70  CLS
  8. 80  CLEAR 
  9. 90  SCREEN@ 1 : DIM A%(800)
  10. 100  XPP=0 : YPP=0 : SPP=4 : TPP=0
  11. 110  COLOR 3
  12. 120  LOCATE 35,23
  13. 130  PRINT "読み込み中です。しばらくお待ち下さい。"
  14. 140  READ XKAI,YKAI
  15. 150  FOR JY=0 TO YKAI-1
  16. 160    YP=YP+15*JY
  17. 170    XP=XPP
  18. 180    FOR JX=0 TO XKAI-1
  19. 190      FOR I=0 TO 255
  20. 200        READ A%(I)
  21. 230      NEXT I
  22. 240    DEF SPRITE 0,SPP,A%,1
  23. 250    SPP=SPP+4
  24. 260    NEXT JX
  25. 270  NEXT JY
  26. 280 '
  27. 290  LOCATE 2,3
  28. 300  INPUT "サンプル（S）　、外部プログラム名 ";GFLL$
  29. 310  IF GFLL$="S" OR GFLL$="s" THEN GFLL$="SPRDM1"
  30. 320  CHAIN GFLL$,10000,ALL
  31. 330 END
  32. 340 '
  33. 350 '------------------------------------------------------------------
  34. 39990 '  DATA 8,8
  35.