                                - 61 -

                            ਫ N3.

                ⨭ ணࠬ "䨭 ".

5 _NETE
10 COLOR 15,1,1
12 DIM P(12),R$(12)
15 MAXFILES=1:SCREEN4
16 OPEN"GRP:"FOROUTPUTAS#1
17 GOSUB5000'   ⠢
18 RESTORE3000:GOSUB160         ' 
20 SCREEN7,2 :SET PAGE 0,1:CLS:SET PAGE 1,1
22 PRESET(160,110):PRINT#1,"  ..."
23 SET PAGE1,0:CLS
25 RESTORE6000:FOR I=1 TO32 :READW:Z$=Z$+CHR$(W):NEXT I
26 SPRITE$(31)=Z$
80 GOSUB1000
85 DIM P(12),R$(12):A$(1)="":A$(2)="":A$(3)="":A$(4)=""
100 OO=0
110 GOSUB 410' ஢ 
115 GOSUB 490' ᮭ
120 GOSUB750' ᫮
130 RESTORE1200
132 SET PAGE 0,0
135 FOR V=1TO11'      横
136 PUTSPRITE 4,(DX,DY),1,12   ' 䨭
137 PUTSPRITE 3,(DX,DY),15,11
140 GOSUB1020' 
150 GOSUB 600       ' 1
155 GOSUB330  '   2
156 GOSUB 830
157 GOSUB1000:NEXT V'     横
158 GOTO 1170       '          १
160 SCREEN7:LINE(0,0)-(512,212),2,B :COLOR 15:COLOR=(15,0,0,0)
161 FOR I=10 TO200 STEP10
162 READ A$
163 PRESET(50,I):PRINT#1,A$
164 NEXT I

                                - 62 -

165 DRAW" bm362,86 r20 d10 l20 u10 r10 bd2 nf3 ng3 d6"
166 DRAW" bm408,86 r20 d10 l20 u10 r10 bd2 d6 ne3 nh3"
167 DRAW" bm362,116 r19 d20 l19 u20 d10 br4 ne2 nf2 r10"
168 DRAW" bm409,116 r19 d20 l19 u20 d10 br4 r10 ng2 h2":
    FOR I=1TO7:COLOR=(15,I,I,I):GOSUB1440:NEXT I:GOSUB1005
169 A$=INKEY$:IF A$="" THEN169 ELSE RETURN
170 '================================
180                                      '릪  
200 IFRND(1)>.8THENONRND(1)*3GOTO 210,230:ELSE 310
210 PUTSPRITE 4,(DX,DY),1,2:IFSTICK(0)THEN335
220 PUTSPRITE 3,(DX,DY),15,1:GOSUB1440:GOTO 310
230 FORII=2TO6STEP2:IFSTICK(0)THEN335
240 PUTSPRITE 4,(DX,DY-II+2),1,II
250 PUTSPRITE 3,(DX,DY-II+2),15,II-1:GOSUB1440
260 NEXTII
270 FORII=8TO12STEP2:IFSTICK(0)THEN335
280 PUTSPRITE 4,(DX,DY-10+II),1,II
290 PUTSPRITE 3,(DX,DY-10+II),15,II-1:GOSUB1440
300 NEXTII
310 PUTSPRITE 4,(DX,DY),1,12
320 PUTSPRITE 3,(DX,DY),15,11
325 GOTO335
330 '     2
331 LINE(25,35)-(326,46),12,BF :L2=13
332 PRESET(75,38):PRINT#1,"⠢ ய饭 㪢"
333 PUT SPRITE 31,(L2,190),13,31
335 A=STICK(0):A$=INKEY$
337 IF A=3 AND L2<65 THEN L2=L2+20:GOTO345
338 IF A=7 AND L2>25 THEN L2=L2-20:GOTO345
339 IFA$=" "THEN GOSUB550' ࠡ 訡2
340 GOTO 180
345 PUT SPRITE 31,(L2,191),13,31:GOSUB1440
360 GOTO335
382 RETURN
390 '================================
400 ' ᮢ ஢ 
410 LINE(0,0)-(512,212),2,B
411 DRAW"c10 bm374,10 r120 d180 l120 u180 d20 r120"

                                - 63 -

