home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 225 / 225.d81 / hang1k (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  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.