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:Space Limbo
-
Category:Games
-
Publisher/Developer:BELLCOM - Public Domain Library
Listing 1
1 REM SPACE LIMBO 2 REM BY WILLIAM ZENTNER 3 REM FOR ANTIC MAGAZINE 5 GOSUB 5000 10 DIM A$(20):DIM B$(1):DIM C$(1):DIM D$(25):DIM E$(1):DIM A1$(20):DIM A2$(20):DIM F$(6) 11 VP=0:POKE 19,0 15 DIM SA$(2):DIM SA2$(2):DIM G$(22):DIM SA1$(2):DIM H$(3) 75 LV=1:TIME=8 79 REM 80 SA$="v":SA2$="":SA1$="" 85 G$=" ":H$="*" 90 A1$="":A2$="" 100 A$="vvvvvvvvvvvvvvv":B$=" ":C$="!":E$="_":F$=" " 110 D$="__________________ " 119 REM 120 POSITION 6,23:? #6;" ";SC+K 130 POSITION 2,0:? #6;A1$ 140 POSITION 2,1:? #6;A2$ 150 POSITION 2,2:? #6;A$ 160 POSITION 1,22:? #6;D$ 500 REM 510 POSITION 1,5+VP:? #6;D$ 550 POSITION LV+XH,5+VP:? #6;B$ 560 POSITION 0+XH,5+VP:? #6;E$ 570 XH=XH+0.5 580 IF XH>17 THEN XH=0 585 FOR D=1 TO 10:NEXT D 655 IF PEEK(632)=7 THEN XP=XP+1 670 IF PEEK(632)=11 THEN XP=XP-1 690 IF XP<1 THEN XP=1 695 IF XP>18 THEN XP=18 699 XPP=XP-1 700 POSITION XPP,21 710 ? #6;F$:IF PEEK(19)>TIME THEN GOSUB 1200 715 IF PEEK(644)=0 THEN GOSUB 980 720 GOTO 510 980 REM 990 LOCATE XP,19-Y,L:SOUND 0,10,8,10 995 IF L<>32 THEN GOTO 1500 1000 POSITION XP,19-Y 1010 ? #6;C$ 1015 POSITION XP,19-Y+1 1017 ? #6;B$ 1020 Y=Y+1 1025 IF Y>19 THEN POSITION XP,20-Y:? #6;B$:Y=0:SOUND 0,0,0,0:RETURN 1030 GOTO 990 1200 REM 1220 IF MP=0 THEN RBX=(INT(RND(0)*14))+4 1240 MP=MP+0.5 1245 LOCATE RBX,6+VP+MP,KP 1250 POSITION RBX,6+VP+MP:? #6;H$ 1255 POSITION RBX,4+VP+MP:? #6;B$ 1260 POSITION RBX,5+VP+MP:? #6;B$ 1265 IF VP+MP>14 THEN POKE 19,0:POSITION RBX,6+VP+MP:? #6;B$:MP=0:SHOT=SHOT+10 1270 IF KP=250 THEN GOTO 1800 1300 RETURN 1500 REM 1510 IF L=95 THEN POSITION XP,19-Y+1:? #6;B$:Y=0 1520 IF L=118 THEN POSITION XP,19-Y:? #6;B$:GOSUB 1700 1530 IF L=234 THEN POSITION XP,19-Y:? #6;SA$:GOSUB 1700 1540 IF L=209 THEN POSITION XP,19-Y:? #6;SA2$:GOSUB 1700 1550 IF L=42 THEN POSITION XP,19-Y:? #6;B$:POSITION XP,19-Y+1:? #6;B$:GOSUB 1750 1580 SHOT=SHOT+1 1585 POSITION 12,23:? #6;SC+K:POKE 77,0:SOUND 0,0,0,0 1587 IF SHOT>15 THEN POSITION 0,5+VP:? #6;G$:VP=VP+1:SHOT=0 1590 IF VP>14 THEN GOTO 1800 1600 IF SC>89 THEN GOTO 1900 1610 GOTO 510 1700 REM 1710 POSITION XP,20-Y:? #6;B$:SC=SC+1:Y=0 1720 FOR S=5 TO 255 STEP 25 1725 SOUND 0,S,14,10:NEXT S 1729 FOR S=255 TO 5 STEP -25 1730 SOUND 0,S,14,12:NEXT S 1735 SOUND 0,0,0,0 1740 RETURN 1750 POKE 19,0:Y=0:MP=0:K=K+5 1755 FOR S=1 TO 25 1760 SOUND 0,25,6,12:NEXT S 1765 SOUND 0,0,0,0 1770 RETURN 1800 REM 1801 SETCOLOR 4,3,7 1805 FOR C=14 TO 0 STEP -1 1810 FOR S=100 TO 250 STEP 2 1815 SOUND 1,S,6,C:NEXT S:NEXT C 1820 SOUND 1,0,0,0 1825 POSITION 0,5+VP:? #6;G$ 1829 K=0:TIME=8 1830 VP=0:SHOT=0:MP=0:SC=0 1835 POSITION 0,23:? #6;G$ 1840 SETCOLOR 4,0,0:POKE 19,0:GOTO 110 1900 REM 1901 POSITION RBX,6+VP+MP:? #6;B$:POSITION RBX,5+VP+MP:? #6;B$ 1905 POSITION 0,5+VP:? #6;G$ 1910 POSITION 4,0:? #6;"YOU !!!!!" 1920 POSITION 5,1:? #6;"READY FOR" 1930 POSITION 5,2:? #6;"NEXT STAGE" 1935 GOSUB 6000 1940 FOR WX=0 TO 16:POSITION WX,10:? #6;B$;SA$;SA1$;SA2$ 1950 FOR D=1 TO 50:NEXT D:NEXT WX 1955 FOR WX=17 TO 0 STEP -1:POSITION WX,10:? #6;SA$;SA1$;SA2$;B$ 1960 FOR D=1 TO 50:NEXT D:NEXT WX 1965 POSITION 0,10:? #6;G$ 1970 TIME=TIME/2:K=SC+K 1990 GOTO 1830 5000 REM 5001 DATA 93,62,107,127,42,54,93,0 5002 DATA 28,62,42,28,9,127,88,0 5003 DATA 62,107,127,119,107,62,20,0 5004 DATA 8,8,28,20,54,54,99,85 5005 DATA 1,162,1,128,1,108,0,108,1,108,1,128,1,108,1,162,1,128,1,144,0,144,1,108,1,108,1,128,0,0,0,-1 5010 POKE 106,PEEK(106)-5:GRAPHICS 17 5015 POSITION 6,0:? #6;"s p a c e":POSITION 8,2:? #6;"":POSITION 4,5:? #6;">>>>>><<<<<<" 5016 POSITION 6,22:? #6;"BY " 5020 ST=(PEEK(106)+1)*256 5030 FOR MOVE=0 TO 1023:POKE ST+MOVE,PEEK(57344+MOVE):NEXT MOVE 5040 POKE 756,ST/256 5050 FOR MOVE=0 TO 7:READ CS:POKE 392+ST+MOVE,CS:NEXT MOVE 5060 FOR MOVE=0 TO 7:READ CS:POKE 432+ST+MOVE,CS:NEXT MOVE 5070 FOR MOVE=0 TO 7:READ CS:POKE 336+ST+MOVE,CS:NEXT MOVE 5080 FOR MOVE=0 TO 7:READ CS:POKE 464+ST+MOVE,CS:NEXT MOVE 5180 GOSUB 6000 5190 RETURN 6000 REM 6010 READ L,S 6015 IF S=-1 THEN RESTORE 5005:RETURN 6020 SOUND 3,S,14,12 6025 IF L=0 THEN GOTO 6035 6030 FOR D=1 TO 20:NEXT D 6035 FOR D=1 TO 20:NEXT D 6040 SOUND 3,0,0,0:GOTO 6010
References
Listing downloads
Downloads
Copyright holder