home *** CD-ROM | disk | FTP | other *** search
Wrap
5 PRINT"":PRINTCHR$(142):DIMNM$(12):DIMN(12) 10 POKE53281,0:POKE53280,0:GOSUB3050:GOSUB3470 20 PRINT"[144]";TAB(3);K$;", PRESS ANY KEY TO PLAY" 21 GETC$:IFC$=""THENGOTO21 30 PRINT"[147]";:POKE53280,0:POKE53281,0 50 DIMCC(100):DIMCP(100):C1=8:C2=8 70 PRINT"":FORX=1TO16:PRINT"";:NEXT 90 PRINT" DISCARD PILE" 110 FORX=17TO24:PRINT"";:NEXT:PRINT" ";K$;"'S CARDS" 130 PRINT" JOYSTICK OR CURSOR TO MOVE, * TO QUIT" 140 PRINT"[158] MATCH ME IF YOU CAN" 141 PRINT" STICK DOWN AND FIRE OR 'D' TO DRAW CARD" 150 FORCT=1TOC1 170 GOSUB 710 190 CC(CT)=Z 210 NEXT:GOSUB 2010 230 FORCT=1TOC2 250 GOSUB 710 270 CP(CT)=Z 290 NEXT:GOSUB2130 310 GOSUB 710:IFZ>100 THEN GOTO310 330 D=Z 350 PRINT""; 370 PD=D:GOSUB 990 390 PRINT" " 410 PRINT" ";NM$(11);"'S TURN" 430 C=1:GOSUB2850:POKE53280,2:GOSUB830 450 IF C2=0 THEN GOTO 2890 470 IF GA=1 THEN GA=0:GOTO 390 490 PRINT" " 510 PRINT" COMPUTER'S TURN":POKE53280,6 530 IF TT=1 THEN GOSUB710:C1=C1+1:CC(C1)=Z:GOSUB2010:GOSUB710:C1=C1+1 550 IFTT=1 THENTT=0:CC(C1)=Z:GOSUB2010 570 GOSUB2850:POKE53280,6 590 GOSUB 2250 610 IF C1=0 THEN K$="COMPUTER":NM$(11)="COMPUTER":GOTO2890 630 IF GA=1 THEN GA=0:GOTO490 650 IF TT=1 THEN GOSUB710:C2=C2+1:CP(C2)=Z:GOSUB2130:GOSUB710:C2=C2+1 670 IFTT=1 THENTT=0:CP(C2)=Z:GOSUB2130 690 GOTO 390 710 W=INT(RND(1)*4):REM TYPE 730 X=INT(RND(1)*4)+1:REM COLOR 750 Y=INT(RND(1)*9)+1:REM NUMBER 770 IFW>OANDY/2<>INT(Y/2)THENW=W-1 790 Z=Y+(X*10)+(W*100) 810 RETURN 830 DM=1:PRINT"";:FORTC=1TOC2 831 IFTC=1 THEN GOTO835 833 PRINT"[157][157][157][157][145][145][145][145]";: REM PRINT"[145][145][145][145][157][157][157][157] [157] [157] [157] [157] [145][145][145][145]"; 835 PD=CP(TC):GOSUB990 839 NEXT:C=1 840 PRINT"^[157]"; 841 J=PEEK(56320):GETB$:IFB$="*"THEN GOSUB4000 842 IF(J=119ORB$="")ANDC<C2THENC=C+1:PD=CP(C):PRINT" ^[157]"; 843 IF(J=123ORB$="[157]")ANDC>1THENC=C-1:PD=CP(C):PRINT" [157][157][157]^[157]"; 844 IF(J=111ORB$=CHR$(13)) THENRT=1:DM=0:GOSUB1370:IFRT=0THEN DM=0:RETURN 845 IF J=109 OR B$="D"THEN W=4:GOTO1370 846 GOTO 841 849 PRINT"";:PD=CP(1):C=1 850 GOSUB 990 870 PRINT""; 890 J=PEEK(56320):GETB$:IFB$="*"THENGOSUB4000 910 IFJ=119ANDC<C2+1THENC=C+1:PD=CP(C):GOSUB990 930 IFJ=123ANDC>1THENC=C-1:PD=CP(C):GOSUB990 950 IFJ=111 THENRT=1:DM=0:GOSUB1370:IFRT=0THEN DM=0:RETURN 970 GOTO 870 990 IF PD=0 THEN PD=400 1010 W=(INT(PD/100)) 1030 X=(INT((PD-(W*100))/10)) 1050 Y=(PD-(W*100)-(X*10)):IFCH=1THENRETURN 1070 IF X=1 THEN PRINT""; 1090 IF X=2 THEN PRINT""; 1110 IF X=3 THEN PRINT"[158]"; 1130 IF X=4 THEN PRINT""; 1150 IF W>=3 THEN PRINT"[151]"; 1170 IF PD=400 THEN PRINT"[146]"; 1190 IFDM=.THENPRINT""; 1210 PRINT" [157][157][157][157][157] [157][157][157][157][157] [157][157][157][157][157] [157][157][157][157][157] [145][145][145][145][157][157][157][157][157]"; 1220 IFPD<100THENM$=RIGHT$(STR$(Y),1) 1230 IFPD>99THEN1245 1235 PRINTM$""M$"[157][157][157]"M$"[157][157][157]"M$""M$""; 1237 IF(DM=.)OR(TC=C2)THEN1250 1240 PRINT"[145][145][145][145][157][157][157][157][157][167] [157][157][157][157][167] [157][157][157][157][167] [157][157][157][157][167] [157][157][157][157][167] "; 1245 IF(DM=.)OR(TC=C2)THEN1280 1250 IF W=1 THEN PRINT"G[167][157][157]O[167][157][167][157][157]G[167][157][157]O[167][145][145][145][145]G[157]O[157]G[157]O[146]"; 1260 IF W=2 THEN PRINT"D[167][157][157]R[167][157][157]A[167][157][157]W[167][157][157]2[167][145][145][145][145]D[157]R[157]A[157]W[157]2[146]"; 1270 IF W=3 THEN PRINT"W[167][157][157]I[167][157][157]L[167][157][157]D[167][157][167][145][145][145][145]W[157]I[157]L[157]D[146]"; 1275 GOTO 1310 1280 IF W=1 THEN PRINT"G [157][157]O [157] [157][157]G [157][157]O [145][145][145][145]G[157]O[157]G[157]O[146]"; 1290 IF W=2 THEN PRINT"D [157][157]R [157][157]A [157][157]W [157][157]2 [145][145][145][145]D[157]R[157]A[157]W[157]2[146]"; 1300 IF W=3 THEN PRINT"W [157][157]I [157][157]L [157][157]D [157][145][145][145][145]W[157]I[157]L[157]D[146]"; 1310 IF W=4 THEN PRINT"PICK[157][157][157][157]A [157][157][157][157]CARD" 1330 PRINT"[146]";:RETURN 1370 IFW=4 THEN RT=0:GOTO 1670 1390 IFCP(C)>=300ANDCP(C)<400THENRT=0:GOTO1530 1410 CH=1:PD=(CP(C)):GOSUB 1010:WW=W:XX=X:YY=Y 1430 PD=D:GOSUB 1010:CH=0 1431 POKE896,W:POKE897,X:POKE898,Y:POKE899,WW:POKE900,XX:POKE901,YY 1432 IF(W<>WW AND X<>XX AND Y<>YY)THEN GOTO1730 1433 IFW=0THENIF(W=WW)AND((Y<>YY)AND(X<>XX))THEN GOTO 1730 1434 IFW<>WW AND X<>XX AND Y=YYTHEN GOTO1730 1450 IFW>=1ANDW=WWORX=XXTHENRT=0:GOTO1510 1470 IFW=0ANDY=YYTHENRT=0:GOTO1510 1490 GOTO 1730 1510 PRINT"";:FORCT=1TO8:PRINT" "; 1511 PRINT" ":NEXT 1530 PD=CP(C):D=PD:PRINT"";:GOSUB1010 1550 RT=0:CH=0 1570 CH=0:CP(C)=0:GOSUB2130:C2=C2-1 1590 IFW=3 THENXG=0:GOSUB 1770:D=(300+(X*10)):GA=0:GOTO1650 1610 IF WW=1THENGA=1 1630 IFWW=2THENTT=1 1650 RT=0:RETURN 1670 C2=C2+1:GOSUB710:CP(C2)=Z:RT=0:GOSUB 2130 1690 PRINT"";:FORCT=1TO8:PRINT" "; 1691 PRINT" ":NEXT 1710 C=1:CH=0:RETURN 1730 PRINT" ^[157]";:PD=CP(1):C=1 1750 RT=1:RETURN:GOSUB 990:RETURN 1770 PRINT"[158]COLOR OF WILD CARD[146]" 1790 W=0:X=1:PD=101 1810 PRINT"";:GOSUB1070 1830 PRINT""; 1850 J=PEEK(56320):GETB$:E$=CHR$(13) 1870 IF(J=119ORB$="")ANDX<4THENX=X+1:GOSUB 1070 1890 IF(J=123ORB$="[157]")ANDX>1THENX=X-1:GOSUB1070 1910 IF(J=111ORB$=E$)ANDXG>10THEN W=3:PRINT"";:GOSUB1190:GOTO1950 1930 XG=XG+1:GOTO 1830 1950 PRINT" " 1970 PRINT"";:FORCT=1TO8:PRINT" "; 1971 PRINT" ":NEXT 1990 RETURN 2010 FORY=1TOC1-1 2030 FORZ=Y+1TOC1 2050 IFCC(Y)>=CC(Z)THENGOTO 2090 2070 S=CC(Z):CC(Z)=CC(Y):CC(Y)=S 2090 NEXT Z 2110 NEXT Y:RETURN 2130 FORY=1TOC2-1 2150 FORZ=Y+1TOC2 2170 IFCP(Y)>=CP(Z)THENGOTO 2210 2190 S=CP(Z):CP(Z)=CP(Y):CP(Y)=S 2210 NEXT Z 2230 NEXT Y:RETURN 2250 WO=1:PRINT" [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"; 2270 A=INT(D/100) 2290 B=INT((D-(A*100))/10) 2310 C=D-(A*100)-(B*10) 2330 FORCT=1TOC1 2350 AA=INT(CC(CT)/100) 2370 BB=INT((CC(CT)-(AA*100))/10) 2390 CJ=CC(CT)-(AA*100)-(BB*10) 2410 IFAA>=1ANDAA=AORBB=BTHENGOTO2510 2430 IFAA=0ANDCJ=CTHENPD=1:GOTO2510 2450 NEXT 2470 PRINT"[159] COMPUTER DREW A CARD" 2490 C1=C1+1:GOSUB710:CC(C1)=Z:GOSUB 2010:RETURN 2510 PRINT""; 2530 IFAA=1THENGA=1 2550 IFAA=2THENTT=1 2570 D=CC(CT):CC(CT)=0:GOSUB2010:C1=C1-1 2590 PRINT"[146]"; 2610 IFBB=1 THEN PRINT""; 2630 IFBB=2 THEN PRINT""; 2650 IFBB=3 THEN PRINT"[158]"; 2670 IFBB=4 THEN PRINT""; 2690 E=CJ:PRINT""; 2710 PRINT" [157][157][157][157][157] [157][157][157][157][157] [157][157][157][157][157] [157][157][157][157][157] [145][145][145][145][157][157][157][157][157][157]"; 2730 IF AA=0 THEN PRINTE;"";E;"[157][157][157][157][157]";E;"[157][157][157][157][157]";E;"";E;"[144][157][157][157][157][157][157][157] [145][145][145][145][157] [146]" 2750 IFAA=1 THEN PRINT"G[157]O[157]G[157]O[145][145][145][145]G[157]O[157]G[157]O[146]" 2770 IFAA=2 THEN PRINT"D[157]R[157]A[157]W[157]2[145][145][145][145]D[157]R[157]A[157]W[157]2[146]" 2790 IFAA=3 THEN PRINT"W[157]I[157]L[157]D[157][145][145][145][145]W[157]I[157]L[157]D[146]" 2810 IFW=4 THEN PRINT"PICK[157][157][157][157]A [157][157][157][157]CARD" 2830 RETURN 2850 PRINT"[156]COMPUTER HAS";C1;"[157] CARDS LEFT " 2870 PRINT"";K$;" HAS";C2;"[157] CARDS LEFT " 2875 IF C1>=18 THEN C2=0:GOTO2890 2876 IF C2>=18 THEN C1=0:K$="COMPUTER":NM$(11)="COMPUTER":GOTO2890 2877 RETURN 2890 PRINT"[147][156]";K$ 2910 PRINT"IS THE WINNER":FORX=0TO98:POKE53280,X:NEXT:GOSUB5000 2919 PRINT"WITH ";SC;" POINTS" 2920 IFSC>=HSTHEN PRINT"!!!!!THIS MAKES IT INTO THE TOP TEN!!!!!":JU=1 2921 IF JU=0THENPRINT" SORRY, THIS IS NOT A TOP SCORE":GOTO 2930 2922 PRINT"[159] PRESS ANY KEY TO CONTINUE" 2924 GETQ$:IFQ$=""THEN GOTO2921 2925 IFJU=1THENJU=0:PRINT"[147]":POKE53281,15:POKE53280,15:GOSUB3370 2930 PRINT:PRINT" WOULD YOU LIKE TO PLAY AGAIN? (Y OR N)" 2950 GETA$:IFA$<>"Y"ANDA$<>"N"THEN2950 2960 IF A$="Y"THEN CLR:RUN 2970 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT" 2980 INPUT#15,ER%:CLOSE15:IFER%<>63THENEND 2990 LOAD"HELLO CONNECT",8 3050 PRINTTAB(13)"[147] UNO" 3070 PRINTTAB(10)"(MATCH ME IF YOU CAN) 3140 [153]" ENTER YOUR NAME ->";:[141]6000:NM$(11)[178]K$ 3230 [153][163]10)"INSTRUCTIONS? SYS(Y / N)" 3270 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]3270 3290 [139]A$[178]"Y"[167][141]3710 3310 [142] 3350 [143] *** SCORES *** 3370 [159]2,8,2,"@0:SCORES,S,W" 3390 C$[178][199](13):[129] X[178]1[164]10 3430 [152]2,NM$(X)","[196](N(X))C$ 3450 [130]:[160]2 3470 [151]53281,12:[151]53280,12 3480 [153]"LOADSTOP HIGH SCORES" 3490 [153]"":[159]2,8,2,"0:SCORES,S,R" 3510 [129]X[178]1[164]10 3530 [132]2,NM$(X),N(X) 3550 [153]"STOP";:[129]Y[178]1[164]X:[153]"";:[130]:[153][163]7); 3570 [139] X[178]10 [167] [153]"CMD"; 3590 [153]X;"CMD. ";NM$(X); 3610 [153]"STOP";:[129]Y[178]1[164]X:[153]"";:[130]:[153][163]23)N(X); 3630 [130]:[160]2:HS[178]N(X[171]1) 3690 [142] 3710 [143] *** INSTRUCTIONS *** 3715 [151]53281,15:[151]53280,15 3720 [153]"LOADSTOPTHE OBJECT OF THIS GAME IS TO GET RID" 3725 [153]"OF ALL OF YOUR CARDS BEFORE THE COMPUTER" 3727 [153]"GETS RID OF ITS CARDS. ALSO, IF YOU" 3728 [153]"COLLECT 18 CARDS, YOU LOSE. TO DISCARD," 3729 [153]"YOU MUST BE ABLE TO MATCH EITHER THE" 3731 [153]"TYPE, NUMBER, OR COLOR OF THE TOP CARD" 3733 [153]"IN THE DISCARD PILE. FOR EXAMPLE, YOU" 3735 [153]"COULD PUT A RED '7' ON A RED 'GO' CARD." 3738 [153]" PRESS ANY KEY OR FIRE TO CONTINUE" 3740 J[178][194](56320):[161]Q$:[139]((J[178]111)[176](Q$[179][177]""))[167] [137]3742 3741 [137]3740 3742 [153]"LOADSTOPTHERE ARE FOUR TYPES OF CARDS IN THE" 3745 [153]"DECK. THEY ARE:" 3746 [153]" 1) NUMBER CARDS 3747 PRINT" 2) GO CARDS" 3748 PRINT" 3) DRAW TWO CARDS" 3749 PRINT" 4) WILD CARDS" 3750 PRINT"1) TO PLAY A NUMBER CARD, THE TOP CARD" 3752 PRINT"IN THE DISCARD PILE MUST EITHER BE THE" 3754 PRINT"SAME NUMBER OR THE SAME COLOR AS THE" 3756 PRINT"CARD YOU WISH TO PLAY." 3758 PRINT" PRESS ANY KEY TO CONTINUE READING" 3760 J=PEEK(56320):GETQ$:IF((J=111)OR(Q$<>""))THEN GOTO3762 3761 GOTO3760 3762 PRINT"[147][144]2) TO PLAY A GO CARD, THE TOP CARD IN" 3764 PRINT"THE DISCARD PILE MUST BE THE SAME" 3766 PRINT"COLOR AS THE GO CARD YOU WISH TO PLAY" 3768 PRINT"OR BE A DIFFERENT COLOR GO CARD." 3769 PRINT"YOU TAKE ANOTHER TURN IMMEDIATELY AFTER" 3770 PRINT"YOU PLAY A GO CARD." 3771 PRINT"3) TO PLAY A DRAW TWO CARD, THE TOP CARD" 3772 PRINT"IN THE DISCARD PILE MUST BE THE SAME" 3774 PRINT"COLOR AS THE DRAW TWO CARD YOU WISH TO" 3776 PRINT"PLAY, OR BE A DIFFERENT COLOR DRAW TWO" 3778 PRINT"CARD.":PRINT" PRESS ANY KEY OR FIRE TO CONTINUE" 3779 J=PEEK(56320):GETQ$:IF((J=111)OR(Q$<>""))THENGOTO3781 3780 GOTO 3779 3781 GOSUB3900:PRINT"[147][144]WHEN YOU PLAY A DRAW TWO CARD, THE" 3782 PRINT"COMPUTER WILL TAKE 2 CARDS AND THEN TAKE" 3783 PRINT"ITS TURN. WHEN THE COMPUTER PLAYS A" 3784 PRINT"DRAW TWO CARD, YOU WILL BE DEALT TWO " 3786 PRINT"CARDS AND THEN IT WILL BE YOUR TURN." 3788 PRINT" PRESS ANY KEY OR FIRE TO CONTINUE" 3789 J=PEEK(56320):GETQ$:IF((J=111)OR(Q$<>""))THENGOTO3792 3790 GOTO 3789 3792 PRINT"[147][144]AT THE BEGINNING OF THE GAME, YOU" 3793 PRINT"WILL SEE A DISCARD PILE IN THE MIDDLE" 3794 PRINT"OF THE SCREEN AND THE EIGHT CARDS YOU" 3796 PRINT"WERE DEALT AT THE BOTTOM OF THE SCREEN." 3798 PRINT"YOUR CARDS WILL BE STACKED UP SO YOU" 3800 PRINT"WILL ONLY SEE THE LEFT SIDE OF ALL OF" 3802 PRINT"THE CARDS EXCEPT FOR THE TOP CARD." 3804 PRINT"TO SELECT A CARD TO PLAY, MOVE THE" 3806 PRINT"POINTER USING EITHER THE CURSOR BUTTONS" 3808 PRINT"OR THE JOYSTICK (PORT #2)." 3810 PRINT" PRESS ANY KEY OR FIRE TO CONTINUE" 3811 J=PEEK(56320):GETQ$:IF((J=111)OR(Q$<>""))THENGOTO3813 3812 GOTO3811 3813 PRINT"[147][144]TO PLAY THE CARD YOU SELECT, EITHER" 3814 PRINT"PRESS THE FIRE BUTTON OR HIT RETURN." 3816 PRINT"IF YOU CANNOT PLAY ANY OF YOUR CARDS" 3818 PRINT"ON THE DISCARD PILE, EITHER HIT 'D'" 3820 PRINT"OR PULL DOWN ON THE JOYSTICK AND PRESS" 3822 PRINT"THE FIRE BUTTON. IN THIS WAY, YOU WILL" 3824 PRINT"WILL BE DEALT A NEW CARD, AND THE" 3826 PRINT"COMPUTER WILL TAKE ITS TURN." 3828 PRINT"IF THE COMPUTER PLAYS A DRAW TWO" 3830 PRINT"YOU WILL BE DEALT TWO CARDS AND THEN" 3832 PRINT"IT WILL BE YOUR TURN." 3834 PRINT" PRESS ANY KEY OR FIRE TO CONTINUE" 3836 J=PEEK(56320):GETQ$:IF((J=111)OR(Q$<>""))THENGOTO3838 3837 GOTO3836 3838 PRINT"[147][144]TO QUIT THE GAME AT ANY TIME, PRESS" 3840 PRINT"THE '*' KEY. OTHERWISE, THE GAME" 3842 PRINT"ENDS WHEN EITHER YOU OR THE COMPUTER" 3844 PRINT"RUNS OUT OF CARDS." 3846 PRINT"GETTING RID OF ALL YOUR CARDS IS WORTH" 3848 PRINT"1000 POINTS. YOU GET ADDITIONAL POINTS" 3850 PRINT"FROM THE CARDS THAT THE COMPUTER HASN'T" 3852 PRINT"YET PLAYED. A NUMBER CARD IS WORTH ITS" 3853 PRINT"NUMBER, A GO CARD IS WORTH 100 POINTS." 3854 PRINT"A DRAW CARD IS WORTH 200 POINTS, AND" 3856 PRINT"A WILD CARD IS WORTH 500 POINTS." 3860 PRINT" PRESS ANY KEY OR FIRE TO BEGIN PLAY" 3866 J=PEEK(56320):GETQ$:IF((Q$<>"")OR(J=111))THENRETURN 3867 GOTO3866 3900 PRINT"[147][144]4) YOU MAY PLAY A WILD CARD ON ANY" 3902 PRINT"OTHER CARD. AFTER YOU HAVE SELECTED" 3904 PRINT"A WILD CARD, A BLANK CARD WILL APPEAR" 3906 PRINT"IN THE CENTER OF THE BOTTOM OF THE" 3908 PRINT"SCREEN. USE THE CURSOR KEYS OR JOYSTICK" 3910 PRINT"TO CHANGE THE COLOR OF THE CARD TO THE" 3912 PRINT"COLOR YOU DESIRE. PRESS RETURN OR FIRE." 3914 PRINT"IF THE COMPUTER PLAYS A WILD CARD, YOU" 3916 PRINT"MAY PLAY ANY CARD THAT IS THE SAME COLOR" 3918 PRINT"ON TOP OF IT.":PRINT" PRESS ANY KEY OR FIRE TO CONTINUE" 3920 J=PEEK(56320):GETQ$:IF((J=111)OR(Q$<>""))THENRETURN 3921 GOTO3920 3999 RETURN 4000 PRINT" [158] Q[146]UIT G[146]O ON PLAYING N[146]EW GAME" 4001 GETQ$ 4002 IFQ$="Q"THENA$="N":GOTO2970 4003 IFQ$="G"THENPRINT" " 4004 IFQ$="G"THENPRINT" ^[157]";:C=1:RETURN 4005 IFQ$="N"THENCLR:RUN 4007 PRINT" ":FORX=1TO12:NEXT 4008 PRINT" [158] Q[146]UIT G[146]O ON PLAYING N[146]EW GAME" 4009 GOTO4001 5000 IF C1=0 THEN GOTO 5100 5001 IF C2=0 THEN GOTO 5200 5100 SC=1000:FOR X=1TOC2 5105 D=CP(X) 5110 A=INT(D/100):B=INT((D-(A*100))/10):C=D-(A*100)-(B*10) 5115 IFA=1 THEN SC=SC+100 5120 IFA=2 THEN SC=SC+200 5125 IFA=3 THEN SC=SC+500 5130 IFA=0 THEN SC=SC+C 5135 NEXT:GOTO5555 5200 SC=1000:FOR X=1TOC1 5205 D=CC(X) 5210 A=INT(D/100):B=INT((D-(A*100))/10):C=D-(A*100)-(B*10) 5215 IFA=1 THEN SC=SC+100 5220 IFA=2 THEN SC=SC+200 5225 IFA=3 THEN SC=SC+500 5230 IFA=0 THEN SC=SC+C 5235 NEXT:GOTO5555 5555 IF SC>HS THEN N(11)=SC:GOTO 5560 5560 FOR L=1 TO 10:FOR J=L+1 TO 11 5565 IFN(L)>=N(J) THEN GOTO 5580 5570 S=N(J):N(J)=N(L):N(L)=S 5573 DM$=NM$(J):NM$(J)=NM$(L):NM$(L)=DM$ 5580 NEXT:NEXT:RETURN 6000 POKE198,0:K$="" 6010 PRINT"[158] [157][146]"; 6020 FORT=0TO10:NEXT 6030 PRINT" [157]"; 6040 FORT=0TO10:NEXT 6050 GETA$:IFA$=""THEN6010 6060 LL=LEN(K$) 6070 IFA$=CHR$(13)THENPRINT:RETURN 6080 IFA$=CHR$(20)ANDLLTHENPRINT" [157][157]";:K$=LEFT$(K$,LL-1):GOTO6010 6090 IF(A$<"A"ORA$>"Z")ANDA$<>" "THEN6010 6100 IFLL>12THEN6010 6110 PRINTA$;:K$=K$+A$ 6120 GOTO6010