Liren Large Software Subsidy 9

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 9 / 09.iso / i / i037 / 1.img / WBZX.BAS < prev next >

Wrap

BASIC Source File | 1991-08-15 | 50.9 KB | 1,518 lines

10 REM ^OK^4^DB╬σ▒╩╫╓╨═╤╡┴╖╚φ╝■ Ver 1.0^DA^1 11 reg 1,&HF000 12 call interrupt &H10 13 reg 4,reg(4) or &H8800 if (reg(4) and &H00ff)=7 then 15 14 reg 3,&h0606 15 reg 1,&HF001 16 call interrupt &H10 20 DIM PST(8),TP(3),BOT(3),CHONG$(3),DM$(2) 22 GOSUB 30000 24 def fnnewtimer=timer-oldtimer 26 def fnnewtime$ 27 hour=int(fnnewtimer/3600) 28 min=int((fnnewtimer-hour*3600)/60) 29 sec=int(fnnewtimer-int(fnnewtimer/60)*60) 30 fnnewtime$=RIGHT$("0"+mid$(str$(hour),2),2)+":"+RIGHT$("0"+mid$(str$(min),2),2)+":"+RIGHT$("0"+mid$(str$(sec),2),2) 32 end def 35 GOSUB 30000:GOSUB 11850:GOSUB 23540 40 PST(1)=1:PST(2)=11:PST(3)=21:PST(4)=31:PST(5)=41:PST(6)=51:PST(7)=61:PST(8)=71 50 DIM T%(3000),LINF(12),LINB(12) 60 GOSUB 14580 70 XOX=1:KEY OFF:H=0 80 CLS:SCREEN 2,0,0 90 XOX=1:GOSUB 11550 100 TM=FNNEWTIMER 110 LOCATE 6,18:PRINT "│╠╨≥╔Φ╝╞:═⌡┬δ╡τ─╘╣½╦╛┐═╫∙╚φ╝■╤╨╛┐╚╦╘▒╧í░╥╘; 120 IF INKEY$="" AND FNNEWTIMER-TM<5 THEN 120 140 OPEN "RECORD" FOR INPUT AS #2 150 CLOSE 180 LOCATE 6,5:PRINT SPACE$(70); 190 MT=FNNEWTIMER:FOR I=1 TO 500:NEXT 200 IF FNNEWTIMER-MT<.06 THEN TYP$="286" ELSE TYP$="pc" 210 IF TYP$="286" THEN STT=1 ELSE STT=2 220 DATE2$="":H=0:KEY OFF:TM=1 230 OPEN "PRM" FOR INPUT AS #3 240 INPUT #3,G,SPEED,TTMM,INF 250 CLOSE #2,#3 260 DIM B$(100),C$(150),AC$(500),CD$(500),D$(100),E$(150),MK$(2,2,15) 270 K=0:LSN=0:DM$(0)="╬▐":DM$(1)="╙╨" 280 OPEN "record" FOR INPUT AS #2 290 INPUT #2,D$,L$,S$,R$ 300 IF VAL(L$)<=339 THEN L=VAL(L$) 310 IF NOT EOF(2) THEN 290 320 IF DATE$>=D$ AND DATE$>"01-01-1990" THEN 560 330 LOCATE 25,1:PRINT SPACE$(79); 340 LOCATE 25,3:PRINT "╓▒╜╙╗╪│╡ú║─¼╚╧╧╘╩╛╚╒╞┌╬¬╜±╚╒╚╒╞┌ú¼╖±╘≥╟δ░┤í░╘┬ú¡╚╒ú¡─Ωí▒╕±╩╜╓╪╨┬╩Σ╚δ╜±╚╒╚╒╞┌";:LINE(0,0)-(639,199),,B 350 ON ERROR GOTO 370 360 GOTO 430 370 IF ERL=470 OR ERL=550 OR ERL=530 OR ERL=540 THEN 390 380 RESUME 385 ON ERROR GOTO 8460 390 LOCATE 25,1:PRINT SPACE$(79); 400 LOCATE 25,23:PRINT "╩Σ╚δ╚╒╞┌┤φ╬≤ú¼╟δ╓╪╨┬╩Σ╚δ╒²╚╖╚╒╞┌úí"; 410 LINE(0,0)-(639,199),,B 420 RESUME 430 430 LOCATE 5,20 440 PRINT " ╟δ╩Σ╚δ╜±╚╒╚╒╞┌: (╘┬-╚╒-─Ω) ";D$ 450 F$=INPUT$(1) 460 IF F$=CHR$(13) THEN DATE2$=D$:GOTO 510 470 IF F$<"0" OR F$>"9" THEN ERROR(2) 480 DATE2$=F$ 490 LOCATE 5,48:PRINT SPACE$(20);:LOCATE 5,48:PRINT F$; 500 INPUT "",F$:DATE2$=DATE2$+F$ 510 LOCATE 25,1:PRINT " ╣Γ▒Ω╝ⁿ[í· í√ íⁿ í²]:╤í╘±╧ε─┐ ╗╪│╡╝ⁿ[í√⌐ñ⌐╛]:╤í╓╨ ";:LINE (0,0)-(639,199),,B 520 LOCATE 5,20:PRINT SPACE$(55); 530 DATE$=DATE2$:DATE2$=DATE$ 540 IF DATE$<D$ THEN ERROR(2) 550 DATE$=DATE2$:GOTO 580 560 DATE2$=DATE$ 570 IF H<>0 OR HH<>0 THEN 640 580 IF H=0 AND HH=0 THEN LOCATE 6,18:PRINT "ú┼ú╙ú├ú║╖╡╗╪╓≈▓╦╡Ñú╗╞Σ╦ⁿ╝ⁿú║╝╠╨°╔╧┤╬┐╬│╠┴╖╧░" ELSE 640 590 D$=INPUT$(1) 600 LOCATE 6,16:PRINT SPACE$(55); 610 IF D$=CHR$(27) THEN 9170 620 IF L>114 THEN XOX=3 ELSE XOX=2 630 CLOSE:KEY(1) OFF:H=8:HM=8:GOTO 670 640 CLOSE 650 KEY(1) OFF 660 GOTO 9080 670 IF H=13 THEN ON KEY(1) GOSUB 8990 ELSE ON KEY(1) GOSUB 7450 680 IF H<9 THEN PLAY "MF" 690 IF H>14 OR H<1 THEN BEEP :GOTO 640 700 IF H=0 THEN 3770 710 IF H<8 THEN LINN=H 720 GOSUB 14580 730 IF H<8 THEN LINN=H 740 CLOSE #2:OPEN "RECORD" FOR INPUT AS #2 750 INPUT #2,D$,L$,S$,R$ 760 NA$=D$:HM=H 770 ON H GOSUB 890,890,890,890,890,890,890,840,3490,890,840,5550,7560,8450 780 IF HM=10 AND LINN=8 THEN 810 790 IF (HM<>8 AND HM<>11) OR LINN>=12 THEN 640 800 FOR I=LINB(LINN) TO LINF(LINN):AC$(I)="":CD$(I)="":NEXT 810 LINN=LINN+1:H=HM:KO=1 820 GOSUB 930 830 GOTO 790 840 CLOSE #2 850 TM=INT(FNNEWTIMER*4) MOD 2 860 FOR LINN=1 TO 12 870 IF L>=LINB(LINN) AND L=<LINF(LINN) THEN 890 880 NEXT LINN 890 CLOSE #2,#3 900 GOSUB 11040 910 LOCATE 6,5:PRINT SPACE$(65) 920 LOCATE 6,31:PRINT"╒²╘┌╢┴┼╠ú¼╟δ╔╘║≥úí" 930 IF LINN>=13 THEN LINN=1 940 FILN$="Ex"+MID$(STR$(LINN),2):WT=0 950 CLOSE #1 960 OPEN FILN$ FOR INPUT AS #1 970 FOR K=LINB(LINN) TO LINF(LINN) 980 LINE INPUT #1,AC$(K) 990 TM=INT(FNNEWTIMER*4) MOD 2 1000 IF TM=OT THEN 1030 1010 XE=30:LONG=19:OT=TM 1020 IF KO=0 THEN GOSUB 8960 1030 LINE INPUT #1,CD$(K) 1040 NEXT K 1050 SSS=0:TTT=0:RRR=0 1060 LL=LINF(LINN) 1080 IF HM<>8 AND HM<>11 THEN L=LINB(LINN) 1090 IF HM<>11 THEN 1110 1100 IF KO=0 THEN 3780 ELSE GOSUB 4100 1110 IF L>LL THEN RETURN 1120 KEY(1) ON 1130 FOR II=1 TO G 1140 IF II=1 THEN GOSUB 2800 ELSE GOSUB 2830 1150 R=0:ODP=P 1160 LOCATE ,PQ 1170 FOR I=1 TO P 1180 D$=LEFT$(E$(I),1) 1190 KOK=1:GOSUB 14520 1200 IF HP=1 THEN GOSUB 7530 1210 ERE=1 1220 D$="" 1230 IF INF=0 OR MD=0 THEN 1320 1240 X=POS(0):Y=CSRLIN 1250 LOCATE Y-2,1 1260 PRINT SPACE$(79); 1270 LOCATE Y-2,X 1280 PRINT E$(I); 1290 LOCATE Y,X 1300 KEY(1) ON 1310 KG=0:OT=0 1320 FOR OP=1 TO LEN(C$(I)) 1330 F$=INKEY$ 1340 TM=INT(FNNEWTIMER*4) MOD 2 1350 IF TM=OT THEN 1390 1360 KG=((KG+1) MOD 2):OT=TM 1370 XE=POS(1):LONG=LEN(C$(I)) 1375 IF OT2<>INT(FNNEWTIMER) THEN PLAY"O0C64":OT2=INT(FNNEWTIMER) 1380 GOSUB 8960 1390 IF F$="" OR F$=" " THEN 1330 1400 IF F$<="z" AND F$>="a" THEN XPX=CSRLIN:KG=((KG+1) MOD 2):YPY=POS(1):BEEP:LOCATE 25,1:PRINT" ╟δ╙├ú┴ú╠ú╘ú½ú╞ú▓╜°╚δ╬σ▒╩╫╓╨═╫┤╠¼ ";:LOCATE XPX,YPY 1405 IF F$<="Z" AND F$>="A" THEN XPX=CSRLIN:YPY=POS(1):BEEP:LOCATE 25,1:PRINT" ╟δ╙├ Caps Lock ú¿┤≤╨í╨┤╫¬╗╗ú⌐╝ⁿ═╦│÷┤≤╨┤╫┤╠¼ ";:LOCATE XPX,YPY 1410 IF ASC(F$)=27 THEN 2610 1420 IF F$=CHR$(0)+"I" THEN SP$=CHR$(13):LD=-1:GOTO 2610 1430 IF F$=CHR$(0)+"Q" THEN SP$=CHR$(13):LD=1:GOTO 2610 1440 IF ASC(F$)<150 THEN 1200 1450 D$=D$+F$ 1460 IF LEN(D$) MOD 2=0 AND D$<>LEFT$(C$(I),LEN(D$)) THEN 1480 1470 NEXT 1480 XE=POS(1) 1490 PRINT D$; 1500 PRINT " "; 1510 IF I>1 THEN 1530 1520 GOSUB 30000 1530 IF D$=C$(I) THEN LET C$(I)="":R=R+1:GOTO 1720 1540 ERE=ERE+1 1550 KEY(1) OFF:PLAY "O2c8d8e8f8g8":KEY(1) ON 1560 LOCATE ,XE 1570 IF ERE>3 THEN GOSUB 7450 1580 PRINT SPACE$(LEN(C$(I))); 1590 LOCATE ,XE 1600 D$="" 1610 FOR OP=1 TO LEN(C$(I)) 1620 F$=INKEY$ 1625 IF OT<>INT(FNNEWTIMER) THEN PLAY"mbO0C64":OT=INT(FNNEWTIMER) 1630 IF F$="" THEN 1620 1640 IF ASC(F$)=27 THEN LD=0:GOTO 2610 1650 IF ASC(F$)<150 THEN 1600 1660 D$=D$+F$ 1670 IF LEN(D$) MOD 2=0 AND D$<>LEFT$(C$(I),LEN(D$)) THEN 1690 1680 NEXT 1690 PRINT D$; 1700 PRINT " "; 1710 IF D$<>C$(I) THEN 1540 1720 D$=LEFT$(E$(I),1) 1730 KOK=1:GOSUB 14520 1740 IF KG=0 THEN 1760 1750 KG=0:GOSUB 8960 1760 NEXT I 1770 PLAY"O0C64" 1780 T=VAL(RIGHT$(FNNEWTIME$,2))+60*VAL(MID$(FNNEWTIME$,4,2)) 1790 PRINT:PRINT :LOCATE ,30:PRINT "╦┘ ╢╚:";INT(P/T*30)*LONG;"╫╓ú»╖╓" 1800 LOCATE ,20:PRINT " ╒²╚╖┬╩:";INT(R/P*100);"úÑ "; 1810 IF INT(P/T*60)>1 THEN SSS=SSS+INT(P/T*30)*LONG:RRR=RRR+INT(R/P*100):TTT=TTT+1 1820 TM=TM+1 1830 IF INKEY$="" THEN 1830 1840 IF R=P THEN 2310 1850 FOR I=1 TO P 1860 IF C$(I)="" THEN 2300 1870 CLS 1880 LOCATE 10,1:PRINT "ú╞ú▒ú║░∩╓· [ESC]═╦│÷"; 1890 LOCATE 2,22:PRINT "╟δ─·░╤╕╒╕╒┤≥┤φ╡─╫╓ú¿┤╩ú⌐╢α┴╖╝╕▒Θú¼╨╗╨╗úí" 1900 IF L<=114 THEN LOCATE 4,32:TP=5:GOTO 1920 1910 LOCATE 4,(80-LEN(C$(I))*3-2)/2:TP=3 1920 FOR J=1 TO TP 1930 PRINT C$(I); 1940 PRINT " "; 1950 NEXT J 1960 IF L<=114 THEN LOCATE 5,32:GOTO 1980 1970 PRINT :LOCATE ,(80-LEN(C$(I))*3-2)/2 1980 FOR J=1 TO TP 1990 IF HP=1 THEN GOSUB 7530 2000 D$="" 2010 FOR OP=1 TO LEN(C$(I)) 2020 F$=INKEY$ 2025 IF OT<>INT(FNNEWTIMER) THEN PLAY"mbO0C64":OT=INT(FNNEWTIMER) 2030 IF F$="" THEN 2020 2040 IF ASC(F$)=27 THEN L=L-1:GOTO 2390 2050 IF ASC(F$)<150 THEN 1990 2060 D$=D$+F$ 2070 IF LEN(D$) MOD 2=0 AND D$<>LEFT$(C$(I),LEN(D$)) THEN 2090 2080 NEXT 2090 XE=POS(1) 2100 PRINT D$; 2110 PRINT " "; 2120 IF D$=C$(I) THEN 2290 2130 KEY(1) OFF:PLAY "O2g8f8e8d8c8":KEY(1) ON 2140 LOCATE ,XE 2150 PRINT SPACE$(LEN(C$(I))); 2160 LOCATE ,XE 2170 D$="" 2180 FOR OP=1 TO LEN(C$(I)) 2190 F$=INKEY$ 2195 IF OT<>INT(FNNEWTIMER) THEN PLAY"O0C64":OT=INT(FNNEWTIMER) 2200 IF F$="" THEN 2190 2210 IF ASC(F$)=27 THEN L=L-1:GOTO 2390 2220 IF ASC(F$)<150 THEN 2170 2230 D$=D$+F$ 2240 IF LEN(D$) MOD 2=0 AND D$<>LEFT$(C$(I),LEN(D$)) THEN 2260 2250 NEXT 2260 PRINT D$; 2270 PRINT " "; 2280 IF D$<>C$(I) THEN 2130 2290 NEXT J 2300 NEXT I 2310 MD=0 2320 IF SPEED<=0 THEN LD=1:GOTO 2370 ELSE II=1 2330 LD=0 2340 IF P/T*30*LONG>SPEED AND R/P*100>=85 THEN LD=1:GS=1:GOSUB 2610 2350 IF R/P*100<60 THEN LD=-1:GS=1:GOSUB 2610 2360 IF L>LL THEN R=0:GOTO 2390 2370 R=0 2380 NEXT II 2390 IF TM=1 THEN TM=2 2400 SP$=CHR$(13) 2610 L=L+LD 2620 IF L<LINB(LINN) THEN L=LINB(LINN) 2630 IF L=360 THEN CLOSE #2:OPEN "record" FOR APPEND AS #2:WRITE #2,DATE2$,0,0,0:CLOSE #2,#3:RETURN 2640 IF GS=0 OR DSP=1 THEN DSP=0 2650 IF L<=LL THEN 2720 2660 IF TTT<1 OR WT=1 THEN 2710 2670 OPEN "record" FOR APPEND AS #2 2680 WRITE #2,DATE$,L-LD,INT(SSS/TTT+.5),INT(RRR/TTT+.5) 2690 CLOSE #2 2700 WT=1 2710 GS=0:RETURN 2720 IF GS=1 THEN GOSUB 2800:RETURN 2730 IF ASC(F$)<>27 OR WT=1 THEN 2790 2740 IF TTT<1 THEN 2780 2750 OPEN "record" FOR APPEND AS #2 2760 WRITE #2,DATE$,L-LD,INT(SSS/TTT+.5),INT(RRR/TTT+.5) 2770 CLOSE #2 2780 RETURN 640 2790 GOTO 1090 2800 RANDOMIZE(VAL(RIGHT$(FNNEWTIME$,2))) 2810 A$=AC$(L):B$=CD$(L):MD=1 2820 P=LEN(A$)/2:PQ=40-P 2830 LOCATE ,PQ 2840 KI=1:P=0 2850 KJ=INSTR(KI,A$," ") 2860 IF KJ<>0 and kj<len(a$) THEN 2870 2862 P=P+1 2863 B$(P)=MID$(A$,KI,LEN(A$)+1-KI) 2865 GOTO 2900 2870 P=P+1:B$(P)=MID$(A$,KI,KJ-KI) 2880 KI=KJ+1 2890 GOTO 2850 2900 KI=1:P2=0 2910 KJ=INSTR(KI,B$," ") 2920 IF KJ=0 or kj>len(b$) THEN P2=P2+1:D$(P2)=MID$(B$,KI,LEN(B$)+1-KI):GOTO 2960 2930 P2=P2+1:D$(P2)=MID$(B$,KI,KJ-KI) 2940 KI=KJ+1 2950 GOTO 2910 2960 FOR I=1 TO P 2970 IF SPEED=0 AND II=1 THEN K=I ELSE K=INT((P+1)*(RND+.05)) 2980 IF B$(K)<>"" THEN C$(I)=B$(K):E$(I)=D$(K):B$(K)="" ELSE 2970 2990 NEXT I 3000 IF GS=1 THEN GS=0:RETURN 3010 CLS 3020 LOCATE 10,1:PRINT " ú╞ú▒ú║═Γ┬δ╠ß╩╛ PgUp:╔╧╖¡╥╗╨╨ PgDn:╧┬╖¡╥╗╨╨ [ESC]:═╦│÷"; 3030 IF H=8 AND SPEED<=0 THEN LOCATE 1,24:PRINT "╨╨╩²: ";L;" ┤╬╩²: ";II:GOTO 3060 3040 IF H=8 AND SPEED>0 THEN LOCATE 1,36:PRINT "╨╨╩²: ";L:GOTO 3060 3050 LOCATE 1,24:PRINT " ┤╬╩²: ";II 3060 LOCATE 1,70 3070 IF L=0 THEN PRINT"╥╗╝╢╝≥┬δ"; 3080 IF L=1 THEN PRINT"╝ⁿ├√╫╓╕∙"; 3090 IF L>1 AND L<37 THEN PRINT "╢■╝╢╝≥┬δ"; 3100 IF L>36 AND L<40 THEN PRINT"│╔╫╓╫╓╕∙"; 3110 IF L>39 AND L<48 THEN LOCATE 1,62:PRINT"─⌐▒╩╫╓╨═╜╗▓µ╩╢▒≡┬δ"; 3120 IF L>47 AND L<107 THEN LOCATE 1,70:PRINT "│ú╙├╥╗╟º╫╓"; 3130 IF L>106 AND L<=114 THEN PRINT "─╤╫╓╩Σ╚δ"; 3140 IF L>114 AND L<337 THEN PRINT "┤╩╫Θ╩Σ╚δ"; 3145 LOCATE 1,1:PRINT NA$; 3150 IF L=0 THEN GOSUB 3310 ELSE GOSUB 3260 3160 GOSUB 8780 3180 LOCATE 6,PQ 3190 FOR I=1 TO P 3200 PRINT C$(I); 3210 PRINT " "; 3220 NEXT I 3230 PRINT 3240 RETURN 3250 END 3260 REM ╥╗╝╢╝≥┬δ 3265 LOCATE 2,1 3270 PRINT" Q╜≡ W╚╦ E╘┬ R░╫ T║╠ Y╤╘ U┴ó I╦« O╗≡ P╓« " 3280 PRINT" A╣ñ S─╛ D┤≤ F═┴ G═⌡ H─┐ J╚╒ K┐┌ L╠∩ ; " 3290 PRINT" Z Xµ∙ C╙╓ V┼« B╫╙ N╥╤ M╔╜ , . " 3300 RETURN 3310 REM 3315 LOCATE 2,1 3320 PRINT" Q╬╥ W╚╦ E╙╨ R╡─ T║═ Y╓≈ U▓· I▓╗ O╬¬ P╒Γ " 3330 PRINT" A╣ñ S╥¬ D╘┌ F╡╪ G╥╗ H╔╧ J╩╟ K╓╨ L╣· ; " 3340 PRINT" Z X╛¡ C╥╘ V╖ó B┴╦ N├± M═¼ , . " 3350 RETURN 3490 CLOSE #2,#3 3500 OPEN "record" FOR INPUT AS #2 3510 INPUT #2,D$,L$,S$,R$ 3520 IF VAL(L$)<=339 THEN L=VAL(L$) 3530 IF NOT EOF(2) THEN 3510 ELSE CLOSE #2,#3 3540 LOCATE 4,30:PRINT "1. ├┐┐╬┤╬╩² :";G 3550 LOCATE 5,30:PRINT "2. ┤∩▒Ω╦┘╢╚ :";SPEED 3570 LOCATE 6,30:PRINT "3. ┤·┬δ╠ß╩╛ : ";DM$(INF) 3580 LOCATE 8,30:PRINT "[ESC]. ═╦│÷" 3590 LOCATE 9,30:PRINT "╨▐╕─╧ε─┐:_";:BEEP:YP=POS(0)-1 3592 LOCATE 25,2:PRINT SPACE$(78); 3595 LOCATE 25,11:PRINT "╩Σ╚δ╧ε─┐┤·║┼ú¿ú▒ú¡ú│ú⌐╤í╘±┤²╨▐╕─╧ε─┐ú¼╗≥░┤[ESC]╝ⁿ╖╡╗╪╓≈▓╦╡Ñ"; 3597 LOCATE 9,YP 3600 XGC$=INKEY$ 3610 IF XGC$="" THEN 3600 3620 IF ASC(XGC$)=27 THEN PRINT "[ESC]":RETURN 3630 XG=VAL(XGC$):PRINT XGC$; 3640 IF XG<1 OR XG>3 THEN BEEP:GOTO 3540 3642 LOCATE 25,2:PRINT SPACE$(78); 3645 LOCATE 25,25:PRINT "ú¡ú¡ú¡ú¡ú¡╩Σ╚δ╨▐╒²╓╡ú¡ú¡ú¡ú¡ú¡"; 3660 IF XG=3 THEN INF=(INF+1) MOD 2:GOTO 3730 3670 ON XG GOTO 3680,3710 3680 LOCATE 4,43:PRINT " " 3690 LOCATE 4,43:INPUT " ",G 3700 GOTO 3730 3710 LOCATE 5,43:PRINT " " 3720 LOCATE 5,43:INPUT " ",SPEED 3730 OPEN "PRM" FOR OUTPUT AS #3 3740 WRITE #3,G,SPEED,TTMM,INF 3750 CLOSE #3 3760 GOTO 3540 3770 END 3780 O=0:H=0:SP=0:DE=0:MARK=1 3790 TP(1)=55:BOT(1)=16:TP(2)=87:BOT(2)=56:TP(3)=87:BOT(3)=16 3800 GOSUB 11040 3810 OPEN "PRM" FOR INPUT AS #3 3820 INPUT #3,G,SPEED,TTMM,INF 3830 CLOSE #3 3840 GOSUB 11550 3850 LOCATE 5,27:PRINT "┬Σ╫╓╞╡┬╩[50-1500]: ";INT(60/TTMM+.5) 3860 LOCATE 25,16:PRINT " ╓▒╜╙╗╪│╡ú║─¼╚╧╧╘╩╛╩²╛▌ú¼╖±╘≥╟δ╓╪╨┬╩Σ╚δ╨┬╡─┬Σ╫╓╞╡┬╩";:LINE(0,0)-(639,199),,B 3870 LOCATE 5,46 3880 FOR I=1 TO 10 3890 F$=INPUT$(1) 3900 IF F$=CHR$(13) THEN 3950 3910 IF F$<"0" OR F$>"9" THEN BEEP:GOTO 3890 3920 IF I=1 THEN PRINT SPACE$(20);:LOCATE 5,46:D$="" 3930 PRINT F$;:D$=D$+F$ 3940 NEXT I 3950 SSDD=VAL(D$) 3960 IF SSDD>0 THEN TMMF=SSDD:TTMM=60/TMMF 3970 OPEN "PRM" FOR OUTPUT AS #3 3980 WRITE #3,G,SPEED,TTMM,INF 3990 CLOSE #3:reg 1,&H0006:call interrupt &H10 4000 FOR I=1 TO 20:PLAY"O3e32c32":NEXT:LZTM=FNNEWTIMER 4010 CLS:LOCATE 10,21 4030 STP=STT+INT((60/TTMM)/2000-1) 4040 TTMM=(STT/STP)*TTMM 4050 FOR I=1 TO 20 4060 PRINT "í≈"; 4070 NEXT 4080 RANDOMIZE FNNEWTIMER 4090 CLOSE #2,#3:ER$="" 4100 LI=LINB(LINN)-1 4110 IF RDSG=0 THEN LI=LI+1 4120 IF LI>LINF(LINN) THEN KO=1:LINN=LINN+1:RETURN 930 4130 IF LI>339 THEN L=0 4140 IF RDSG=0 THEN A$=AC$(LI):GOTO 4230 4150 FOR I=1 TO 20 4160 LFK=INT((RND(1)+.002)*(TP(PSP)-BOT(PSP)+1))+BOT(PSP)+159 4170 IF LFK<BOT(PSP)+160 OR LFK>160+TP(PSP) THEN 4160 4180 RFK=INT((RND(1)+.002)*93)+161 4190 IF RFK<1 OR RFK>254 THEN 4180 4200 B$=CHR$(LFK)+CHR$(RFK) 4210 IF I=1 THEN A$=B$ ELSE A$=A$+" "+B$ 4220 NEXT I 4230 IF LI>114 THEN ER$="" 4240 O=0:A$=ER$+" "+A$ 4250 ER$="" 4260 Y=2 4270 KI=1:PP=0 4280 KII=INSTR(KI,A$," ") 4290 IF KII=0 THEN 4330 4300 PP=PP+1:C$(PP)=MID$(A$,KI,KII-KI) 4310 KI=KII+1 4320 GOTO 4280 4330 IF O<PP-1 THEN P=INT((RND(1)+.02)*PP) ELSE 4110 4340 IF P>PP OR C$(P)="" THEN 4330 4350 O=O+1:PO=(P-1)*LEN(C$(P))+1 4360 OC$=C$(P):C$(P)="" 4370 LOCATE 25,3:PRINT ASC(LEFT$(OC$,1))-160;ASC(RIGHT$(OC$,1))-160; 4380 FOR Y=1 TO 9 STEP STP 4390 LOCATE Y,PO:PRINT OC$; 4400 PLAY "o1e32c32" 4410 GOSUB 5270 4420 IF BB$<>OC$ THEN 4760 4430 MARK=MARK+25:H=H+1 4440 IF LI>114 AND RDSD=0 THEN 4520 4450 FOR IP=9 TO Y+1 STEP -2 4460 MT=FNNEWTIMER 4470 LOCATE IP,PO:PRINT "íⁿ"; 4480 IF FNNEWTIMER-MT<.001 THEN 4480 4490 LOCATE IP,PO:PRINT " "; 4500 IF FNNEWTIMER-MT<.002 THEN 4500 4510 NEXT 4520 IF LI<=114 THEN LOCATE Y,PO ELSE LOCATE Y+1,PO 4530 PLAY "MF" 4540 FOR I=1 TO LEN(OC$)/2 4550 IF LI<=114 THEN PRINT "íε";:GOTO 4570 4560 IF Y+1<10 THEN PRINT"í¬"; 4570 FOR X=0 TO 280 STEP 60 4580 SOUND 20*X/4+37,1 4590 NEXT X 4600 NEXT I 4610 IF LI>114 AND Y+1<10 THEN LOCATE Y+1,PO:PRINT SPACE$(LEN(OC$)); 4620 MT=FNNEWTIMER 4630 IF FNNEWTIMER-MT<.25 THEN 4630 4640 LOCATE 1,68:PRINT "╒²╚╖:";H; 4650 LOCATE 2,68:PRINT "╩º╬≤:";SP; 4660 LOCATE 3,68:PRINT "╦≡╩º:";INT(DE/20*100);"úÑ"; 4670 LOCATE 4,66:PRINT "************" 4680 LOCATE 5,68:PRINT "╡├╖╓:";MARK; 4690 SSDD=INT(H*60/(FNNEWTIMER-LZTM))-3*SP 4695 LOCATE 7,68:PRINT "[PAUSE]:╘▌═ú" 4697 LOCATE 8,68:PRINT "[RETURN]:╝╠╨°" 4720 LOCATE 10,68:PRINT "[ESC]: ═╦│÷"; 4730 C$(P)="" 4740 LOCATE Y,PO:PRINT SPACE$(LEN(OC$)); 4750 GOTO 4330 4760 IF LEN(BB$)<>LEN(OC$) THEN 4890 4770 MARK=MARK-4:SP=SP+1 4780 IF LI>114 THEN 4890 4790 PS=INT((RND(1)+.02)*63)+2 4800 IF (PS>PO-2 AND PS<PO+2+LEN(OC$)) THEN 4790 4810 IF PS<1 OR PS>62 THEN 4790 4820 FOR IP=9 TO 1 STEP -2 4830 MT=FNNEWTIMER 4840 LOCATE IP,PS:PRINT "íⁿ"; 4850 IF FNNEWTIMER-MT<.001 THEN 4850 4860 LOCATE IP,PS:PRINT " "; 4870 IF FNNEWTIMER-MT<.002 THEN 4870 4880 NEXT 4890 MARK=MARK-1 4900 LOCATE 1,68:PRINT "╒²╚╖:";H; 4910 LOCATE 2,68:PRINT "╩º╬≤:";SP; 4920 LOCATE 3,68:PRINT "╦≡╩º:";INT(DE/20*100);"úÑ"; 4930 LOCATE 4,66:PRINT "************"; 4940 LOCATE 5,68:PRINT "╡├╖╓:";MARK; 4950 SSDD=INT(H*60/(FNNEWTIMER-LZTM))-3*SP 4960 LOCATE 7,68:PRINT "[PAUSE]:╘▌═ú" 4970 LOCATE 8,68:PRINT "[RETURN]:╝╠╨°" 4980 LOCATE 10,68:PRINT "[ESC]: ═╦│÷"; 4990 LOCATE Y,PO:PRINT SPACE$(LEN(OC$)); 5000 NEXT Y 5010 MARK=MARK-25 5020 DE=DE+1 5030 IF ER$="" THEN ER$=OC$ ELSE ER$=ER$+" "+OC$ 5040 FOR IQ=1 TO 5:PLAY"O1F64A64":NEXT 5050 LOCATE 1,68:PRINT "╒²╚╖:";H; 5060 LOCATE 2,68:PRINT "╩º╬≤:";SP; 5070 LOCATE 3,68:PRINT "╦≡╩º:";INT(DE/20*100);"úÑ"; 5080 LOCATE 4,68:PRINT "***********" 5090 LOCATE 5,68:PRINT "╡├╖╓:";MARK; 5100 SSDD=INT(H*60/(FNNEWTIMER-LZTM))-3*SP 5102 LOCATE 7,68:PRINT "[PAUSE]:╘▌═ú" 5104 LOCATE 8,68:PRINT "[RETURN]:╝╠╨°" 5130 LOCATE 10,68:PRINT "[ESC]: ═╦│÷"; 5140 LOCATE 10,21 5150 FOR IY=1 TO DE 5160 PRINT "í°"; 5170 NEXT 5180 IF O<PP AND DE<20 THEN 4330 5190 IF DE<20 THEN 4110 5200 LOCATE 25,1:PRINT SPACE$(75); 5210 LOCATE 25,28:PRINT "╙╬╧╖╜ß╩°ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪"; 5220 IF INKEY$="" THEN 5220 5230 CLOSE #2:OPEN "record" FOR APPEND AS #2 5240 IF H=0 OR SSDD=0 THEN 5260 5250 WRITE #2,DATE$,500,SSDD,INT(H/(H+SP))*100 5260 RETURN 640 5270 TIME5=FNNEWTIMER 5280 BB$="" 5290 FOR IO=1 TO LEN(OC$) 5300 IF FNNEWTIMER-TIME5<TTMM THEN 5320 5310 IF IO=1 THEN RETURN 5320 AD$=INKEY$ 5325 IF OT<>INT(FNNEWTIMER) THEN PLAY"O0C64":OT=INT(FNNEWTIMER) 5330 IF AD$="" THEN 5300 5340 IF ASC(AD$)<123 AND ASC(AD$)>64 THEN XPX=CSRLIN:YPY=POS(1):BEEP:LOCATE 25,24:PRINT"╟δ╙├ú┴ú╠ú╘ú½ú╞ú▓╜°╚δ╬σ▒╩╫╓╨═╫┤╠¼";:LOCATE XPX,YPY 5350 IF ASC(AD$)=27 THEN LI=LI-1 :RETURN 5230 5360 IF ASC(AD$)<158 THEN 5270 5370 BB$=BB$+AD$ 5380 IF LEN(BB$) MOD 2=0 AND BB$<>LEFT$(OC$,LEN(BB$)) THEN 5400 5390 NEXT 5400 FOR X = 92 TO 2 STEP -7 5410 SOUND X*30,.15 5420 NEXT X 5430 LOCATE 25,1 5440 PRINT BB$;ASC(LEFT$(BB$,1));ASC(RIGHT$(BB$,1)); 5450 IF TTMM*5<1 THEN TMTM=1 ELSE TMTM=5*TTMM 5460 IF FNNEWTIMER-TIME5<TMTM THEN 5540 5470 BB$="" 5480 FOR I=1 TO 3 5490 MT=FNNEWTIMER 5500 LOCATE 25,30 5510 PRINT " ╩▒╝Σ│¼╧▐! ";:BEEP 5520 IF FNNEWTIMER-MT<.25 THEN 5520 5530 NEXT 5540 RETURN 5550 CHONG$(0)=" í∙>><<í╤í╢" 5560 CHONG$(1)=" í∙>><<í╤ú╜" 5570 KEY OFF:GOTO 5590 5580 RETURN 5590 GOSUB 11040:LOCATE 6,3:PRINT SPACE$(70) 5600 TL=2 5610 BEEP:LOCATE 6,30 5620 ON HH GOTO 5640,5650,5670,5660,7190,5630 5630 CLOSE #3:OPEN "TEXT.US" FOR OUTPUT AS #3:CLOSE #3:GOTO 5580 5640 INPUT"╟δ╩Σ╚δ╩▒╝Σ╧▐╢ε:(HH:MM:SS)";TML$:GOTO 5670 5650 INPUT"╟δ╩Σ╚δ╫╓╩²╧▐╢ε:";CN:GOTO 5670 5660 INPUT "╟δ╩Σ╚δ╫╖╗≈╦┘╢╚(╫╓ú»╖╓):";SP:TL=50/SP 5670 GOSUB 11040:LOCATE 6,3:PRINT SPACE$(70) 5680 LOCATE 6,16:PRINT "╟δ╙├ú├ú╘ú╥ú╠ú½ú╞ú╣╜°╚δ┤┐╓╨╬─╫┤╠¼ú¼╘┘░┤╚╬╥Γ╝ⁿ╝╠╨°" 5690 IF INKEY$="" THEN 5690 5700 LSN=LSN+1:LN=LSN MOD 13 5710 IF LN=0 THEN LN=13 5720 LN$=MID$(STR$(LN),2) 5730 GOSUB 11040:LOCATE 6,3:PRINT SPACE$(70) 5740 LOCATE 6,30:PRINT"░┤┐╒╕±░⌠┐¬╩╝╝╞╩▒ úí"; 5750 LB=0:ER=0:W=1:WHILE W>0:W=LEN(INKEY$)+LEN(INKEY$):WEND 5760 IF INKEY$<>" " THEN 5760 5770 CLS:W=1:WHILE W>0:W=LEN(INKEY$)+LEN(INKEY$):WEND 5780 GOSUB 30000:MT=FNNEWTIMER 5790 K=1:K2=1:YO=3:XO=-9 5800 OPEN "TEXT.US" FOR APPEND AS #3 5810 IF HH<>4 THEN 5880 5820 CLOSE #2:OPEN "TEXT."+LN$ FOR INPUT AS #2 5830 CLS:INPUT #2,B$:LOCATE INT(K/40)*2+2,1:PRINT B$:LB=LB+LEN(B$) 5840 FOR IU=1 TO LEN(B$)/2 5850 C$(IU)=MID$(B$,(IU*2)-1,2) 5860 NEXT IU 5870 GOTO 5890 5880 CLS 5885 LOCATE 10,66:PRINT "[ESC] ═╦│÷ "; 5890 LOCATE 3,1 5900 BB$="" 5910 FOR IO=1 TO 2 5920 IF HH<>1 OR FNNEWTIME$<=TML$ OR IO<>1 THEN 5940 5930 W=1:WHILE W>0:W=LEN(INKEY$)+LEN(INKEY$):WEND:GOTO 6820 5940 IF FNNEWTIMER-MT<TL THEN 6370 5950 L=CSRLIN:P=POS(1) 5960 IF HH<>2 THEN LOCATE 1,70:PRINT FNNEWTIME$; 5970 IF FNNEWTIMER<1 THEN 6000 5980 IF HH=2 THEN LOCATE 1,70:PRINT INT(K-1);" "; 5990 LOCATE 1,1: PRINT "╦┘╢╚: ";INT((K-1)/FNNEWTIMER*60);"╫╓ú»╖╓ "; 6000 IF HH<>4 THEN MT=FNNEWTIMER 6010 IF HH<>1 AND HH<>2 THEN 6100 6020 LOCATE 1,32 6030 IF HH=1 THEN PRINT "╩▒╝Σ :"; ELSE PRINT "╫╓╩² :"; 6040 TME=VAL(LEFT$(TML$,2))*3600+VAL(MID$(TML$,4,2))*60+VAL(RIGHT$(TML$,2)) 6050 IF HH=1 THEN TR=FNNEWTIMER:TE=TME ELSE TR=K-1:TE=CN 6060 LH=INT(TR/TE*200)+300 6065 if lh>499 then lh=499 6070 LINE (300,4)-(500,14),1,B 6080 IF LH<302 THEN 6100 6090 LINE(LH,4)-(LH,14):PAINT(LH-1,8),1 6100 IF HH<>4 THEN 6360 6110 IF K<10 THEN 6350 6120 XO=XO+2*INT((FNNEWTIMER-MT)/TL) 6130 IF XO<80 THEN 6150 6140 XO=1:YO=YO+2 6150 IF YO=L-2 AND XO-66>P THEN LOCATE YO,1:PRINT SPACE$(80);:GOTO 6170 6160 IF YO<>L OR XO+12<P THEN 6270 6170 XO=P-9 6180 PLAY "O1C16" 6190 IF XO<1 THEN LOCATE YO+2,1:PRINT RIGHT$(CHONG$(KG),10+XO+1);:GOTO 6250 6200 IF XO<=69 THEN 6240 6210 LOCATE YO,1:PRINT SPACE$(XO-1);LEFT$(CHONG$(KG),81-XO); 6220 LOCATE YO+2,1:PRINT RIGHT$(CHONG$(KG),XO-69); 6230 GOTO 6250 6240 LOCATE YO,1:PRINT SPACE$(XO-1);CHONG$(KG) 6250 PLAY "O2G..E6F8E16C16" 6260 GOTO 6820 6270 PLAY "O1C16" 6280 KG=(KG+1) MOD 2 6290 IF XO<0 THEN LOCATE YO,1:PRINT RIGHT$(CHONG$(KG),10+XO+1);:GOTO 6350 6300 IF XO<=69 THEN 6340 6310 LOCATE YO,1:PRINT SPACE$(XO-1);LEFT$(CHONG$(KG),81-XO); 6320 LOCATE YO+2,1:PRINT RIGHT$(CHONG$(KG),XO-69); 6330 GOTO 6350 6340 LOCATE YO,1:PRINT SPACE$(XO-1);CHONG$(KG) 6350 MT=FNNEWTIMER 6360 LOCATE L,P 6370 AD$=INKEY$ 6375 IF OT<>INT(FNNEWTIMER) THEN PLAY"O0C64":OT=INT(FNNEWTIMER) 6380 IF AD$="" THEN 5920 6390 IF K<1 AND AD$<="z" AND AD$>"a" THEN XPX=CSRLIN:YPY=POS(1):BEEP:LOCATE 25,24:PRINT"╟δ╙├ú┴ú╠ú╘ú½ú╞ú▓╜°╚δ╬σ▒╩╫╓╨═╫┤╠¼";:LOCATE XPX,YPY:GOTO 6410 6395 IF ASC(AD$)=8 OR ASC(AD$)>=160 OR AD$=" " OR AD$=CHR$(13) OR AD$=CHR$(27) THEN 6410 6400 XPX=CSRLIN:YPY=POS(1):BEEP:LOCATE 25,24 6405 PRINT"╟δ╙├ú├ú╘ú╥ú╠ú½ú╞ú╣╜°╚δ┤┐╓╨╬─╖╜╩╜";:LOCATE XPX,YPY 6410 IF ASC(AD$)<>8 OR HH=4 THEN 6480 6420 IF K=1 THEN 6480 6430 K=K-.5:K2=K2-.5 6440 X=POS(1)-1:Y=CSRLIN 6450 IF Y<=3 AND X<1 THEN X=1:Y=3 6460 IF X<1 AND Y>3 THEN X=80:Y=Y-1:K2=80 6470 LOCATE Y,X:PRINT " ";:LOCATE Y,X 6480 IF (ASC(AD$)=27 OR ASC(AD$)=13) AND IO=1 THEN 6820 6490 IF ASC(AD$)<150 THEN 5900 6500 BB$=BB$+AD$ 6510 IF LEN(BB$) MOD 2=0 AND BB$<>LEFT$(C$(K2),LEN(BB$)) THEN 6530 6520 NEXT IO 6530 B$(K2)=BB$ 6540 PRINT BB$; 6550 IF HH<>4 OR B$(K2)=C$(K2) THEN 6640 6560 ER=ER+1 6570 PLAY"O2E20F20G20" 6580 K=K-1:K2=K2-1 6590 X=POS(1)-2:Y=CSRLIN 6600 IF X<0 AND Y>2 THEN X=79:Y=Y-1 6610 IF X<=0 THEN X=1 6620 IF X<0 AND Y=2 THEN X=1:Y=2 6630 LOCATE Y,X:PRINT " ";:LOCATE Y,X 6640 IF K2<0 THEN K2=1 6650 IF K2<40 OR HH<>4 THEN 6720 6660 IF EOF(2) THEN CLOSE #2,#3 6670 INPUT #2,B$:LOCATE INT(K/40)*2+2,1:PRINT B$;:LB=LB+LEN(B$) 6680 FOR IU=1 TO LEN(B$)/2 6690 C$(IU)=MID$(B$,(IU*2)-1,2) 6700 NEXT IU 6710 IF LEN(B$)<80 THEN LOCATE CSRLIN+1,1 6720 IF HH=2 AND K=CN+1 THEN 6820 6730 IF K2<40 THEN 6790 6740 A$="" 6750 FOR I=1 TO K2 6760 A$=A$+B$(I) 6770 NEXT I:K2=0 6780 PRINT #3,A$ 6790 K=K+1:K2=K2+1 6800 IF HH=4 THEN IF EOF(2) AND 2*K>=LB+1 THEN PLAY "MFo3c8c8e4g4>c.":GOTO 6820 6810 IF K MOD 320 =0 THEN 5880 ELSE 5900 6820 MT=FNNEWTIMER 6830 IF FNNEWTIMER-MT<1 THEN 6830 6840 CLS 6850 A$="" 6860 FOR I=1 TO K2-1 6870 A$=A$+B$(I) 6880 NEXT I 6890 PRINT #3,A$ 6900 PRINT #3," ":PRINT #3," " 6910 W=1:WHILE W>0:W=LEN(INKEY$)+LEN(INKEY$):WEND 6920 PRINT #3,"╫╓╩²: ";K 6925 IF HH=1 THEN WTIME$=TML$ ELSE WTIME$=FNNEWTIME$ 6930 PRINT #3,"╩▒╝Σ: ";VAL(LEFT$(WTIME$,2));"╩▒";VAL(MID$(WTIME$,4,2));"╖╓"; 6940 PRINT #3,VAL(RIGHT$(WTIME$,2));"├δ" 6950 PRINT #3,"╦┘╢╚: ";INT(K/FNNEWTIMER*60*10)/10;"╫╓ú»╖╓" 6960 PRINT #3,"╚╒╞┌: ";DATE$ 6970 PRINT #3,"╨╒├√: ";NA$ 6980 CLOSE #2:OPEN "record" FOR APPEND AS #2 6990 WRITE #2,DATE$,600,INT(K/FNNEWTIMER*60*10)/10,INT((K-ER)/(K+1)*1000)/10 7000 GOSUB 11550:GOSUB 11130 7010 K=K-1:LOCATE 6,28:PRINT"╫╓╩²: ";K 7020 IF HH<>1 THEN TML$=FNNEWTIME$ 7025 LOCATE 7,28:PRINT"╩▒╝Σ: ";VAL(LEFT$(TML$,2));"╩▒"; 7030 PRINT VAL(MID$(TML$,4,2));"╖╓";VAL(RIGHT$(TML$,2));"├δ" 7040 LOCATE 3,28:PRINT"╦┘ ╢╚: ";INT(K/FNNEWTIMER*60*10)/10;"╫╓ú»╖╓" 7050 IF HH<>4 THEN 7070 7053 LOCATE 4,28:PRINT"╒²╚╖┬╩: ";INT((K-ER)/(K+1)*1000)/10;"úÑ" 7055 LOCATE 25,2:PRINT " [ESC] ═╦│÷╙╬╧╖ [RETURN] ╝╠╨°╙╬╧╖ "; 7060 D$=INKEY$ 7065 IF D$<>CHR$(13) AND D$<>CHR$(27) THEN 7060 7066 LOCATE 25,15:LINE (0,11*16+5)-(639,11*16+5) 7067 PRINT " ╣Γ▒Ω╝ⁿ[í· í√ íⁿ í²]: ╤í╘±╧ε─┐ ╗╪│╡╝ⁿ[í√⌐ñ⌐╛]:╤í╓╨"; 7070 CLOSE #2,#3 7072 IF HH<>4 AND INKEY$="" THEN 7072 7075 LOCATE 25,2:PRINT SPACE$(78); 7080 GOSUB 11550 7090 FOR I=1 TO 80:F$=INKEY$:NEXT I 7091 IF HH<>4 THEN 7110 7100 IF D$=CHR$(27) THEN 7110 ELSE 5730 7110 W=1:WHILE W>0:W=LEN(INKEY$)+LEN(INKEY$):WEND 7120 LOCATE 6,13:PRINT "╟δ╙├ú├ú╘ú╥ú╠ú½ú╞ú╣═╦│÷┤┐╓╨╬─╫┤╠¼ú¼╘┘░┤╚╬╥Γ╝ⁿ╖╡╗╪╓≈▓╦╡Ñ" 7130 IF INKEY$="" THEN 7130 7140 GOTO 5580 7150 END 7160 F$=INKEY$ 7170 IF F$="" THEN 7160 7180 PRINT ASC(F$) 7190 LOCATE 3,22 7200 PRINT"╟δ╫╝▒╕║├┤≥╙í╗·ú¼░┤╚╬╥Γ╝ⁿ┐¬╩╝┤≥╙íúí" 7210 IF INKEY$="" THEN 7210 7220 LOCATE 7,24 7230 PRINT"░┤í░ú┼ú╙ú├í▒╝ⁿ═ú╓╣┤≥╙í▓ó╖╡╗╪" 7240 CLOSE #2,#3 7250 OPEN "TEXT.US" FOR INPUT AS #3 7260 LOCATE 5,36 7270 PRINT "┐¬╩╝┤≥╙íúí" 7280 IF NOT EOF(3) THEN INPUT #3,B$ 7290 D$=INKEY$ 7300 IF D$="" THEN 7320 7310 IF ASC(D$)=27 THEN 5580 7320 LPRINT B$ 7330 IF NOT EOF(3) THEN 7280 7340 LOCATE 5,36 7350 PRINT "┤≥╙í╜ß╩°úí" 7360 D$=INKEY$ 7370 IF D$="" THEN 7360 7380 GOTO 5580 7390 OPEN "record" FOR APPEND AS #3 7400 LOCATE 6,43:PRINT " ":LOCATE 6,44 7410 INPUT "",L 7420 WRITE #3,DATE$,L,0,0 7430 CLOSE #2,#3 7440 RETURN 7450 IF C$(I)="" OR I<0 OR I>150 THEN 7520 7460 XP=POS(0) 7470 YL=CSRLIN:HP=1 7480 LOCATE YL-2,1:PRINT SPACE$(79); 7490 LOCATE YL-2,XP 7500 PRINT E$(I); 7510 LOCATE YL,XP 7520 RETURN 7530 XP=POS(0):YL=CSRLIN:HP=0 7540 LOCATE YL-2,1:PRINT SPACE$(79);:LOCATE YL,XP 7550 RETURN 7560 CLOSE:LOCATE 5,37:PRINT "╒²╘┌╢┴┼╠" 7570 OPEN "ZG"+MID$(STR$(HH),2) FOR INPUT AS #1 7580 K=0 7590 INPUT #1,A$ 7600 INPUT #1,B$ 7610 KI=1:PP=0 7620 KII=INSTR(KI,A$," ") 7630 IF KII=0 THEN 7670 7640 PP=PP+1:AC$(K+PP)=MID$(A$,KI,KII-KI) 7650 KI=KII+1 7660 GOTO 7620 7670 KI=1:PP=0 7680 KII=INSTR(KI,B$," ") 7690 IF KII=0 THEN 7730 7700 PP=PP+1:AC$(K+PP+250)=MID$(B$,KI,KII-KI) 7710 KI=KII+1 7720 GOTO 7680 7730 K=K+PP 7740 IF NOT EOF(1) THEN 7590 7750 TOP=K 7760 LOCATE 5,20:PRINT SPACE$(40); 7770 K=1:LOCATE 4,33:PRINT "╒²╘┌┼┼╨≥ú¼╟δ╔╘║≥" 7780 RANDOMIZE TIMER 7790 mt=timer 7795 J=INT((RND(1)+.001)*(TOP+.5)) 7800 if timer-mt>1 then 7881 IF J>TOP THEN 7795 7810 IF AC$(J)="" THEN 7795 7820 IF AC$(250+J)="" THEN 7795 7830 CD$(K)=AC$(J) 7840 AC$(J)="" 7850 CD$(250+K)=AC$(250+J) 7860 AC$(250+J)="" 7870 K=K+1:LOCATE 6,40:PRINT TOP-K+1;" "; 7880 IF K<TOP THEN 7790 else 7890 7881 for i=1 to top 7882 if ac$(i)="" or ac$(i+250)="" then 7888 7883 CD$(K)=AC$(i) 7884 AC$(i)="" 7885 CD$(250+K)=AC$(250+i) 7886 AC$(250+i)="" 7887 k=k+1 7888 next i 7890 KEY(1) ON 7900 LOCATE 4,30:PRINT SPACE$(20); 7910 LOCATE 6,38:PRINT SPACE$(20); 7920 GOSUB 30000:CLS:ER=0:GOSUB 3270:GOSUB 8600 7930 LOCATE 6,16:PRINT "╟δ╙├ú┴ú╠ú╘ú½ú╞ú╢╜°╚δú┴ú╙ú├ú╔ú╔╫┤╠¼ú¼╚╗║≤░┤╚╬╥Γ╝ⁿ╝╠╨°"; 7932 IF INKEY$="" THEN 7932 7935 LOCATE 6,1:PRINT SPACE$(79); 7940 KEY OFF:LOCATE 10,1:PRINT "ú╞ú▒ú║░∩╓· [ESC]:═╦│÷ "; 7950 FOR I=1 TO TOP 7960 D$=MID$(CD$(I+250),1,1) 7970 KOK=2:GOSUB 14520 7980 SW=1 7990 LOCATE 4,39:PRINT " " 8000 LOCATE 5,39:PRINT " ":LOCATE 5,39 8010 PRINT CD$(I) 8020 LOCATE 6,39 8030 IF ERE>2 THEN GOSUB 8990 8040 IF INF=0 THEN 8070 8050 D$="" 8060 GOSUB 8990 8070 PRINT STRING$(LEN(CD$(I+250)),"_");" "; 8075 LOCATE 6,39 8077 D$="" 8080 FOR J=1 TO LEN(CD$(250+I)) 8090 F$=INKEY$ 8100 IF F$="" OR F$=" " THEN 8090 8110 IF F$=CHR$(27) THEN KEY(1) OFF:RETURN 8120 IF F$=MID$(CD$(250+I),J,1) OR ASC(F$)-32=ASC(MID$(CD$(250+I),J,1)) THEN 8170 8130 BEEP:ERE=ERE+1 8140 IF ERE>2 THEN GOSUB 8990 8150 IF ERE=1 THEN ER=ER+1 8160 GOTO 8090 8170 D$=D$+F$:PRINT F$; 8180 NEXT J 8190 IF ERE=0 THEN R=R+SW :GOTO 8220 8200 AC$(ER)=CD$(I) 8210 AC$(250+ER)=CD$(250+I) 8220 ERE=0 8230 AD$=MID$(D$,1,1) 8240 IF AD$>"Z" THEN AD$=CHR$(ASC(AD$)-32) 8250 FC$=D$:D$=AD$ 8260 KOK=2:GOSUB 14520 8270 D$=FC$ 8280 LOCATE 8,30 8290 PRINT "╦┘ ╢╚: ";INT(I/FNNEWTIMER*60);"╫╓ú»╖╓ " 8300 LOCATE 9,30 8310 PRINT "╒²╚╖┬╩: ";INT((I-ER)/I*100);"úÑ " 8320 NEXT I 8330 I=I-1:T=FNNEWTIMER:T$=FNNEWTIME$ 8340 RIGHT=INT((I-ER)/I*100) 8350 SPEDD=INT(I/T*60) 8360 MS=INT(SPEDD/50*100) 8370 IF MS>100 THEN MS=100 8380 MARK=RIGHT/2+MS/2 8390 CLOSE #2:OPEN "RECORD" FOR APPEND AS #2 8400 WRITE #2,DATE$,400,SPEDD,RIGHT 8410 GOSUB 11550:GOSUB 11130:LOCATE 4,32:PRINT "╦┘ ╢╚: ";SPEDD;"╫╓ú»╖╓" 8420 LOCATE 6,32:PRINT "╒²╚╖┬╩: ";RIGHT;"úÑ" 8430 CLOSE:D$=INPUT$(1) 8440 RETURN 8450 LOCATE 7,12:PRINT "▒╛╧ε▓┘╫≈╜½╗ß╞╞╗╡ ";NA$;" ╡─╘¡╙╨│╔╝¿╝╟┬╝╬─╝■ú¼╝╠╨°┬≡ú┐[Y/N]";:INPUT D$ 8460 IF D$<>"Y" AND D$<>"y" THEN 8590 ELSE 8470 8470 IF ERR>0 AND ERR<>53 AND ERR<>61 THEN END 8475 LOCATE 7,10:PRINT SPACE$(68); 8480 LOCATE 4,32:PRINT "╝╟┬╝╬─╝■│⌡╩╝╗»" 8490 LOCATE 5,29:PRINT"*******************" 8500 LOCATE 7,29:INPUT "╨╒├√ : ",N$ 8505 LOCATE 25,15:LINE (0,11*16+5)-(639,11*16+5) 8507 PRINT " ╣Γ▒Ω╝ⁿ[í· í√ íⁿ í²]: ╤í╘±╧ε─┐ ╗╪│╡╝ⁿ[í√⌐ñ⌐╛]:╤í╓╨"; 8510 LOCATE 4,31:PRINT SPACE$(16); 8520 LOCATE 5,29:PRINT SPACE$(20); 8530 LOCATE 7,29:PRINT SPACE$(24); 8540 CLOSE:OPEN "record" FOR OUTPUT AS #2 8550 WRITE #2,N$,0,0,0 8560 WRITE #2,DATE$,0,0,0 8570 CLOSE 8580 IF ERR>0 AND ERL<2000 THEN RESUME 8590 RETURN 8600 LINE(42*8-7,17)-(42*8-7,34) 8610 LINE-(48*8-7,34) 8620 LINE-(48*8-7,51) 8630 LINE-(52*8,51) 8640 LINE-(52*8,34) 8650 LINE-(52*8,34) 8660 LINE-(61*8,34) 8670 LINE-(61*8,17) 8680 LINE(41*8-7,0)-(65*8,17),,B 8690 LINE(17*8-7,17)-(41*8,34),,B 8700 LINE(23*8-7,16*2+2)-(47*8,16*3+3),,B 8710 LINE(16*8-7,0)-(40*8,17),,B:RETURN 8720 GET(41*8-7,0)-(65*8,17),T%:PUT(41*8-7,0),T%,PRESET:RETURN 8730 GET(17*8-7,17)-(41*8,34),T%:PUT(17*8-7,17),T%,PRESET:RETURN 8740 GET(23*8-7,16*2+2)-(47*8,16*3+3),T%:PUT(23*8-7,16*2+2),T%,PRESET:RETURN 8750 GET(16*8-7,0)-(40*8,17),T%:PUT(16*8-7,0),T%,PRESET:RETURN 8760 GET(42*8-7,17)-(61*8,33),T%:PUT(42*8-7,17),T%,PRESET 8770 GET(48*8-7,34)-(52*8,51),T%:PUT(48*8-7,34),T%,PRESET:RETURN 8780 LINE(42*8-7,18*2-2)-(42*8-7,18*3-2) 8790 LINE-(48*8-7,18*3-2) 8800 LINE-(48*8-7,18*4-2) 8810 LINE-(52*8,18*4-2) 8820 LINE-(52*8,18*3-2) 8830 LINE-(52*8,18*3-2) 8840 LINE-(61*8,18*3-2) 8850 LINE-(61*8,18*2-2) 8860 LINE(41*8-7,18-2)-(65*8,18*2-2),,B 8870 LINE(17*8-7,18*2-2)-(41*8,18*3-2),,B 8880 LINE(23*8-7,18*3-2)-(47*8,18*4-2),,B 8890 LINE(16*8-7,18-2)-(40*8,18*2-2),,B:RETURN 8900 GET(42*8-7,18*2-2)-(61*8,18*3-2),T%:PUT(42*8-7,18*2-2),T%,PRESET 8910 GET(48*8-7,18*3-1)-(52*8,18*4-2),T%:PUT(48*8-7,18*3-1),T%,PRESET:RETURN 8920 GET(41*8-7,18-2)-(65*8,18*2-2),T%:PUT(41*8-7,18-2),T%,PRESET:RETURN 8930 GET(17*8-7,18*2-2)-(41*8,18*3-2),T%:PUT(17*8-7,18*2-2),T%,PRESET:RETURN 8940 GET(23*8-7,18*3-2)-(47*8,18*4-2),T%:PUT(23*8-7,18*3-2),T%,PRESET:RETURN 8950 GET(16*8-7,18-2)-(40*8,18*2-2),T%:PUT(16*8-7,16),T%,PRESET:RETURN 8960 GET((XE-1)*8,(CSRLIN-2)*18-2)-((LONG+XE-1)*8,(CSRLIN-1)*18-2),T% 8970 PUT((XE-1)*8,(CSRLIN-2)*18-2),T%,PRESET 8980 RETURN 8990 IF CD$(I+250)="" OR I<0 OR I>189 THEN 9070 9000 IF ERE>3 THEN XP=POS(0)-2 ELSE XP=POS(0) 9010 YL=CSRLIN:HP=1 9020 LOCATE YL-2,39:PRINT " "; 9030 LOCATE YL-2,39 9040 PRINT CD$(I+250); 9050 LOCATE YL,39 9060 PRINT D$; 9070 RETURN 9080 CLS:KO=0 9090 LOCATE 1,1 9095 PLAY"O0C64" 9100 PRINT " ╫╓╕∙┴╖╧░ ╡Ñ╫╓┴╖╧░ ┤╩╫Θ┴╖╧░ ╬─╒┬┴╖╧░ ╙╬ ╧╖ ╧╡═│╬¼╗ñ │╔╝¿▒¿╕µ ═╦ │÷"; 9110 LOCATE 25,15:LINE (0,11*16+5)-(639,11*16+5) 9120 PRINT " ╣Γ▒Ω╝ⁿ[í· í√ íⁿ í²]: ╤í╘±╧ε─┐ ╗╪│╡╝ⁿ[í√⌐ñ⌐╛]:╤í╓╨"; 9130 LINE(0,0)-(639,199),,B 9140 LINE(0,16)-(639,16) 9150 GOTO 9170 9160 GOSUB 11040 9170 GOSUB 11130 9175 IF XL=1 THEN 9390 9180 D$=INKEY$ 9190 IF D$="" THEN 9180 9200 IF D$<"0" OR D$>"9" THEN 9280 9210 LOCATE 25,2:BEEP 9220 PRINT " ╟δ░┤ Num Lock ╝ⁿ╜°╚δ╣Γ▒Ω╫┤╠¼ "; 9230 LINE(0,0)-(639,199),,B 9240 D$=INKEY$ 9250 IF LEN(D$)<2 AND D$<>" " THEN 9230 9260 GOSUB 11130 9270 GOTO 9110 9280 IF D$=CHR$(27) THEN GOSUB 11130:XOX=8:GOTO 9350 9290 IF ASC(LEFT$(D$,1))<>0 AND ASC(D$)<>13 AND D$<>" " THEN 9180 9300 D$=RIGHT$(D$,1) 9310 IF D$="M" OR D$=" " THEN GOSUB 11130:XOX=XOX+1:GOTO 9350 9320 IF D$="K" THEN GOSUB 11130:XOX=XOX-1:GOTO 9350 9330 IF ASC(D$)=13 THEN 9390 9340 GOTO 9180 9350 IF XOX=0 THEN XOX=8 9360 IF XOX=9 THEN XOX=1 9370 GOSUB 11130 9380 GOTO 9180 9390 GOSUB 11130 9400 ON XOX GOTO 13860,9420,9700,9960,10240,11280,11610,11030 9410 RETURN 9420 LOCATE 2,PST(2)+1:PRINT "╥╗╝╢╝≥┬δ"; 9430 LOCATE 3,PST(2)+1:PRINT "╝ⁿ├√╫╓╕∙"; 9440 LOCATE 4,PST(2)+1:PRINT "╢■╝╢╝≥┬δ"; 9450 LOCATE 5,PST(2)+1:PRINT "│╔╫╓╫╓╕∙"; 9460 LOCATE 6,PST(2)+1:PRINT "─⌐▒╩╫╓╨═"; 9470 LOCATE 7,PST(2)+1:PRINT "│ú╙├╡Ñ╫╓"; 9480 LOCATE 8,PST(2)+1:PRINT "─╤╫╓┴╖╧░"; 9490 LOCATE 9,PST(2)+1:PRINT "╖╡╗╪╔╧▓π"; 9500 YOY=2 9510 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,9*18-2),,B 9520 GOSUB 11160 9530 D$=INKEY$ 9540 IF D$="" THEN 9530 9550 IF D$=CHR$(27) THEN 9160 9560 IF D$<>" " AND ASC(LEFT$(D$,1))<>0 AND ASC(D$)<>13 THEN 9530 9570 D$=RIGHT$(D$,1) 9580 IF D$="P" THEN GOSUB 11160:YOY=YOY+1:GOTO 9640 9590 IF D$=" " THEN GOSUB 11160:YOY=YOY+1:GOTO 9640 9600 IF D$="H" THEN GOSUB 11160:YOY=YOY-1:GOTO 9640 9610 GOSUB 11220 9620 IF ASC(D$)=13 THEN 9680 9630 GOTO 9530 9640 IF YOY=1 THEN YOY=9 9650 IF YOY=10 THEN YOY=2 9660 GOSUB 11160 9670 GOTO 9530 9680 IF YOY=9 THEN 9160 9690 H=YOY-1:GOTO 670 9700 LOCATE 2,PST(3)+1:PRINT "╢■ ╫╓ ┤╩"; 9710 LOCATE 3,PST(3)+1:PRINT "╚² ╫╓ ┤╩"; 9720 LOCATE 4,PST(3)+1:PRINT "╦─ ╫╓ ┤╩"; 9730 LOCATE 5,PST(3)+1:PRINT "╢α ╫╓ ┤╩"; 9740 LOCATE 6,PST(3)+1:PRINT "╖╡╗╪╔╧▓π"; 9750 YOY=2 9760 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,6*18-2),,B 9770 GOSUB 11160 9780 D$=INKEY$ 9790 IF D$="" THEN 9780 9800 IF D$=CHR$(27) THEN 9160 9810 IF D$<>" " AND ASC(LEFT$(D$,1))<>0 AND ASC(D$)<>13 THEN 9780 9820 D$=RIGHT$(D$,1) 9830 IF D$="P" THEN GOSUB 11160:YOY=YOY+1:GOTO 9890 9840 IF D$=" " THEN GOSUB 11160:YOY=YOY+1:GOTO 9890 9850 IF D$="H" THEN GOSUB 11160:YOY=YOY-1:GOTO 9890 9860 GOSUB 11220 9870 IF ASC(D$)=13 THEN 9930 9880 GOTO 9780 9890 IF YOY=1 THEN YOY=6 9900 IF YOY=7 THEN YOY=2 9910 GOSUB 11160 9920 GOTO 9780 9930 IF YOY=6 THEN 9160 9940 IF YOY=2 THEN H=10:LINN=8:GOTO 670 9950 H=10:LINN=YOY+7:GOTO 670 9960 LOCATE 2,PST(4)+1:PRINT "╢¿╩▒╩Σ╚δ"; 9970 LOCATE 3,PST(4)+1:PRINT "╢¿┴┐╩Σ╚δ"; 9980 LOCATE 4,PST(4)+1:PRINT "▓╗╢¿╩Σ╚δ"; 9990 LOCATE 5,PST(4)+1:PRINT "┤≥╙í╬─╕σ"; 10000 LOCATE 6,PST(4)+1:PRINT "╔╛│²╬─╕σ"; 10010 LOCATE 7,PST(4)+1:PRINT "╖╡╗╪╔╧▓π"; 10020 YOY=2 10030 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,7*18-2),,B 10040 GOSUB 11160 10050 D$=INKEY$ 10060 IF D$="" THEN 10050 10070 IF D$=CHR$(27) THEN 9160 10080 IF D$<>" " AND ASC(LEFT$(D$,1))<>0 AND ASC(D$)<>13 THEN 10050 10090 D$=RIGHT$(D$,1) 10100 IF D$="P" THEN GOSUB 11160:YOY=YOY+1:GOTO 10160 10110 IF D$=" " THEN GOSUB 11160:YOY=YOY+1:GOTO 10160 10120 IF D$="H" THEN GOSUB 11160:YOY=YOY-1:GOTO 10160 10130 GOSUB 11220 10140 IF ASC(D$)=13 THEN 10200 10150 GOTO 10050 10160 IF YOY=1 THEN YOY=7 10170 IF YOY=8 THEN YOY=2 10180 GOSUB 11160 10190 GOTO 10050 10200 IF YOY=7 THEN 9160 10210 IF YOY<5 THEN HH=YOY-1 ELSE HH=YOY 10220 H=12 10230 GOTO 670 10240 GOSUB 11040 10250 LOCATE 2,PST(5)+1:PRINT "┬Σ╫╓╙╬╧╖"; 10260 LOCATE 3,PST(5)+1:PRINT "╫╖╗≈╙╬╧╖"; 10270 LOCATE 4,PST(5)+1:PRINT "╖╡╗╪╔╧▓π"; 10280 YOY=2 10290 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,4*18-2),,B 10300 GOSUB 11160 10310 D$=INKEY$ 10320 IF D$="" THEN 10310 10330 IF D$=CHR$(27) THEN 9160 10340 IF D$<>" " AND ASC(LEFT$(D$,1))<>0 AND ASC(D$)<>13 THEN 10310 10350 D$=RIGHT$(D$,1) 10360 IF D$="P" THEN GOSUB 11160:YOY=YOY+1:GOTO 10420 10370 IF D$=" " THEN GOSUB 11160:YOY=YOY+1:GOTO 10420 10380 IF D$="H" THEN GOSUB 11160:YOY=YOY-1:GOTO 10420 10390 GOSUB 11220 10400 IF ASC(D$)=13 THEN 10460 10410 GOTO 10310 10420 IF YOY=1 THEN YOY=4 10430 IF YOY=5 THEN YOY=2 10440 GOSUB 11160 10450 GOTO 10310 10460 IF YOY=3 THEN HH=4:LSTM=G:GOSUB 5550:GOTO 550 10470 ON YOY-1 GOTO 10480,10460,9160 10480 H=11:GOSUB 11040 10490 LOCATE 2,PST(5)+1:PRINT "╦µ╗·╧┬┬Σ"; 10500 LOCATE 3,PST(5)+1:PRINT "╦│╨≥╧┬┬Σ"; 10510 LOCATE 4,PST(5)+1:PRINT "╖╡╗╪╔╧▓π"; 10520 YOY=2:H=11 10530 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,4*18-2),,B 10540 GOSUB 11160 10550 D$=INKEY$ 10560 IF D$="" THEN 10550 10570 IF D$=CHR$(27) THEN 10240 10580 IF D$<>" " AND ASC(LEFT$(D$,1))<>0 AND ASC(D$)<>13 THEN 10550 10590 D$=RIGHT$(D$,1) 10600 IF D$="P" THEN GOSUB 11160:YOY=YOY+1:GOTO 10660 10610 IF D$=" " THEN GOSUB 11160:YOY=YOY+1:GOTO 10660 10620 IF D$="H" THEN GOSUB 11160:YOY=YOY-1:GOTO 10660 10630 GOSUB 11220 10640 IF ASC(D$)=13 THEN 10700 10650 GOTO 10550 10660 IF YOY=1 THEN YOY=4 10670 IF YOY=5 THEN YOY=2 10680 GOSUB 11160 10690 GOTO 10550 10700 ON YOY-1 GOTO 10720,10710,10240 10710 RDSG=0:GOTO 670 10720 RDSG=1:GOSUB 11040 10730 LOCATE 2,PST(5)+1:PRINT "╥╗╝╢╫╓┐Γ"; 10740 LOCATE 3,PST(5)+1:PRINT "╢■╝╢╫╓┐Γ"; 10750 LOCATE 4,PST(5)+1:PRINT "═Ω╒√╫╓┐Γ"; 10760 LOCATE 5,PST(5)+1:PRINT "╖╡╗╪╔╧▓π"; 10770 YOY=2 10780 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,5*18-2),,B 10790 GOSUB 11160 10800 D$=INKEY$ 10810 IF D$="" THEN 10800 10820 IF D$=CHR$(27) THEN 10960 10830 IF D$<>" " AND ASC(LEFT$(D$,1))<>0 AND ASC(D$)<>13 THEN 10800 10840 D$=RIGHT$(D$,1) 10850 IF D$="P" THEN GOSUB 11160:YOY=YOY+1:GOTO 10910 10860 IF D$=" " THEN GOSUB 11160:YOY=YOY+1:GOTO 10910 10870 IF D$="H" THEN GOSUB 11160:YOY=YOY-1:GOTO 10910 10880 GOSUB 11220 10890 IF ASC(D$)=13 THEN 10950 10900 GOTO 10800 10910 IF YOY=1 THEN YOY=5 10920 IF YOY=6 THEN YOY=2 10930 GOSUB 11160 10940 GOTO 10800 10950 IF YOY<5 THEN 11010 10960 FOR I=2 TO 6 10965 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,9*18-2),0,B 10970 LOCATE I,PST(XOX) 10980 PRINT SPACE$(12); 10990 NEXT I 11000 GOTO 10480 11010 PSP=YOY-1 11020 GOSUB 3780:GOTO 9080 11030 CLS:SCREEN 1:GOSUB 11870:LOCATE 5,18:PRINT "╘┘":LOCATE 5,22:PRINT "╝√";:GOSUB 12130:LOCATE 8,1:SCREEN 2,0,0 reg 1,&HF000 call interrupt &H10 reg 4,reg(4) and &H77FF reg 1,&HF001 call interrupt &H10 END 11040 FOR I=2 TO 9 11042 LINE((PST(XOX)-1)*8,18)-((PST(XOX)+9)*8,9*18-2),0,B 11050 LINE(0,0)-(0,199) 11060 LINE(0,16)-(639,16) 11070 LOCATE I,PST(XOX) 11080 IF XOX=8 THEN LOCATE I,68 11090 PRINT SPACE$(11); 11100 NEXT I 11110 LINE(0,0)-(0,199) 11120 RETURN 11130 GET((PST(XOX)-1)*8+1,1)-((PST(XOX)+9)*8-1,15),T% 11140 PUT((PST(XOX)-1)*8+1,1),T%,PRESET 11150 RETURN 11160 IF YOY>2 THEN 11190 11170 GET((PST(XOX)-1)*8+1,(YOY-1)*18+1)-((PST(XOX)+9)*8-1,YOY*18-3),T% 11180 PUT((PST(XOX)-1)*8+1,(YOY-1)*18+1),T%,PRESET:RETURN 11190 GET((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8-1,YOY*18-3),T% 11200 PUT((PST(XOX)-1)*8,(YOY-1)*18),T%,PRESET 11210 RETURN 11220 IF D$="M" THEN GOSUB 11040:XOX=XOX+1:GOTO 11250 11230 IF D$="K" THEN GOSUB 11040:XOX=XOX-1:GOTO 11250 11240 RETURN 11250 IF XOX=0 THEN XOX=7 11260 IF XOX=8 THEN XOX=1 11270 RETURN 9170 11280 LOCATE 2,PST(6)+1:PRINT "╨▐╕─▓╬╩²"; 11290 LOCATE 3,PST(6)+1:PRINT "│⌡ ╩╝ ╗»"; 11300 LOCATE 4,PST(6)+1:PRINT "╝╠╨°┴╖╧░"; 11310 LOCATE 5,PST(6)+1:PRINT "╖╡╗╪╔╧▓π"; 11320 YOY=2 11330 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,5*18-2),,B 11340 GOSUB 11160 11350 D$=INKEY$ 11360 IF D$="" THEN 11350 11370 IF D$=CHR$(27) THEN 9160 11380 IF D$<>" " AND ASC(LEFT$(D$,1))<>0 AND ASC(D$)<>13 THEN 11350 11390 D$=RIGHT$(D$,1) 11400 IF D$="P" THEN GOSUB 11160:YOY=YOY+1:GOTO 11460 11410 IF D$=" " THEN GOSUB 11160:YOY=YOY+1:GOTO 11460 11420 IF D$="H" THEN GOSUB 11160:YOY=YOY-1:GOTO 11460 11430 GOSUB 11220 11440 IF ASC(D$)=13 THEN 11500 11450 GOTO 11350 11460 IF YOY=1 THEN YOY=5 11470 IF YOY=6 THEN YOY=2 11480 GOSUB 11160 11490 GOTO 11350 11500 IF YOY=2 THEN H=9 ELSE H=14 11510 IF YOY=4 THEN H=8 ELSE 11530 11520 IF L>114 THEN XOX=3 ELSE XOX=2 11530 IF YOY=5 THEN 9160 11540 GOTO 670 11550 CLS:LOCATE 1,1 11555 PLAY"O0C64" 11560 PRINT " ╫╓╕∙┴╖╧░ ╡Ñ╫╓┴╖╧░ ┤╩╫Θ┴╖╧░ ╬─╒┬┴╖╧░ ╙╬ ╧╖ ╧╡═│╬¼╗ñ │╔╝¿▒¿╕µ ═╦ │÷"; 11570 LOCATE 25,15:LINE (0,11*16+5)-(639,11*16+5) 11580 PRINT " ╣Γ▒Ω╝ⁿ[í· í√ íⁿ í²]: ╤í╘±╧ε─┐ ╗╪│╡╝ⁿ[í√⌐ñ⌐╛]:╤í╓╨"; 11590 LINE(0,16)-(639,16) 11600 LINE(0,0)-(639,199),,B:RETURN 11610 REM │╔╝¿▒¿╕µ 11620 LOCATE 2,PST(7)+1:PRINT "░┤╚╒╞┌╝╞"; 11630 LOCATE 3,PST(7)+1:PRINT "░┤╖╓└α╝╞"; 11640 LOCATE 4,PST(7)+1:PRINT "╖╡╗╪╔╧▓π"; 11650 YOY=2 11660 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,4*18-2),,B 11670 GOSUB 11160 11680 D$=INKEY$ 11690 IF D$="" THEN 11680 11700 IF D$=CHR$(27) THEN 9160 11710 IF D$<>" " AND ASC(LEFT$(D$,1))<>0 AND ASC(D$)<>13 THEN 11680 11720 D$=RIGHT$(D$,1) 11730 IF D$="P" THEN GOSUB 11160:YOY=YOY+1:GOTO 11790 11740 IF D$=" " THEN GOSUB 11160:YOY=YOY+1:GOTO 11790 11750 IF D$="H" THEN GOSUB 11160:YOY=YOY-1:GOTO 11790 11760 GOSUB 11220 11770 IF ASC(D$)=13 THEN 11830 11780 GOTO 11680 11790 IF YOY=1 THEN YOY=4 11800 IF YOY=5 THEN YOY=2 11810 GOSUB 11160 11820 GOTO 11680 11830 ON YOY-1 GOSUB 12190,12350,9160 11840 GOTO 640 11850 CLS 11860 SCREEN 1,0,0 11870 COLOR 16 11880 CIRCLE(160,70),30,2,1.75*3.15,1.26*3.15 11890 CIRCLE(148,45),28,,1.12*3.15,0,2.3 11900 LINE (140,87)-(136,54) 11910 CIRCLE(172,45),28,,1*3.14,1.88*3.14,2.3 11920 LINE (160,72)-(147,87) 11930 LINE -(173,87) 11940 LINE -(160,72) 11950 LINE (180,87)-(184,54) 11960 LINE (136,87)-(186,87) 11970 LINE (138,90)-(184,90) 11980 LINE (132,102)-(190,102) 11990 LINE (126,105)-(196,105) 12000 LINE (132,102)-(138,90) 12010 LINE (126,105)-(136,87) 12020 LINE (190,102)-(184,90) 12030 LINE (186,87)-(196,105) 12040 PAINT(150,88),2,3 12050 PAINT(150,80),2,3 12060 LOCATE 2,9:PRINT "╬σ▒╩╫╓╨═╚ñ╬╢╦┘│╔╚φ╝■ V1.0"; 12070 LOCATE 8,15:PRINT "═⌡┬δ╡τ─╘╣½╦╛"; 12080 FOR I=1 TO 100 12090 X=INT(RND*320):Y=INT(RND(1)*199) 12100 PSET(X,Y) 12110 NEXT 12120 RETURN 12130 FOR I=1 TO 160 STEP 2 12140 LINE(I,0)-(I,199),1 12150 LINE(320-I,0)-(320-I,199),1 12160 FOR J=1 TO 150/STT:NEXT 12170 NEXT I 12180 RETURN 12190 CLOSE:OPEN "RECORD" FOR INPUT AS #2 12200 INPUT #2,D$,L,S,R 12205 IF EOF(2) THEN KL=0:GOTO 12490 12210 INPUT #2,D$,L,S,R 12220 KL=1 12225 IF EOF(2) THEN KL=0:GOTO 12490 12230 INPUT #2,D$,L,S,R 12240 OD$=D$:SOS=S:ROR=R:KS=1:KR=1 12250 IF NOT EOF(2) THEN 12260 ELSE 12340 12260 INPUT #2,D$,L,S,R 12270 IF OD$<>D$ THEN 12310 12280 IF S>0 THEN KS=KS+1:SOS=SOS+S 12290 IF R>0 THEN KR=KR+1:ROR=ROR+R 12300 IF NOT EOF(2) THEN 12260 ELSE 12340 12310 AC$(KL)=MKS$(INT(SOS/KS*10)/10):CD$(KL)=MKS$(INT(ROR/KR*10)/10) 12320 IF CVS(AC$(KL))>0 AND CVS(CD$(KL))>0 THEN KL=KL+1 12330 GOTO 12240 12340 AC$(KL)=MKS$(INT(SOS/KS*10)/10):CD$(KL)=MKS$(INT(ROR/KR*10)/10):GOTO 12490 12350 CLOSE:OPEN "RECORD" FOR INPUT AS #2 12360 FOR I=1 TO 15:B$(I)="":C$(I)="":D$(I)="":E$(I)="":NEXT I 12370 INPUT #2,D$,L,S,R 12380 INPUT #2,D$,L,S,R 12390 IF L>370 THEN 12430 12400 FOR KL=1 TO 12 12410 IF L>=LINB(KL) AND L<=LINF(KL) THEN 12440 12420 NEXT 12430 KL=L/100+9 12440 IF D$=DATE$ THEN KL=KL+15 12450 IF S>0 THEN B$(KL)=STR$(VAL(B$(KL))+S):C$(KL)=STR$(VAL(C$(KL))+1) 12460 IF R>0 THEN D$(KL)=STR$(VAL(D$(KL))+R):E$(KL)=STR$(VAL(E$(KL))+1) 12470 IF NOT EOF(2) THEN 12380 12480 GOTO 12760 12490 SCREEN 1:CLS:LOCATE 25,10:PRINT "╚╒╞┌--╦┘╢╚═╝"; 12500 LINE (30,5)-(30,155) 12510 LINE -(319,155) 12515 IF KL=0 THEN 12570 12520 KG=INT(280/(KL)) 12530 FOR I=1 TO KL 12540 LINE(31+(I-1)*KG,155-CVS(AC$(I)))-(30+I*KG-KG/2,155),,B 12550 IF CVS(AC$(I))>2 THEN PAINT(32+(I-1)*KG,156-CVS(AC$(I))),2,3 12560 NEXT I 12570 LOCATE 1,1:PRINT "150"; 12580 LOCATE 9,1:PRINT " 0"; 12590 FOR I=1 TO 14:LINE(30,10*I+5)-(27,10*I+5),1:NEXT I:D$=INPUT$(1) 12600 SCREEN 1:CLS:LOCATE 25,10:PRINT "╚╒╞┌--╒²╚╖┬╩═╝"; 12610 LINE (30,5)-(30,155) 12620 LINE -(319,155) 12625 IF KL=0 THEN 12680 12630 KG=INT(280/(KL)) 12640 FOR I=1 TO KL 12645 IF KG=0 THEN 12670 12650 LINE(31+(I-1)*KG,155-CVS(CD$(I))*1.5)-(30+I*KG-KG/2,155),,B 12660 IF CVS(CD$(I))>2 THEN PAINT(32+(I-1)*KG,154),2,3 12670 NEXT I 12680 FOR I=1 TO 14:LINE(30,10*I+5)-(27,10*I+5),1:NEXT I 12690 LOCATE 1,1:PRINT "100"; 12700 LOCATE 3,1:PRINT " 75"; 12710 LOCATE 5,1:PRINT " 50"; 12720 LOCATE 7,1:PRINT " 25"; 12730 LOCATE 9,1:PRINT " 0"; 12740 FOR I=1 TO 500:AC$(I)="":CD$(I)="":NEXT I 12750 D$=INPUT$(1):SCREEN 2,0,0:RETURN 12760 SCREEN 1:CLS:LOCATE 25,1 :PRINT "ú╞ú▒ú║░∩╓· ╣²╚Ñ│╔╝¿ ╡▒╠∞│╔╝¿"; 12770 LINE(14*8,11*16+4)-(16*8,12*16+4),,B:PAINT(14*8+2,11*16+6),1,3 12780 ON KEY(1) GOSUB 13410 12790 KG=1 12800 KEY(1) ON 12810 LOCATE 10,5:PRINT " 1 2 3 4 5 6 7 8 9 A B C D E F ╧ε─┐"; 12820 LINE(27*8,11*16+4)-(29*8,12*16+4),,B:PAINT(27*8+2,11*16+6),2,3 12830 LINE (34,5)-(34,155) 12840 LINE -(319,155) 12850 FOR I=1 TO 15:KS=0:KR=0 12860 IF VAL(C$(I))>0 THEN KS=INT(VAL(B$(I))/VAL(C$(I))) 12870 IF VAL(C$(I+15))>0 THEN KR=INT(VAL(B$(I+15))/VAL(C$(I+15))) 12880 LINE(19+I*16,155-KS)-(25+I*16,155),,B 12890 IF KS>2 THEN PAINT(20+I*16,154),1,3:LOCATE 25,1 12900 LINE(25+I*16,155-KR)-(31+I*16,155),,B 12910 IF KR>2 THEN PAINT(26+I*16,154),2,3:LOCATE 25,20 12920 MK$(1,1,I)=" ":MK$(1,2,I)=" " 12930 RSET MK$(1,1,I)=STR$(INT(KS+.5)):RSET MK$(1,2,I)=STR$(INT(KR+.5)) 12940 NEXT I 12950 LOCATE 1,2:PRINT "150"; 12960 LOCATE 9,2:PRINT " 0"; 12970 FOR I=1 TO 14:LINE(34+I*16,155)-(34+I*16,158),1:NEXT I 12980 LOCATE 4,1:PRINT "╦┘"; 12990 LOCATE 6,1:PRINT "╢╚"; 13040 FOR I=1 TO 14:LINE(34,10*I+5)-(31,10*I+5),1:NEXT I 13050 IF INKEY$="" THEN 13050 13060 SCREEN 1:CLS:LOCATE 25,1 :PRINT "ú╞ú▒ú║░∩╓· ╣²╚Ñ│╔╝¿ ╡▒╠∞│╔╝¿"; 13070 KEY(1) ON 13080 KG=2 13090 LOCATE 10,6:PRINT "1 2 3 4 5 6 7 8 9 A B C D E F ╧ε─┐"; 13100 LINE(27*8,11*16+4)-(29*8,12*16+4),,B:PAINT(27*8+2,11*16+6),2,3 13110 LINE(14*8,11*16+4)-(16*8,12*16+4),,B:PAINT(14*8+2,11*16+6),1,3 13120 LINE (34,5)-(34,155) 13130 LINE -(319,155) 13140 FOR I=1 TO 15:KS=0:KR=0 13150 IF VAL(E$(I))>0 THEN KS=INT(VAL(D$(I))/VAL(E$(I)))*1.5 13160 IF VAL(E$(I+15))>0 THEN KR=INT(VAL(D$(I+15))/VAL(E$(I+15)))*1.5 13170 LINE(19+I*16,155-KS)-(25+I*16,155),,B 13180 IF KS>2 THEN PAINT(20+I*16,154),1,3 13190 LINE(25+I*16,155-KR)-(31+I*16,155),,B 13200 IF KR>2 THEN PAINT(26+I*16,154),2,3 13210 MK$(2,1,I)=" ":MK$(2,2,I)=" " 13220 RSET MK$(2,1,I)=STR$(INT(KS/1.5+.5)):RSET MK$(2,2,I)=STR$(INT(KR/1.5+.5)) 13230 NEXT I 13240 FOR I=1 TO 14:LINE(34+I*16,155)-(34+I*16,158),1:NEXT I 13280 LOCATE 4,1:PRINT "╒²"; 13290 LOCATE 5,1:PRINT "╚╖"; 13300 LOCATE 6,1:PRINT "┬╩"; 13320 FOR I=1 TO 14:LINE(34,10*I+5)-(31,10*I+5),1:NEXT I 13330 LOCATE 1,2:PRINT "100"; 13340 LOCATE 3,3:PRINT "75"; 13350 LOCATE 5,3:PRINT "50"; 13360 LOCATE 7,3:PRINT "25"; 13370 LOCATE 9,4:PRINT "0"; 13380 IF INKEY$="" THEN 13380 13390 FOR I=1 TO 30:B$(I)="":C$(I)="":D$(I)="":E$(I)="":NEXT 13400 SCREEN 2,0,0:RETURN 13410 SCREEN 2,0,0:CLS 13420 LOCATE 1,26:PRINT "╕≈╧ε┴╖╧░│╔╝¿▒¿╕µ"; 13430 IF KG=1 THEN PRINT "ú¿╦┘╢╚: ╫╓ú»╖╓ú⌐"; 13440 IF KG=2 THEN PRINT "ú¿╒²╚╖┬╩: úÑú⌐"; 13450 LOCATE 3,1:PRINT " ┤·║┼╝░├√│╞ ╣²╚Ñ ╡▒╠∞ ┤·║┼╝░├√│╞ ╣²╚Ñ ╡▒╠∞ ┤·║┼╝░├√│╞ ╣²╚Ñ ╡▒╠∞" 13460 LOCATE 4,2:PRINT "ú▒ú║╥╗╝╢╝≥┬δ "; 13470 LOCATE 5,2:PRINT "ú▓ú║╝ⁿ├√╫╓╕∙ "; 13480 LOCATE 6,2:PRINT "ú│ú║╢■╝╢╝≥┬δ "; 13490 LOCATE 7,2:PRINT "ú┤ú║│╔╫╓╫╓╕∙ "; 13500 LOCATE 8,2:PRINT "ú╡ú║─⌐▒╩╫╓╨═ "; 13510 LOCATE 4,28:PRINT "ú╢ú║│ú╙├╡Ñ╫╓ "; 13520 LOCATE 5,28:PRINT "ú╖ú║─╤╫╓┴╖╧░ "; 13530 LOCATE 6,28:PRINT "ú╕ú║╢■╫╓┤╩ó┘ "; 13540 LOCATE 7,28:PRINT "ú╣ú║╢■╫╓┤╩ó┌ "; 13550 LOCATE 8,28:PRINT "ú┴ú║╚² ╫╓ ┤╩ "; 13560 LOCATE 4,54:PRINT "ú┬ú║╦─ ╫╓ ┤╩ "; 13570 LOCATE 5,54:PRINT "ú├ú║╢α ╫╓ ┤╩ "; 13580 LOCATE 6,54:PRINT "ú─ú║╫╓╕∙┴╖╧░ "; 13590 LOCATE 7,54:PRINT "ú┼ú║┬Σ╫╓╙╬╧╖ "; 13600 LOCATE 8,54:PRINT "ú╞ú║╬─╒┬┴╖╧░ "; 13610 FOR I=1 TO 3 13620 FOR J=1 TO 5 13630 ON I GOTO 13640,13650,13660 13640 LOCATE J+3,16:GOTO 13670 13650 LOCATE J+3,42:GOTO 13670 13660 LOCATE J+3,68 13670 PRINT MK$(KG,1,(I-1)*5+J);" ";MK$(KG,2,(I-1)*5+J); 13680 NEXT J 13690 NEXT I 13700 LINE(0,30)-(625,144),,B 13710 LINE(1,31)-(624,143),,B 13720 LINE(112,30)-(113,143),,B 13730 LINE(160,30)-(161,143),,B 13740 LINE(208,30)-(209,143),,B 13750 LINE(320,30)-(321,143),,B 13760 LINE(368,30)-(369,143),,B 13770 LINE(416,30)-(417,143),,B 13780 LINE(528,30)-(529,143),,B 13790 LINE(576,30)-(577,143),,B 13800 LINE(624,30)-(625,143),,B 13810 LINE(0,52)-(625,52) 13820 LINE(1,30)-(2,143),,B 13830 D$=INPUT$(1) 13840 KEY(1) OFF 13850 IF KG=1 THEN RETURN 12760 ELSE RETURN 13060 13860 REM ╫╓╕∙╩Σ╚δ 13870 LOCATE 2,PST(1)+1:PRINT "╗∙▒╛╫╓╕∙"; 13880 LOCATE 3,PST(1)+1:PRINT "╖╟╕∙╜ß╣╣"; 13890 LOCATE 4,PST(1)+1:PRINT "╖╡╗╪╔╧▓π"; 13900 YOY=2 13910 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,4*18-2),,B 13920 GOSUB 11160 13930 D$=INKEY$ 13940 IF D$="" THEN 13930 13950 IF D$=CHR$(27) THEN 9160 13960 IF D$<>" " AND ASC(LEFT$(D$,1))<>0 AND ASC(D$)<>13 THEN 13930 13970 D$=RIGHT$(D$,1) 13980 IF D$="P" THEN GOSUB 11160:YOY=YOY+1:GOTO 14040 13990 IF D$=" " THEN GOSUB 11160:YOY=YOY+1:GOTO 14040 14000 IF D$="H" THEN GOSUB 11160:YOY=YOY-1:GOTO 14040 14010 GOSUB 11220 14020 IF ASC(D$)=13 THEN 14080 14030 GOTO 13930 14040 IF YOY=1 THEN YOY=4 14050 IF YOY=5 THEN YOY=2 14060 GOSUB 11160 14070 GOTO 13930 14080 ON YOY-1 GOTO 14140,14090,14100 14090 H=13:HH=7:GOTO 670 14100 GOSUB 11160 14110 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,4*18-2),0,B 14120 LINE (0,0)-(0,199) 14130 GOTO 9160 14140 GOSUB 11160 14150 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,4*18-2),0,B 14160 LOCATE 2,PST(1)+1:PRINT "╥╗╟°╫╓╕∙"; 14170 LOCATE 3,PST(1)+1:PRINT "╢■╟°╫╓╕∙"; 14180 LOCATE 4,PST(1)+1:PRINT "╚²╟°╫╓╕∙"; 14190 LOCATE 5,PST(1)+1:PRINT "╦─╟°╫╓╕∙"; 14200 LOCATE 6,PST(1)+1:PRINT "╬σ╟°╫╓╕∙"; 14210 LOCATE 7,PST(1)+1:PRINT "╚½▓┐╫╓╕∙"; 14220 LOCATE 8,PST(1)+1:PRINT "╖╡╗╪╔╧▓π"; 14230 YOY=2 14240 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,8*18-2),,B 14250 GOSUB 11160 14260 D$=INKEY$ 14270 IF D$="" THEN 14260 14280 IF D$=CHR$(27) THEN 14480 14290 IF D$<>" " AND ASC(LEFT$(D$,1))<>0 AND ASC(D$)<>13 THEN 14260 14300 D$=RIGHT$(D$,1) 14310 IF D$="P" THEN GOSUB 11160:YOY=YOY+1:GOTO 14370 14320 IF D$=" " THEN GOSUB 11160:YOY=YOY+1:GOTO 14370 14330 IF D$="H" THEN GOSUB 11160:YOY=YOY-1:GOTO 14370 14340 GOSUB 11220 14350 IF ASC(D$)=13 THEN 14410 14360 GOTO 14260 14370 IF YOY=1 THEN YOY=8 14380 IF YOY=9 THEN YOY=2 14390 GOSUB 11160 14400 GOTO 14260 14410 ON YOY-1 GOTO 14420,14430,14440,14450,14460,14470,14480 14420 H=13:HH=1:GOTO 670 14430 H=13:HH=2:GOTO 670 14440 H=13:HH=3:GOTO 670 14450 H=13:HH=4:GOTO 670 14460 H=13:HH=5:GOTO 670 14470 H=13:HH=6:GOTO 670 14480 GOSUB 11160:GOSUB 11040 14490 LINE((PST(XOX)-1)*8,(YOY-1)*18)-((PST(XOX)+9)*8,8*18-2),0,B 14500 LINE (0,0)-(0,199) 14510 GOTO 13860 14520 IF D$="G" OR D$="F" OR D$="D" OR D$="S" OR D$="A" THEN ON KOK GOSUB 8930,8730 14530 IF D$="H" OR D$="J" OR D$="K" OR D$="L" OR D$="M" THEN ON KOK GOSUB 8900,8760 14540 IF D$="T" OR D$="R" OR D$="E" OR D$="W" OR D$="Q" THEN ON KOK GOSUB 8950,8750 14550 IF D$="Y" OR D$="U" OR D$="I" OR D$="O" OR D$="P" THEN ON KOK GOSUB 8920,8720 14560 IF D$="N" OR D$="B" OR D$="V" OR D$="C" OR D$="X" THEN ON KOK GOSUB 8940,8740 14570 RETURN 14580 LINB(1)=0:LINF(1)=0 14590 LINB(2)=1:LINF(2)=1 14600 LINB(3)=2:LINF(3)=36 14610 LINB(4)=37:LINF(4)=40 14620 LINB(5)=41:LINF(5)=48 14630 LINB(6)=49:LINF(6)=107 14640 LINB(7)=108:LINF(7)=114 14650 LINB(8)=115:LINF(8)=200 14660 LINB(9)=201:LINF(9)=279 14670 LINB(10)=280:LINF(10)=302 14680 LINB(11)=303:LINF(11)=332 14690 LINB(12)=333:LINF(12)=339 14700 RETURN 23540 IF INKEY$<>"" THEN RETURN 23550 PLAY "MBO2G8O3C8E4.C8" 23560 IF INKEY$<>"" THEN RETURN 23570 PLAY "O2G8O3C8E8A8G3.E8L8N0" 23580 IF INKEY$<>"" THEN RETURN 23590 PLAY "C8C8C4.O2B8O3C8O2B8O3C8E8D3.." 23600 IF INKEY$<>"" THEN RETURN 23610 PLAY "L10N0O2G8O3C8E4.C8" 23620 IF INKEY$<>"" THEN RETURN 23630 PLAY "O2G8O3C8O2B8O3CO2A3.O3F8L8N0" 23640 IF INKEY$<>"" THEN RETURN 23650 PLAY "D8O2B8O3C8L4N0G8F#8G8F#8O2B8O3C3.." 23660 RETURN 30000 OLDTIMER=TIMER 30030 RETURN