home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / run_run / run.bas < prev    next >
BASIC Source File  |  1980-01-02  |  13KB  |  478 lines
  1. 10 '*****************************************************************
  2. 20 '　  　　　   　     るんるんホリディ  Ｖ１．０
  3. 30 '　   　－－－－－－－－－－－－－－－－－－－－－－－－－　　　　　
  4. 40 '　　　　　　            　林　泰　志　
  5. 50 '　　　　　　　　  　  1990.5.5//8 作成
  6. 60 '　   　－－－－－－－－－－－－－－－－－－－－－－－－－
  7. 70 '　　　開発機材: FM-TOWNS M1 + 2Mbyte-RAM/VCARD2/HDD401
  8. 80 '                Nikon F2 + MD2 (180mm f2.8/35mm f2.5)KR-64
  9. 90 '*****************************************************************
  10. 100 '
  11. 200 SCREEN@ 0
  12. 300 CLS
  13. 400 FOR I=0 TO 15
  14. 500 PALETTE I,[0,0,0],1 :NEXT I
  15. 600 'CLS
  16. 700 'CLS
  17. 800 'CLS
  18. 900 'CLS
  19. 1000 'CLS
  20. 1100 'CLS
  21. 1200 LOAD@ "PAINT16\TULIP.TIF",(0,0)
  22. 1300 FOR A=0 TO 255
  23. 1400 PALETTE 10,[0,A,0],0
  24. 1500 PALETTE 12,[A,0,0],0
  25. 1600 PALETTE 14,[A,A,0],0
  26. 1700 PALETTE 9,[0,0,A],0
  27. 1800  FOR W=0 TO 10
  28. 1900   NEXT W
  29. 2000 NEXT A
  30. 2100 J=0
  31. 2200 FOR T=0 TO 170 
  32. 2300 PALETTE 7,[T,T,T],0
  33. 2400  IF J>140 THEN GOTO 2900
  34. 2500  PALETTE 5,[0,J,J],0
  35. 2600  J=J+1
  36. 2700  'PALETTE 5,[J,0,J],0
  37. 2800  'PALETTE 5,[J,0,J],0
  38. 2900 NEXT T
  39. 3000 W=0
  40. 3100 W=0 : FOR W=0 TO 40000
  41. 3200 NEXT W
  42. 3300 FOR A=0 TO 255
  43. 3400 S=255-A
  44. 3500 PALETTE 10,[0,S,0],0
  45. 3600 PALETTE 12,[S,0,0],0
  46. 3700 PALETTE 14,[S,S,0],0
  47. 3800 PALETTE 9,[0,0,S],0
  48. 3900  FOR W=0 TO 10
  49. 4000   NEXT W
  50. 4100 NEXT A
  51. 4200 J=0
  52. 4300 FOR T=0 TO 170 
  53. 4400 R=170-T
  54. 4500 PALETTE 7,[R,R,R],0
  55. 4600  IF J>140 THEN GOTO 5000
  56. 4700  H=140-J
  57. 4800  PALETTE 5,[0,H,H],0
  58. 4900  J=J+1
  59. 5000 NEXT T
  60. 5100 'PRINT "表示したぞ!!"
  61. 5200 FOR W=0 TO 1000
  62. 5300 NEXT W
  63. 5400 CLS
  64. 5500 FOR P=0 TO 255
  65. 5600   FOR Z=0 TO 15
  66. 5700    PALETTE Z,[P,P,P],0
  67. 5800   NEXT Z
  68. 5900 '      FOR W=0 TO 10
  69. 6000 '      NEXT W
  70. 6100 NEXT P
  71. 6200 LOAD@ "paint16\top.tif"
  72. 6300 T=0:R=0:K=0:Q=0
  73. 6400 FOR S=0 TO 255
  74. 6500   P=255-S
  75. 6600   PALETTE 14,[255,255,P],0
  76. 6700   PALETTE 13,[255,P,255],0
  77. 6800   PALETTE 12,[255,P,P],0
  78. 6900   PALETTE 11,[P,255,255],0
  79. 7000   PALETTE 10,[P,255,P],0
  80. 7100   PALETTE 9,[P,P,255],0
  81. 7200   IF R>50 THEN GOTO 7600
  82. 7300   T=255-R
  83. 7400   PALETTE 7,[T,T,T],0
  84. 7500   R=R+1
  85. 7600   IF Q>200 THEN GOTO 8100
  86. 7700   K=255-Q
  87. 7800   PALETTE 8,[K,K,255],0
  88. 7900   Q=Q+1
  89. 8000  ' PALETTE 6,[P,P,P],0
  90. 8100 NEXT S
  91. 8200 MOUSE 0
  92. 8300 MOUSE 1,60,60,1
  93. 8400 MOUSE 4,179,119,457,357
  94. 8500 'GOTO 8000
  95. 8600 'X=MOUSE(4,0)
  96. 8700 'Y=MOUSE(5,0)
  97. 8800 'PRINT ""X","Y""
  98. 8900 'GOTO 8200
  99. 9000 H=MOUSE(2,0)
  100. 9100 IF H=-1 THEN GOTO 9400
  101. 9200 GOTO 9000
  102. 9300 'アプリケーションに処理を移します｡
  103. 9400 'PRINT "タイトル処理は終了しました｡おめでとうございます!!｡"
  104. 9500 '************************************************'
  105. 9600 '画面32
  106. 9700 'CLS
  107. 9800 SCREEN@ 1
  108. 9801 'QX1=0 : QY1=0 : QX2=319 : QY2=239 
  109. 9802 'QX=ABS(QX1-QX2)+1
  110. 9803 'QY=ABS(QY1-QY2)+1
  111. 9804 'A=2
  112. 9805 'SIZEA=INT((2*QX*QY+(A+1))/A)
  113. 9806 'DIM M(SIZEA)
  114. 9900 LOAD@ "paint32\mat.TIF",(0,0)
  115. 9901 'PUT@A (0,0)-(319,239),DD
  116. 10000 LOAD@ "paint32\system.tif",(50,40)
  117. 10100 QX1=0 : QY1=0 : QX2=150 : QY2=180 :GX1=0 : GY1=0 : GX2=59 : GY2=74
  118. 10200 GX=ABS(GX1-GX2)+1 : QX=ABS(QX1-QX2)+1
  119. 10300 GY=ABS(GY1-GY2)+1 : QY=ABS(QY1-QY2)+1
  120. 10400 A=2
  121. 10500 SIZE=INT((2*GX*GY+(A+1))/A) : SIZEA=INT((2*QX*QY+(A+1))/A)
  122. 10600 DIM DI1(SIZE)
  123. 10700 DIM DI2(SIZE)
  124. 10800 DIM DI3(SIZE)
  125. 10900 DIM DI4(SIZE)
  126. 11000 DIM DI5(SIZE)
  127. 11100 DIM DI6(SIZE)
  128. 11200 DIM DI7(SIZE)
  129. 11300 DIM DI8(SIZE)
  130. 11400 DIM DI9(SIZE)
  131. 11500 DIM DI10(SIZE)
  132. 11600 DIM DIA(SIZEA)
  133. 11700 '*********************************
  134. 11800 MOUSE 5 
  135. 11900 MOUSE 0
  136. 12000 MOUSE 1,60,60,1
  137. 12100 MOUSE 4,51,53,153,166  'システムウインドウのマウス範囲指定
  138. 12200 LP=MOUSE(5,0)
  139. 12300 'PRINT ""LP""
  140. 12400 IF LP<65 GOTO 13000
  141. 12500 IF LP<81 GOTO 13100
  142. 12600 IF LP<96 GOTO 21400
  143. 12700 IF LP<117 GOTO 29500
  144. 12800 IF LP<135 GOTO 37600
  145. 12900 IF LP<158 GOTO 45700   '終了
  146. 13000 GOTO 12100              'システムウインドウのマウスプーリング
  147. 13100 'PRINT "了解しました"
  148. 13200 '********************************アニメウインドウの表示
  149. 13300 '********************************ハングルアニメ
  150. 13400 LOAD@ "paint32\hangu.dat",DIA
  151. 13500 AX1=130 : AY1=20 : AX2=280 :AY2=200 
  152. 13600 PUT@A (AX1,AY1)-(AX2,AY2),DIA
  153. 13700 LOAD@ "paint32\h11.dat",DI1
  154. 13800 X1=143 : Y1=32 : X2=202 : Y2=106 : W=400
  155. 13900 PUT@A (X1,Y1)-(X2,Y2),DI1
  156. 14000 MOUSE 4,133,23,276,197  'システムウインドウのマウス範囲指定
  157. 14100 LOAD@ "paint32\h12.dat",DI2
  158. 14200 LOAD@ "paint32\h13.dat",DI3
  159. 14300 LOAD@ "paint32\h14.dat",DI4
  160. 14400 LOAD@ "paint32\h15.dat",DI5
  161. 14500 LOAD@ "paint32\h16.dat",DI6
  162. 14600 LOAD@ "paint32\h17.dat",DI7
  163. 14700 LOAD@ "paint32\h18.dat",DI8
  164. 14800 LOAD@ "paint32\h19.dat",DI9
  165. 14900 LOAD@ "paint32\h20.dat",DI10
  166. 15000 '***マウスプーリング*******
  167. 15100 YP=MOUSE(5,0)
  168. 15200 XP=MOUSE(4,0)
  169. 15300 'PRINT ""XP","YP""
  170. 15400 IF XP>143 THEN IF XP<201 THEN IF YP>32 THEN IF YP<105 THEN GOTO 16000
  171. 15500 IF XP>239 THEN IF XP<270 THEN IF YP>176 THEN IF YP<194 THEN GOTO 15700
  172. 15600 GOTO 15100              'システムウインドウのマウスプーリング
  173. 15700 LOAD@ "paint32\system.tif",(50,40)
  174. 15800 GOTO 12100
  175. 15900 '*********************************************画像表示
  176. 16000 'X1=163 : Y1=32 : X2=222 : Y2=106 : W=400
  177. 16100 'YP=0 : XP=0
  178. 16200 PUT@A (X1,Y1)-(X2,Y2),DI1
  179. 16300 FOR Y=0 TO W
  180. 16400 '
  181. 16500 '
  182. 16600 'NEXT
  183. 16700 PUT@A (X1,Y1)-(X2,Y2),DI2
  184. 16800 FOR Y=0 TO W
  185. 16900 '
  186. 17000 '
  187. 17100 PUT@A (X1,Y1)-(X2,Y2),DI3
  188. 17200 FOR Y=0 TO W
  189. 17300 '
  190. 17400 '
  191. 17500 NEXT
  192. 17600 PUT@A (X1,Y1)-(X2,Y2),DI4
  193. 17700 FOR Y=0 TO W
  194. 17800 '
  195. 17900 '
  196. 18000 NEXT
  197. 18100 PUT@A (X1,Y1)-(X2,Y2),DI5
  198. 18200 FOR Y=0 TO W
  199. 18300 '
  200. 18400 '
  201. 18500 NEXT
  202. 18600 PUT@A (X1,Y1)-(X2,Y2),DI6
  203. 18700 FOR Y=0 TO W
  204. 18800 '
  205. 18900 '
  206. 19000 NEXT
  207. 19100 PUT@A (X1,Y1)-(X2,Y2),DI7
  208. 19200 FOR Y=0 TO W
  209. 19300 '
  210. 19400 '
  211. 19500 NEXT
  212. 19600 PUT@A (X1,Y1)-(X2,Y2),DI8
  213. 19700 FOR Y=0 TO W
  214. 19800 '
  215. 19900 '
  216. 20000 NEXT
  217. 20100 PUT@A (X1,Y1)-(X2,Y2),DI9
  218. 20200 FOR Y=0 TO W
  219. 20300 '
  220. 20400 '
  221. 20500 NEXT
  222. 20600 PUT@A (X1,Y1)-(X2,Y2),DI10
  223. 20700 FOR Y=0 TO W
  224. 20800 '
  225. 20900 NEXT Y
  226. 21000 YP=MOUSE(5,0)
  227. 21100 XP=MOUSE(4,0)
  228. 21200 IF XP>143 THEN IF XP<201 THEN IF YP>107 THEN IF YP<120 THEN GOTO 15100
  229. 21300 GOTO 16200
  230. 21400 '********************************mii
  231. 21500 LOAD@ "paint32\mii.dat",DIA
  232. 21600 AX1=130 : AY1=20 : AX2=280 :AY2=200 
  233. 21700 PUT@A (AX1,AY1)-(AX2,AY2),DIA
  234. 21800 LOAD@ "paint32\m31.dat",DI1
  235. 21900 X1=143 : Y1=32 : X2=202 : Y2=106 : W=400
  236. 22000 PUT@A (X1,Y1)-(X2,Y2),DI1
  237. 22100 MOUSE 4,133,23,276,197  'システムウインドウのマウス範囲指定
  238. 22200 LOAD@ "paint32\m32.dat",DI2
  239. 22300 LOAD@ "paint32\m33.dat",DI3
  240. 22400 LOAD@ "paint32\m34.dat",DI4
  241. 22500 LOAD@ "paint32\m35.dat",DI5
  242. 22600 LOAD@ "paint32\m36.dat",DI6
  243. 22700 LOAD@ "paint32\m37.dat",DI7
  244. 22800 LOAD@ "paint32\m38.dat",DI8
  245. 22900 LOAD@ "paint32\m39.dat",DI9
  246. 23000 LOAD@ "paint32\m40.dat",DI10
  247. 23100 '***マウスプーリング*******
  248. 23200 YP=MOUSE(5,0)  'a
  249. 23300 XP=MOUSE(4,0)
  250. 23400 'PRINT ""XP","YP""
  251. 23500 IF XP>143 THEN IF XP<201 THEN IF YP>32 THEN IF YP<105 THEN GOTO 24100 'b
  252. 23600 IF XP>239 THEN IF XP<270 THEN IF YP>176 THEN IF YP<194 THEN GOTO 23800 'c
  253. 23700 GOTO 23200              'システムウインドウのマウスプーリング 'a
  254. 23800 LOAD@ "paint32\system.tif",(50,40) 'c
  255. 23900 GOTO 12100
  256. 24000 '*********************************************画像表示
  257. 24100 'X1=163 : Y1=32 : X2=222 : Y2=106 : W=400 'b
  258. 24200 'YP=0 : XP=0
  259. 24300 PUT@A (X1,Y1)-(X2,Y2),DI1 'd
  260. 24400 FOR Y=0 TO W
  261. 24500 '
  262. 24600 '
  263. 24700 'NEXT
  264. 24800 PUT@A (X1,Y1)-(X2,Y2),DI2
  265. 24900 FOR Y=0 TO W
  266. 25000 '
  267. 25100 '
  268. 25200 PUT@A (X1,Y1)-(X2,Y2),DI3
  269. 25300 FOR Y=0 TO W
  270. 25400 '
  271. 25500 '
  272. 25600 NEXT
  273. 25700 PUT@A (X1,Y1)-(X2,Y2),DI4
  274. 25800 FOR Y=0 TO W
  275. 25900 '
  276. 26000 '
  277. 26100 NEXT
  278. 26200 PUT@A (X1,Y1)-(X2,Y2),DI5
  279. 26300 FOR Y=0 TO W
  280. 26400 '
  281. 26500 '
  282. 26600 NEXT
  283. 26700 PUT@A (X1,Y1)-(X2,Y2),DI6
  284. 26800 FOR Y=0 TO W
  285. 26900 '
  286. 27000 '
  287. 27100 NEXT
  288. 27200 PUT@A (X1,Y1)-(X2,Y2),DI7
  289. 27300 FOR Y=0 TO W
  290. 27400 '
  291. 27500 '
  292. 27600 NEXT
  293. 27700 PUT@A (X1,Y1)-(X2,Y2),DI8
  294. 27800 FOR Y=0 TO W
  295. 27900 '
  296. 28000 '
  297. 28100 NEXT
  298. 28200 PUT@A (X1,Y1)-(X2,Y2),DI9
  299. 28300 FOR Y=0 TO W
  300. 28400 '
  301. 28500 '
  302. 28600 NEXT
  303. 28700 PUT@A (X1,Y1)-(X2,Y2),DI10
  304. 28800 FOR Y=0 TO W
  305. 28900 '
  306. 29000 NEXT Y
  307. 29100 YP=MOUSE(5,0)
  308. 29200 XP=MOUSE(4,0)
  309. 29300 IF XP>143 THEN IF XP<201 THEN IF YP>107 THEN IF YP<120 THEN GOTO 23200 'a
  310. 29400 GOTO 24300 'd
  311. 29500 '********************************sea
  312. 29600 LOAD@ "paint32\sea.dat",DIA
  313. 29700 AX1=130 : AY1=20 : AX2=280 :AY2=200 
  314. 29800 PUT@A (AX1,AY1)-(AX2,AY2),DIA
  315. 29900 LOAD@ "paint32\s1.dat",DI1
  316. 30000 X1=143 : Y1=32 : X2=202 : Y2=106 : W=400
  317. 30100 PUT@A (X1,Y1)-(X2,Y2),DI1
  318. 30200 MOUSE 4,133,23,276,197  'システムウインドウのマウス範囲指定
  319. 30300 LOAD@ "paint32\s2.dat",DI2
  320. 30400 LOAD@ "paint32\s3.dat",DI3
  321. 30500 LOAD@ "paint32\s4.dat",DI4
  322. 30600 LOAD@ "paint32\s5.dat",DI5
  323. 30700 LOAD@ "paint32\s6.dat",DI6
  324. 30800 LOAD@ "paint32\s7.dat",DI7
  325. 30900 LOAD@ "paint32\s8.dat",DI8
  326. 31000 LOAD@ "paint32\s9.dat",DI9
  327. 31100 LOAD@ "paint32\s10.dat",DI10
  328. 31200 '***マウスプーリング*******
  329. 31300 YP=MOUSE(5,0)  'a
  330. 31400 XP=MOUSE(4,0)
  331. 31500 'PRINT ""XP","YP""
  332. 31600 IF XP>143 THEN IF XP<201 THEN IF YP>32 THEN IF YP<105 THEN GOTO 32200 'b
  333. 31700 IF XP>239 THEN IF XP<270 THEN IF YP>176 THEN IF YP<194 THEN GOTO 31900 'c
  334. 31800 GOTO 31300              'システムウインドウのマウスプーリング 'a
  335. 31900 LOAD@ "paint32\system.tif",(50,40) 'c
  336. 32000 GOTO 12100
  337. 32100 '*********************************************画像表示
  338. 32200 'X1=163 : Y1=32 : X2=222 : Y2=106 : W=400 'b
  339. 32300 'YP=0 : XP=0
  340. 32400 PUT@A (X1,Y1)-(X2,Y2),DI1 'd
  341. 32500 FOR Y=0 TO W
  342. 32600 '
  343. 32700 '
  344. 32800 'NEXT
  345. 32900 PUT@A (X1,Y1)-(X2,Y2),DI2
  346. 33000 FOR Y=0 TO W
  347. 33100 '
  348. 33200 '
  349. 33300 PUT@A (X1,Y1)-(X2,Y2),DI3
  350. 33400 FOR Y=0 TO W
  351. 33500 '
  352. 33600 '
  353. 33700 NEXT
  354. 33800 PUT@A (X1,Y1)-(X2,Y2),DI4
  355. 33900 FOR Y=0 TO W
  356. 34000 '
  357. 34100 '
  358. 34200 NEXT
  359. 34300 PUT@A (X1,Y1)-(X2,Y2),DI5
  360. 34400 FOR Y=0 TO W
  361. 34500 '
  362. 34600 '
  363. 34700 NEXT
  364. 34800 PUT@A (X1,Y1)-(X2,Y2),DI6
  365. 34900 FOR Y=0 TO W
  366. 35000 '
  367. 35100 '
  368. 35200 NEXT
  369. 35300 PUT@A (X1,Y1)-(X2,Y2),DI7
  370. 35400 FOR Y=0 TO W
  371. 35500 '
  372. 35600 '
  373. 35700 NEXT
  374. 35800 PUT@A (X1,Y1)-(X2,Y2),DI8
  375. 35900 FOR Y=0 TO W
  376. 36000 '
  377. 36100 '
  378. 36200 NEXT
  379. 36300 PUT@A (X1,Y1)-(X2,Y2),DI9
  380. 36400 FOR Y=0 TO W
  381. 36500 '
  382. 36600 '
  383. 36700 NEXT
  384. 36800 PUT@A (X1,Y1)-(X2,Y2),DI10
  385. 36900 FOR Y=0 TO W
  386. 37000 '
  387. 37100 NEXT Y
  388. 37200 YP=MOUSE(5,0)
  389. 37300 XP=MOUSE(4,0)
  390. 37400 IF XP>143 THEN IF XP<201 THEN IF YP>107 THEN IF YP<120 THEN GOTO 31300 'a
  391. 37500 GOTO 32400 'd
  392. 37600 '********************************car
  393. 37700 LOAD@ "paint32\car.dat",DIA
  394. 37800 AX1=130 : AY1=20 : AX2=280 :AY2=200 
  395. 37900 PUT@A (AX1,AY1)-(AX2,AY2),DIA
  396. 38000 LOAD@ "paint32\c11.dat",DI1
  397. 38100 X1=143 : Y1=32 : X2=202 : Y2=106 : W=400
  398. 38200 PUT@A (X1,Y1)-(X2,Y2),DI1
  399. 38300 MOUSE 4,133,23,276,197  'システムウインドウのマウス範囲指定
  400. 38400 LOAD@ "paint32\c12.dat",DI2
  401. 38500 LOAD@ "paint32\c13.dat",DI3
  402. 38600 LOAD@ "paint32\c14.dat",DI4
  403. 38700 LOAD@ "paint32\c15.dat",DI5
  404. 38800 LOAD@ "paint32\c16.dat",DI6
  405. 38900 LOAD@ "paint32\c17.dat",DI7
  406. 39000 LOAD@ "paint32\c18.dat",DI8
  407. 39100 LOAD@ "paint32\c19.dat",DI9
  408. 39200 LOAD@ "paint32\c20.dat",DI10
  409. 39300 '***マウスプーリング*******
  410. 39400 YP=MOUSE(5,0)  'a
  411. 39500 XP=MOUSE(4,0)
  412. 39600 'PRINT ""XP","YP""
  413. 39700 IF XP>143 THEN IF XP<201 THEN IF YP>32 THEN IF YP<105 THEN GOTO 40300 'b
  414. 39800 IF XP>239 THEN IF XP<270 THEN IF YP>176 THEN IF YP<194 THEN GOTO 40000 'c
  415. 39900 GOTO 39400              'システムウインドウのマウスプーリング 'a
  416. 40000 LOAD@ "paint32\system.tif",(50,40) 'c
  417. 40100 GOTO 12100
  418. 40200 '*********************************************画像表示
  419. 40300 'X1=163 : Y1=32 : X2=222 : Y2=106 : W=400 'b
  420. 40400 'YP=0 : XP=0
  421. 40500 PUT@A (X1,Y1)-(X2,Y2),DI1 'd
  422. 40600 FOR Y=0 TO W
  423. 40700 '
  424. 40800 '
  425. 40900 'NEXT
  426. 41000 PUT@A (X1,Y1)-(X2,Y2),DI2
  427. 41100 FOR Y=0 TO W
  428. 41200 '
  429. 41300 '
  430. 41400 PUT@A (X1,Y1)-(X2,Y2),DI3
  431. 41500 FOR Y=0 TO W
  432. 41600 '
  433. 41700 '
  434. 41800 NEXT
  435. 41900 PUT@A (X1,Y1)-(X2,Y2),DI4
  436. 42000 FOR Y=0 TO W
  437. 42100 '
  438. 42200 '
  439. 42300 NEXT
  440. 42400 PUT@A (X1,Y1)-(X2,Y2),DI5
  441. 42500 FOR Y=0 TO W
  442. 42600 '
  443. 42700 '
  444. 42800 NEXT
  445. 42900 PUT@A (X1,Y1)-(X2,Y2),DI6
  446. 43000 FOR Y=0 TO W
  447. 43100 '
  448. 43200 '
  449. 43300 NEXT
  450. 43400 PUT@A (X1,Y1)-(X2,Y2),DI7
  451. 43500 FOR Y=0 TO W
  452. 43600 '
  453. 43700 '
  454. 43800 NEXT
  455. 43900 PUT@A (X1,Y1)-(X2,Y2),DI8
  456. 44000 FOR Y=0 TO W
  457. 44100 '
  458. 44200 '
  459. 44300 NEXT
  460. 44400 PUT@A (X1,Y1)-(X2,Y2),DI9
  461. 44500 FOR Y=0 TO W
  462. 44600 '
  463. 44700 '
  464. 44800 NEXT
  465. 44900 PUT@A (X1,Y1)-(X2,Y2),DI10
  466. 45000 FOR Y=0 TO W
  467. 45100 '
  468. 45200 NEXT Y
  469. 45300 YP=MOUSE(5,0)
  470. 45400 XP=MOUSE(4,0)
  471. 45500 IF XP>143 THEN IF XP<201 THEN IF YP>107 THEN IF YP<120 THEN GOTO 39400 'a
  472. 45600 GOTO 40500 'd
  473. 45700 SCREEN@ 0
  474. 45800 LOAD@"paint16\close.tif",(0,0)
  475. 45900 FOR C=0 TO 5000
  476. 46000 NEXT C
  477. 46100 SYSTEM
  478.