412 DRAW" bm20,103 r320 d70 l320 u70 d15 r320"
413 COLOR 15
414 PRESET(415,17):PRINT#1,""
415 PRESET(140,108):PRINT#1,""
416 DRAW"c7 bm20,180 r160 d26 l160 u26 d12 nr160 u12    r40nd26
    r40nd26 r40nd26"
419 LINE(1,1)-(356,19),7,BF
420 LINE(1,21)-(356,29),14,BF:COLOR 15
421 PRESET(38,183):PRINT#1,""
422 PRESET(78,183):PRINT#1,""
423 PRESET(118,183):PRINT#1,""
424 PRESET(158,183):PRINT#1,""
430 LINE(1,31)-(356,50),10,BF
435 LINE(25,35)-(326,46),12,BF
436 LINE(25,35)-(326,46),1,B
440 LINE(1,51)-(356,96),4,BF
450 FORI=1TO100:EE%=RND(1)*14+2:YY%=RND(1)*10+20:XX%=RND(1)*352:
    DRAW"C=EE%;BM=XX%;,=YY%;R2L1U1":NEXTI   '   ⥫
460 RETURN
470 ' ᮢ ஢ ᮭ
480 '
490 RESTORE1550
500 NX=240:DX=10:DY=50:CX=157:BY=0
510 FORI=1TO19:S$="":FORJ=1TO32:READD:S$=S$+CHR$(D):NEXTJ:
    SPRITE$(I)=S$:NEXTI
540 RETURN
550 ' ஢ઠ2
551 PRESET(30,38):PRINT#1,"                                "
555 IF (L2-13)/20+1=Q1 THEN 582
560 PRESET(135,38):PRINT#1,"":T=T+1:Z1=2
580 RETURN 382
582 PRESET(140,38):PRINT#1,"":Z1=1
583 COLOR 10,1
584 PRESET(397+Q3*8,L1+2):PRINT#1,A$(Q1)
590 RETURN 382
600 ' N1
605 IF V<>1 THEN LINE(391,L)-(480,L+10),0,B
606 COLOR 15,12 :L=35:L1=35

                                - 64 -

610 LINE(391,L)-(480,L+10),15,B
620 PRESET(95,38):PRINT#1,"롥 㦭 ᫮":GOSUB1005
630 A=STICK(0):A$=INKEY$
635 IF A=5 AND L<150 THEN L1=L+12:GOTO645
640 IF A=1 AND L>36 THEN L1=L-12:GOTO645
641 IFA$=" "THEN GOSUB780' ࠡ 訡1
642 GOTO630
645 LINE(391,L)-(480,L+10),1,B
650 LINE(391,L1)-(480,L1+10),15,B
652 LINE(25,35)-(326,46),12,BF
655 L=L1
705 GOSUB1005
710 GOTO630
740 RETURN
750 RESTORE2000:COLOR 14
755 FOR I=1TO 11
760 READ A1$
765 PRESET(405,I*12+25)
770 PRINT#1,A1$
772 NEXT I
774 RETURN
780 '訡1
781 LINE(25,35)-(326,46),12,BF
785 IF L=Q2*12+35-12 THEN790
786 COLOR9,12
787 LINE(25,35)-(326,46),12,BF
788 PRESET(70,38):PRINT#1,"ࠢ쭮! ஡  ࠧ"
789 RETURN630
790 COLOR15,12
791 LINE(25,35)-(326,46),12,BF
792 PRESET(85,38):PRINT#1,"ࠢ쭮!  ஡"
795 GOSUB1005
796 A$=INKEY$:IF A$<>" "THEN796
800 RETURN740
810 ' ᮭ
820 '
830 G=2.12:ONZ1GOTO840,850  ' 
840 VX=4:VY=19:OO=OO+1:GOTO 860

                                - 65 -

