home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_18_(11-1984).d64 / crypto (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  82 lines
  1. 5 DIMK$(26)
  2. 10 POKE53281,0:POKE53280,0:PRINT"[147]"
  3. 11 GOTO40000
  4. 20 R=INT(RND(-TI)*10)+1:IFR=1THEN22
  5. 21 FORI=1TOR-1:FORJ=1TO4:READS$:NEXT:NEXT
  6. 22 FORI=1TO4:READS$(I):NEXT:GOSUB500
  7. 25 PRINT"[147]":FORI=1TO4:PRINTTAB(10);S2$(I):PRINT:PRINT:NEXT
  8. 30 D$="                                   "
  9. 35 D$=D$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  10. 36 X$=",":X2$=",":GOSUB600:X$="'":X2$="'":GOSUB600:X$=".":X2$=".":GOSUB600
  11. 40 PRINTD$;"SUBSTITUTE FOR WHICH LETTER >";
  12. 50 GETX$:IFX$=""THEN50
  13. 55 IFX$="[137]"THEN40000
  14. 56 IFX$="[136]"THEN700
  15. 60 IFX$<"A"ORX$>"Z"THEN50
  16. 65 PRINTX$;
  17. 70 PRINTD$;"CHANGE THE LETTER ";X$;" TO A >";
  18. 75 GETX2$:IFX2$=""THEN75
  19. 76 IFX2$="[137]"THEN40000
  20. 77 IFX2$="[136]"THEN700
  21. 85 PRINTX2$;
  22. 90 GOSUB600
  23. 99 GOTO40
  24. 499 END
  25. 500 REM ENCODE THE SENTENCE S$(I)
  26. 501 PRINT"[147]   GETTING A CRYPTO..."
  27. 510 FORI=1TO26:K$(I)=CHR$(64+I):NEXT
  28. 520 FORI=1TO200:R=INT(RND(1)*26)+1:T$=K$(R):K$(R)=K$(26):K$(26)=T$:NEXT
  29. 530 FORI=1TO25:IFK$(I)=CHR$(64+I)THENT$=K$(I):K$(I)=K$(I+1):K$(I+1)=T$
  30. 540 NEXT
  31. 550 IFK$(26)="Z"THENK$(26)=K$(1):K$(1)="Z"
  32. 560 FORI=1TO4:S2$(I)="":FORJ=1TOLEN(S$(I)):T$=MID$(S$(I),J,1)
  33. 565 IFT$>="A"ANDT$<="Z"THENS2$(I)=S2$(I)+K$(ASC(T$)-64):GOTO570
  34. 567 S2$(I)=S2$(I)+T$
  35. 570 NEXT:NEXT
  36. 599 RETURN
  37. 600 REM SHOW X2$ FOR EVERY X$ IN S2$(I)
  38. 610 PRINT"":FORI=1TO4:PRINTTAB(10);:FORJ=1TOLEN(S2$(I))
  39. 620 T$=MID$(S2$(I),J,1)
  40. 630 IFT$=X$THENPRINTX2$;:GOTO640
  41. 635 PRINT"";
  42. 640 NEXT
  43. 650 PRINT:PRINT:PRINT:NEXT
  44. 699 RETURN
  45. 700 REM SHOW SOLUTION
  46. 710 PRINT"":FORI=1TO4:PRINTTAB(10);S$(I):PRINT:PRINT:NEXT
  47. 720 PRINTD$;"PRESS ANY KEY TO CONTINUE."
  48. 730 GETX$:IFX$=""THEN730
  49. 740 GOTO40000
  50. 1000 DATA"THE ONLY THING THAT MIGHT","BE WORSE THAN FINDING A"
  51. 1001 DATA"FLY IN YOUR SOUP WOULD","BE NOT FINDING IT."
  52. 1010 DATA"TRAVEL CAN CERTAINLY BE","BROADENING...ESPECIALLY"
  53. 1011 DATA"TRIPS TO BAKERIES, DELIS","AND PIZZA PARLORS."
  54. 1020 DATA"HAIRBRUSH MADE FROM REAL","BOAR BRISTLE TREATS LOCKS"
  55. 1021 DATA"MORE KINDLY THAN ONE HAVING","SHARP NYLON TUFTS."
  56. 1030 DATA"CATACLYSMIC EARTHQUAKE ACTION"
  57. 1031 DATA"PRODUCED YAWNING CHASMS,"
  58. 1032 DATA"DARK CANYONS THROUGHOUT"
  59. 1033 DATA"OUR SOUTHWEST DESERT."
  60. 1040 DATA"HE WHO DOES NOT WORK HARD"
  61. 1041 DATA"IN HIS YOUTH"
  62. 1042 DATA"WILL BE SORRY"
  63. 1043 DATA"IN HIS OLD AGE."
  64. 1050 DATA"A MOMENTS MISTAKE","MAY BECOME A","THOUSAND YEARS","OF REGRET."
  65. 1060 DATA"WHAT A PERSON NEEDS IN","ORDER TO SUCCEED","IS SOMEONE WHO EXPECTS"
  66. 1061 DATA"HIM TO DO SO."
  67. 1070 DATA"WE STILL CAN'T UNDERSTAND","HOW RUMORS WITHOUT","A LEG TO STAND ON"
  68. 1071 DATA"CAN GET AROUND SO FAST."
  69. 1080 DATA"I FIND THAT FLOWERS CAN","WHISPER ALL THAT WORDS","CAN'T SAY."," "
  70. 1090 DATA"IT CAN DO A PERSON NO GOOD","TO SIT UP AND TAKE","NOTICE IF HE KEEPS"
  71. 1091 DATA"RIGHT ON SITTING."
  72. 40000 PRINT"[147]";TAB(17);"CRYPTO[146]"
  73. 40010 PRINT"";TAB(9);"1) TRY A CRYPTO"
  74. 40020 PRINT:PRINTTAB(9);"2) RETURN TO MAIN MENU"
  75. 40030 GETX$:IFX$=""THEN40030
  76. 40040 IFX$="1"THEN20
  77. 40050 IFX$<>"2"THEN40030
  78. 40060 PRINT"[147]   RETURNING TO THE MAIN MENU...[144]"
  79. 40070 PRINT"LOAD"CHR$(34)"0:MENU"CHR$(34)",8"
  80. 40080 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
  81. 40090 POKE631,13:POKE632,13:POKE198,2
  82.