home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 27 / 027.d81 / jumbles (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.1 KB  |  37 lines
  1. 1 rem jumbles
  2. 2 dimb$(30),j$(25),l$(30),w$(25)
  3. 99 poke53281,13:poke53280,6
  4. 100 print"[147][144]"chr$(142);tab(8);"c= jumbles - bill sander"
  5. 110 input"      topic";t$
  6. 120 input" # of words";n:ifn>25thenprint"25 words max!!":goto120
  7. 130 :
  8. 140 forj=1to20:b$=b$+chr$(164):next
  9. 150 forw=1ton
  10. 160 print"  word #";w;:inputw$
  11. 170 l=len(w$):w$(w)=w$:fork=1tol:l$(k)=mid$(w$,k,1):ifl$(k)=" "thenl$(k)="-"
  12. 180 b(k)=k:next
  13. 190 fork=1tol:d=int(rnd(0)*l+1):e=int(rnd(0)*l+1):t=b(d):b(d)=b(e):b(e)=t:next
  14. 200 fork=1tol:j$(w)=j$(w)+l$(b(k)):next
  15. 210 next
  16. 220 poke144,0:open4,4:print#4:close4:ifst=0then230
  17. 222 print"[147]"spc(15)"naughty"
  18. 223 printspc(15)"naughty"
  19. 224 print"   you don't seem to have a printer"
  20. 225 print"       on-line and ready to go..."
  21. 226 print"   please press a key and try again."
  22. 227 print"       < press 'q' to quit now>"
  23. 228 poke198,0:wait198,1:geta$:ifa$<>"q"then220
  24. 229 goto60000
  25. 230 open4,4:cmd4:printspc((80-len(t$))/2);t$:print
  26. 240 print:print:forj=1ton:printspc(30-len(j$(j)));j$(j);"  ";b$:print:next
  27. 250 forj=1to53-3*n:print:next
  28. 260 forj=1ton:printw$(j):next
  29. 270 print#4:close4
  30. 60000 rem re-connect
  31. 60010 print"[147]would you like to do another?"
  32. 60012 poke198,0:wait198,1:geta$:ifa$<>"y"anda$<>"n"then60012
  33. 60014 ifa$="y"then99
  34. 60020 print"[147]"spc(12)"loading menu..."
  35. 60030 poke646,peek(53281):f$="magic menu"
  36. 60040 print"loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  37.