home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 3 / FreeSoftwareCollection3pd199x-jp.img / fb386 / tarotto / tarotto.bas < prev    next >
BASIC Source File  |  1980-01-02  |  22KB  |  485 lines
  1. 1000 '
  2. 1010 CLS
  3. 1020 RANDOMIZE TIME
  4. 1030 GOSUB *文字表示
  5. 1040 CLEAR ,,325,1000*1000:CLEAR:CD STOP
  6. 1050 DIM HLP%(INT((INT(630+7)/8)*430*4+2-1)/2)
  7. 1060 DIM CR (INT((INT(130+7)/8)*190*4+2-1)/2)
  8. 1070 DIM A%(9),PL(40000),PL4(35000),PL3(30000),PL2(40000),PL5(40000),DA$(3),HEN(50),HEN$(50),CJ$(8)
  9. 1080 DIM C(8) ,U(8)     ,J(8)  ,SEII$(8) ,M$(8),MOLEN(8),MOLEN$(8),DA2$(1000)
  10. 1090 RP=0:'名前のためのフラグ
  11. 1100 AT=0
  12. 1110 MOUSE 0:SCREEN@ 0:NA$="":MOX=12
  13. 1120 ' 文字列配列 
  14. 1130     MD$="ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ　　　　　　　　　　　．　　"
  15. 1140 SEINEN$="　　　　　　　　　　　　　　　　　　　　　　　　　　１２３４５６７８９０，．  　"
  16. 1150 SEIBE$="　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　　 －男女"
  17. 1160 ME$="￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣" 
  18. 1170 KAK$=CHR$(&H1C)+"'"+CHR$(&H22)+CHR$(&H20)+CHR$(&H60)+CHR$(&H21)+CHR$(&H20)+CHR$(&H70)
  19. 1180 MODO$=CHR$(&H1C)+"'"+CHR$(&H21)+CHR$(&H20)+CHR$(&H60)+CHR$(&H21)+CHR$(&H20)+CHR$(&H70)
  20. 1190 K2$=CHR$(&H1C)+"'"+CHR$(&H22)+CHR$(&H20)+CHR$(&H60)+CHR$(&H22)+CHR$(&H20)+CHR$(&H70)
  21. 1200 '音声　読み込み
  22. 1210 LOAD @"B:SETUMEI.SND",PL
  23. 1220 LOAD @"B:SETUMEI4.SND",PL4
  24. 1230 LOAD @"B:SETUMEI3.SND",PL3
  25. 1240 LOAD @"B:SETUMEI2.SND",PL2
  26. 1250 LOAD @"B:SETUMEI5.SND",PL5
  27. 1260 ' 文字読み込み
  28. 1270 DIM A$(8,22,2):OPEN "b:moji." FOR INPUT AS #1 
  29. 1280 FOR I=1 TO 8
  30. 1290      FOR J=1 TO 2
  31. 1300         FOR K=0 TO 22
  32. 1310            INPUT #1,A$(I,K,J)
  33. 1320         NEXT K
  34. 1330      INPUT #1,S$:INPUT #1,S$:INPUT #1,S$
  35. 1340      NEXT J
  36. 1350  NEXT I
  37. 1360 CLOSE
  38. 1370 'ここがミソ
  39. 1380 FOR PA=0 TO 15
  40. 1390  PALETTE PA,[0,0,0]'全てをＢＬＡＣＫにしてしまう
  41. 1400 NEXT PA
  42. 1410 'ＴＩＦのＬＯＡＤ
  43. 1420 CD PLAY 11,11
  44. 1430 LOAD@"a:gameA.TIF":CLS 4
  45. 1440 PALETTE:NEX=1 'かさず戻す
  46. 1450 COLOR 7    ' 文字色を白に変える
  47. 1460 '=======================================================================
  48. 1470 '
  49. 1480 *MOUSE初期化
  50. 1490 MOUSE 0
  51. 1500 MOUSE 1,100,250,1
  52. 1510 MOUSE 4,100,250,538,380
  53. 1520 *タイトル
  54. 1530 '
  55. 1540 *マウス入力
  56. 1550 GOSUB *音声読み込み
  57. 1560 MX=MOUSE(0):MY=MOUSE(1)
  58. 1570 KX=INT((MX+2)/34)-3
  59. 1580 KY=INT((MY)/35)-7
  60. 1590 'LOCATE 0,0:PRINT MX,MY
  61. 1600 IF KY=3 AND KX>1 THEN GOSUB *サブマウス ELSE LINE(100+KX*34,250+KY*34)-(100+KX*34+30,250+KY*34+30),XOR,%3,BF: LOCATE MOX,8:PRINT "￣"
  62. 1610 GOSUB *判定
  63. 1620 GOSUB *削除
  64. 1630 GOSUB *字いれ
  65. 1640 CDSTAT A%:IF A%(1)=0 THEN CD PLAY 11,11 
  66. 1650 IF KY=3 AND KX>1 THEN GOSUB *サブマウス ELSE LINE(100+KX*34,250+KY*34)-(100+KX*34+30,250+KY*34+30),XOR,%3,BF
  67. 1660 GOTO 1560
  68. 1670 *字いれ
  69. 1680 IF NEX=1 THEN 1690 ELSE 1700 
  70. 1690 LOCATE 12,6:PRINT "占う人のイニシャルを下のアルファベットから選んで下さい":LOCATE 12,7:PRINT DA$(1) 
  71. 1700 IF MOUSE(2,0)=-1 THEN 1710 ELSE RETURN
  72. 1710 IF KX=>8 AND KY=3 THEN RETURN
  73. 1720 IF KX=>2 AND KY=3 THEN 1740 ELSE 1760
  74. 1730 '
  75. 1740 LINE(100+KX*34,250+KY*34)-(100+KX*34+64,250+KY*34+30),XOR,2,BF
  76. 1750 CUNT=1:GOTO 1770
  77. 1760 LINE(100+KX*34,250+KY*34)-(100+KX*34+30,250+KY*34+30),XOR,2,BF:CUNT=0
  78. 1770 ON NEX GOTO 1780,2670,2810 
  79. 1780 NEX=1
  80. 1790 NA$=KMID$(MD$,KY*13+(KX+1),1):IF NA$="　" THEN 1860
  81. 1800 DA$(1)=DA$(1)+NA$
  82. 1810 LOCATE   MOX,7:PRINT NA$
  83. 1820 LOCATE MOX+2,8:PRINT "￣"
  84. 1830 LOCATE   MOX,8:PRINT "  "
  85. 1840 LOCATE    10,8:PRINT "  " 
  86. 1850 MOX=MOX+2
  87. 1860 GOSUB *判定
  88. 1870 IF MOUSE(2,0)=0 THEN 1880 ELSE 1870
  89. 1880 IF CUNT=1 THEN 1890 ELSE 1900
  90. 1890 LINE(100+KX*34,250+KY*34)-(100+KX*34+64,250+KY*34+30),XOR,2,BF:             GOTO 1910
  91. 1900 LINE(100+KX*34,250+KY*34)-(100+KX*34+30,250+KY*34+30),XOR,2,BF
  92. 1910 RETURN
  93. 1920 *サブマウス
  94. 1930  FOR X1=2 TO 9 STEP 2
  95. 1940  IF KX=X1 OR KX=X1+1 THEN IF KX=X1+1 THEN KX=KX-1
  96. 1950  IF KX=X1 THEN  LINE(100+KX*34,250+KY*34)-(100+KX*34+64,250+KY*34+30),XOR,%3,BF
  97. 1960 NEXT X1
  98. 1970 RETURN
  99. 1980 '
  100. 1990 *サブマウス2
  101. 2000 FOR X1=2 TO 9 STEP 2
  102. 2010  IF KX=X1 OR KX=X1+1 THEN IF KX=X1+1 THEN KX=KX-1
  103. 2020  IF KX=X1 THEN  LINE(100+KX*34,250+KY*34)-(100+KX*34+64,250+KY*34+30),XOR,%3,BF
  104. 2030 NEXT X1
  105. 2040 RETURN
  106. 2050 '
  107. 2060 *判定
  108. 2070  'IF MOX-10>6 THEN GOTO 680 ELSE RETURN
  109. 2080  'MOUSE 1,250,360,1
  110. 2090  IF MOUSE(2,0)=-1 THEN 2100 ELSE RETURN
  111. 2100  IF KX=>6 AND KX<=7 AND KY=3 THEN END                          ' 終了
  112. 2110  IF KX=>8 AND KX<=9 AND KY=3 THEN CLS 4:MODR=3:GOTO  *ＨＥＬＰ
  113. 2120  IF KX=>4 AND KX<=5 AND KY=3 THEN MOX=12:NEX=NEX+1:GOTO *判定２' 決定
  114. 2130  RETURN
  115. 2140  *判定２:GOSUB *サブマウス2:IF NEX=3 THEN  GOSUB *判定4:IF HPP=1 THEN        GOTO *生年月日
  116. 2150  ON NEX GOTO *字いれ,*生年月日,*性別,*確認
  117. 2160  END
  118. 2170  *判定3
  119. 2180  IF MOUSE(2,0)=-1 THEN 2190 ELSE RETURN 3050
  120. 2190  IF KX=>2 AND KX<=3 AND KY=3 THEN GOTO *もう一度 
  121. 2200  IF KX=>4 AND KX<=5 AND KY=3 THEN GOTO *乱数
  122. 2210  IF KX=>8 AND KX<=9 AND KY=3 THEN CLS 4:MODR=1:GOTO  *ＨＥＬＰ
  123. 2220  RETURN 3050
  124. 2230  '
  125. 2240  *判定4
  126. 2250  HAN1$=KACNV$(DA$(2)):' 入力例: "1990.10.15 ,  1990.01.01"
  127. 2260  '
  128. 2270  IF MID$(HAN1$,9,1)="0" THEN WEEK=10:SU1=1 ELSE WEEK=9:SU1=2
  129. 2280  IF MID$(HAN1$,6,1)="0" THEN   MO=7 :SU2=1 ELSE   MO=6:SU2=2
  130. 2290  '
  131. 2300  HAN1=VAL(MID$(HAN1$,WEEK,SU1))
  132. 2310  HAN2=VAL(MID$(HAN1$,  MO,SU2))
  133. 2320  IF HAN1<=0 OR HAN1=>32 THEN GOTO *ＤＡＴＡミス
  134. 2330  IF HAN2<=0 OR HAN2=>13 THEN GOTO *ＤＡＴＡミス 
  135. 2340  HPP=0:RETURN
  136. 2350  '
  137. 2360  *ＤＡＴＡミス 
  138. 2370  BEEP:LOCATE 20,10:COLOR 2:PRINT "ＤＡＴＡの入力ミスです。" 
  139. 2380  COLOR 7:FOR I=1 TO 5000:NEXT I
  140. 2390  CLS 4:DA$(2)=""
  141. 2400  HPP=1:RETURN 
  142. 2410  '
  143. 2420 *削除
  144. 2430 IF KX=2 AND KY=3 OR KX=3 AND KY=3 THEN GOTO 2440  ELSE RETURN
  145. 2440 IF MOUSE(2,0)=-1 THEN GOTO 2450 ELSE RETURN
  146. 2450 IF DA$(NEX)="" THEN IF MOX<>10 THEN MOX=10:RETURN ELSE  RETURN
  147. 2460 '
  148. 2470 NA1$=KLEFT$(DA$(NEX),KLEN(DA$(NEX))-1):MOX=(LEN(DA$(NEX))+12)-2
  149. 2480 '
  150. 2490 LOCATE     9,7:PRINT SPC(100)
  151. 2500 LOCATE    12,7:PRINT NA1$:DA$(NEX)=NA1$
  152. 2510 LOCATE     9,8:PRINT SPC(100):MOX=MOX-2 
  153. 2520 LOCATE    MOX,8:PRINT "￣"
  154. 2530 RETURN
  155. 2540 '
  156. 2550 '
  157. 2560 *音声読み込み
  158. 2570 IF NEX=1 THEN PCMPLAY PL,127:RETURN 1560
  159. 2580 IF NEX=2 THEN PCMPLAY PL4,127:RETURN 1560
  160. 2590 IF NEX=3 THEN PCMPLAY PL3,127:RETURN 1560
  161. 2600 RETURN 
  162. 2610 *生年月日:NEX=2:MOUSE 4,100,318,505,380
  163. 2620 LOCATE   9,6:PRINT SPC(200)
  164. 2630 LOCATE   9,7:PRINT SPC(200)
  165. 2640 LOCATE   9,8:PRINT SPC(200)
  166. 2650 LOCATE 12,6:PRINT "占う人の生年月日を英数字から選んで下さい(例:1990.09.15)":LOCATE 12,7:PRINT DA$(2) 
  167. 2660 GOTO *マウス入力
  168. 2670 SEIN$=KMID$(SEINEN$,KY*13+(KX+1),1):IF SEIN$="　" THEN 1860
  169. 2680 DA$(2)=DA$(2)+SEIN$
  170. 2690 LOCATE   MOX,7:PRINT SEIN$
  171. 2700 LOCATE MOX+2,8:PRINT "￣"
  172. 2710 LOCATE   MOX,8:PRINT "  "
  173. 2720 LOCATE    10,8:PRINT "  "
  174. 2730 GOTO 1850
  175. 2740 *性別:NEX=3:MOUSE 4,100,351,440,380
  176. 2750 LOCATE   9,6:PRINT SPC(200)
  177. 2760 LOCATE   9,7:PRINT SPC(200)
  178. 2770 LOCATE   9,8:PRINT SPC(200)
  179. 2780 LOCATE 12,6:PRINT "占う人の性別を下の男・女から選んで下さい。"
  180. 2790 LOCATE 12,7:PRINT DA$(3) 
  181. 2800 GOTO *マウス入力
  182. 2810 SEIB$=KMID$(SEIBE$,KY*13+(KX+1),1):IF SEIB$="　" THEN 1860
  183. 2820 DA$(3)=SEIB$
  184. 2830 LOCATE   MOX,7:PRINT SEIB$
  185. 2840 LOCATE MOX+2,8:PRINT "￣"
  186. 2850 LOCATE   MOX,8:PRINT "  "
  187. 2860 LOCATE    10,8:PRINT "  "
  188. 2870 GOTO 1850
  189. 2880 '
  190. 2890 *確認:PCMPLAY PL2,127
  191. 2900 LOCATE   9,6:PRINT SPC(200)
  192. 2910 LOCATE   9,7:PRINT SPC(200)
  193. 2920 LOCATE   9,8:PRINT SPC(200)
  194. 2930 LOCATE 15,6:PRINT "－－－－－－－－－－　占う人のデ－タ－　－－－－－－－"
  195. 2940 LOCATE 12,7:PRINT "占う人のイニシャル ";DA$(1)
  196. 2950 LOCATE 12,8:PRINT "占う人の生年月日   ";DA$(2)
  197. 2960 LOCATE 12,9:PRINT "占う人の性別       ";DA$(3)
  198. 2970 LOCATE 12,10:COLOR 2:PRINT "これでよろしいですか? 良い=>決定,悪い=>削除を押してください"
  199. 2980 COLOR 7
  200. 2990 '<--------------------------------- 補助マウス入力      
  201. 3000 MX=MOUSE(0):MY=MOUSE(1)
  202. 3010 KX=INT((MX+2)/34)-3
  203. 3020 KY=INT((MY)/35)-7
  204. 3030 CDSTAT A%:IF A%(1)=0 THEN CD PLAY 11,11 
  205. 3040 GOSUB *判定3
  206. 3050 GOTO 3000:END
  207. 3060 '
  208. 3070 *もう一度
  209. 3080 LINE(100+KX-1*34,250+KY*34)-(100+KX-1*34+64,250+KY*34+30),XOR,%3,BF
  210. 3090 MOX=12:NEX=1:FOR I=1 TO 3:DA$(I)="":NEXT I
  211. 3100 FOR I=6 TO 11:LOCATE 9,I:PRINT SPC(200):NEXT I
  212. 3110 GOTO *MOUSE初期化
  213. 3120 '
  214. 3130 *乱数
  215. 3140 FOR L=1 TO 3:FOR T=1 TO LEN(DA$(L)):IF RP=0 AND DA$(1)="" THEN RP=1:GOTO 3190
  216. 3150   DA2$(T)=MID$(DA$(L),T,1):LOCATE 0,0:PRINT DA2$
  217. 3160   HEN$(T)=KACNV$(DA2$(T))
  218. 3170   IF HEN$(3)="" THEN 3190 ELSE HEN(T)=ASC(HEN$(T))
  219. 3180   HEN=HEN+HEN(T)
  220. 3190 NEXT T:NEXT L
  221. 3200 TG=VAL(RIGHT$(TIME$,5)):TH=VAL(RIGHT$(TIME$,4)):TM=VAL(RIGHT$(TIME$,2))
  222. 3210 RANDOMIZE HEN+TG+TH+TM:CLS:MOUSE 0
  223. 3220 MOUSE 4,0,0,639,479
  224. 3230 PALETTE
  225. 3240 ' mein
  226. 3250 CD PLAY 9,9:MOUSE 0
  227. 3260 FOR A=1 TO 8
  228. 3270 C(A)=0:U(A)=0:J(A)=0
  229. 3280 NEXT A
  230. 3290 FOR A=1 TO 8
  231. 3300   B=INT(RND*22)+1
  232. 3310   C=INT(RND*2)+1
  233. 3320   FOR S=1 TO 8
  234. 3330     IF C(S)=B THEN AT=1 ELSE 3340
  235. 3340   NEXT S
  236. 3350   IF AT=1 THEN AT=0:GOTO 3300 ELSE C(A)=B:U(A)=C:J(A)=A:GOTO 3360 
  237. 3360 NEXT A
  238. 3370 '絵を表示する
  239. 3380 FOR A=1 TO 8:CN=C(A)
  240. 3390 IF U(A)=1 THEN A$="TA" ELSE A$="TG"
  241. 3400 B$=RIGHT$("0"+RIGHT$(STR$(CN),LEN(STR$(CN))-1),2)
  242. 3410 CJ$(A)="A:"+A$+B$+".TIF"
  243. 3420 NEXT A
  244. 3430 CLS:GOTO 3800
  245. 3440 '字を出す
  246. 3450 RESTORE 3150
  247. 3460 FOR A=1 TO 8
  248. 3470  READ M$(A)
  249. 3480 NEXT A:A=1 
  250. 3490 '
  251. 3500 KN=35:Y=50:X=205:X1=45:Y1=50:GOSUB 3780
  252. 3510 IF U(A)=1 THEN O$="正位置" ELSE IF U(A)=2 THEN O$="逆位置"
  253. 3520 IF A=2 THEN J(A)=4 
  254. 3530 IF A=3 THEN J(A)=2 
  255. 3540 IF A=4 THEN J(A)=5 
  256. 3550 IF A=5 THEN J(A)=3 
  257. 3560 CV=C(A):UV=U(A):JV=J(A):I$=A$(JV,CV,UV)
  258. 3570 TA=LEN(I$):IF TA>60 THEN COLOR 2:MO$=LEFT$(I$,60):MO1$=RIGHT$(I$,TA-60):LOCATE 6,17:PRINT M$(A),O$:COLOR 1:LOCATE 3,19:PRINT MO$:LOCATE 11,20:PRINT MO1$:GOTO 3600 
  259. 3580  COLOR 2:LOCATE 6,17:PRINT M$(A),O$:COLOR 1:LOCATE 3,19:PRINT I$
  260. 3590 '
  261. 3600 'ＢＡＣＫ　＆　ＮＥＸＴ　＆　ＨＥＬＰ
  262. 3610  CDSTAT A%:IF A%(3)=45 THEN CD PLAY 9,9 
  263. 3620  ZX=MOUSE(0):ZY=MOUSE(1) 
  264. 3630  IF MOUSE(2,0)=-1 THEN 3640 ELSE 3620 
  265. 3640  IF ZX=>395 AND ZX<=465 AND ZY=>425 AND ZY<=465 THEN GOTO  3680
  266. 3650  IF ZX=>470 AND ZX<=540 AND ZY=>425 AND ZY<=465 THEN GOSUB *ＢＡＣＫ
  267. 3660  IF ZX=>550 AND ZX<=620 AND ZY=>425 AND ZY<=465 THEN CLS 4:MODR=2:GOTO  *ＨＥＬＰ
  268. 3670  GOTO 3610
  269. 3680 A=A+1:IF A<>9 THEN GOTO 3500 
  270. 3690 PCMPLAY PL5,127
  271. 3700 CLS 4:LOCATE 3,17:COLOR 1:PALETTE:PRINT "プリンタ－でうちますか 左:はい 右:いいえ   ［ＢＡＣＫ］:カ－ドの意味を":LOCATE 59,18:PRINT "もう一度見直す｡"
  272. 3710 FOR WA=1 TO 1500:NEXT WA'ウエイト
  273. 3720 MXX=MOUSE(0) : MYY=MOUSE(1)
  274. 3730 IF MOUSE(2,0)=-1 THEN 3740 ELSE 3720
  275. 3740 IF MXX=>470 AND MXX<=540 AND MYY=>425 AND MYY<=465 THEN *ＢＡＣＫ2
  276. 3750 IF MOUSE(2,0)=-1 THEN 4030 ELSE IF MOUSE(2,1)=-1 THEN CLS:GOTO 4860 
  277. 3760 '
  278. 3770 '画面に出す
  279. 3780 LOAD@ CJ$(A),(X1,Y1):GET@ A(X1,Y1)-(X1+130,Y1+190),CR
  280. 3790 PUT@A (X+A*KN,Y)-(X+A*KN+130,Y+190),CR:CLS 4:RETURN
  281. 3800 DATA  キ－カ－ド   感情的気分,月のカ－ド    家庭,水星のカ－ド    知性的コンディション,金星のカ－ド    協力．愛,太陽のカ－ド    社会．学校,火星のカ－ド    反対．争い,木星のカ－ド    発展．拡大,土星のカ－ド    慎重．中止
  282. 3810 '画面作り
  283. 3820 LINE(0,0)-(639,480),PSET,%4,BF
  284. 3830 LINE(10,10)-(629,469),PSET,%7,BF
  285. 3840 LINE(10,250)-(629,260),PSET,%4,BF
  286. 3850 LINE(215,10)-(225,250),PSET,%4,BF
  287. 3860 PAINT (20,20),%5,%4
  288. 3870 LINE(395,425)-(465,465),PSET,%6,BF
  289. 3880 LINE(395,425)-(465,465),PSET,%3,B
  290. 3890 LINE(470,425)-(540,465),PSET,%6,BF
  291. 3900 LINE(470,425)-(540,465),PSET,%3,B
  292. 3910 LINE(550,425)-(620,465),PSET,%4,BF
  293. 3920 LINE(550,425)-(620,465),PSET,7,B
  294. 3930 '
  295. 3940 '文字入れ
  296. 3950 SYMBOL (15 , 12),"今のカ－ド"                  ,1.5!,1.5!,7,,,,18
  297. 3960 SYMBOL (250, 12),"前に出たカ－ド"              ,1.5!,1.5!,7,,,,30
  298. 3970 SYMBOL (14 ,265),"意味（タロットカ－ドの意味）",1.5!,1.5!,7,,,,22
  299. 3980 SYMBOL (398,426),"ＮＥＸＴ"                    ,1   ,2.7!,7,,,, 1
  300. 3990 SYMBOL (473,426),"ＢＡＣＫ"                    ,1   ,2.7!,7,,,, 1
  301. 4000 SYMBOL (553,426),"ＨＥＬＰ"                    ,1   ,2.7!,7,,,, 1
  302. 4010 GOTO 3440 
  303. 4020 RETURN 
  304. 4030 '=======================================================
  305. 4040 FOR I=1 TO 8
  306. 4050  BAMOJI$=A$(J(I),C(I),U(I))
  307. 4060   MOLEN$(I)=KLEFT$(BAMOJI$,3)
  308. 4070   MOLEN(I)=KLEN(BAMOJI$)
  309. 4080  A$(J(I),C(I),U(I))=KRIGHT$(BAMOJI$,MOLEN(I)-4)
  310. 4090 NEXT I
  311. 4100 OPEN "O",#1,"LPT0:":GOSUB *文章
  312. 4110 PRINT #1,KAK$
  313. 4120 PRINT #1,"　　タロット占い          ";MODO$;"        ＮＡＭＥ：";DA$(1)
  314. 4130 PRINT #1,"  　 　                           生年月日：";DA$(2);"       　　　　 ";K2$;"Ｂｙ　 科学技術部"
  315. 4140 PRINT #1,KAK$;"　［ホロスコ－プ法］　";MODO$;"　　　　　　性　　別：";DA$(3)
  316. 4150 PRINT #1,"                                  占 い 日：";DAT$
  317. 4160 PRINT #1
  318. 4170 PRINT #1,"＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊"
  319. 4180 PRINT #1,"第１ハウス：";MOLEN$(3);"｜"
  320. 4190 PRINT #1,"                　｜";KAK$;"知識　　";A$(J(3),C(3),U(3));MODO$
  321. 4200 PRINT #1,"位置 :";SEII$(3);"　   ｜"
  322. 4210 PRINT #1,"＿＿＿＿＿＿＿＿＿/＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿"
  323. 4220 PRINT #1,"第２ハウス：";MOLEN$(5);"｜"
  324. 4230 PRINT #1,"                  ｜";KAK$;"学問　　";A$(J(5),C(5),U(5));MODO$
  325. 4240 PRINT #1,"位置 :";SEII$(5);"　   ｜"
  326. 4250 PRINT #1,"＿＿＿＿＿＿＿＿＿/＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿"
  327. 4260 PRINT #1,"第３ハウス：";MOLEN$(4);"｜"
  328. 4270 PRINT #1,"                  ｜";KAK$;"恋愛　　";A$(J(4),C(4),U(4));MODO$
  329. 4280 PRINT #1,"位置 :";SEII$(4);" 　  ｜"
  330. 4290 PRINT #1,"＿＿＿＿＿＿＿＿＿/＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿"
  331. 4300 PRINT #1,"第４ハウス：";MOLEN$(2);"｜"
  332. 4310 PRINT #1,"                　｜";KAK$;"家庭　　";A$(J(2),C(2),U(2));MODO$
  333. 4320 PRINT #1,"位置 :";SEII$(2);"　   ｜"
  334. 4330 PRINT #1,"＿＿＿＿＿＿＿＿＿/＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿"
  335. 4340 PRINT #1,"第５ハウス：";MOLEN$(6);"｜"
  336. 4350 PRINT #1,"                  ｜";KAK$;"金運　　";A$(J(6),C(6),U(6));MODO$
  337. 4360 PRINT #1,"位置 :";SEII$(6);"　   ｜"
  338. 4370 PRINT #1,"＿＿＿＿＿＿＿＿＿/＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿"
  339. 4380 PRINT #1,"第６ハウス：";MOLEN$(7);"｜"
  340. 4390 PRINT #1,"                  ｜";KAK$;"希望　　";A$(J(7),C(7),U(7));MODO$
  341. 4400 PRINT #1,"位置 :";SEII$(7);"　   ｜"
  342. 4410 PRINT #1,"＿＿＿＿＿＿＿＿＿/＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿"
  343. 4420 PRINT #1,"第７ハウス：";MOLEN$(8);"｜"
  344. 4430 PRINT #1,"                  ｜";KAK$;"健康　　";A$(J(8),C(8),U(8));MODO$
  345. 4440 PRINT #1,"位置 :";SEII$(8);"　   ｜"
  346. 4450 PRINT #1,"＿＿＿＿＿＿＿＿＿/＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿"
  347. 4460 PRINT #1,"キ－カ－ド：";MOLEN$(1);"｜"
  348. 4470 PRINT #1,"                  ｜";KAK$;"総合　　";A$(J(1),C(1),U(1));MODO$
  349. 4480 PRINT #1,"位置 :";SEII$(1);"     ｜"
  350. 4490 PRINT #1,"＿＿＿＿＿＿＿＿＿/＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿"
  351. 4500 PRINT #1
  352. 4510 PRINT #1,"     未来は今日から続く明日に生まれます。もし悪い内容の占いが出てしまっても，今日という日を変えて下さい。"
  353. 4520 PRINT #1,"　　　また，変えるという意志を持って下さい。その意志こそ今日を変える力なのですから。"
  354. 4530 PRINT #1
  355. 4540 PRINT #1,"  ＜　タロット占いについて＞　  "
  356. 4550 PRINT #1," 　 タロットカ－ドは人生の全ての局面を，２１枚で描き尽くすことが出来るように，カ－ド一枚一枚で"
  357. 4560 PRINT #1,"     かかれている人生の姿が多種多様になっています．ですからカ－ドの絵が直観的に貴方に語りかけてき"
  358. 4570 PRINT #1,"     ます．また占い師はカ－ドが何を言っているかを，貴方に取り次ぐだけの仲介者になります．"
  359. 4580 PRINT #1,"＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿"
  360. 4590 PRINT #1,"                                                 監　　　督：広野　守　    　　　　　｜画面　処理：武藤　信行 ・ 夏目　岳明  "
  361. 4600 PRINT #1,"                                                 ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ：山本　祐輔　　　　　    ｜            只野　信高 ・ 吉本  宏二　"
  362. 4610 PRINT #1,"                                                 ｻﾌﾞﾌﾟﾛｸﾞﾗﾑ：滝本　優一 ・ 山本　達也｜文　　　字：村井　理枝 ・ 古池　操　  "
  363. 4620 PRINT #1,"                                                 音　　　声：山本　ひろみ　   　　   ｜　　　　　　鈴木千代子 ・ 鹿野  由実子"
  364. 4630 '
  365. 4640 '
  366. 4650 '
  367. 4660 '
  368. 4670 '
  369. 4680 CLOSE :CLS:GOTO 4860
  370. 4690 '
  371. 4700 *文章
  372. 4710 FOR D=1 TO 8
  373. 4720 IF U(D)=1 THEN SEII$(D)="正位置 "
  374. 4730 IF U(D)=2 THEN SEII$(D)="逆位置 "
  375. 4740 NEXT D
  376. 4750 '
  377. 4760 DDD=VAL(RIGHT$(DATE$,2))
  378. 4770 TTT=VAL(RIGHT$(DATE$,5))
  379. 4780 NNN=VAL(RIGHT$(DATE$,8)):NNN=NNN+1900
  380. 4790 DDD$=STR$(DDD):TTT$=STR$(TTT):NNN$=STR$(NNN)
  381. 4800 DDD$=AKCNV$(DDD$)
  382. 4810 TTT$=AKCNV$(TTT$)
  383. 4820 NNN$=AKCNV$(NNN$)
  384. 4830 DAT$=NNN$+"年"+TTT$+"月"+DDD$+"日"
  385. 4840 RETURN
  386. 4850 '
  387. 4860 FOR I=1 TO 3:DA$(I)="":NEXT I
  388. 4870 GOTO 1370
  389. 4880 '
  390. 4890 '===================================================================
  391. 4900 *ＨＥＬＰ
  392. 4910 IF MODR=1 THEN HELP=1 ELSE IF MODR=2 THEN HELP=2 ELSE                       IF MODR=3 THEN HELP=1
  393. 4920 GET@ A(10,20)-(630,420),HLP%
  394. 4930 LINE(10,20)-(630,420),PSET,7,BF
  395. 4940 MIJX=15:MOJY=35
  396. 4950 GOTO *ＤＡＴＡ読み込み 
  397. 4960 IF MOUSE(2,0)=0 THEN 4960
  398. 4970 PUT@ A(10,20)-(630,420),HLP%
  399. 4980 CLS 4
  400. 4990 '
  401. 5000 IF MODR=1 THEN 2900 ELSE IF MODR=2 THEN 3510 ELSE IF MODR=3 THEN 2150
  402. 5010 '
  403. 5020 *ＢＡＣＫ
  404. 5030 IF A-1<=0 THEN RETURN
  405. 5040 LINE(X+A*KN,Y)-(X+A*KN+130,Y+190),PSET,%7,BF
  406. 5050 A=A-1 
  407. 5060 RETURN 3500
  408. 5070 '
  409. 5080 *ＢＡＣＫ2
  410. 5090 A=A-1
  411. 5100 LINE(X+A*KN,Y)-(X+A*KN+130,Y+190),PSET,%7,BF
  412. 5110 GOTO 3500
  413. 5120 '
  414. 5130 '  ＨＥＬＰ  ＤＡＴＡ
  415. 5140 '********************  名前　入力　ＨＥＬＰ *************************
  416. 5150 '
  417. 5160 ' －－－－－－－－ヘルプ画面－－－－－－－－－－－－－－－－－
  418. 5170 DATA " ［名前入力］ 名前は，イニシャルで，３文字入れて下さい。"
  419. 5180 DATA "                  　　　［　例: Ｈ．Ｔ ］"
  420. 5190 DATA "              例のように入れて下さい。"
  421. 5200 DATA "               そして，入れ終わったら，「決定」を押して下さい。"
  422. 5210 DATA ""
  423. 5220 DATA " ［生年月日入力］　生年月日は，下の例のように入力して下さい。"
  424. 5230 DATA "                    ［例：１９９０．０９．１５］"
  425. 5240 DATA "                このように入れて下さい。"
  426. 5250 DATA "                但し，数字は次のように入力して下さい。"
  427. 5260 DATA "                    １．９＝＝＝＝＞０９"
  428. 5270 DATA "                    ２．１５＝＝＝＞１５"
  429. 5280 DATA "                    ３．平成２年＝＞１９９０"
  430. 5290 DATA "                 として下さい。もし，間違えると，"
  431. 5300 DATA "                  ｢ＤＡＴＡの入力ミスです。」"
  432. 5310 DATA "                   と，出ます。"
  433. 5320 DATA ""
  434. 5330 DATA " ［性別入力］　性別は，男・女から選んで，マウスの左を押して下さい。"
  435. 5340 DATA "             削除を選ぶと何回も入力したのは，消えます｡"
  436. 5350 DATA ""
  437. 5360 '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
  438. 5370 '*********************　メイン　画面　ヘルプ　*****************
  439. 5380 DATA "［ＮＥＸＴ］　次のカードをみます。"
  440. 5390 DATA ""
  441. 5400 DATA "［ＢＡＣＫ］　ひとつ前のカードに，戻ります。"
  442. 5410 DATA ""
  443. 5420 DATA "［カードの意味］　カードの意味に，今のカードの意味が出ます。"
  444. 5430 DATA ""
  445. 5440 DATA "［今のカード］　今のカードの意味のカードが左上に，表示されます。"
  446. 5450 DATA ""
  447. 5460 DATA "［前に出たカード］　いままでに出てきたカードです。"
  448. 5470 DATA ""
  449. 5480 DATA "［プリントアウト］　最後に，プリントをしますか？　と聞いてくるので"
  450. 5490 DATA "　　　           もし，するならプリント用紙をセットして，マウスの"
  451. 5500 DATA "                 左を押して下さい。"
  452. 5510 DATA " 　　　　        しないのなら，マウスの左を押して下さい。" 
  453. 5520 DATA "　　　          すると，名前入力に戻ります。"
  454. 5530 '=====================================================================5610 '  
  455. 5540 *ＤＡＴＡ読み込み
  456. 5550 IF HELP=1 THEN RESTORE 5170:REE=19 ELSE IF HELP=2 THEN RESTORE 5370          :REE=14
  457. 5560 FOR I=1 TO REE
  458. 5570   READ HELL$
  459. 5580   SYMBOL (MOJX,MOJY),HELL$,1,1,%3
  460. 5590   MOJY=MOJY+20
  461. 5600 NEXT I:MOJY=35
  462. 5610 GOTO 4960
  463. 5620 *文字表示
  464. 5621 LOCATE 0,3
  465. 5622 COLOR 7
  466. 10025 PRINT"            ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊  "
  467. 10030 PRINT"          ＊＊                   <<<タロット占い>>>                 ＊＊"
  468. 10040 PRINT"          ＊                                                          ＊"
  469. 10050 PRINT"          ＊      平成２年度旺文社主催　　                            ＊"
  470. 10060 PRINT"          ＊                                                          ＊"
  471. 10070 PRINT"          ＊        全国中学生パソコンソフトウェアコンクール参加作品  ＊"
  472. 10080 PRINT"          ＊                                                       　 ＊"
  473. 10090 PRINT"          ＊         製作：幸田町立北部中学校  【科学技術部】         ＊"
  474. 10095 PRINT"          ＊                                                          ＊"
  475. 10100 PRINT"          ＊               （愛知県額田郡幸田町大字高力字越丸３４）   ＊"
  476. 10110 PRINT"          ＊                                                          ＊"
  477. 10120 PRINT"          ＊            プログラム：山本　祐輔・滝本　優一            ＊"
  478. 10130 PRINT"          ＊                                                          ＊"
  479. 10140 PRINT"          ＊            顧　問  ：廣野　守                            ＊"
  480. 10145 PRINT"          ＊＊                                                      ＊＊"
  481. 10150 PRINT"            ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊  "
  482. 10170 PRINT""
  483. 10175 PRINT"        　　　                  しばらくお待ち下さい"
  484. 10180 RETURN
  485.