home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 3 / FreeSoftwareCollection3pd199x-jp.img / fb386 / 32k2pxx / demo.bas < prev    next >
BASIC Source File  |  1980-01-02  |  1KB  |  30 lines
  1. 1000 CLS
  2. 1010 SCREEN@1
  3. 1020 PRINT "３万色原画像（ＣＧ画像）"
  4. 1030 LOAD@"tst1.tif"
  5. 1040 I=0:WHILE I<3000 AND INKEY$="":I=I+1:WEND
  6. 1050 SCREEN@0:PRINT "２値化画像"
  7. 1060 COLOR ,7,0:LOAD@"tst1_82.tif":COLOR ,0,7
  8. 1070 I=0:WHILE I<3000 AND INKEY$="":I=I+1:WEND
  9. 1080 CLS:PRINT "モノクロ１６階調（疑似４８階調）画像"
  10. 1090 LOAD@"tst1_62.tif"
  11. 1100 I=0:WHILE I<3000 AND INKEY$="":I=I+1:WEND
  12. 1110 SCREEN@2:PRINT "モノクロ２５６階調画像"
  13. 1120 LOAD@"tst1_42.tif"
  14. 1130 LOCATE 0,0:PRINT "モノクロ２５６階調画像"
  15. 1140 I=0:WHILE I<3000 AND INKEY$="":I=I+1:WEND
  16. 1150 SCREEN@1,1,(100,100)
  17. 1160 LOCATE 26,3:PRINT "３万色原画像（取込画像）"
  18. 1170 LOAD@"tst2.tif",(80,0)
  19. 1180 I=0:WHILE I<3000 AND INKEY$="":I=I+1:WEND
  20. 1190 SCREEN@0:LOCATE 29,3:PRINT "デジタル８色化画像"
  21. 1200 LOAD@"tst2_7.tif",(180,100)
  22. 1210 I=0:WHILE I<3000 AND INKEY$="":I=I+1:WEND
  23. 1220 SCREEN@2:LOCATE 25,3:PRINT "固定パレット２５６色化画像"
  24. 1230 LOAD@"tst2_3.tif",(180,100)
  25. 1240 I=0:WHILE I<3000 AND INKEY$="":I=I+1:WEND
  26. 1250 CLS:LOCATE 29,3:PRINT "最適化２５６色画像"
  27. 1260 LOAD@"tst2_1.tif",(180,100)
  28. 1270 I=0:WHILE I<3000 AND INKEY$="":I=I+1:WEND
  29. 1280 RUN
  30.