                             - 67 -

                            1.
1.5

               "⨭ ணࠬ " ⥭".

10 _NETEND
20 GOSUB 1110
30 GOSUB 1050: '  
40 DIM G(10)
50 SCREEN 7,2:COLOR 15,1,1: CLEAR 2000: CLS
60 OPEN "grp:" AS #1
70 GOSUB 490:' ᮢ 䮭
80 GOSUB 660: 'ᮧ ꥪ⮢
90 '
100 '   襫
110 '
120 XS=118:Z=1: XU=5
130 RESTORE 1700
140 FOR KS=1 TO 15
150 IF INKEY$<>"" THEN 150
160 READ SL$,OT
170 COLOR 15,4:PRESET(300,120):PRINT #1,SL$+"       "
180 ' ࠡ⪠  㪠⥫
190 G=STICK(0):FOR W=1 TO 50:NEXT W
200 IF G=3 AND Z<5 THEN XS=XS+24:Z=Z+1: GOTO 220
210 IF G=7 AND Z>1 THEN XS=XS-24:Z=Z-1
220 PUT SPRITE 2,(XS,175),15,2
230 E$=INKEY$
240 IF E$=" " THEN 250 ELSE 190
250 IF OT=Z THEN GOSUB 880:GOSUB 980:GOSUB 720
    ELSE GOSUB 910: GOSUB 980
260 NEXT KS
270 ' 뤠 १⮢
280 LINE(200,100)-(480,200),4,BF
290 LINE(200,100)-(480,200),10,B
300 SPRITE$(2)=""
310 IF SU=15 THEN RESTORE 1500
320 IF SU<=14 AND SU>=13 THEN RESTORE 1550
330 IF SU<=12 THEN RESTORE 1600

                             - 68 -

340 ' 뤠 ४権
350 FOR Y=110 TO 150 STEP 10
360 READ A$
370 COLOR 15,4:PRESET(220,Y):PRINT #1,A$
380 NEXT Y
390 LINE (200,165)-(480,165),10
400 GOSUB 770
410 '     
420 COLOR 15,4:PRESET (220,170):PRINT #1,"      
        ?"
430 PRESET (220,180):PRINT #1," '', ᫨ ; '' - "
440 E$=INKEY$
450 IF E$="" THEN 440
460 IF INSTR("Dd",E$)>0 THEN CLEAR: CLOSE #1:GOTO 20
470 IF INSTR("Nn",E$)>0 THEN 480 ELSE 440
480 END
490 '   ᮢ 䮭
500 LINE(0,0)-(512,30),7,BF:CIRCLE(25,15),10,10:
    PAINT (25,15),10
510 COLOR 4,7:PRESET(480,5):PRINT #1,"IFV"
520 LINE (0,31)-(22,96),2,BF:LINE (23,31)-(489,96),1,BF
530 LINE(490,31)-(512,96),2,BF
540 Y=10:FOR X=50 TO 500 STEP 100
550 CIRCLE(X,Y),10,15,,,.3:PAINT(X,Y),15
560 Y=Y+4
570 NEXT X
580 FOR I=0 TO 19
590 LINE (22+I*24,41)-(34+I*24,86),15,BF
600 NEXT I
610 COLOR 9,1:PRESET(250,180):PRINT #1,"     
             [ ]"
620 LINE(200,100)-(480,150),4,BF
630 LINE(200,170)-(480,200),10,B
640 COLOR 9,4:PRESET (220,120):PRINT #1,": "
650 RETURN
660 ' . ꥪ
670 RESTORE 1650:F$="":FOR I=1 TO 32:READ F1
680 F$=F$+CHR$(F1):NEXT I:SPRITE$(1)=F$

                             - 69 -

690 PUT SPRITE 1,(XU,50),9,1
700 RESTORE 1680:F$="":FOR I=1 TO 32: READ A:F$=F$+CHR$(A):
    NEXT I:SPRITE$(2)=F$
710 RETURN
720 '  ꥪ⮢
730 FOR T=XU TO XU+16 STEP .5
740 PUT SPRITE 1,(T,50),9,1
750 NEXT T:XU=XU+16
760 RETURN
770 ' 릪 ⥭
780 FOR I=1 TO 10
790 FOR Y=50 TO 44 STEP .3
800 PUT SPRITE 1,(XU-5,Y),9,1
810 NEXT Y
820 FOR W=1 TO 100:NEXT W
830 FOR Y=44 TO 50 STEP .3
840 PUT SPRITE 1,(XU-5,Y),9,1
850 NEXT Y
860 NEXT I
870 RETURN
880 '  ࠢ쭮
890 SU=SU+1:COLOR 14,1:PRESET(50,120):PRINT #1,
    " !!!": GOSUB 940
