2 GOSUB2190
3 IFA=0THENPOKE55,0:POKE56,56:CLR:A=1
4 IFA=1THENA=2:LOAD"MB.FONT",8,1
10 DIM A$(16):Y=1:SS=1:DIMJ(4,7,7)
20 POKE53280,0:POKE53281,4
50 POKE53272,(PEEK(53272)AND240)+14:PRINTCHR$(8)
60 GOSUB2200
70 PRINT"[147][156]";:POKE53281,0:POKE53280,2
80 IFA$="Y"THENGOSUB750
90 A=1:B=1:C=1:Y=1:SS=1
100 PRINT"[147]":GOSUB 700:PRINT"[147]"
110 GOSUB2390:FORXX=1TO16:A$(XX)=S$:NEXTXX
120 C=0:YY=-1:GOSUB460
130 PRINT"[150]  "NM$(1)
140 IFNM$(1)="COMPUTER"THENGOSUB1020
150 C=1:B=1:A=1:PRINT"^";
160 JR=PEEK(56320):GETA$
165 IFA$="[140]"THEN650
170 IF(JR=125ORA$="")ANDA<4THENA=A+1:B=B+1:C=C+2:GOSUB260
180 IF(JR=119ORA$="")ANDB<CTHENB=B+1:GOSUB260
190 IF(JR=126ORA$="[145]")ANDA>1ANDB>1ANDB<>CTHENA=A-1:B=B-1:C=C-2:GOSUB260
200 IFB>1AND(JR=123ORA$="[157]")THENB=B-1:GOSUB260
210 IFB=7ANDSS=0ANDJR=119THENPRINT"[157] [157][146]   ^";:B=B+1
220 IFSS=0AND(JR=109ORA$="*")THENJR=0:PRINT"[157] [157]";:GOSUB350:GOSUB260:SS=1
230 IF(JR=111ORA$=CHR$(13))AND(W=A OR W=0)THENGOSUB420:GOSUB260
240 IFRT=1THENRT=0:GOTO110
250 GOTO160
260 PRINT"[157] [157]";
270 IFRT=1THENRETURN
280 PRINT"";
290 FORZ=1TO((A-1)*4):PRINT"[157]";:NEXT
300 FORZ=1TO(A*6):PRINT"";:NEXTZ
310 FORZ=1TOB*4:PRINT"";:NEXT
320 IFA=1ANDB=1ANDC=1THENPRINT"";
330 PRINT"^";
340 RETURN
350 A=1:B=1:C=1:W=0:SS=1
360 IFY<>2THEN370
365 POKE53280,2:PRINT"[150]  "NM$(1);:FORII=1TO11-LEN(NM$(1)):PRINT" ";:NEXT
367 Y=1:GOSUB400:RETURN
370 POKE53280,3:PRINT"[153]  "NM$(2);:Y=2:FORII=1TO11-LEN(NM$(2)):PRINT" ";:NEXT
380 IFNM$(2)="COMPUTER"THENGOSUB1020
390 RETURN
400 IFNM$(1)="COMPUTER"THENGOSUB1020
410 RETURN
420 IFJ(A,B,C)=0THENRETURN
430 W=A:SS=0
440 DD=((A*A)-(C-B))
450 A$(DD)="[144]   [157][157][157]   [157][157][157]   [157][157][157]   [157][157][157]   [156]"
460 PRINT"[156]";A$(1)
470 PRINT"";A$(2);"[145][145][145][145]";A$(3);"[145][145][145][145]";A$(4)
480 PRINT"";A$(5);"[145][145][145][145]";A$(6);"[145][145][145][145]";A$(7);"[145][145][145][145]";A$(8);"[145][145][145][145]";
490 PRINTA$(9)
500 PRINT"";A$(10);"[145][145][145][145]";A$(11);"[145][145][145][145]";A$(12);"[145][145][145][145]";A$(13);"[145][145][145][145]";
510 PRINTA$(14);"[145][145][145][145]";A$(15);"[145][145][145][145]";A$(16);"[146]     ";
520 FORZ8=217TO242:POKEZ8,PEEK(Z8)OR128:NEXT
523 PRINT"  JOYSTICK":PRINT"[158] FIRE BUTTON"
525 PRINT"  TO REMOVE":PRINT"  FIRE DOWN"
530 PRINT"   TO END"
532 PRINT"    TURN"
536 PRINTSPC(30)"PRESS F8"
537 PRINTSPC(30)"TO QUIT"
540 GOSUB670
550 YY=YY+1:IFYY=16THENPRINT"[147][156]":GOTO570
560 J(A,B,C)=0:RETURN
570 IFY=2THENPRINTSPC(20-(LEN(NM$(1))/2))NM$(1)
580 IFY=1THENPRINTSPC(20-(LEN(NM$(2))/2))NM$(2)
585 PRINTSPC(10)"IS THE GRAND CHAMPION!"
590 FORF=1TO2:FORG=1TO16:POKE53280,G:FORH=1TO150:NEXT:NEXT:NEXT
600 POKE53280,2:PRINT"PLAY AGAIN? (Y/N)"
610 GETP$:IFP$<>"Y"ANDP$<>"N"THEN610
620 IFP$="Y"THENPRINT"[144]":RUN10
650 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
655 PRINT"[147]":POKE53272,21:IFER<>63THENEND
657 LOAD"HELLO CONNECT",8
670 PRINT"";TAB(26);"CURSOR  KEYS"
680 PRINTTAB(26);"[158]PRESS RETURN"
685 PRINTTAB(26);" TO  REMOVE"
690 PRINTTAB(27);"PRESS * TO"
695 PRINTTAB(27);" END TURN"
697 RETURN
700 PRINT"[147]ENTER NAME, PLAYER 1"
705 PRINTTAB(11);:GOSUB3000:NM$(1)=KK$
710 POKE 53280,3:PRINT"[147]ENTER NAME, PLAYER 2"
715 PRINTTAB(11);:GOSUB3000:NM$(2)=KK$
720 POKE53280,2
730 IFNM$(1)=NM$(2)THEN700
740 PRINT"[147]":RETURN
750 PRINT"[147] THE OBJECT OF THIS GAME IS TO AVOID"
760 PRINT" REMOVING THE LAST CARPET ON THE BOARD."
790 PRINT"   PLAYERS ALTERNATE TURNS REMOVING"
800 PRINT"   ACCORDING TO TWO SEPARATE RULES:"
830 PRINT"   1) IN ANY ONE TURN A PLAYER MAY"
840 PRINT"      REMOVE CARPETS FROM ONLY ONE"
850 PRINT"      HORIZONTAL ROW."
860 PRINT"   2) ANY NUMBER OF CARPETS"
870 PRINT"      FROM THAT ROW MAY BE REMOVED."
880 PRINT
890 PRINT" USE JOYSTICK IN PORT #2 OR THE CURSOR"
900 PRINT" KEYS TO PLACE THE POINTER.  PRESS THE"
905 PRINT"  FIRE BUTTON OR RETURN TO REMOVE A"
910 PRINT" CARPET.  PRESS '*' OR THE FIREBUTTON"
915 PRINT"WITH THE JOYSTICK DOWN TO END YOUR TURN."
920 PRINT" TO PLAY THE COMPUTER, ENTER 'COMPUTER'"
925 PRINT"            AS EITHER PLAYER."
930 PRINT:PRINT"        [158]PRESS ANY KEY TO BEGIN[145]"
940 GETWW$:IFWW$="" THEN 940
950 PRINT"[147]"
960 J(1,1,1)=1:J(2,1,3)=1:J(2,2,3)=1
970 J(2,3,3)=1:J(3,1,5)=1:J(3,2,5)=1
980 J(3,3,5)=1:J(3,4,5)=1:J(3,5,5)=1
990 J(4,1,7)=1:J(4,2,7)=1:J(4,3,7)=1
1000 J(4,4,7)=1:J(4,5,7)=1:J(4,6,7)=1
1010 J(4,7,7)=1:RETURN
1020 FOR X=1TO4:RR(X)=0:NEXT
1030 FOR A=1TO4
1040 FOR B=1TO(A*2-1)
1050 C=A*2-1
1060 IFJ(A,B,C)=1THENRR(A)=RR(A)+1
1070 NEXT:NEXT
1080 TN=0:FORX=1TO4
1090 IFRR(X)>=1THENTN=TN+1
1100 NEXT
1110 TP=0
1120 IFTN<>1THEN1190
1125 IFTN=1THENIFRR(1)=1THENTK=1:TX=1:GOSUB 2090:RETURN
1130 IFRR(2)=1THENTK=1:TX=2:GOSUB 2090:RETURN
1140 IFRR(3)=1THENTK=1:TX=3:GOSUB 2090:RETURN
1150 IFRR(4)=1THENTK=1:TX=4:GOSUB 2090:RETURN
1160 IFRR(2)>1THENTK=RR(2)-1:TX=2:GOSUB2090:RETURN
1170 IFRR(3)>1THENTK=RR(3)-1:TX=3:GOSUB2090:RETURN
1180 IFRR(4)>1THENTK=RR(4)-1:TX=4:GOSUB2090:RETURN
1190 IFTN<>2THEN1320
1195 IFTN=2THENIFRR(1)=1THENIFRR(1)=RR(2)THENTK=1:TX=1:GOSUB2090:RETURN
1200 IFRR(1)=1THENIFRR(1)=RR(3)THENTK=1:TX=3:GOSUB2090:RETURN
1210 IFRR(1)=1THENIFRR(1)=RR(4)THENTK=1:TX=1:GOSUB2090:RETURN
1220 IFRR(1)=1THENIFRR(2)>RR(1)THENTK=RR(2):TX=2:GOSUB2090:RETURN
1230 IFRR(1)=1THENIFRR(3)>RR(1)THENTK=RR(3):TX=3:GOSUB2090:RETURN
1240 IFRR(1)=1THENIFRR(4)>RR(1)THENTK=RR(4):TX=4:GOSUB2090:RETURN
1250 IFRR(2)=1ANDRR(3)>1THENTK=RR(3):TX=3:GOSUB2090:RETURN
1260 IFRR(2)=1ANDRR(4)>1THENTK=RR(4):TX=4:GOSUB2090:RETURN
1270 IFRR(3)=1ANDRR(4)>1THENTK=RR(4):TX=4:GOSUB2090:RETURN
1280 IFRR(2)>1ANDRR(3)=1THENTK=RR(2):TX=2:GOSUB2090:RETURN
1290 IFRR(2)>1ANDRR(4)=1THENTK=RR(2):TX=2:GOSUB2090:RETURN
1300 IFRR(3)>1ANDRR(4)=1THENTK=RR(3):TX=3:GOSUB2090:RETURN
1310 IFRR(2)>=1ANDRR(3)>=1THENTP=1
1320 IFTP=1THENIFRR(2)=RR(3)THENTK=1:TX=2:GOSUB2090:TP=0:RETURN
1330 IFTP=1THENIFRR(2)>RR(3)THENTK=RR(2)-RR(3):TX=2:GOSUB2090:TP=0:RETURN
1340 IFTP=1THENIFRR(2)<RR(3)THENTK=RR(3)-RR(2):TX=3:GOSUB2090:TP=0:RETURN
1350 IFTN=2THENIFRR(2)>=1ANDRR(4)>=1THENTP=1
1360 IFTP=1THENIFRR(2)=RR(4)THENTK=1:TX=2:GOSUB2090:TP=0:RETURN
1370 IFTP=1THENIFRR(2)>RR(4)THENTK=RR(2)-RR(4):TX=2:GOSUB2090:TP=0:RETURN
1380 IFTP=1THENIFRR(2)<RR(4)THENTK=RR(4)-RR(2):TX=4:GOSUB2090:TP=0:RETURN
1390 IFTN=2THENIFRR(3)>=1ANDRR(4)>=1THENTP=1
1400 IFTP=1THENIFRR(3)=RR(4)THENTK=1:TX=3:GOSUB2090:TP=0:RETURN
1410 IFTP=1THENIFRR(3)>RR(4)THENTK=RR(3)-RR(4):TX=3:GOSUB2090:TP=0:RETURN
1420 IFTP=1THENIFRR(3)<RR(4)THENTK=RR(4)-RR(3):TX=4:GOSUB2090:TP=0:RETURN
1430 IFTN=3ANDRR(1)=1THENTP=1
1440 IFTP=1ANDRR(2)=3ANDRR(3)>2THENTK=RR(3)-2:TX=3:GOSUB2090:RETURN
1450 IFTP=1ANDRR(2)=3ANDRR(4)>2THENTK=RR(4)-2:TX=4:GOSUB2090:RETURN
1460 IFTP=1ANDRR(2)=2ANDRR(3)>3THENTK=RR(3)-3:TX=3:GOSUB2090:RETURN
1470 IFTP=1ANDRR(2)=2ANDRR(4)>3THENTK=RR(4)-3:TX=4:GOSUB2090:RETURN
1480 IFTP=1ANDRR(3)=2ANDRR(4)>3THENTK=RR(4)-3:TX=4:GOSUB2090:RETURN
1490 IFTP=1ANDRR(3)=3ANDRR(4)>2THENTK=RR(4)-2:TX=4:GOSUB2090:RETURN
1500 IFTP=1ANDRR(2)=RR(3)ANDRR(2)<>1THENTP=0:TK=1:TX=1:GOSUB2090:RETURN
1510 IFTP=1ANDRR(4)=2ANDRR(3)>3THENTK=RR(3)-3:TX=3:GOSUB2090:RETURN
1520 IFTP=1ANDRR(4)=3ANDRR(3)>2THENTK=RR(3)-2:TX=3:GOSUB2090:RETURN
1530 IFTP=1ANDRR(2)=RR(4)ANDRR(2)<>1THENTP=0:TK=1:TX=1:GOSUB2090:RETURN
1540 IFTP=1ANDRR(3)=RR(4)ANDRR(3)<>1THENTP=0:TK=1:TX=1:GOSUB2090:RETURN
1550 IFTP=1ANDRR(2)=RR(3)ANDRR(2)=1THENTP=0:TK=1:TX=1:GOSUB2090:RETURN
1560 IFTP=1ANDRR(2)=RR(4)ANDRR(2)=1THENTP=0:TK=1:TX=1:GOSUB2090:RETURN
1570 IFTP=1ANDRR(3)=RR(4)ANDRR(3)=1THENTP=0:TK=1:TX=1:GOSUB2090:RETURN
1580 IFTP=1ANDRR(2)=1ANDRR(3)>1THENTP=0:TK=RR(3)-1:TX=3:GOSUB2090:RETURN
1590 IFTP=1ANDRR(3)=1ANDRR(2)>1THENTP=0:TK=RR(2)-1:TX=2:GOSUB2090:RETURN
1600 IFTP=1ANDRR(3)=1ANDRR(4)>1THENTP=0:TK=RR(4)-1:TX=4:GOSUB2090:RETURN
1610 IFTP=1ANDRR(4)=1ANDRR(3)>1THENTP=0:TK=RR(3)-1:TX=3:GOSUB2090:RETURN
1620 IFTP=1ANDRR(4)=2ANDRR(3)>3THENTK=RR(3)-(RR(3)-3):TX=3:GOSUB2090:RETURN
1630 IFTP=1ANDRR(2)=2ANDRR(3)>3THENTK=RR(3)-(RR(3)-3):TX=3:GOSUB2090:RETURN
1640 IFTP=1ANDRR(3)=2ANDRR(4)>3THENTK=RR(4)-(RR(4)-3):TX=4:GOSUB2090:RETURN
1650 IFTN=3ANDRR(1)=0THENTP=1
1660 IFTP=1ANDRR(2)=1ANDRR(3)=2ANDRR(4)>2THENTK=RR(4)-3:TX=4:GOSUB2090:RETURN
1670 IFTP=1ANDRR(2)=1ANDRR(3)=3ANDRR(4)>3THENTK=RR(4)-2:TX=4:GOSUB2090:RETURN
1680 IFTP=1ANDRR(2)=1ANDRR(4)=2ANDRR(3)>2THENTK=RR(3)-3:TX=3:GOSUB2090:RETURN
1690 IFTP=1ANDRR(2)=1ANDRR(4)=3ANDRR(3)>3THENTK=RR(3)-2:TX=3:GOSUB2090:RETURN
1700 IFTP=1ANDRR(3)=1ANDRR(2)=2ANDRR(4)>2THENTK=RR(4)-3:TX=4:GOSUB2090:RETURN
1710 IFTP=1ANDRR(3)=1ANDRR(2)=3ANDRR(4)>3THENTK=RR(4)-2:TX=4:GOSUB2090:RETURN
1720 IFTP=1ANDRR(3)=1ANDRR(4)=2ANDRR(2)>2THENTK=RR(2)-3:TX=2:GOSUB2090:RETURN
1730 IFTP=1ANDRR(3)=1ANDRR(4)=3ANDRR(2)>3THENTK=RR(2)-2:TX=2:GOSUB2090:RETURN
1740 IFTP=1ANDRR(4)=1ANDRR(2)=2ANDRR(3)>2THENTK=RR(3)-3:TX=3:GOSUB2090:RETURN
1750 IFTP=1ANDRR(4)=1ANDRR(2)=3ANDRR(3)>3THENTK=RR(3)-2:TX=3:GOSUB2090:RETURN
1760 IFTP=1ANDRR(4)=1ANDRR(3)=2ANDRR(2)>2THENTK=RR(2)-3:TX=2:GOSUB2090:RETURN
1770 IFTP=1ANDRR(4)=1ANDRR(3)=3ANDRR(2)>2THENTK=RR(2)-2:TX=2:GOSUB2090:RETURN
1780 IFTP=1ANDRR(2)=1ANDRR(4)=1ANDRR(3)>1THENTP=0:TK=RR(3)-1:TX=3:TG=1
1790 IFTP=1ANDRR(2)=3ANDRR(3)=2ANDRR(4)>1THENTK=RR(4)-1:TX=4:GOSUB2090:RETURN
1800 IFTP=1ANDRR(2)=2ANDRR(3)=3ANDRR(4)>1THENTK=RR(4)-1:TX=4:GOSUB2090:RETURN
1810 IFTP=1ANDRR(3)=3ANDRR(4)=2ANDRR(2)>1THENTK=RR(2)-1:TX=2:GOSUB2090:RETURN
1820 IFTP=1ANDRR(3)=2ANDRR(4)=2ANDRR(2)>1THENTK=RR(2)-1:TX=2:GOSUB2090:RETURN
1830 IFTP=1ANDRR(2)=3ANDRR(4)=2ANDRR(3)>1THENTK=RR(3)-1:TX=3:GOSUB2090:RETURN
1840 IFTP=1ANDRR(2)=2ANDRR(4)=3ANDRR(3)>1THENTK=RR(3)-1:TX=3:GOSUB2090:RETURN
1850 IFTP=1ANDRR(2)=1ANDRR(3)=RR(4)ANDRR(4)>1THENTP=0:TK=1:TX=2:GOSUB2090:RETURN
1860 IFTP=1ANDRR(2)=1ANDRR(3)=RR(4)ANDRR(4)=1THENTP=0:TK=1:TX=2:GOSUB2090:RETURN
1870 IFTP=1ANDRR(2)=1ANDRR(3)=1ANDRR(4)>1THENTP=0:TK=RR(4)-1:TX=4:TG=1
1880 IFTG=1THENTG=0:GOSUB2090:RETURN
1890 IFTP=1ANDRR(2)=1ANDRR(4)=1ANDRR(3)>1THENTP=0:TK=RR(3)-1:TX=3:TG=1
1900 IFTG=1THENTG=0:GOSUB2090:RETURN
1910 IFTP=1ANDRR(2)=RR(3)THENTP=0:TK=RR(4):TX=4:GOSUB2090:RETURN
1920 IFTP=1ANDRR(2)=RR(4)THENTP=0:TK=RR(3):TX=3:GOSUB2090:RETURN
1930 IFTP=1ANDRR(3)=RR(4)THENTP=0:TK=RR(2):TX=2:GOSUB2090:RETURN
1940 IFTN=4ANDRR(2)=1ANDRR(3)=1THENTK=RR(4):TX=4:GOSUB2090:RETURN
1950 IFTN=4ANDRR(2)=1ANDRR(4)=1THENTK=RR(3):TX=3:GOSUB2090:RETURN
1960 IFTN=4ANDRR(3)=1ANDRR(4)=1THENTK=RR(2):TX=2:GOSUB2090:RETURN
1970 IFTN=4ANDRR(2)=2ANDRR(3)=3THENTK=RR(4):TX=4:GOSUB2090:RETURN
1980 IFTN=4ANDRR(2)=3ANDRR(3)=2THENTK=RR(4):TX=4:GOSUB2090:RETURN
1990 IFTN=4ANDRR(3)=2ANDRR(4)=3THENTK=RR(2):TX=2:GOSUB2090:RETURN
2000 IFTN=4ANDRR(3)=3ANDRR(4)=2THENTK=RR(2):TX=2:GOSUB2090:RETURN
2010 IFTN=4ANDRR(2)=2ANDRR(4)=3THENTK=RR(3):TX=3:GOSUB2090:RETURN
2020 IFTN=4ANDRR(2)=3ANDRR(4)=2THENTK=RR(3):TX=3:GOSUB2090:RETURN
2030 IFTN=3ANDRR(4)>=1THENTK=1:TX=4:GOSUB2090:RETURN
2040 IFTN=3ANDRR(3)>=1THENTK=1:TX=3:GOSUB2090:RETURN
2050 IFTN=3ANDRR(2)>=1THENTK=1:TX=2:GOSUB2090:RETURN
2060 IFTN=3ANDRR(1)>=1THENTK=1:TX=1:GOSUB2090:RETURN
2070 IFTN=4THENTK=INT(RND(1)*5)+1:TX=INT(RND(1)*3)+2:GOSUB2090:RETURN
2080 RETURN
2090 CC=0:TP=0
2100 IFTX=1THENA=1:B=1:C=1
2110 IFTX=2THEN A=2:B=1:C=3
2120 IFTX=3THEN A=3:B=1:C=5
2130 IFTX=4THEN A=4:B=1:C=7
2140 FORGX=1TOC
2150 IFJ(A,GX,C)=1THENB=GX:GOSUB430:CC=CC+1
2160 IFRT=1THENGOSUB350:RETURN
2170 IFCC=TKTHENGOSUB350:SS=1:RETURN
2180 NEXT:GOSUB350:RETURN
2190 PRINT" [144][147]PLEASE WAIT WHILE FILE LOADS":RETURN
2200 PRINT"[147]":POKE53280,0:POKE53281,4
2210 A=1232:B=100:C=A:D=B
2220 FORY=1TO5:FORX=1TO25:POKEA,B:A=A+1:B=B+1:NEXT
2230 A=C+(Y*40):B=D+(Y*32):NEXT
2240 A=55503:FORX=1TO25:POKEA+X,1:NEXT
2250 A=55523:FORX=1TO4:POKEA+40,1:A=A+40:NEXT
2260 FORX=1TO25:POKEA-X,1:NEXT
2270 A=55664:FORX=1TO4:POKEA-40,1:A=A-40:NEXT
2280 PRINT"[144]LOADSTAR PRESENTS"
2290 PRINT"              ANOTHER[144][157][157][157][157][157][157][157][157][157][157]JOEL EPSTEIN";
2300 PRINT"[157][157][157][157][157][157][157][157][157][157][157]PRODUCTION"
2310 PRINT"[144]    PLEASE RESPECT AUTHOR'S RIGHTS."
2320 PRINT"   THIS PROGRAM IS NOT PUBLIC DOMAIN."
2330 PRINT"[158]    DO YOU WISH INSTRUCTIONS? (Y/N)"
2340 GETA$:IFA$=""THENGOTO2340
2350 IFA$="N"THENGOSUB960
2360 IFA$="Y"ORA$="N"THENRETURN
2370 GOTO 2340
2380 Z=96:FORX=1TO5:FORY=1TO3:PRINTCHR$(Z);:Z=Z+1:NEXT:PRINT:NEXT
2390 S$=CHR$(96)+CHR$(97)+CHR$(98)
2400 E$=CHR$(17):F$=CHR$(157):G$=E$+F$+F$+F$
2410 S$=S$+G$
2420 S$=S$+CHR$(99)+CHR$(100)+CHR$(101)
2430 S$=S$+G$
2440 S$=S$+CHR$(102)+CHR$(103)+CHR$(104)
2450 S$=S$+G$+CHR$(105)+CHR$(106)+CHR$(107)+G$
2460 S$=S$+CHR$(108)+CHR$(109)+CHR$(110):RETURN
3000 POKE198,0:KK$=""
3010 PRINT"[153] [146][157]";
3020 FORT=0TO20:NEXT
3030 PRINT" [157]";
3040 FORT=0TO20:NEXT
3050 GETA$:IFA$=""THEN3010
3060 IFA$=CHR$(13)THENPRINT:RETURN
3070 IFA$=CHR$(20)AND(LEN(KK$)>0)THENPRINTA$;:KK$=LEFT$(KK$,LEN(KK$)-1):GOTO3010
3080 IF(A$<"A"ORA$>"Z")AND(A$<>" ")THEN3010
3090 IFLEN(KK$)>=9THEN3010
3100 PRINTA$;:KK$=KK$+A$
3110 GOTO3010