home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / run_run / neko.bas < prev    next >
BASIC Source File  |  1980-01-02  |  2KB  |  67 lines
  1. 1000 '*****************************************************************
  2. 2000 '　  　　　   　   　　  ねこるんちゃん  
  3. 3000 '　   　－－－－－－－－－－－－－－－－－－－－－－－－－　　　　　
  4. 4000 '　　　　　　            　林　泰　志　
  5. 5000 '　　　　　  　　　  　  1991.1.29 作成
  6. 6000 '　   　－－－－－－－－－－－－－－－－－－－－－－－－－
  7. 7000 '　　　開発機材: FM-TOWNS M1 + 3Mbyte-RAM/VCARD2/HDD401
  8. 8000 '                Nikon F2 + MD2 (35mm f2.5)KR-64
  9. 9000 '*****************************************************************
  10. 10000 '
  11. 11000 SCREEN@ 0
  12. 12000 CLS
  13. 13000 FOR I=0 TO 15
  14. 14000 PALETTE I,[0,0,0],1 :NEXT I
  15. 15000 LOAD@ "NEKOTOP.TIF",(0,0)
  16. 16000 FOR A=0 TO 125
  17. 17000 PALETTE 2,[0,A,0],0
  18. 18000 PALETTE 3,[A,0,A],0
  19. 19000 PALETTE 5,[0,A,A],0
  20. 20000   FOR W=0 TO 70
  21. 21000   NEXT W
  22. 22000 NEXT A
  23. 23000   FOR Q=0 TO 20000   '文字待ち
  24. 24000   NEXT Q
  25. 25000 FOR A=0 TO 255
  26. 26000 IF  A>100 GOTO 28000
  27. 27000 PALETTE 7,[A,A,A],0
  28. 28000 PALETTE 10,[0,A,0],0
  29. 29000 PALETTE 11,[0,A,A],0
  30. 30000 PALETTE 15,[A,A,A],0
  31. 31000 'NEXT Z
  32. 32000 '  NEXT W
  33. 33000  FOR W=0 TO 70
  34. 34000   NEXT W
  35. 35000 NEXT A
  36. 36000 FOR W=0 TO 50000
  37. 36500 NEXT W
  38. 37000 FOR A=0 TO 255
  39. 38000 S=255-A : D=125-A :C=100-A
  40. 38500 IF D<0 GOTO 40000
  41. 39000 PALETTE 2,[0,D,0],0
  42. 39100 PALETTE 3,[0,D,D],0
  43. 39200 PALETTE 5,[D,0,D],0
  44. 39250 IF C<0 GOTO 40000
  45. 39300 PALETTE 7,[C,C,C],0
  46. 40000 PALETTE 10,[0,S,0],0
  47. 41000 PALETTE 11,[0,S,S],0
  48. 42000 PALETTE 15,[S,S,S],0
  49. 43000  FOR W=0 TO 70
  50. 44000   NEXT W
  51. 45000 NEXT A
  52. 46000 SCREEN@ 1,0
  53. 47000 LOAD@ "NEKO1.TIF"',(100,100)
  54. 48000 FOR W=O TO 50000
  55. 49000 NEXT W
  56. 50000 LOAD@ "NEKO2.TIF"',(100,100)
  57. 51000 FOR W=O TO 50000
  58. 52000 NEXT W
  59. 53000 LOAD@ "NEKO3.TIF"',(100,100)
  60. 53100 FOR W=0 TO 50000
  61. 53200 NEXT W
  62. 54000 SCREEN@ 0
  63. 55000 LOAD@ "NEKOEND.TIF"
  64. 56000 FOR W=0 TO 50000
  65. 57000 NEXT W
  66. 58000 SYSTEM
  67.