850 VX=0:VY=19
860 ZC=DX:FORII=ZCTO 80STEP1:DX=II '    릪 80
870 PUTSPRITE 4,(DX,DY),1,12
880 PUTSPRITE 3,(DX,DY),15,11
890 NEXTII
900 TR=-.2:FORII=4TO8STEP2:FOREE=1TO15:TR=TR+.2:WX=DX+VX*TR
910 PUTSPRITE 4,(WX,DY-VY*TR+G*TR*TR),1,II
920 PUTSPRITE 3,(WX,DY-VY*TR+G*TR*TR),15,II-1
930 NEXTEE,II:DX=DX+9.3*VX:PUTSPRITE4,(DX,DY),1,10:
    PUTSPRITE3,(DX,DY),15,9:GOSUB1440:GOSUB1440
940 IFOO=20THEN1170ELSE950
950 ZC=DX:FORII=ZCTO160STEP1:DX=II
960 PUTSPRITE 4,(DX,DY),1,12
970 PUTSPRITE 3,(DX,DY),15,11
980 NEXTII:DX=10:DY=50
990 RETURN
1000 LINE(21,119)-(339,172),1,BF:RETURN  '᪠
1005 A$=INKEY$:IF A$<>"" THEN1005:RETURN ELSE RETURN
1010 ON ERROR GOTO 1430:ERROR ON
1020 READQ1,Q2,Q3,Q  : CX=100 ' न 
1040 FORJJ=10TO11:COLOR ,4:DRAW" BM=JJ;,80":COLOR15:PRINT#1,V:
     NEXTJJ' 
1050 FORJ=-32TO0
1060 PUTSPRITE0,(CX,J),8,14'    
1070 PUTSPRITE1,(CX,J+16),8,16
1080 PUTSPRITE15,(CX,J),9,15
1090 PUTSPRITE16,(CX,J+16),9,17
1100 NEXTJ
1110 COLOR ,1:'।
1115 FOR I=1TOQ
1120 I1=I*8+112
1125 READQ$
1130 PRESET(40,I1):COLOR 15:PRINT#1,Q$
1140 NEXT I
1160 RETURN
1167 READ A$
1168 PRESET(100,I)
1170 LINE(391,L)-(480,L+10),0,B

                                - 66 -

1171 SET PAGE 0,1:CLS
1175 LINE(0,0)-(512,212),12,BF:COLOR 15,12
1176 SET PAGE 1,1
1180 DRAW" bm70,44r365d50l365u50  BM200,60"
1181 IF T<5 THEN T1=3 ELSE T1=2
1182 IF T<3 THEN T1=4
1183 IF T=0 THEN T1=5
1185 ON T1 GOSUB 1194,1194,1195,1196,1197
1186 PRESET(10,180):PRINT#1,"  ?"
1187 PRESET(10,200):
     PRINT#1,"᫨  -  '', ᫨  - ''"
1188 GOSUB 1005:COLOR 15,0
1189 A$=INKEY$:IF A$=""THEN1189
1190 IF INSTR("dD",A$) THEN SET PAGE 1,0:GOSUB750:SET PAGE0,0:
     GOTO130
1191 IF INSTR("nN",A$) THEN END'       
1192 GOTO1189
1194 RESTORE4100:GOTO1198
1195 RESTORE4070:GOTO1198
1196 RESTORE4040:GOTO1198
1197 RESTORE4010
1198 FOR I=50 TO 80 STEP10:READ A$:PRESET(85,I)
1199 PRINT#1,A$:NEXT I:IF T1=3 THEN PRESET(275,60):PRINT#1,",":
     RETURN ELSE RETURN
