Atari 8-bit Source code

100 RAMTOP=106:SDMCTL=559:PCOLR0=704 
110 PCOLR1=705:PCOLR2=706:PC0LR3=707 
120 HPOSP0=53248:HPOSP1=53249
130 HPOSP2=53250:HPOSP3=53251
140 HPOSM0=53252:HPOSM1=53253
150 HPOSM2=53254:HPOSM3=53255
160 GRACTL=53277:PMBASE=54279
170 REM -----------------------------
200 BLUE=132:GOLD=38:RED=66:GREEN=196
210 ENABLE=3:DOUBLE=46:PMGRES=DOUBLE 
220 REM -----------------------------
300 PMGRAM=PEEK(RAMTOP)-4
310 MISS=PMGRAM*256+384:POKE 19,17 
320 POKE RAMTOP,PMGRAM:GRAPHICS 0 
330 POKE PMBASE,PMGRAM:POKE 752,1 
340 POKE SDMCTL,PMGRES:POKE 710,0 
350 POKE GRACTL,ENABLE:?
360 REM -----------------------------
400 POKE PCOLR0,BLUE:POKE PCOLR1,GOLD
410 POKE PCOLR2,RED:POKE PCOLR3,GREEN
420 REM -----------------------------
500 RESTORE :FOR X=1664 TO 1755
510 READ Y:POKE X,Y:NEXT X
520 DATA 104,104,133,213,104,133 
530 DATA 212,104,104,168,104,104 
540 DATA 170,169,3,192,0,240,5,10 
550 DATA 10,136,144,247,141,219,6 
560 DATA 160,127,138,208,31,168
570 DATA 173,219,6,73,255,49,212 
580 DATA 145,212,200,173,219,6,49 
590 DATA 212,136,17,212,145,212,200 
600 DATA 192,127,208,231,169,0,145 
610 DATA 212,96,173,219,6,73,255,49 
620 DATA 212,145,212,136,173,219,6 
630 DATA 49,212,200,17,212,145,212 
640 DATA 136,208,233,169,0,145,212 
650 DATA 96,96
660 REM ----------------------------
700 DIM PMG$(1),VAR$(4):VAR$="PMG$" 
710 LEN=1024:LOC=PMGRAM*256
720 REM ----------------------------
800 VNTP=PEEK(130)+PEEK(131)*256 
810 VNTD=PEEK(132)+PEEK(133)*256 
820 VVTP=PEEK(134)+PEEK(135)*256 
830 STARP=PEEK(140)+PEEK(141)*256 
840 AZ1=-1
850 AZ1=AZ1+1:FOR AZ=1 TO LEN(VAR$) 
860 AZ2=PEEK(VNTP):IF AZ2>127 AND AZ<LEN(VAR$) THEN 880
870 IF AZ2-128*(AZ2>127)=ASC(VAR$(AZ)) THEN VNTP=VNTP+1:NEXT AZ:GOTO 910
880 IF PEEK(VNTP)<128 THEN VNTP=VNTP+1:GOTO 880
890 VNTP=VNTP+1:IF VNTP<VNTD THEN 850 
900 GRAPHICS 0:? VAR$;" ISN'T A LEGAL VARIABLE":END
910 AZ=VVTP+AZ1*8+2:IF PEEK(AZ-2)<>129 THEN 890
920 A=1:AZ1=LOC-STARP:GOSUB 930:AZ1=LEN:GOSUB 930:AZ1=LEN:A=0
930 AZ2=INT(AZ1/256):AZ1=AZ1-AZ2*256:POKE AZ,AZ1:POKE AZ+1,AZ2:AZ=AZ+2:IF A=1 THEN RETURN
940 PMG$=CHR$(0):PMG$(1024)=CHR$(0) 
950 PMG$(2)=PMG$(1):DIM P0$(128),P1$(128),P2$(128),P3$(128),P$(7):P0$=PMG$:P1$=P0$:P2$=P1$:P3$=P2$:P$=P3$
960 POSITION 15,11:? "PMG DEMO";:POSITION 3,22:? "FRONTIER ISSUE# 44 BY ALAN J. ZETT";
970 REM ------------------------------
1000 FOR X=1 TO 42:READ Y:P0$(X)=CHR$(Y):NEXT X:FOR X=1 TO 42:READ Y:P1$(X)=CHR$(Y):NEXT X
1010 FOR X=1 TO 42:READ Y:P2$(X)=CHR$(Y):NEXT X:FOR X=1 TO 30:READ Y:P3$(X)=CHR$(Y):NEXT X:X=0
1020 DATA 8,62,127,107,62,28,0,20,62,107,127,62,28,0,34,62,127,107,62,28,0,20,62,107,127,62,20,8,8,62,127,107,62 
1030 DATA 20,8,0,62,107,127,62,20,8,0,0,0,8,0,0,0,0,0,8,20,8,0,0,0,8,0,42,0,8,0,8,34,8,85,8,34,8,0,8,0,42,0,8,0,0
1040 DATA 0,8,20,8,0,0,62,65,93,85,93,65,62,0,62,65,93,65,62,0,0,0,62,127,62,0,0,0,0,0,127,0,0,0,0,0,62,127,62,0
1050 DATA 0,0,62,65,93,65,62,0,129,90,60,24,0,0,24,255,24,0,0,24,60,90,129,0,24,255,24,0,0,90,189,24,0,0,219,60 
1060 DATA 24,0
1070 REM ----------------------------
1100 XI=1:YI=1:X=0:PMG$(495)=CHR$(255):X3=RND(0)*152+48:Y3=RND(0)*94:POKE HPOSM0,119:POKE HPOSM1,122
1110 POKE HPOSM2,125:POKE HPOSM3,128 
1120 X2=RND(0)*152+48:Y2=0:GOTO 1140 
1130 PMG$(656+Y1)=P$:X1=RND(0)*152+48:Y1=RND(0)*94
1140 POKE HPOSP0,80:PMG$(540)=P0$(X*7+1,X*7+7):POKE HPOSP1,X1:PMG$(656+Y1)=P1$(X*7+1,X*7+7):POKE HPOSP2,X2
1150 PMG$(767+Y2)=P$:PMG$(768+Y2)=P2$(X*7+1,X*7+7):POKE HPOSP3,X3:PMG$(911+Y3)=P$:PMG$(912+Y3)=P3$(X*5+1,X*5+5) 
1160 X3=X3+XI:Y3=Y3+YI
1170 IF X3>200 THEN X3=199:XI=-XI 
1180 IF X3<48 THEN X3=49:XI=-XI
1190 IF Y3>94 THEN Y3=93:YI=-YI
1200 IF Y3<0 THEN Y3=1:YI=-YI
1210 A=USR(1664,MISS,INT(RND(0)*4),0) 
1220 Y2=Y2+1:IF Y2>127 THEN 1120
1230 X=X+1:IF X>5 THEN X=0:GOTO 1130 
1240 IF PEEK(19)<25 THEN 1140
1250 FOR X=HPOSP0 TO HPOSM3:POKE X,0:NEXT X:POKE SDMCTL,34:POKE GRACTL,0:POKE RAMTOP,PEEK(RAMTOP)+4:GRAPHICS 0	

• Download link 1