900 RETURN
910 '  ࠢ쭮
920 COLOR 14,1:PRESET(50,120):PRINT #1," !!!":
    GOSUB 940
930 RETURN
940 ' 㧠  ६
950 WR=TIME
960 IF ABS(TIME-WR)/60 <1 THEN  960
970 RETURN
980 ' 㧠  ஡
990 COLOR 15,1:PRESET(50,140):PRINT #1," ''"
1000 IF INKEY$<>"" THEN 1000
1010 IF INKEY$="" THEN 1010
1020 PRESET(50,120):PRINT #1,SPACE$(17)
1030 PRESET(50,140):PRINT #1,SPACE$(17)

                             - 70 -

1040 RETURN
1050 '  樨
1060 CLS:LINE(0,0)-(256,212),15,B
1070 FOR Y=5 TO 180 STEP 10:READ A$:PRESET(5,Y):PRINT #1,A$:
     NEXT Y
1080 IF INKEY$<>"" THEN 1080
1090 IF INKEY$="" THEN 1090
1100 RETURN
1110 COLOR 15,1,1:SCREEN 5: OPEN "grp:" AS #1
1120 LINE(0,0)-(256,212),9,B
1130 COLOR 11,1:PRESET(35,5):PRINT#1," "
1140 PRESET(35,15):PRINT#1," "
1150 COLOR 15:PRESET(30,40):PRINT #1,"    ணࠬ "
1160 COLOR 9:PRESET(80,55):PRINT #1,""
1170 PRESET(35,65):PRINT #1," "
1180 RESTORE 1230:COLOR 2
1190 FOR Y=110 TO 178 STEP 8:READ A$:PRESET(10,Y):PRINT #1,A$:
     NEXT Y
1200 COLOR 15: PRESET(80,200):PRINT #1," 1996 ."
1210 IF INKEY$<>"" THEN 1210
1220 IF INKEY$=""THEN 1220 ELSE RETURN
1230 DATA"              業਩:"
1240 DATA"              ⮢ ."
1250 DATA"               ."
1260 DATA" "
1270 DATA"              㪮⥫:"
1280 DATA"              ᪨ .."
1290 DATA"                            "
1300 DATA"              ணࠬ :"
1310 DATA"               .."
1320 DATA"               "
1330 DATA" "
1340 DATA" ࠢ, 쪨  !"
1350 DATA"    ⥭  "
1360 DATA"३ १ ண.   "
1370 DATA"ᤥ   筮,   "
1380 DATA",   ⠪     "
1390 DATA" ࠢ  ࠢᠭ -"

                             - 71 -

1400 DATA"நᨬ ᮣ.  -"
1410 DATA"㭪 㢨  ᨬ:,"
1420 DATA",,,[].      "
1430 DATA"५ ⠭ ⨪ "
1440 DATA"㦭 ᨬ   ᠬ    "
1450 DATA" . '[]' -"
1460 DATA"砥,  ⠢ 㪢 "
1470 DATA"."
1480 DATA"       ᯥ."
1490 DATA".        1.04.96"
1500 DATA " !  ﬨ  "
1510 DATA " ⥭  ३   "
1520 DATA "१ ண.  ⥡:"
1530 DATA "'ᨡ !'                  "
1540 DATA "                             "
1550 DATA "!  㣮 ஭   "
1560 DATA "㫨 ⠫  ᮢᥬ   "
1570 DATA "-.㦭  -"
1580 DATA " ࠢᠭ ந- "
1590 DATA "ᨬ ᮣ.             "
1600 DATA "-- !!! ⥭ ⠫ "
1610 DATA "। ஥ .  "
1620 DATA "  設.   "
1630 DATA "- ⮣,    -"
1640 DATA " ࠢ."
1650 DATA 0,0,1,1,0,128,128,191,255,127,127,63,3,3,3,0
1660 DATA 224,240,252,248,240,96,96,224,240,240,240,224
1670 DATA 224,0,128,192,128
1680 DATA 255,255,192,192,192,192,192,192,192,192,192,192,
     192,192,255,255,255,255,3,3,3,3,3,3,3,3,3,3,3,3,255,255
