1 U$="[145][145][145][157]":F$="[156]*[157][159][221][157][221][157][173][146]":S$="[156]*[157][159][171][157][171][174][157][157][173]"+U$:R$=CHR$(13):GOTO3
2 FORH=1TOT:NEXT:RETURN
3 H$="":D$="":P$=" [157] [157]/[165][157][157][165]"+U$:E$="[184][184][184][184]":B$="[159](#)[157][157][221][157][177]":K=11
4 M$=H$:FORD=1TO3:M$=M$+D$:I$=I$+"[157][161]":NEXT:G$="[221]   [221]"+R$
5 FORB=1TO17:M$=M$+"[145]":NEXT:L=500:M=L+L:C=100
6 J$="":PRINT"[147]"LEFT$(M$,16)"";:FORD=1TO9:PRINT"[169][145][157][165][145][157]/";:J$=J$+"[161][157]":NEXT
7 PRINT""E$E$;:PRINTJ$;
8 PRINTH$D$,"[158]0[145][157][162][162][162][157][223][161]"I$"[221][145][157][165][145]*[157][161][157][221][157][189][145]"
9 U=INT(20*RND(1)+1):RESTORE:FORX=1TOU:READW$:NEXT
10 W=LEN(W$):C$="":PRINTH$,""LEFT$(E$+E$,W)
11 PRINTLEFT$(M$,S*2+16)"[145]"F$;
12 GETA$:IFA$<"A"ORA$>"Z"THEN12
13 FORA=1TOLEN(C$):ON-(MID$(C$,A,1)=A$)GOTO12:NEXT
14 F=I:FORA=1TOW:IFA$<>MID$(W$,A,1)THEN16
15 I=I+1:ON-(I=W)GOTO23:PRINTH$,SPC(A)A$
16 NEXT:IFI>FTHEN18
17 S=S+1:ON-(S=D)GOTO20:PRINTU$S$;:T=L:GOSUB2:PRINTP$
18 C$=A$+C$:PRINT""C$:GOTO11
19 T=5*M:GOSUB2:W$="":J$="":I=0:S=0:GOTO6
20 PRINTU$P$"[156]*[157][157]"B$"[145][207][157]";:T=M:GOSUB2:PRINT"[167]"R$,G$,G$,G$H$,D$"";
22 FORX=1TOD:PRINT" [156][221] [157][157][157]"B$"[145][145][157][157]";:T=50:GOSUB2:NEXT:PRINTH$,"[156]"W$:GOTO19
23 PRINTU$P$"[156]*[157][157]"B$"WIN!",""W$:GOTO19
25 DATALEECH,UPLOAD,XMODEM,SYSOP,FILES,TEXTS,DUPLEX,USER,ASCII,POST
26 DATAREPLY,NETWORK,PUNTER,LEVEL,GAMES,MENU,BAUD,BITS,CREDITS,EMAIL