1200 DATA2,2,2,2," ᭠   ⥬,"
1210 DATA"    㫨."
1220 DATA3,7,2,2,"릠 ⮢"
1230 DATA"諠  ."
1240 DATA1,5,5,4," ᫠,   "
1250 DATA" ᮫誮  ⢥ WW"
1260 DATA"࠭  㣫"
1270 DATA" ࠢ ⢮."
1280 DATA4,11,2,2," ᯨ,"
1290 DATA"⮬ WW  ."
1300 DATA2,1,1,1," ⥫⪨ ਢ易  浪."
1310 DATA4,10,2,2,"  㧮ࠬ,"
1320 DATA"  诮ࠬ."
1330 DATA2,8,2,3,"⮨ ,"

                                - 67 -

1340 DATA"। "," ⫠."
1350 DATA1,4,2,4," ⪨","᫨  浪."
1360 DATA" ᮫ 窮","⨪ 窮."
1370 DATA2,6,4,4,"  ","   !"
1380 DATA",  誠"," ᠬ  ࠢ."
1390 DATA2,3,2,6," ࢥ 宧頻 "," ࠧ ",
     "  ⥯,  ᮫誥,"
1400 DATA"᭥  ᠬ ࠧ."," 窨  ०,",
     "᮫   嫥 ."
1410 DATA2,9,2,4," 宧鶴 㦨,"," ஦,"
1420 DATA"  뫥窮,"," 墮 窮."
1430 RESTORE 1200:RESUME1020
1440 FORJ=1TO50:NEXTJ:RETURN
1450 FORJ=0TO9.6STEP.1:PRINT50-19*J+2.12*J*J;:NEXTJ
1550 DATA0,0,0,0,0,0,64,0,32,128,0,1,2,6,14,215,0,0,0,0,0,0,0,
     16,0,12,0,0,20,72,161,4
1560 DATA0,0,0,0,0,0,0,0,0,3,15,31,63,127,126,254,0,0,0,0,0,0,0,
     0,0,64,128,128,0,0,0,0
1570 DATA0,0,0,1,3,2,2,19,3,2,0,0,0,0,0,0,0,0,128,0,0,0,0,64,0,
     0,0,0,0,0,0,0
1580 DATA1,3,7,15,15,63,127,255,15,15,7,7,3,3,7,4,160,192,192,
     192,128,128,192,224,128,0,0,0,0,128,64,0
1590 DATA0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,128,192,96,
     0,24,4,0,0,0,0
1600 DATA0,0,0,1,7,223,127,97,32,64,0,0,0,0,0,0,0,0,4,204,252,
     252,252,252,254,126,127,223,6,1,0,0
1610 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,64,192,64,
     64,192,192,128,0,0,0
1620 DATA0,2,1,0,0,0,0,1,7,3,1,1,3,3,3,5,32,224,192,192,224,224,
     240,240,255,254,252,240,240,224,192,128
1630 DATA0,0,16,16,0,16,0,100,146,0,38,72,2,6,6,23,0,0,4,32,16,
     0,129,4,144,138,12,16,161,42,160,80
1640 DATA0,0,0,0,0,0,0,0,0,0,0,11,7,3,3,3,0,0,0,0,0,0,0,0,0,0,
     128,128,0,0,128,128
1650 DATA0,0,0,0,0,0,0,0,0,0,0,0,64,128,32,221,0,0,0,0,0,0,0,0,
     0,0,0,0,0,0,16,122
1660 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,3,15,63,0,0,0,0,0,0,0,0,0,0,
     128,192,224,248,254,255

                                - 68 -

1670 DATA9,8,33,8,0,8,33,9,41,32,40,0,41,0,32,1,0,16,0,64,16,64,
     64,80,16,0,32,32,0,16,0,16
1680 DATA1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,128,96,48,24,12,12,
     6,6,6,7,7,7,7,7,7
1690 DATA0,0,6,10,20,40,48,80,80,80,160,160,160,160,160,160,0,0,
     0,0,0,0,0,0,0,0,0,0,0,0,0,0
1700 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,7,7,7,7,7,7,6,6,6,12,
     12,24,48,96,128,128
1710 DATA160,160,160,160,160,160,80,80,80,40,40,20,12,6,0,0,0,0,
     0,0,0,0,0,0,0,0,0,0,0,0,0,0
