home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / planet / planet.cmd < prev    next >
OS/2 REXX Batch file  |  1980-01-02  |  7KB  |  441 lines
  1. cdplay 0
  2. waitstart
  3. 16disp        1
  4. pointdisp    1
  5. setzoom        10
  6. dispmode    0
  7. areadisp    0
  8. keidodisp    0
  9. sekidisp    0
  10. setheight    90
  11. setmag        60
  12. setobs        13950, 3540
  13. settime        18:01:00
  14. setdate        1990 12 31
  15. setdirection    0
  16. milkyway    1
  17. run        0
  18. disp        10, 438, "★冬の夜空を眺めながら「ＨＹＰＥＲ ＰＬＡＮＥＴ」をご説明しましょう。"
  19. disp        203, 438, "ＨＹＰＥＲ ＰＬＡＮＥＴ"
  20. wait        8
  21. kankaku        0:10
  22. run        8
  23.  
  24. disp        10, 421, "★３２ビットＣＰＵの本領をフルに発揮して"
  25. disp        10, 438, "  全天に輝く７等星までの星々(約１万６千個)を完全高速シミュレートします。"
  26. wait        23
  27. run        6
  28. wait        34
  29. setmag        15
  30. milkyway    0
  31. run        0
  32. disp        280, 421, "１等星まで"
  33. wait        36
  34. setmag        25
  35. run        0
  36. disp        280, 421, "２等星まで"
  37. wait        38
  38. setmag        35
  39. run        0
  40. disp        280, 421, "３等星まで"
  41. wait        40
  42. setmag        45
  43. run        0
  44. disp        280, 421, "４等星まで"
  45. wait        42
  46. setmag        55
  47. run        0
  48. disp        280, 421, "５等星まで"
  49. wait        44
  50. setmag        65
  51. run        0
  52. disp        280, 421, "６等星まで"
  53. wait        46
  54. setmag        70
  55. run        0
  56. disp        280, 421, "７等星まで"
  57. wait        48
  58. milkyway    1
  59. run        5
  60.  
  61. disp        10, 438, "★星空の観測地は地球上の任意の場所を指定できます。"
  62. setmag        60
  63. wait        60
  64. run        0
  65. disp        296, 421, "東  京"
  66. wait        62
  67. run        4
  68. setobs        7700, 3840
  69. run        0
  70. disp        232, 421, "アメリカ(ニューヨーク)"
  71. wait        70
  72. run        4
  73. setobs        14910, -3510
  74. run        0
  75. disp        216, 421, "オーストラリア(キャンベラ)"
  76. wait        78
  77. run        4
  78. setobs        0, -9000
  79. run        0
  80. disp        296, 421, "南  極"
  81. wait        86
  82. run        4
  83. setobs        10350, 120
  84. run        0
  85. disp        272, 421, "シンガポール"
  86. wait        94
  87. run        4
  88. setobs        14000, 3539
  89.  
  90. seipict        1, 0
  91. seipict        1, 1
  92. seipict        1, 2
  93. seipict        1, 3
  94. seipict        1, 4
  95. seipict        1, 5
  96. seipict        1, 6
  97. seipict        1, 7
  98. seipict        1, 8
  99. seipict        1, 9
  100. seipict        1, 10
  101. seipict        1, 11
  102. seipict        1, 12
  103. seipict        1, 13
  104. seipict        1, 14
  105. seipict        1, 15
  106. seipict        1, 16
  107. seipict        1, 17
  108. seipict        1, 18
  109. seipict        1, 19
  110. seipict        1, 20
  111. seipict        1, 21
  112. seipict        1, 22
  113. seipict        1, 23
  114. seipict        1, 24
  115. seipict        1, 25
  116. seipict        1, 26
  117. seipict        1, 27
  118. seipict        1, 28
  119. seipict        1, 29
  120. seipict        1, 30
  121. seipict        1, 31
  122. seipict        1, 32
  123. seipict        1, 33
  124. seipict        1, 34
  125. seipict        1, 35
  126. seipict        1, 36
  127. seipict        1, 37
  128. seipict        1, 38
  129. seipict        1, 39
  130. seipict        1, 40
  131. seipict        1, 41
  132. seipict        1, 42
  133. seipict        1, 43
  134. seipict        1, 44
  135. seipict        1, 45
  136. seipict        1, 46
  137. seipict        1, 47
  138. seipict        1, 48
  139. seipict        1, 49
  140. seipict        1, 50
  141. seipict        1, 51
  142. seipict        1, 52
  143. seipict        1, 53
  144. seipict        1, 54
  145. seipict        1, 55
  146. seipict        1, 56
  147. seipict        1, 57
  148. seipict        1, 58
  149. seipict        1, 59
  150. seipict        1, 60
  151. seipict        1, 61
  152. seipict        1, 62
  153. seipict        1, 63
  154. seipict        1, 64
  155. seipict        1, 65
  156. seipict        1, 66
  157. seipict        1, 67
  158. seipict        1, 68
  159. seipict        1, 69
  160. seipict        1, 70
  161. seipict        1, 71
  162. seipict        1, 72
  163. seipict        1, 73
  164. seipict        1, 74
  165. seipict        1, 75
  166. seipict        1, 76
  167. seipict        1, 77
  168. seipict        1, 78
  169. seipict        1, 79
  170. seipict        1, 80
  171. seipict        1, 81
  172. seipict        1, 82
  173. seipict        1, 83
  174. seipict        1, 84
  175. seipict        1, 85
  176. seipict        1, 86
  177. seipict        1, 87
  178. wait        100
  179. run        0
  180. disp        10, 438, "★８８ある星座の全て、もしくは任意の星座の名称や絵･線などを表示できます。"
  181. seipict        0, 0
  182. seipict        0, 1
  183. seipict        0, 2
  184. seipict        0, 3
  185. seipict        0, 4
  186. seipict        0, 5
  187. seipict        0, 6
  188. seipict        0, 7
  189. seipict        0, 8
  190. seipict        0, 9
  191. seipict        0, 11
  192. seipict        0, 12
  193. seipict        0, 13
  194. seipict        0, 14
  195. seipict        0, 15
  196. seipict        0, 17
  197. seipict        0, 18
  198. seipict        0, 19
  199. seipict        0, 20
  200. seipict        0, 21
  201. seipict        0, 22
  202. seipict        0, 23
  203. seipict        0, 24
  204. seipict        0, 25
  205. seipict        0, 26
  206. seipict        0, 27
  207. seipict        0, 28
  208. seipict        0, 29
  209. seipict        0, 30
  210. seipict        0, 31
  211. seipict        0, 32
  212. seipict        0, 33
  213. seipict        0, 34
  214. seipict        0, 35
  215. seipict        0, 36
  216. seipict        0, 37
  217. seipict        0, 38
  218. seipict        0, 39
  219. seipict        0, 40
  220. seipict        0, 41
  221. seipict        0, 42
  222. seipict        0, 43
  223. seipict        0, 44
  224. seipict        0, 45
  225. seipict        0, 46
  226. seipict        0, 47
  227. seipict        0, 48
  228. seipict        0, 49
  229. seipict        0, 50
  230. seipict        0, 51
  231. seipict        0, 52
  232. seipict        0, 53
  233. seipict        0, 54
  234. seipict        0, 55
  235. seipict        0, 56
  236. seipict        0, 57
  237. seipict        0, 58
  238. seipict        0, 59
  239. seipict        0, 60
  240. seipict        0, 61
  241. seipict        0, 62
  242. seipict        0, 63
  243. seipict        0, 64
  244. seipict        0, 65
  245. seipict        0, 66
  246. seipict        0, 67
  247. seipict        0, 68
  248. seipict        0, 69
  249. seipict        0, 70
  250. seipict        0, 71
  251. seipict        0, 72
  252. seipict        0, 73
  253. seipict        0, 74
  254. seipict        0, 75
  255. seipict        0, 76
  256. seipict        0, 77
  257. seipict        0, 78
  258. seipict        0, 79
  259. seipict        0, 80
  260. seipict        0, 81
  261. seipict        0, 82
  262. seipict        0, 83
  263. seipict        0, 84
  264. seipict        0, 85
  265. seipict        0, 86
  266. seipict        0, 87
  267. seiname        1, 10
  268. seiline        1, 10
  269. seiname        1, 16
  270. seiline        1, 16
  271.  
  272. wait        106
  273. run        0
  274. disp        10, 438, "★視野は全天モードから2.2ﾟ×1.4ﾟの範囲まで指定可能です。"
  275. setdirection    68
  276. setheight    43
  277. setzoom        20
  278. wait        110
  279. run        0
  280. disp        284, 421, "143ﾟ×91ﾟ"
  281. setzoom        24
  282. wait        112
  283. run        0
  284. disp        284, 421, "120ﾟ×75ﾟ"
  285. setzoom        36
  286. wait        114
  287. run        0
  288. disp        288, 421, "80ﾟ×51ﾟ"
  289. wait        115
  290. pointdisp    1
  291. setpoint    3:46, 24,1
  292. gdisp        3:46, 24,1, "M45 ﾌﾟﾚｱﾃﾞｽ星団(昴)"
  293.  
  294. seipict        0, 10
  295. seiname        0, 10
  296. seiline        0, 10
  297. seipict        0, 16
  298. seiname        0, 16
  299. seiline        0, 16
  300. setdirection    93
  301. setheight    41
  302. setzoom        51
  303. wait        117
  304. run        0
  305. disp        288, 421, "56ﾟ×36ﾟ"
  306. setzoom        95
  307. wait        119
  308. run        0
  309. disp        288, 421, "31ﾟ×19ﾟ"
  310. setzoom        222
  311. wait        121
  312. dispmode    1
  313. run        0
  314. disp        284, 421, "13ﾟ×8.2ﾟ"
  315. setzoom        444
  316. wait        123
  317. run        0
  318. disp        280, 421, "6.5ﾟ×4.1ﾟ"
  319. setzoom        667
  320. setobs        14010, 3540
  321. wait        125
  322. run        0
  323. disp        280, 421, "4.3ﾟ×2.7ﾟ"
  324.  
  325. wait        129
  326. dispmode    0
  327. setmag        50
  328. setdirection    67
  329. setheight    49
  330. setzoom        24
  331. run        0
  332. disp        10, 438, "★シミュレータのモードを変えることにより、実際に見える星空の他にも"
  333. seipict        1, 0
  334. seiname        1, 0
  335. seiline        1, 0
  336. seipict        1, 1
  337. seiname        1, 1
  338. seiline        1, 1
  339. seipict        1, 6
  340. seiname        1, 6
  341. seiline        1, 6
  342. seipict        1, 9
  343. seiname        1, 9
  344. seiline        1, 9
  345. seipict        1, 10
  346. seiname        1, 10
  347. seiline        1, 10
  348. seipict        1, 11
  349. seiname        1, 11
  350. seiline        1, 11
  351. seipict        1, 15
  352. seiname        1, 15
  353. seiline        1, 15
  354. seipict        1, 16
  355. seiname        1, 16
  356. seiline        1, 16
  357. seipict        1, 26
  358. seiname        1, 26
  359. seiline        1, 26
  360. seipict        1, 33
  361. seiname        1, 33
  362. seiline        1, 33
  363. seipict        1, 59
  364. seiname        1, 59
  365. seiline        1, 59
  366. seipict        1, 61
  367. seiname        1, 61
  368. seiline        1, 61
  369. seipict        1, 66
  370. seiname        1, 66
  371. seiline        1, 66
  372. dispmode    1
  373. sekidisp    1
  374. oudodisp    1
  375. wait        132
  376. run        0
  377. disp        10, 438, "★星座早見表のような表示にすることもできます。"
  378.  
  379. seipict        0, 0
  380. seiname        0, 0
  381. seiline        0, 0
  382. seipict        0, 1
  383. seiname        0, 1
  384. seiline        0, 1
  385. seipict        0, 6
  386. seiname        0, 6
  387. seiline        0, 6
  388. seipict        0, 9
  389. seiname        0, 9
  390. seiline        0, 9
  391. seipict        0, 10
  392. seiname        0, 10
  393. seiline        0, 10
  394. seipict        0, 11
  395. seiname        0, 11
  396. seiline        0, 11
  397. seipict        0, 15
  398. seiname        0, 15
  399. seiline        0, 15
  400. seipict        0, 16
  401. seiname        0, 16
  402. seiline        0, 16
  403. seipict        0, 26
  404. seiname        0, 26
  405. seiline        0, 26
  406. seipict        0, 33
  407. seiname        0, 33
  408. seiline        0, 33
  409. seipict        0, 59
  410. seiname        0, 59
  411. seiline        0, 59
  412. seipict        0, 61
  413. seiname        0, 61
  414. seiline        0, 61
  415. seipict        0, 66
  416. seiname        0, 66
  417. seiline        0, 66
  418. dispmode    0
  419. sekidisp    0
  420. oudodisp    0
  421. settime        4:01:00
  422. setdirection    300
  423. setheight    42
  424. setmag        60
  425. setzoom        20
  426. wait        138
  427. run        0
  428. disp        10, 438, "★この他にも惑星や星雲･星団･流星群も表示できます。"
  429. meteor        1
  430. wait        141
  431. run        0
  432. disp        10, 438, "★四季の中でも一番賑やかな冬の星空を夜明けまでお楽しみください。"
  433. wait        144
  434. hosimode    1
  435. kankaku        0:03
  436. run        35
  437. kankaku        0:02
  438. run        10
  439. kankaku        0:01
  440. run        80
  441.