This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Crypto-Gram
-
Category:Games
-
Publisher/Developer:BELLCOM - Public Domain Library
Listing 1
5 REM 6 REM 7 REM 18 POKE 82,1:OPEN #4,4,0,"K:" 20 DIM A$(26),B$(26),T$(26),I$(1),D$(1),P$(81),C$(80),Q$(80),X(26) 25 DIM N$(3),F$(12) 30 A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ":GOSUB 900:R=40 40 ? " SHOULD I LOAD A SAVED GAME(Y/N) "; 45 GOSUB 970:IF I$<>"Y" THEN 80 50 TRAP 70:OPEN #2,4,0,"C:":INPUT #2,P$ 65 CLOSE #2:TRAP 40000:GOTO 400 70 CLOSE #2:? "[B]tape error":GOSUB 990:GOTO R 80 FOR I=1 TO 26:X(I)=0:T$(I)="_":NEXT I:PL=1:SK=1:RESTORE 90 FOR I=1 TO 80 STEP 10:C$(I)=" ":Q$(I)=" ":NEXT I 100 GRAPHICS 17:SETCOLOR 0,3,10:SETCOLOR 4,3,2 105 POSITION 4,2:? #6;"CRYPTO-GRAM":POKE 53279,8 110 POSITION 3,5:? #6;"* * * * * * *" 120 POSITION 2,11:? #6;"SKILL LEVEL-";SK 130 POSITION 1,14:? #6;"# OF PLAYERS - ";PL 140 POSITION 4,20:? #6;"PRESS START":? #6;" TO BEGIN" 150 GOSUB 990:A=PEEK(53279):IF A=6 THEN 200 160 IF A=5 THEN PL=PL+1:IF PL>2 THEN PL=1 170 IF A=3 THEN SK=SK+1:IF SK>2 THEN SK=1 180 GOTO 120 200 GOSUB 900:ON PL GOTO 240,210 210 ? " ENTER PHRASE (20 TO 75 CHARACTERS)" 220 INPUT P$:IF LEN(P$)<20 OR LEN(P$)>75 THEN 210 230 GOTO 250 240 J=INT(RND(0)*50)+1:FOR I=1 TO J:READ P$:NEXT I 250 GOSUB 910:? " PLEASE WAIT WHILE I GENERATE" 260 ? " AN CODE":FOR I=1 TO 26 270 J=INT(RND(0)*26)+1:IF X(J)=1 THEN 270 280 IF SK=1 THEN IF I=1 OR I=5 OR I=9 OR I=15 OR I=21 THEN T$(J,J)=A$(I,I) 290 B$(I,I)=A$(J,J):X(J)=1:NEXT I 300 L=LEN(P$):FOR I=1 TO L:J=0:I$=P$(I,I):IF I$=" " THEN 360 310 J=J+1:IF J>26 THEN C$(I)=I$:Q$(I)=I$:GOTO 360 320 IF I$<>A$(J,J) THEN 310 340 C$(I)=B$(J,J):Q$(I)="_" 350 IF SK=1 THEN IF J=1 OR J=5 OR J=9 OR J=15 OR J=21 THEN Q$(I)=I$ 360 NEXT I 365 L1=L:IF L<38 THEN 400 370 FOR I=38 TO 18 STEP -1:IF C$(I,I)=" " THEN L1=I:GOTO 400 380 NEXT I 400 GOSUB 910:POSITION 2,3:? "CD/LT":FOR N=1 TO 26:I$=A$(N,N) 410 POSITION 3+INT(N/5)*6,3+N-INT(N/5)*5:? I$;" ";T$(N,N):NEXT N 420 POSITION 1,9:? C$(1,L1):IF L>L1 THEN POSITION 1,13:? C$(L1+1) 430 GOSUB 950 500 POSITION 3,20:? "ENTER CODE LETTER":? " AND VALUE" 510 K=20:GOSUB 920:N=A-64:D$=CHR$(A) 520 K=22:GOSUB 920:T$(N,N)=CHR$(A):IF A=32 THEN T$(N,N)="_" 530 POSITION 5+INT(N/5)*6,3+N-INT(N/5)*5:? T$(N,N) 540 FOR I=1 TO L:IF C$(I,I)=D$ THEN Q$(I,I)=T$(N,N) 550 NEXT I 560 GOSUB 950:IF P$=Q$ THEN 700 590 POSITION 24,22:? " ":GOTO 510 700 FOR J=0 TO 14 STEP 2:GRAPHICS 18:SETCOLOR 4,J,2:POSITION 3,5 710 ? #6;"* * * * * * *":? #6;" * CORRECT *":? #6;" * * * * * * *" 720 FOR K=0 TO 250 STEP 10:SOUND 0,K,10,15:NEXT K 730 GOSUB 900:GOSUB 950 740 FOR K=250 TO 0 STEP -10:SOUND O,K,10,15:NEXT K 750 NEXT J:SOUND 0,0,0,0 760 GOSUB 900:GOSUB 950:? " PLAY AGAIN (Y/N) "; 765 GOSUB 970:IF I$="Y" THEN 80 770 GOTO 880 800 GOSUB 910:? " OPTIONS ARE: " 810 ? " S - SAVE GAME":? " Q - QUIT":? " P - PLAY AGAIN" 820 ? " SELECT => ";:GOSUB 970:IF I$="S" THEN 850 830 IF I$="Q" THEN GOSUB 980:GOTO 880 840 IF I$="P" THEN GOSUB 980:GOTO 80 845 GOTO 800 850 R=800:TRAP 70:OPEN #2,8,0,"C:":TRAP 40000 870 ? #2;P$:? #2;C$:? #2;Q$:? #2;T$:? #2;L:? #2;L1:CLOSE #2 880 GRAPHICS 0:END 900 GRAPHICS 0:SETCOLOR 1,3,10:SETCOLOR 2,3,2:POKE 752,1 910 ? "CRYPTO-GRAM":RETURN 920 POSITION 21,K:? "==> ";:GET #4,A 925 IF A=27 THEN POP:GOTO 800 930 IF A=32 AND K=22 THEN 940 935 IF A<65 OR A>90 THEN 920 940 POSITION 21,K:? " ";CHR$(A):RETURN 950 POSITION 1,11:? Q$(1,L1):IF L>L1 THEN POSITION 1,15:? Q$(L1+1) 955 RETURN 970 GET #4,A:I$=CHR$(A):? I$:RETURN 980 ? "THE ANSWER WAS:":Q$=P$:GOSUB 950:? " " 985 FOR I=10 TO 250:SOUND 0,I,10,I/20+2:NEXT I:SOUND 0,0,0,0:RETURN 990 FOR I=1 TO 100:NEXT I:RETURN 1010 DATA A STITCH IN TIME SAVES NINE 1020 DATA EARLY TO BED AND EARLY TO RISE MAKES A MAN HEALTHY WEALTHY AND WISE 1030 DATA THE EARLY BIRD CATCHES THE WORM 1040 DATA DO UNTO OTHERS AS YOU WOULD HAVE OTHERS DO UNTO YOU 1050 DATA PLOP PLOP FIZZ FIZZ OH WHAT A RELIEF IT IS 1060 DATA A LONG TIME AGO IN A GALAXY FAR FAR AWAY 1070 DATA WHY DID THE CHICKEN CROSS THE ROAD 1080 DATA TO BE OR NOT TO BE. THAT IS THE QUESTION 1090 DATA THOU SHALT NOT COVET THY NEIGHBORS WIFE 1100 DATA MAY THE FORCE BE WITH YOU 1110 DATA BEGINNERS ALL-PURPOSE SYMBOLIC INSTRUCTION CODE 1120 DATA WE THE PEOPLE OF THE UNITED STATES OF AMERICA 1130 DATA DON'T FIRE UNTIL YOU SEE THE WHITES OF THEIR EYES 1140 DATA YOU CAN FOOL SOME OF THE PEOPLE ALL OF THE TIME 1150 DATA PROGRESS IS OUR MOST IMPORTANT PRODUCT 1160 DATA ONE SMALL STEP FOR MAN; ONE GIANT STEP FOR MANKIND 1170 DATA EVERY ACTION HAS AN EQUAL AND OPPOSITE REACTION 1180 DATA I HAVE NOT YET BEGUN TO FIGHT 1190 DATA FASTER THAN A BULLET; MORE POWERFUL THAN A SPEEDING LOCOMOTIVE 1200 DATA WHO WAS THAT MASKED MAN 1210 DATA THEIRS NOT TO REASON WHY; THEIRS BUT DO OR DIE 1220 DATA TO ERR IS HUMAN. TO FORGIVE DIVINE 1230 DATA A LITTLE LEARNING IS A DANGEROUS THING 1240 DATA HE'D FLY THROUGH THE AIR WITH THE GREATEST OF EASE 1250 DATA LAUGH AND THE WORLD LAUGHS WITH YOU; CRY AND YOU CRY ALONE 1260 DATA MARRIED IN HASTE; WE MAY REPENT AT LEISURE 1270 DATA O CAPTAIN! MY CAPTAIN! OUR FEARFUL TRIP IS DONE 1280 DATA THESE ARE THE TIMES THAT TRY MEN'S SOULS 1290 DATA TIGER! TIGER! BURNING BRIGHT IN THE FORESTS OF THE NIGHT 1300 DATA TALL OAKS FROM LITTLE ACORNS GROW 1310 DATA I THINK THAT I SHALL NEVER SEE A POEM LOVELY AS A TREE 1320 DATA FOR FOOLS RUSH IN WHERE ANGELS FEAR TO TREAD 1330 DATA WHEN IN ROME DO AS THE ROMANS DO 1340 DATA FRIENDS ROMANS COUNTRYMEN LEND ME YOUR EARS 1350 DATA FROM THE HALLS OF MONTEZUMA TO THE SHORES OF TRIPOLI 1360 DATA IN FOURTEEN HUNDRED NINETY TWO COLOMBUS SAILED THE OCEAN BLUE 1370 DATA MARY HAD A LITTLE LAMB ITS FLEECE AS WHITE AS SNOW 1380 DATA I SHOT AN ARROW INTO THE AIR; IT FELL TO EARTH I KNEW NOT WHERE 1390 DATA IF AT FIRST YOU DON'T SUCCEED TRY TRY AGAIN 1400 DATA HE THAT FIGHTS AND RUNS AWAY MAY TURN AND FIGHT ANOTHER DAY 1420 DATA IT TAKES A HEAP OF LIVING IN A HOUSE TO MAKE IT HOME 1430 DATA IT WAS A ONE-EYED ONE-HORNED FLYING PURPLE PEOPLE EATER 1440 DATA I CAN'T BELIEVE I ATE THE WHOLE THING 1450 DATA SAY THE SECRET WORD AND WIN A HUNDRED DOLLARS 1460 DATA DAMN THE TORPEDOES; FULL SPEED AHEAD 1470 DATA TWAS THE NIGHT BEFORE CHRISTMAS AND ALL THROUGH THE HOUSE 1480 DATA HEY MISTER TAMBOURINE MAN PLAY A SONG FOR ME 1490 DATA EVERYTHING THAT GOES UP MUST COME DOWN 1500 DATA HICKORY DICKORY DOCK THE MOUSE RAN UP THE CLOCK
References
Listing downloads
Downloads
Copyright holder