home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 August / 1991-08.d64 / crypto-64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  949b  |  32 lines
  1. 0 clr
  2. 10 c$=chr$(147):r$=chr$(29):u$=chr$(145):diml$(145)
  3. 20 printc$:forq=32to64:l$(q)=chr$(q):next:l$(91)=chr$(91):l$(145)=chr$(145)
  4. 30 print:print"cryptogram line 1:":print:inputw$:lw=len(w$):iflw=0thenw$=u$
  5. 40 print:print"cryptogram line 2:":print:inputx$:lx=len(x$):iflx=0thenx$=u$
  6. 50 print:print"cryptogram line 3:":print:inputy$:ly=len(y$):ifly=0theny$=u$
  7. 60 print:print"cryptogram line 4:":print:inputz$:lz=len(z$):iflz=0thenz$=u$
  8. 70 printc$:forq=65to90:l$(q)="*":next:ifw$=u$then20
  9. 80 print:print:print:k$=w$:p=lw:gosub250
  10. 90 k$=x$:p=lx:gosub250
  11. 100 k$=y$:p=ly:gosub250
  12. 110 k$=z$:p=lz:gosub250
  13. 120 gosub270:goto220
  14. 130 print:a$="":print" char";:inputa$:ifa$=""then printc$:goto160
  15. 140 b$="":print"  sub";:input b$:ifb$=""thena$="":printc$:goto160
  16. 150 n=asc(a$):l$(n)=b$
  17. 160 printc$:print:print:print
  18. 170 k$=w$:printr$+k$:p=lw:gosub260
  19. 180 k$=x$:printr$+k$:p=lx:gosub260
  20. 190 k$=y$:printr$+k$:p=ly:gosub260
  21. 200 k$=z$:printr$+k$:p=lz:gosub260
  22. 210 gosub270
  23. 220 ifs$="r"then gosub280:print:goto70
  24. 230 ifs$="q"then gosub280:printc$:end
  25. 240 goto130
  26. 250 printr$+k$
  27. 260 printr$;:forn=1top:a=asc(mid$(k$,n,1)):printl$(a);:next:print:print:return
  28. 270 poke198,0:print:print:print" char,restart,quit (c/r/q)";:input s$:return
  29. 280 poke198,0:print:print" are you sure (y/n)";:input s$
  30. 290 ifs$<>"y"thenprintc$:goto160
  31. 300 return
  32.