1690 '  ࠡ稩 ਠ
1700 DATA .,1,.,1,.,3,.,5,
     .,5,.,2,.,4,.,5,
     .,1,.,5,.,5,.,5,.,
     1,.,1,.,1

                ⨭ ணࠬ "⮬".


                             - 72 -

10  _netend
20 CLEAR 1000
30 GOSUB 1240: '  ⠢
40 GOSUB 1180: '  
50 SCREEN 7,2
60 COLOR=(14,4,4,4):Y1=130:XR=220:XS=2
70 GOSUB 620: '  . ஢ 
80 GOSUB 920:' ᮭ
90 '
100 '   ᭮ 
110 '
120 RESTORE 1170
130 FOR KS=1 TO 18
140 IF INKEY$<>"" THEN 140
150 READ S$,KR
160 COLOR 15:PRESET(170,103):PRINT #1,S$+"         "
170 LINE (XR,Y1)-(XR+75,Y1+16),15,B
180 G=STICK(0)
190 Y2=Y1
200 IF G=1 AND Y1>130 THEN Y1=Y1-16:GOTO  220
210 IF G=5 AND Y1<146 THEN Y1=Y1+16:GOTO 220 ELSE 240
220 LINE (XR,Y2)-(XR+75,Y2+16),1,B
230 LINE (XR,Y1)-(XR+75,Y1+16),15,B
240 E$=INKEY$
250 IF E$=" " THEN 260 ELSE 180
260 IF Y1=KR THEN SU=SU+1:GOSUB 990:GOSUB 500 ELSE GOSUB 1040
270 NEXT KS
280 '  ᭮ , 뤠 ४権
290 IF SU=18 THEN RESTORE 1630
300 IF SU>=16 AND SU<=17 THEN RESTORE 1680
310 IF SU<=15 THEN RESTORE 1730
320 ' 뤠
330 LINE (0,90)-(512,212),1,BF
340 LINE (100,100)-(412,160),4,BF
350 LINE (100,100)-(412,160),9,B
360 COLOR 15,4
370 FOR Y=105 TO 145 STEP 10
380 READ A$

                             - 73 -

390 PRESET(150,Y):PRINT #1,A$
400 NEXT Y
410 FOR W=1 TO 500:NEXT W
420 COLOR 2,1
430 PRESET(150,190):PRINT #1,"  ࠧ祪 ?"
440 PRESET(100,200):PRINT #1," '', ᫨   '',
    ᫨ ?"
450 E$=INKEY$
460 IF E$="" THEN 450
470 IF INSTR("Dd",E$) THEN CLOSE:GOTO 20
480 IF INSTR("NnHh",E$)>0 THEN 490 ELSE 450
490 END
500 '  設
510 A$="v13 o4s1l16 cdefgbgbfedc"
520 PLAY A$
530 XS=XS+12.5
540 FOR XC=XS TO XS+12 STEP 1
550 PUT SPRITE 2,(XC-1,42),14,2
560 PUT SPRITE 1,(XC,42),8,1
570 FOR W=1 TO 5:NEXT W
580 PUT SPRITE 2,(XC,42),1,2
590 FOR W=1 TO 5:NEXT W
600 NEXT XC
610 RETURN
620 ' ᮢ ஢ 
630 LINE(0,0)-(512,30),5,BF
640 LINE(0,31)-(512,40),12,BF
650 LINE(0,41)-(512,85),14,BF
660 LINE(0,66)-(512,86),12,BF
670 COLOR 2,12:PRESET(480,75):PRINT #1,"IFV"
680 I=5:FOR X= 475 TO 325 STEP -50:LINE(X,41)-(X,65),15:
    COLOR 15,4:PRESET(X,33):PRINT #1,I:I=I-1:NEXT X
690 DRAW"C6BM0,30 R512 U6"
700 FOR J=512 TO 0 STEP-6:DRAW "M"+STR$(J)+","+
    STR$(INT(22+RND(1)*6-3)):NEXT J
710 DRAW"l1 M0,30"
720 PAINT(1,29),6
730 CIRCLE(25,10),10,10

                             - 74 -

740 PAINT(25,10),10
750 LINE(0,0)-(512,86),8,B
760 LINE (100,95)-(400,120),10,B
770 FOR M=1 TO 25
780 COLOR 2,1:PRESET(110,103):PRINT #1,"        "
790 COLOR 2,1:PRESET(110,103):PRINT #1,":  "
800 NEXT M
810 COLOR 10:PRESET(10,137):PRINT #1,"  㦥 "
820 COLOR 9:PRESET(10,147):PRINT #1,"  ?"
830 LINE (0,125)-(512,170),11,B
840 COLOR 15:PRESET(252,135):PRINT #1,"":
    PRESET(250,150):PRINT #1,""