1720 DATA248,157,157,249,157,157,251,0,0,157,157,157,253,157,
    157,157,248,56,58,58,58,58,58,0,0,251,202,194,194,194,194,194
1730 DATA0,0,238,170,238,42,238,0,0,244,116,116,116,117,118,116,
     0,0,224,128,224,160,224,0,0,224,224,224,224,224,224,224
2000 DATA _,_,_M,_,_,_,
     _,_,_,_,_
3000 '  樨
3010 DATA"                "
3020 DATA" "
3030 DATA"  祭  ३,   ?   "
3040 DATA" 蠭 ᤥ .    ஢"
3050 DATA"䨭 . '?' -  .   祭"
3060 DATA".  ⮣  ।⮨ ࠧ -"
3070 DATA". 砫  "
3080 DATA"ࠧ . "
3090 DATA"⮣ 롥 ᫮-⣠ 蠬     "
3100 DATA"  ᠬ   ('')."
3110 DATA" ୮ ࠢ ᫮,  "
3120 DATA"⠢   ய饭 㪢."
3130 DATA" ⮣  ५  蠬     "
3140 DATA" 㦭 㪢   ''.  ᫨  -"
3150 DATA"쭮 ࠫ 㪢,  䨭 蠥"
3160 DATA"  룭  . ᫨   訡, "
3170 DATA"䨭 㤥  ࠧ, 룠 冷 "
3180 DATA"殬."
3190 DATA"                                ᯥ."
3200 DATA"                           ୠ客 . 18.04.96"
4000 '  १

                                - 69 -

4010 DATA  ⫨ ஢騪 䨭.
4020 DATA 㤥   ஢騪  ஢.
4030 DATA !!!," "
4040 DATA   ࠧ 祭  .
4050 DATA    ᫮ ᫮ 
4060 DATA  ࠧ뢠 .," "
4070 DATA 客⥭쪮. 䨭  
4080 DATA 蠫. ୮ ⮬   
4090 DATA  ᫮ ᫮  , ࠧ뢠 .
4100 DATA !  䨭 ᮢᥬ  蠫.
4110 DATA  ᫮ ᫮  ⠩
4120 DATA  .," "
5000 '  ⠢
5005 SCREEN 5
5010 LINE(0,0)-(256,212),9,B
5015 COLOR 11,1:PRESET(35,5):PRINT#1," "
5020 PRESET(35,15):PRINT#1," "
5025 COLOR 15:PRESET(30,40):PRINT #1,"    ணࠬ "
5030 COLOR 9:PRESET(10,55):PRINT #1,"          "
5035 RESTORE 5060:COLOR 2
5040 FOR Y=110 TO 178 STEP 8:READ A$:PRESET(10,Y):PRINT #1,A$:
     NEXT Y
5045 COLOR 15: PRESET(80,200):PRINT #1," 1996 ."
5050 IF INKEY$<>"" THEN 5050
5055 IF INKEY$=""THEN 5055 ELSE RETURN
5060 DATA"              業਩:"
5065 DATA"              ஢ .."
5070 DATA" "
5075 DATA" "
5080 DATA"              㪮⥫:"
5085 DATA"              ᪨ .."
5090 DATA" "
5095 DATA"              ணࠬ :"
5100 DATA"              ୠ客 .."
6000 DATA1,1,3,3,7,7,15,15,3,3,3,3,3,3,3,3,0,0,128,128,192,192,
     224,224,128,128,128,128,128,128,128,128
.
                                - 70 -

                            ਫ N4.

                  ⨭ ணࠬ "૮ ".

10 _NETEND
20 COLOR 15,1,1
30 GOSUB 2090:'  ⠢
40 SCREEN7,2:GOSUB 790 : '   
45 COLOR=(3,1,3,1)
50 SET PAGE 0,0:CLS
51 RESTORE 6000'ନ஢ ࠩ
52 FOR K=1TO32:READ Z:Z$=Z$+CHR$(Z):NEXT K:SPRITE$(0)=Z$
55 PRESET(180,100):PRINT#1,"  ...":SET PAGE 0,1:
   CLS
