home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 3 / FreeSoftwareCollection3pd199x-jp.img / fb386 / mosaic1 / mosaic.bas < prev    next >
BASIC Source File  |  1980-01-02  |  1KB  |  48 lines
  1. 1000 '
  2. 1001 '         モザイク表示プログラム
  3. 1010 '                         平成２年４月２９日　作成
  4. 1011 '　　　
  5. 1012 '　　　　Ｓｔｕｄｉｏ　Ｋ＆Ｍ
  6. 1013 '                      長太郎 
  7. 1014 '
  8. 1015 '
  9. 1016 CLEAR,,256,768,4096
  10. 1020 LOADM"d_thru.rex",0
  11. 1030 LOADM"mosaic.rex",256
  12. 1040 LOADM"out.rex",512
  13. 1050 HDS0%=&H00E7:HDE0%=&H05E7
  14. 1060 VDS0%=&H002A:VDE0%=&H020A
  15. 1070 ZOOM%=&H00101
  16. 1080 '
  17. 1090 CLS:SCREEN@ 1:SIMPOSE ON
  18. 1110 CALLM 512,&H448,&H01
  19. 1120 CALLM 512,&H44A,&H00
  20. 1130 CALLM 512,&HFDA0,&H0F
  21. 1140 CALLM 0
  22. 1150 MOUSE 0
  23. 1160 MOUSE 1,160,120,0
  24. 1170 MOUSE 4,0,0,319,239
  25. 1180 XB=0 : YB=0
  26. 1200 '
  27. 1210 *LOOP
  28. 1220 IN$=INKEY$
  29. 1230 IF IN$=CHR$(&H1C) THEN  :XB=XB+16:IF XB>640 THEN XB=640
  30. 1240 IF IN$=CHR$(&H1D) THEN  :XB=XB-16:IF XB<0   THEN XB=0
  31. 1250 IF IN$=CHR$(&H1E) THEN  :YB=YB+8 :IF YB>240 THEN YB=240
  32. 1260 IF IN$=CHR$(&H1F) THEN  :YB=YB-8 :IF YB<0   THEN YB=0
  33. 1280 IF MOUSE(2,0) AND MOUSE(2,1) THEN SYSTEM
  34. 1290 X1=MOUSE(0)*4-XB+&H00E7
  35. 1300 X2=MOUSE(0)*4+XB+&H00E7
  36. 1310 Y1=MOUSE(1)*2-YB+&H002A
  37. 1320 Y2=MOUSE(1)*2+YB+&H002A
  38. 1330 IF IN$="0" THEN ZOOM%=&H0101
  39. 1331 IF IN$="1" THEN ZOOM%=&H0117
  40. 1332 IF IN$="2" THEN ZOOM%=&H013F
  41. 1333 IF IN$="3" THEN ZOOM%=&H017F
  42. 1340 IF X1<&H00E7 THEN HDS0%=&H00E7 ELSE HDS0%=X1
  43. 1350 IF X2>&H05E7 THEN HDE0%=&H05E7 ELSE HDE0%=X2
  44. 1360 IF Y1<&H002A THEN VDS0%=&H002A ELSE VDS0%=Y1
  45. 1370 IF Y2>&H020A THEN VDE0%=&H020A ELSE VDE0%=Y2
  46. 1380 CALLM 256,HDS0%,HDE0%,VDS0%,VDE0%,HDS0%,ZOOM%
  47. 1390 GOTO *LOOP
  48.