850 PSET(150,145):DRAW"c7 m200,139 h3 bf3 g3
    bm150,145 m200,151 h3 bf3 g3"
860 LINE (350,130)-(380,145),13,B:LINE(350,150)-(380,165),13,B
870 PSET(364,143):DRAW"c10 u6 l2 e4 f4 l2 d6 l4"
880 PSET(364,152):DRAW"c10 d6 l2 f4 e4 l2 u6 l4"
890 LINE (400,158)-(480,165),13,B
900 RETURN
910 ' ᮢ ஢ ᮭ
920 RESTORE 970
930 FOR I=1 TO 2: S$="": FOR J=1 TO 32:READ D:S$=S$+CHR$(D):
    NEXT J:SPRITE$(I)=S$:NEXT I
940 PUT SPRITE 1,(12,42),8,1
950 PUT SPRITE 2,(12,42),1,2
960 RETURN
970 DATA0,0,0,0,255,209,209,209,81,94,86,142,128,51,48,0,0,0,
    0,0,192,0,0,0,4,255,255,206,134,183,48,0
980 DATA0,0,0,0,0,32,32,32,32,33,41,1,55,72,72,48,0,0,0,0,0,0,
    0,0,0,0,0,0,48,72,72,48
990 '  ࠢ쭮
1000 COLOR 9:PRESET(200,190):PRINT #1," !!!"
1010 GOSUB 1090
1020 PRESET(200,190):PRINT #1,SPACE$(15)
1030 RETURN
1040 '  ࠢ쭮
1050 COLOR 9:PRESET(200,190):PRINT #1," !!!"
1060 GOSUB 1090

                             - 75 -

1070 PRESET(200,190):PRINT #1,SPACE$(15)
1080 RETURN
1090 '  㧠  
1100 IF INKEY$<>"" THEN 1100
1110 COLOR 15:PRESET(200,200):PRINT #1," ..."
1120 IF INKEY$=" " THEN 1130 ELSE 1120
1130 PRESET(200,200):PRINT #1,SPACE$(25)
1140 RETURN
1150 DATA 204,170,204,168,200,0,255,0,0,0,0,0,0,0,0,0,232,141,
     202,138,234,0,255,0,0,0,0,0,0,0,0,0
1160 DATA 152,171,152,171,168,0,248,0,0,0,0,0,0,0,0,0,0,192,0,
     192,0,0,0,0,0,0,0,0,0,0,0,0
1170 DATA ..,130,..,130,..,130,..,146,..,
     130,..,130,..,130,..,146,..,130,..,
     146,..,146,..,146,..,130,..,130,..,130,
     ..,130,..,146,..,146
1180 '  樨
1190 CLS:LINE(0,0)-(256,212),15,B
1200 FOR Y=5 TO 180 STEP 10:READ A$:PRESET(5,Y):PRINT #1,A$:
     NEXT Y
1210 IF INKEY$<>"" THEN 1210
1220 IF INKEY$="" THEN 1220
1230 RETURN
1240 COLOR 15,1,1:SCREEN 5: OPEN "grp:" AS #1
1250 LINE(0,0)-(256,212),9,B
1260 COLOR 11,1:PRESET(35,5):PRINT#1," "
1270 PRESET(35,15):PRINT#1," "
1280 COLOR 15:PRESET(30,40):PRINT #1,"    ணࠬ "
1290 COLOR 9:PRESET(25,55):PRINT #1,"   "
1300 PRESET(15,65):PRINT #1,"   "
1310 RESTORE 1360:COLOR 2
1320 FOR Y=110 TO 178 STEP 8:READ A$:PRESET(10,Y):PRINT #1,A$:
     NEXT Y
1330 COLOR 15: PRESET(80,200):PRINT #1," 1996 ."
1340 IF INKEY$<>"" THEN 1340
1350 IF INKEY$=""THEN 1350 ELSE RETURN
1360 DATA"              業਩:"
1370 DATA"              ⮢ ."

                             - 76 -