60 '  ------------    襫   --------------
63 DIM A$(10),T(10),B(10),B$(10)
65 LINE(0,0)-(512,212),2,B
91 LINE(390,10)-(500,150),13,B
92 LINE(390,30)-(500,30),13
93 LINE(10,10)-(380,80),13,B
94 LINE(10,30)-(380,30),13
95 CIRCLE(195,120),150,7,,,.15
96 LINE(390,164)-(500,183),13,B
97 PAINT(195,120),3,7
100 PRESET(120,17):COLOR 11
110 PRINT#1,"⥫ "
120 PRESET(420,17)
130 PRINT#1,""
131 COLOR 14:PRESET(28,167):PRINT#1,"            "
132 DRAW"c7 bm15,160 r160 d40 l160 u40 d20 r160   bm47,160 nd20
    r32 nd20 r32    nd20 r32 nd20 r32"
200 GOSUB280:GOTO340
280 RESTORE2720:COLOR 14
300 FOR I=1 TO 10
305 READP$,B(I),T(I):A$(I)=P$:B$(I)=CHR$(B(I)):T(I)=T(I)-1
310 PRESET(410,25+I*11)
320 PRINT#1,P$
330 NEXT I:RETURN' --------------------------    ࠬ   -------

                                - 71 -

340 RESTORE 2620:SET PAGE0,0:CLS:
    COPY (0,0)-(512,212),1 TO (0,0),0,PSET'।
360 N=0:LINE(405,34+N)-(490,44+N),15,B :S=0
370 FOR J=1TO10:GOSUB550:COLOR ,0
375 PRESET(410,170):PRINT#1,"          "
380 PUT SPRITE0,(X,182),0,0:COLOR 14,3
381 PRESET(60,117):PRINT#1,"        롥 㦭 ᫮      "
382 READ P$,P1$,D,X1:COLOR ,0
383 PRESET(15,45):COLOR 14
384 PRINT#1,P$;SPACE$(45-LEN(P$))
385 PRESET(15,56)
386 PRINT#1,P1$;SPACE$(45-LEN(P1$))
390 A$=INKEY$:IF A$=""THEN390 ELSE GOSUB550
391 COLOR ,3:PRESET(60,117):
    PRINT#1,"                                   "
392 IFA$=CHR$(31)AND N<=88THEN N=N+11:
    LINE(405,23+N)-(490,33+N),1,B
393 IFA$=CHR$(30)AND N>=11 THEN N=N-11:
    LINE(405,45+N)-(490,55+N),1,B
395 LINE(405,34+N)-(490,44+N),15,B
400 IFA$=CHR$(32) THEN 600
410 GOTO 390
420                             ' ࠢᠭ
421 GOSUB550
422 PRESET(60,117):PRINT#1,"                                   "
425 X=8
430 COLOR 15,3:PRESET(60,117):
    PRINT#1," ⥯ ⠢ ய饭 㪢"
432 PUT SPRITE0,(X,182),13,0
435 COLOR 14,0
440 PRESET(410,170):PRINT#1,A$(D)
444 A=STICK(0):A$=INKEY$:IF A$<>"" OR A<>0 THEN GOSUB550
445 IF A$=" " THEN 480
446 IF A=3 AND X<70 THEN X=X+16:GOTO430
447 IF A=7 AND X>10 THEN X=X-16:GOTO430
448 GOTO432
450 '
480 GOSUB700 '  ஢ ࠢᠭ

                                - 72 -

