Atari 8-bit Source code

10 REM [C] ANTIC MAGAZINE - VOL.1 #3 USED WITH PERMISSION
40 DIM WORD$(10),​YWORD$(10),​A(26):​GRAPHICS 18:​TOP=PEEK(106):​CHBASE=TOP-4:​OLDCH=57344:​NWCH=CHBASE*256
90 FOR X=0 TO 511:​C=PEEK(OLDCH+X):​POKE NWCH+X,​C:​NEXT X:​NWCH=NWCH+16:​FOR X=NWCH TO NWCH+111:​READ C:​POKE X,​C:​NEXT X
180 DATA 255,​255,​255,​255,​255,​255,​63,​63,​129,​66,​66,​36,​36,​36,​24,​24,​128,​224,​120,​62,​31,​31,​15,​15,​15,​31,​63,​127,​255,​0,​0,​0
184 DATA 63,​63,​127,​127,​255,​255,​255,​255,​255,​255,​255,​255,​255,​255,​60,​60,​252,​252,​254,​254,​255,​255,​255,​255
187 DATA 255,​255,​255,​255,​127,​127,​63,​63,​255,​255,​255,​255,​255,​255,​255,​255,​255,​255,​255,​255,​254,​254,​252,​252
190 DATA 255,​126,​60,​24,​24,​60,​126,​255,​1,​7,​30,​124,​248,​248,​240,​240,​240,​248,​252,​254,​255,​0,​0,​0
193 DATA 255,​255,​255,​255,​255,​255,​252,​252
200 POKE 756,​CHBASE
210 POKE 77,​0:​? #6;"":​POSITION 4,​3:​? #6;"#":​POSITION 2,​4:​? #6;"$&'(- PLAY":​POSITION 2,​5:​? #6;"%)*+."
240 POSITION 4,​6:​? #6;",​":​POSITION 3,​7:​? #6;"&*(":​POSITION 2,​8:​? #6;"& ,​ ( end":​POSITION 2,​9:​? #6;",​ * ,​"
280 POSITION 6,​1:​? #6;"ZAHRCON":​P=4:​P1=4:​C=0:​GOSUB 990
290 POSITION 10,​P:​? #6;" ":​POSITION 10,​P1:​? #6;">"
300 C=C+1:​IF C<75 THEN S=39:​GOTO 330
310 IF C=75 THEN S=42:​X=INT(3*RND(0)):​IF X=1 THEN S=34
320 IF X=2 THEN S=47
330 POSITION 4,​4:​? #6;CHR$(S):​IF C>100 THEN C=0
340 IF STRIG(0)=0 THEN 390
350 IF STICK(0)=15 THEN 300
360 POKE 77,​0:​IF STICK(0)=14 THEN P=P1:​P1=P1-4:​IF P1<4 THEN P1=4
370 IF STICK(0)=13 THEN P=P1:​P1=P1+4:​IF P1>8 THEN P1=8
380 GOSUB 990:​GOTO 290
390 POKE 77,​0:​IF P1=8 THEN FE=FRE(S):​END
400 ? #6;"":​FOR X=2 TO 10:​POSITION 1,​X:​? #6;CHR$(63+X):​NEXT X
410 FOR X=2 TO 10:​POSITION 2,​X:​? #6;CHR$(72+X):​NEXT X
420 FOR X=2 TO 9:​POSITION 3,​X:​? #6;CHR$(81+X):​NEXT X
430 X=INT(15*RND(0)):​RESTORE 1000+X
432 FOR X=1 TO 10*RND(0)+1:​READ WORD$:​NEXT X
450 L=LEN(WORD$):​P=10-L/2
460 FOR X=P TO P+L-1:​POSITION X,​11:​? #6;"=":​NEXT X
470 FOR X=1 TO 26:​A(X)=0:​NEXT X:​YWORD$(1)=" ":​YWORD$(10)=" ":​YWORD$(2)=YWORD$:​X=1:​P1=2:​LT1=0:​LT2=0
480 LT=0
490 S=(X-1)*9+95+P1:​POSITION X,​P1:​? #6;CHR$(S):​GOSUB 990
500 IF STICK(0)=14 THEN POSITION X,​P1:​? #6;CHR$(S-32+A(S-96)):​P1=P1-1:​IF P1=1 THEN P1=10:​X=X-1
510 IF X=0 THEN X=3:​P1=9
520 IF STICK(0)=13 THEN POSITION X,​P1:​? #6;CHR$(S-32+A(S-96)):​P1=P1+1:​IF P1=11 THEN P1=2:​X=X+1:​IF X=4 THEN X=1
530 IF P1=10 AND X=3 THEN P1=2:​X=1
535 IF STICK(0)=13 OR STICK(0)=14 THEN POKE 77,​0
540 IF STRIG(0)=0 THEN 560
550 GOTO 490
560 POKE 77,​0:​IF A(S-96)=128 THEN 480
570 A(S-96)=128
580 S=S-32
590 FOR C=1 TO LEN(WORD$):​IF ASC(WORD$(C,​C))=S THEN POSITION P+C-1,​11:​? #6;CHR$(S):​YWORD$(C,​C)=CHR$(S):​LT=1
600 NEXT C
610 IF LT=1 THEN 630
620 GOTO 740
630 SN=50:​LT1=LT1+1:​GOTO 630+LT1*10
640 POSITION 5,​7:​? #6;"&":​POSITION 5,​8:​? #6;",​":​GOTO 880
650 POSITION 7,​7:​? #6;",​":​POSITION 7,​8:​? #6;"*":​GOTO 880
660 POSITION 9,​7:​? #6;"(":​POSITION 9,​8:​? #6;",​":​GOTO 880
670 POSITION 6,​6:​? #6;"&*(":​GOTO 880
680 POSITION 7,​5:​? #6;",​":​GOTO 880
690 POSITION 6,​4:​? #6;")*+":​POSITION 6,​3:​? #6;"&*(":​GOTO 880
700 POSITION 5,​3:​? #6;"$":​POSITION 5,​4:​? #6;"%":​GOTO 880
710 POSITION 9,​3:​? #6;"-":​POSITION 9,​4:​? #6;".":​GOTO 880
720 POSITION 7,​3:​? #6;"'":​GOTO 880
730 POSITION 7,​2:​? #6;"#":​POSITION X,​P1:​? #6;CHR$(S+128):​GOTO 880
740 SN=90:​LT2=LT2+1:​GOTO 740+LT2*10
750 POSITION 14,​7:​? #6;"&":​POSITION 14,​8:​? #6;",​":​GOTO 880
760 POSITION 16,​7:​? #6;",​":​POSITION 16,​8:​? #6;"*":​GOTO 880
770 POSITION 18,​7:​? #6;"(":​POSITION 18,​8:​? #6;",​":​GOTO 880
780 POSITION 15,​6:​? #6;"&*(":​GOTO 880
790 POSITION 16,​5:​? #6;",​":​GOTO 880
800 POSITION 15,​4:​? #6;")*+":​POSITION 15,​3:​? #6;"&*(":​GOTO 880
810 POSITION 14,​3:​? #6;"$":​POSITION 14,​4:​? #6;"%":​GOTO 880
820 POSITION 18,​3:​? #6;"-":​POSITION 18,​4:​? #6;".":​GOTO 880
830 POSITION 16,​3:​? #6;"'":​GOTO 880
840 POSITION 16,​2:​? #6;"#":​POSITION X,​P1:​? #6;CHR$(S+128)
850 POSITION P,​11:​? #6;WORD$:​SOUND 0,​200,​10,​10:​GOSUB 990:​SOUND 0,​0,​0,​0
860 IF STRIG(0)=0 THEN GOSUB 990:​POSITION 0,​0:​GOTO 210
870 GOTO 860
880 FOR SS=16 TO 0 STEP -2:​SOUND 0,​SN,​10,​SS:​NEXT SS
890 IF YWORD$(1,​L)<>WORD$ THEN 480
900 IF LT1<10 THEN 630
910 POSITION 6,​1:​? #6;" ":​GOSUB 990:​POSITION 6,​1:​? #6;"HURRAY!!":​X=INT(3*RND(1))+1:​ON X GOTO 920,​930,​940
920 S=42:​GOTO 950
930 S=47:​GOTO 950
940 S=34
950 IF STRIG(0)=0 THEN GOSUB 990:​GOTO 210
960 POSITION 7,​3:​? #6;CHR$(S)
970 GOSUB 990
980 POSITION 7,​3:​? #6;"'":​GOSUB 990:​GOTO 910
990 FOR TIME=1 TO 50:​NEXT TIME:​RETURN
1000 DATA COULD,​JOY,​PURPOSE,​IMAGINE,​KILLERS,​OFTEN,​MAKER,​SALESMAN,​BOILER,​TOFFEE
1001 DATA COUPLE,​MASTERS,​LAMP,​PILLOW,​BOOK,​AMPLIFIER,​CAMERA,​TRIPOD,​STOOL,​FIXER
1002 DATA KENNEL,​TREES,​CASSETTES,​FLANGE,​CORNER,​BUG,​BOX,​ANGLE,​MORBID,​HAPPY
1003 DATA KINDS,​YOUNG,​MOLE,​FLOWER,​STEM,​FIORD,​LABLE,​TURN,​POWER,​LATHE
1004 DATA CROCODILE,​BICYCLE,​COLLEGIATE,​SAMPLE,​INTERESTING,​BORE,​MESH,​WIRE,​STATUE,​PURPLE
1005 DATA FRECKLES,​INDIGO,​AVERAGE,​LEDGER,​DOLLAR,​STARED.MISSES,​KITTEN,​ANGEL,​STUPID
1006 DATA BACKWARDS,​INSANE,​ALIEN,​PAINTINGS,​AWFUL,​JUST,​OARS,​FRAMED,​GLASS,​PART
1007 DATA PACKAGE,​FACTORY,​MOOSE,​OILS,​INSURANCE,​TURGID,​SOAP,​JUICED,​ACTING,​CARREER
1008 DATA RADIO,​GREETINGS,​SUMMER,​CABLES,​LEAVES,​ORNATE,​PLASTIC,​GIRAFFE,​SNORT,​MAZE
1009 DATA NICKEL,​MECHANIC,​AUTO,​LIGHT,​LANTERN,​WOODEN,​ABLE,​RICH,​BOOZE,​RYE
1010 DATA BASSOON,​BASEMENT,​POSTER,​VOMMIT,​PARCHMENT,​FEATHER,​STAMP,​AMBER,​COVER,​PENCIL
1011 DATA SHRIMP,​CONCRETE,​ZORK,​FORK,​RUBBER,​CUCUMBER,​FROST,​SNOW,​COLD,​HOT
1012 DATA SKUNK,​DISKETTE,​FRANTIC,​EXPERIENCE,​SLEEVE,​JACKET,​WORN,​WORM,​WRIT,​DENSE
1013 DATA TUBE,​LINER,​CATTLE,​HERD,​WHITE,​BLACK,​IVORY,​EBONY,​CARDBOARD,​JERK
1014 DATA ANTIQUE,​QUIRK,​QUITE,​LOUDER,​FOSSIL,​JABBER,​OOZED,​LOUSE,​PRINTER	

• Download link 1

• Download link 1
• Download link 2
• Download link 3