1380 DATA"               ."
1390 DATA" "
1400 DATA"              㪮⥫:"
1410 DATA"              ᪨ .."
1420 DATA"                            "
1430 DATA"              ணࠬ :"
1440 DATA"               .."
1450 DATA"               "
1460 DATA" "
1470 DATA" ࠢ, 쪨  !"
1480 DATA" - ⥫ ਭ - "
1490 DATA",    ⠢"
1500 DATA" 㧥.  ⮣ 筮"
1510 DATA"㬥  設.   "
1520 DATA" ࠢ  ࠢᠭ -"
1530 DATA"      ⢨-"
1540 DATA"⥫.                       "
1550 DATA"    㭪 㢨 ࠬ, "
1560 DATA"  뤠 .  "
1570 DATA"  ᠭ  ᫮: "
1580 DATA"<>  <>. 㪠 <>,"
1590 DATA"᫨  㦥,   ⨢ -"
1600 DATA"砥 - <>. ⥬  ஡. "
1610 DATA"       ᯥ."
1620 DATA".        1.04.96"
1630 DATA " ! ⫨묨 ﬨ "
1640 DATA " 몠  ⮬-"
1650 DATA "  ᯥ譮 ⠢ ࠭-"
1660 DATA "  㧥.   "
1670 DATA " ⥡ ୮!"
1680 DATA "!  㧥 ⠫   "
1690 DATA "᪮쪮 ⥭ ஢. - "
1700 DATA " ⥡    "
1710 DATA "  .᫥ ⮣"
1720 DATA " ࠢ.             "
1730 DATA "-- !!!  㧥 ⠫"
1740 DATA "᪮쪮 ஢.  "
1750 DATA "ਤ  .    "

                             - 77 -

1760 DATA "- ⮣,    -"
1770 DATA " ࠢ."
.
                             - 78 -

                           2.
.
                             - 79 -

                           3.
2

          
           ,    .

       _ ஢ન ᫨⭮ (ࠧ쭮) ᠭ
               _⠢ (।).

     1蠣.  ॡ    ஢塞  ᫮    ।
(⠢)?

                                        :  ᫨⭮,
                                           ⠢.

     2蠣.   ⠢    ᫮?

             :  ࠧ쭮,          :  ᫨⭮,
              ।.                  ⠢.


       _ 㯮ॡ  ᫥ 訯  
                _ ⢨⥫.

     1蠣. ஢塞 ᫮ - ⢨⥫쭮?

                                       : ஢ 
                                         ᫮.


                             - 80 -

     2蠣. 稢  訯騩 (, , , )?

                                       : ஢ 
                                         ᫮.

     3蠣. । த: ᪨, ᪮.

            ᪨:  "".          ᪮: "" 
                                        .

         _ਠ ⬮ ஢ન 㤠୮ ᭮ 
                        _୥.

     _1)  ஢ન 㤠୮ 㪠 [] ( 쬥 㪢
_"").
     ਬ   ,  㤠 []   㤠
஢ 㤠 [].

     1蠣.    ஢筮 ᫮    㤠୮  ""
( [] ᫥  ᮣ᭮)?

                                      : ஢ 
                                        ᫮.

     2蠣. ⠢, ࠢ ஢筮  ஢塞 ᫮.
             ,  砥  ஢筮
           ᫮ 㤠  - 㪢 "".
           ஢ ᠭ.

                             - 81 -


     _2)  ஢ન ᫮  2- 㤠묨 묨 
        _୥.
     1蠣.  ᫮   ⠭  "--",  "--",  "--",
"--".    㤠?

                               : 
                                        ஢筮 ᫮.

     2蠣.  ஢筮  ᫮    ࢮ  㤠୮
᭮ 㪠.

           㤠                  㤠: ஢ 
           ஢筮 ᫮            ᫮

     3蠣.  ஥ ஢筮 ᫮.

           㤠                  㤠: ஢ 
           ஢筮 ᫮            ᫮

     4蠣.  ⠢,  ࠢ  ஢塞   ᫮      
஢묨  ᫮.    ᮮ⢥騥    㪢.
஢ ᠭ.

           _ਠ ࠢᠭ ""  .

     1) 1蠣.   । .    
              栭 ""?

                             - 82 -


                                        : ஢ 
                                          ᫮

        2蠣. ""    ࠧ쭮.
               ஢ ᠭ.

      2) 1蠣.   । 栭 "".

                                      : ஢
                                          祣
         2蠣.   ᫮,          ⭮
""?

                                  㣨   -
                                          ஢  
                                         㬥,  
                                         ⥫

         3蠣. ""   ࠧ쭮.
                ஢ ᠭ.