500 NEXT J:COLOR ,0
510 GOTO720'                          横
520 PRESET(142,127):COLOR 15,3
521 PRINT#1," ஡"
525 A$=INKEY$:IF A$<>" " THEN525
526 PRESET(142,127):COLOR 3
527 PRINT#1,"              "
530 RETURN
550 K$=INKEY$:IF K$<>""THEN550 '           INKEY
551 RETURN
600 COLOR ,3:IF N<>(D-1)*11 THEN 630 '  ஢ઠ1
610 PRESET(162,117):COLOR 15
615 PRINT#1,""
616 GOSUB520
620 GOTO 420
630 PRESET(80,117):COLOR 8
640 PRINT#1,"ࠢ쭮! ஡  ࠧ"
650 GOTO390
700 '஢ઠ ࠢᠭ
705 B$=B$(D):COLOR ,3
706 PRESET(60,117):PRINT#1,"                                   "
707 IF X=X1+8 THEN 713'ࠢ쭮
709 COLOR 9:PRESET(170,117):PRINT#1,"":S=S+1'  +1訡
711 PRESET(145,127):COLOR 9:GOSUB521
712 RETURN
713 COLOR15:PRESET(162,117):PRINT#1,""
714 COLOR 10,0:PRESET(410,36+N):PRINT#1,A$(D)
715 COLOR 9:PRESET(410+8*T(D),170):PRINT#1,B$
717 PRESET(410+8*T(D),36+N):PRINT#1,B$
718 GOSUB520
719 RETURN
720   ' ----------------------------------  १  ---------
721 SET PAGE 0,1:CLS
722 LINE(0,0)-(512,212),2,B
723 LINE(50,20)-(460,120),7,B
730 SET PAGE 1,1:COLOR 14
732 IF S<1 THEN740
733 IF S<3 THEN750

                                - 73 -

734 RESTORE2570
739 GOTO755
740 RESTORE 2470
745 GOTO755
750 RESTORE2520
755 FOR I=1TO5
756 READ A$
760 PRESET(70,30+I*10):PRINT#1,A$
762 NEXT I
763 FOR I=1TO5000:NEXT I:GOSUB550
765 PRESET(20,150):PRINT#1,"  த?"
766 PRESET(20,160):
    PRINT#1,"᫨    '', ᫨ ,  ''"
780 A$=INKEY$:IF A$="" THEN780
784 IF INSTR("nN",A$)>0 THEN STOP:'                 ----
785 IF INSTR("dD",A$)>0THEN SET PAGE1,0:
    LINE(405,34+N)-(490,44+N),0,B:GOSUB280:SET PAGE0,0:
    RESTORE 2620:GOTO786   ELSE 780
786 PRESET(15,45):COLOR 0:P$=" ":P1$=" "
787 PRINT#1,P$;SPACE$(45-LEN(P$))
788 PRESET(15,56)
789 PRINT#1,P1$;SPACE$(45-LEN(P1$)):SET PAGE0,0:GOTO360
790 '    
795 COLOR=(15,0,0,0)
800 CLS:PRESET (0,0)
810 LINE(0,0)-(512,212),7,B
820 FOR Y=5 TO 175 STEP 10:READ A$:PRESET(10,Y):PRINT #1,A$:
    NEXT Y
821 DRAW"c15 bm300,41 r20 d10 l20 u10 r10 bd2 nf3 ng3 d6"
822 DRAW"c15 bm345,41 r20 d10 l20 u10 r10 bd2 d6 ne3 nh3"
823 DRAW"c15 bm379,81 r19 d20 l19 u20 D10 br4 ne2 nf2 r10"
824 DRAW"c15 bm426,81 r19 d20 l19 u20 D10 br4 r10 ng2 h2"
825 PRESET(18,75):PRINT#1,CHR$(34)
826 PRESET(75,75):PRINT#1,CHR$(34)
827 PRESET(355,105):PRINT#1,CHR$(34)
828 PRESET(410,105):PRINT#1,CHR$(34)
829 FOR I=1TO 7:COLOR=(15,I,I,I):FORI1=1TO10:NEXT I1:NEXT I
830 IF INKEY$<>"" THEN 830

                                - 74 -

