home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD039.d81 / hang1k (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  25 lines
  1. 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. 2 FORH=1TOT:NEXT:RETURN
  3. 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. 4 M$=H$:FORD=1TO3:M$=M$+D$:I$=I$+"[157][161]":NEXT:G$="[221]   [221]"+R$
  5. 5 FORB=1TO17:M$=M$+"[145]":NEXT:L=500:M=L+L:C=100
  6. 6 J$="":PRINT"[147]"LEFT$(M$,16)"";:FORD=1TO9:PRINT"[169][145][157][165][145][157]/";:J$=J$+"[161][157]":NEXT
  7. 7 PRINT""E$E$;:PRINTJ$;
  8. 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. 9 U=INT(20*RND(1)+1):RESTORE:FORX=1TOU:READW$:NEXT
  10. 10 W=LEN(W$):C$="":PRINTH$,""LEFT$(E$+E$,W)
  11. 11 PRINTLEFT$(M$,S*2+16)"[145]"F$;
  12. 12 GETA$:IFA$<"A"ORA$>"Z"THEN12
  13. 13 FORA=1TOLEN(C$):ON-(MID$(C$,A,1)=A$)GOTO12:NEXT
  14. 14 F=I:FORA=1TOW:IFA$<>MID$(W$,A,1)THEN16
  15. 15 I=I+1:ON-(I=W)GOTO23:PRINTH$,SPC(A)A$
  16. 16 NEXT:IFI>FTHEN18
  17. 17 S=S+1:ON-(S=D)GOTO20:PRINTU$S$;:T=L:GOSUB2:PRINTP$
  18. 18 C$=A$+C$:PRINT""C$:GOTO11
  19. 19 T=5*M:GOSUB2:W$="":J$="":I=0:S=0:GOTO6
  20. 20 PRINTU$P$"[156]*[157][157]"B$"[145][207][157]";:T=M:GOSUB2:PRINT"[167]"R$,G$,G$,G$H$,D$"";
  21. 22 FORX=1TOD:PRINT" [156][221] [157][157][157]"B$"[145][145][157][157]";:T=50:GOSUB2:NEXT:PRINTH$,"[156]"W$:GOTO19
  22. 23 PRINTU$P$"[156]*[157][157]"B$"WIN!",""W$:GOTO19
  23. 25 DATALEECH,UPLOAD,XMODEM,SYSOP,FILES,TEXTS,DUPLEX,USER,ASCII,POST
  24. 26 DATAREPLY,NETWORK,PUNTER,LEVEL,GAMES,MENU,BAUD,BITS,CREDITS,EMAIL
  25.