home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / run_run / get.bas < prev    next >
BASIC Source File  |  1980-01-02  |  593b  |  23 lines
  1. 100 AX=ABS(150)+1
  2. 200 AY=ABS(180)+1
  3. 300 A=2
  4. 400 SIZEZ=INT((2*AX*AY+(A-1))/A)
  5. 500 DIM DIZ(SIZEZ)
  6. 550 SCREEN@ 1,1
  7. 600 LOAD@ "hangu1.tif"
  8. 700 GET@A (0,0)-(150,180),DIZ
  9. 800 SAVE@ "paint32\hangu.dat",DIZ
  10. 900 'LOAD@ "hangu1.tif"
  11. 1000 'GET@A(0,0)-(150,180),DIz
  12. 1100 'SAVE "paint32\hangu1.dat",DIz
  13. 1200 LOAD@ "mii1.tif"
  14. 1300 GET@A(0,0)-(150,180),DIZ
  15. 1400 SAVE@ "paint32\mii.dat",DIZ
  16. 1500 LOAD@ "sea1.tif"
  17. 1600 GET@A(0,0)-(150,180),DIZ
  18. 1700 SAVE@ "paint32\sea.dat",DIZ
  19. 1800 LOAD@ "car1.tif"
  20. 1900 GET@A(0,0)-(150,180),DIZ
  21. 2000 SAVE@ "paint32\car.dat",DIZ
  22. 9600 `LOAD@ "\hangu1.tif"
  23.