840 IF INKEY$="" THEN 840 ELSE RETURN
2080 '  ⠢
2090 SCREEN 5: OPEN "grp:" AS #1
2100 LINE(0,0)-(256,212),9,B
2110 COLOR 11,1:PRESET(35,5):PRINT#1," "
2120 PRESET(35,15):PRINT#1," "
2130 COLOR 15:PRESET(30,40):PRINT #1,"    ணࠬ "
2140 COLOR 9:PRESET(10,55):PRINT #1,"          "
2150 RESTORE 2200:COLOR 2
2160 FOR Y=110 TO 178 STEP 8:READ A$:PRESET(10,Y):PRINT #1,A$:
     NEXT Y
2170 COLOR 15: PRESET(80,200):PRINT #1," 1996 ."
2180 IF INKEY$<>"" THEN 2180
2190 IF INKEY$=""THEN 2190 ELSE RETURN
2200 DATA"              業਩:"
2210 DATA"              ஢ .."
2220 DATA" "
2230 DATA" "
2240 DATA"              㪮⥫:"
2250 DATA"              ᪨ .."
2260 DATA" "
2270 DATA"              ணࠬ :"
2280 DATA"              ୠ客 .."
2290 DATA"               "
2300 DATA" "
2310 DATA"  ।⮨ ࠧ ,  "
2320 DATA" ⮫쪮 ૮ . "
2330 DATA" 砫          "
2340 DATA" ᫮, 室饥    ।."
2350 DATA" 롥,  ᠬ  "
2360 DATA"( ஡ )."
2370 DATA"୮ ࠢ ᫮,   ⠢"
2380 DATA"  ய饭 㪢.  ⮣ 蠬     "
2390 DATA" ५  㦭 㪢    ஡ ."
2400 DATA" "
2410 DATA" "
2420 DATA" "
2430 DATA" "

                                - 75 -

2440 DATA" "
2450 DATA"       ᯥ."
2460 DATA".ୠ客        5.04.96"
2470 DATA "!  ࠢ쭮 訫 "
2480 DATA " ⠢ 㪢  ᫮ ᫮."
2490 DATA "㤥,   ૮ ."
2500 DATA " "
2510 DATA " "
2520 DATA "!  ࠧ   ࠢ쭮"
2530 DATA "⠢ 㪢    ᫮. ⭮,"
2540 DATA "૮ ᮬ   㤥,   ஫"
2550 DATA " ᮭ  ᣮ."
2560 DATA " "
2570 DATA "⥭쪮!    ᫮ ᫮"
2580 DATA ",  ,  祭  ࠧ뢠"
2590 DATA ". 㤥 ᫥ 㯭"
2600 DATA " 横 ,    ⥭ !"
2610 DATA " "
2620 DATA"1.祪  祪,࠭襩."
2625 DATA" ",3,48
2630 DATA"2.⨢ ,饭 祣-."
2635 DATA" ",5,64
2640 DATA"3.࠭ த ।⮢."
2645 DATA" ",4,16
2650 DATA"4.࠭ 襭 ⥭."
2655 DATA" ",1,48
2660 DATA"5.饭,  ࠭  뤠 "
2665 DATA"  ⥭.",2,32
2670 DATA"6.㬪,  ன ࠭ 祡"
2675 DATA" ਭ.",9,16
2680 DATA"7.ᯮᮡ  쬠, 饥 "
2685 DATA" ॢﭭ 窨  ⮢ ভ.",10,0
2690 DATA"8.,   ᮡ,  "
2695 DATA" 祭  .",6,48
2700 DATA"9.,  砥 ⥩ ⥭,"
2705 DATA" , .",8,48
2710 DATA"10.,  ᭮  ᥫ ஢"
2715 DATA"  .",7,48

                                - 76 -

2720 DATA_,229,2,_,233,2,_,229,2,_,
     239,2,_,252,1,_,229,2,_,229,4,_,
     229,5,_,239,2,_,225,2
6000 DATA1,1,3,3,7,7,15,15,3,3,3,3,3,3,3,3,0,0,128,128,192,192,
     224,224,128,128,128,128,128,128,128,128
