Atari 8-bit Source code

0REM
1REMbySTEVENLEE&CHUNH.LEE
2REM9/83
3REMSPACEBARWILLPAUSETHEGAME,PRESSSTARTTORESUME,OPTIONWILLRE-TURNYOUTOTHEMENU
4REMDON'TGETSTUCKINTHETARPITS!
10REMVERTICALBLANK&P/MSETUP
15N0=0:N1=1:N2=2:N3=3:N4=4:N5=5:N6=6:N7=7:N8=8:N10=10
20A=PEEK(106)-20:ST=A+N4:POKE54279,ST:PM=ST*256
30GRAPHICS17:DL=PEEK(560)+PEEK(561)*256:?#N6:?#N6;"...":FORP=N1TO400:NEXTP:POKE559,N0
40IFPEEK(PM)=104ANDPEEK(PM+696)=96THEN1500
50RESTORE2030:FORI=0TO119:READA:POKEPM+1280+I,A:NEXTI
60FORI=N0TO696:READA:POKEPM+I,A:NEXTI:POKEPM+N4,ST
70FORI=N1TON8:READP:P=PM+P:A=INT(P/256):B=P-A*256:READP:P=PM+P:POKEP,B:POKEP+N1,A:NEXTI:GOTO1500
80GOSUB250:GOTO140
90REMRESETGAME?
100A=PEEK(CONSOL):IFA=N6THENPOP:POP:GOSUB620:GOTO1450
110IFA=N3THENPOP:POP:GOSUB620:GOSUB780:GOTO80
120RETURN
130REMMAINPROGRAM
140GOSUB100:IFPEEK(KEY)=33THENGOSUB960
145IFSTICK(JS)<>15ORSTRIG(JS)=N0THENPOKE77,N0
150SC(PL)=SC(PL)+PTS:EX(PL)=EX(PL)+PTS
155POSITIONN7-LEN(STR$(SC(PL))),N1:?#N6;SC(PL):IFEX(PL)>=10000THENGOSUB720
160BONUS=TIME-INT((PEEK(19)*256+PEEK(20))/60)*100:POSITIONN8,N0:?#N6;BONUS;""
170IFBONUS<=N0THEN1000
180IFPEEK(1547)=N1THEN650
190PTS=N0:A=PEEK(1548):IFA>N0THENPTS=A+N10*CT(PL):POKE1548,N0
200A=PEEK(1549):IFA>N0THENPTS=PTS+A+20*CT(PL):POKE1549,N0
210IFPEEK(MOVE)=N2THENPTS=N0
220IFPEEK(53257)ORPEEK(53258)THEN1000
230POKE53278,N0:GOTO140
240REMDECIDEWHOSETURNITIS
250IFNP=N1ORLOSSTHEN280
260PL=(PL=N2)+(PL=N1)*N2
270REMDRAWBOARD
280GRAPHICS17:TIME=4500+LEV(PL)*100-CT(PL)*300:POKE756,CHSET/256
290POKEDL+N7,134:POKE512,128:POKE513,N6:POKE54286,192
300RESTORE:FORI=704TO712:READA:POKEI,A:NEXTI:POKE708,186-(PL-N1)*48
310DATA12,170,170,0,0,240,0,58,0
320POSITION14,N4:?#N6;""
330FORI=N7TO23STEPN4:POSITIONN0,I:?#N6;"";:NEXTI
340COLOR35:PLOT16,N4:DRAWTO16,N6
350FORI=N1TON4:READA,B:PLOTA,B:DRAWTOA,B+N3:NEXTI
360DATA3,7,16,11,3,15,16,19
370RESTORE370+LEV(PL)*20+INT(RND(N0)*N2)*N10
380FORI=N1TOLEV(PL)*N3+N1:READA,B:COLORN4:PLOTA,B:COLORN1:PLOTA,B-N1:COLOR165:PLOTA,B-N2:NEXTI
390DATA9,7,11,11,14,11,15,15
400DATA5,7,8,11,6,15,11,23
410DATA10,7,15,11,13,15,15,15,5,19,7,23,10,23
420DATA9,7,15,7,7,11,10,11,6,15,8,15,5,19
430DATA7,7,9,7,13,11,9,15,11,15,6,19,14,19,2,23,7,23,14,23
440DATA4,7,6,7,14,7,5,11,7,11,14,11,7,15,11,15,8,19,10,23
450DATA2,7,6,7,8,7,15,7,6,11,8,11,14,11,13,15,15,15,7,19,12,19,8,23,14,23
460DATA8,7,11,7,14,11,4,15,6,15,14,15,17,15,6,19,8,19,15,19,9,23,12,23,14,23
470DATA2,7,4,7,6,7,11,7,5,11,7,11,9,11,14,11,9,15,11,15,6,19,8,19,15,19,7,23,11,23,14,23
480DATA4,7,7,7,15,7,2,11,6,11,8,11,13,11,7,15,9,15,8,19,10,19,12,19,6,23,10,23,13,23,15,23
485FORI=N6TO22STEPN4:COLOR134:PLOTN0,I:COLOR135:PLOTN1,I:COLOR137:PLOT18,I:COLOR138:PLOT19,I:NEXTI
490POSITIONN1,N0:?#N6;"SCORE";TIME;"HIGH":?#N6;"000000000000"
500POSITIONN7-LEN(STR$(SC(PL))),N1:?#N6;SC(PL):POSITION19-LEN(STR$(HI(N1))),N1:?#N6;HI(N1)
510A=PEEK(1539):FORI=N0TON2:POKEPM+768+A+I,N0:POKEPM+978+I,60:NEXTI:JS=(PL-N1)*(J-N1)
520IFL(PL)=N1THEN540
530COLOR139:PLOTN8,N2:DRAWTON6+L(PL),N2
540RESTORE550:FORI=1536TOMOVE:READA:POKEI,A:NEXTI:POKE1552,JS:POKE1553,SP(PL)
550DATA73,0,0,210,173,180,69,76,32,243,15,6,0,0,0,1
560POKE559,62:POKE53277,N3:POKE203,N0:POKE53248,73:POKE205,204:PTS=N0
570IFNP=N2THENPOSITIONN6,N8:?#N6;"PLAYER";PL:POSITIONN5,12:?#N6;""
580GOSUB100:IFSTRIG(JS)THEN580
590POSITIONN6,N8:?#N6;"":POSITIONN5,12:?#N6;""
600POKEKEY,255:POKE19,N0:POKE20,N0:POKEMOVE,N0:RETURN
610REMREMOVEP/MFROMSCREEN
620POKEMOVE,N1:POKE53248,N0:POKE53253,N0:POKE53254,N0:POKE53278,N0
630A=PEEK(205):POKE205,N0:FORI=ATOA+11:POKEPM+1024+I,N0:NEXTI:RETURN
640REMLEVELCOMPLETED
650LEV(PL)=LEV(PL)+N1:IFLEV(PL)>N5THENLEV(PL)=N1:IFCT(PL)<N6THENCT(PL)=CT(PL)+N1:SP(PL)=CSP(CT(PL))
660FORI=BONUS-100TON0STEP-100
670SC(PL)=SC(PL)+100:EX(PL)=EX(PL)+100:POSITIONN7-LEN(STR$(SC(PL))),N1:?#N6;SC(PL)
680POSITIONN8,N0:?#N6;I;"":FORP=15TON0STEP-N3:SOUNDN0,70,N10,P:NEXTP
690IFEX(PL)>=10000THENGOSUB720
700NEXTI:GOSUB620:GOSUB280:GOTO140
710REMEXTRAMAN
720EX(PL)=N0:IFL(PL)>=LIVESTHENRETURN
730B=PEEK(MOVE):POKEMOVE,N1:POKEVOL,N0:FORP=N1TO30:NEXTP
740COLOR139:PLOTN7+L(PL),N2:L(PL)=L(PL)+N1
750FORA=N0TON2:SOUNDN0,N6,N10,N8+A*N2:FORP=N1TO55:NEXTP:POKEVOL,N0
760FORP=N1TO45:NEXTP:NEXTA:POKEMOVE,B:RETURN
770REMJEOPARDYMENU
780POKEVOL,N0:POKEVOL+N2,N0:POKEKEY,255:GRAPHICS17:POKE711,152:?#N6:?#N6;"JEOPARDY"
790POSITIONN1,N7:IFNP=N1THEN?#N6;"player:1"
800IFNP=N2THEN?#N6;"players:2"
810?#N6:?#N6;"lives:";LIVES;"":?#N6:?#N6;"level:";L;""
820?#N6:?#N6;"speed:";S;"":?#N6:IFJ=N1THEN?#N6;"stick:1"
830IFJ=N2THEN?#N6;"sticks:2"
840?#N6:?#N6:?#N6;"start":?#6;""
850FORP=N1TON10:NEXTP:A=PEEK(KEY):IFA=31THENNP=N1:J=N1
860IFA=30THENNP=N2
870IFA=26THENLIVES=N3
880IFA=29THENLIVES=N5
890IFA=N6THENJ=N1
900IFA=N7THENJ=N2:IFNP=N1THENJ=N1:SOUNDN0,250,N10,N6:FORP=N1TO20:NEXTP:POKEVOL,N0:POKEKEY,255
910A=PEEK(CONSOL):IFA=N5THENS=S+N1:IFS>N6THENS=N1
920IFA=N3THENL=L+N1:IFL>N5THENL=N1
930IFA<>N6ANDSTRIG(N0)ANDSTRIG(N1)THEN790
940GOSUB1470:RETURN
950REMPAUSEGAME
960P=PEEK(MOVE):POKEMOVE,N1:A=PEEK(19):B=PEEK(20):POKEVOL,N0:POKEVOL+N2,N0:POKEKEY,255
970IFPEEK(KEY)<>33THEN970
980POKEKEY,255:POKE19,A:POKE20,B:POKEMOVE,P:RETURN
990REMDIE
1000POKEMOVE,N1:L(PL)=L(PL)-N1:POKEVOL+N2,N0:SOUNDN0,255,N0,15
1010RESTORE1030:FORI=N1TON8:READA:POKE203,A:GOSUB100:FORP=N1TO30:NEXTP:NEXTI
1020POKEVOL,N0:FORP=N1TO100:NEXTP:GOSUB620
1030DATA0,96,84,96,0,96,24,108
1040IFL(PL)=N0THENLOSS=LOSS+N1:IFNP=N2THENPL=(PL=N2)+(PL=N1)*N2
1050IFNP=LOSSTHEN1080
1060GOSUB250:GOTO140
1070REMENDOFGAME
1080POKE559,34:POKE53277,N0
1090A=HI(N1):FORI=N1TONP:TOP(I)=N0
1100IFSC(I)>ATHENA=SC(I):POSITION19-LEN(STR$(A)),N1:?#N6;A
1110IFSC(I)>HI(N5)THENTOP(I)=N1
1120NEXTI:IFNP=N1THEN1170
1130IFSC(N1)>HI(N4)ANDSC(N2)>HI(N4)THEN1170
1140IFSC(N1)>=SC(N2)THENTOP(N2)=N0:GOTO1170
1150TOP(N1)=N0
1160REMINPUTNAME
1170FORI=N1TONP:IFTOP(I)=N0THENNEXTI:GOTO1350
1190POKE708,186-(I-N1)*48:POSITIONN1,N1:?#N6;"000000":POSITIONN7-LEN(STR$(SC(I))),N1:?#N6;SC(I)
1200POSITIONN4,12:?#N6;"":IFNP=N2THENPOSITIONN5,N10:?#N6;"PLAYER";I
1210POSITIONN5,14:?#N6;"":POSITIONN5,14:?#N6;">"
1220FORP=N1TON5:IFSC(I)>HI(P)THENPOP:GOTO1240
1230NEXTP
1240A=P*N8-N7:B=P:IFB=N5THEN1260
1250FORP=N5TOB+N1STEP-N1:HI(P)=HI(P-N1):NAME$(P*N8-N7,P*N8)=NAME$((P-N1)*N8-N7,(P-N1)*N8):NEXTP
1260NAME$(A,A+N7)="":HI(B)=SC(I):P=N6
1270POKE694,N0:POKE702,64:POKEKEY,255:OPEN#N1,N4,N0,"K:"
1280POSITIONP,14:GET#N1,B
1290IFB=126THENP=P-(P>N6):POSITIONP,14:?#N6;"":NAME$(A+P-N6,A+P-N6)="":GOTO1280
1300IFB=155THENCLOSE#N1:NEXTI:GOTO1350
1310IFPEEK(694)=128THENPOKE694,0:B=B-128
1312IFPEEK(702)=0THENPOKE702,64:IFB>95THENB=B-32
1315IF(B<42ORB>95)ANDB<>32THEN1280
1320P=P+N1:IFP>14THENP=P-N1:POKECONSOL,N0:GOTO1280
1330?#N6;CHR$(B):NAME$(A+P-N7,A+P-N7)=CHR$(B+128):GOTO1280
1340REMDISPLAYHIGHSCORE
1350SOUNDN0,250,N10,N2:SOUNDN1,251,N10,N2
1360GRAPHICS17:POKE708,42:POKE710,140:FORI=N8TO16STEPN2:POKEDL+I,134:NEXTI:POKEDL+9,135
1365POKE512,139:POKE513,N6:POKE54286,192
1370POSITIONN4,N1:?#N6;""
1380FORI=N1TON5:POSITIONN2,I*N2+N2:?#N6;I;".";NAME$(I*N8-N7,I*N8):IFHI(I)=N0THEN1400
1390POSITION14,I*N2+N2:?#N6;HI(I)
1400NEXTI:IFNP=N1THENPOSITIONN4,16:?#N6;"=";SC(N1):GOTO1420
1410FORI=N1TON2:POSITIONN3,15+I:?#N6;"";CHR$(176+I);"=";SC(I):NEXTI
1420POSITIONN4,19:?#N6;"press":?#N6:?#N6;"press":?#N6;"formenu"
1430A=PEEK(CONSOL):IFA=N3THENGOSUB780:GOTO80
1440IFA<>N6ANDSTRIG(N0)ANDSTRIG(N1)THEN1430
1450POKEVOL,N0:POKEVOL+N2,N0:GOSUB1470:GOTO80
1460REMRESETVALUES
1470FORI=N1TONP:LEV(I)=L:SP(I)=CSP(S):SC(I)=N0:EX(I)=N0:L(I)=LIVES:CT(I)=S
1480NEXTI:PL=NP:LOSS=N0:POKEVOL+N1,N0:RETURN
1490REMSETVARIABLES
1500DIMNAME$(40),HI(N5),LEV(N2),SP(N2),CT(N2),SC(N2),EX(N2),L(N2),TOP(N2),CSP(N6)
1510FORI=N1TON5:HI(I)=N0:NEXTI:NAME$(N1)="":NAME$(40)="":NAME$(N2)=NAME$
1520RESTORE1530:FORI=N1TON6:READA:CSP(I)=A:NEXTI
1530DATA146,170,173,219,239,255
1535FORI=N0TON3:SOUNDI,N0,N0,N0:NEXTI
1540KEY=764:CONSOL=53279:MOVE=1551:VOL=53761:NP=N1:LIVES=N3:L=N1:S=N1:J=N1:POKEMOVE,N1
1550REMCLEARP/M
1560RESTORE1570:DIMCLEAR$(17):FORI=N1TO17:READA:CLEAR$(I)=CHR$(A):NEXTI
1570DATA104,169,0,162,2,168,145,203,200,208,251,230,204,202,208,245,96
1580POKE203,N0:POKE204,ST+N3:ML=USR(ADR(CLEAR$))
1590POKE204,ST+N5:POKE205,204:POKE206,ST+N4
1595ML=USR(PM):REMSTARTVBI
1600REMREDEFINECHARACTERSET
1610RESTORE1650:DIMRAM$(38):FORI=N1TO38:READA:RAM$(I)=CHR$(A):NEXTI
1620ML=USR(ADR(RAM$)):POKE207,N0:POKE208,ST+N3
1630CHSET=(ST-N2)*256:FORP=N1TON10:READA
1640FORI=N0TON7:READB:POKECHSET+I+A,B:NEXTI:NEXTP
1650DATA104,169,0,133,207,133,209,169,224,133,210,165,106,56,233,18,133,208,160,0,177,209
1660DATA145,207,200,208,249,230,208,230,210,165,210,201,226,208,237,96
1670REMDATAFORNEWCHARACTERSET
1680DATA24,129,255,129,129,129,255,129,129,8,0,0,0,0,0,0,0,126,32,255,255,255,255,255,255,255,0
1690DATA48,0,127,255,255,127,48,72,72,56,0,224,208,208,224,0,0,0,72,0,7,11,11,7,0,0,0,40,16,16,16,16,16,16,16
1700DATA16,80,0,254,255,255,254,12,18,18,64,255,85,170,85,170,85,170,255,88,24,24,60,24,24,24,24,0
1710REMDISPLAYLISTINTERRUPT
1720FORI=1664TO1733:READA:POKEI,A:NEXTI
1730FORI=N0TON7:POKE1783+I,I*32+N10:NEXTI
1740DATA72,169,26,141,10,210,141,22,208,104,64
1750DATA72,138,72,162,0,189,247,6,141,10,212,141,24,208,141,10,212,232,224,6,144,239,173,28,2,208,28
1760DATA173,254,6,141,255,6,162,7,189,246,6,157,247,6,202,208,247,173,255,6,141,247,6,169,5,141,28,2
1770DATA104,170,104,64
1780REMTITLE
1790GRAPHICSN6:POKE710,N0:A=PEEK(560)+PEEK(561)*256+85:POKEA,70:FORI=N3TON5:POKEA+I,N6:NEXTI
1810POKE82,N2:POKE708,12:POKE710,58:COLORN1
1820RESTORE1930:PLOT42,49
1830READA,B:IFA=-N1THEN1870
1840IFPEEK(CONSOL)=N6ORSTRIG(N0)=N0ORSTRIG(N1)=N0THENPOKEVOL,N0:POKEVOL+N2,N0:GOSUB780:GOTO80
1850IFA=-N1THEN1840
1860DRAWTOA,B:GOTO1830
1870SOUNDN0,250,N10,N6:SOUNDN1,251,N10,N6
1880POKE657,N3:POKE656,N0:?"STEVENLEECHUNH.LEE"
1890POKE657,N4:POKE656,N1:?"start":GOTO1840
1920REMDATATODRAWJEOPARDY
1930DATA39,49,29,44,25,40,25,41,17,33,17,31,16,30,16,23,16,23,16,19,21,13,26,8,29,7,31,5,38,5,39,6,40,6
1940DATA44,10,44,11,46,13,47,16,48,17,48,28,47,29,47,34,46,35,46,40,45,41,43,49,41,53,40,54,40,56,33,70
1950DATA29,74,28,74,26,72,28,64,32,58,39,51,40,51,41,50,42,50,45,47,46,47,50,44,53,43,56,40,56,39,54,38,50,42
1960DATA49,47,51,49,55,49,64,39,60,45,60,47,62,49,64,49,68,45,69,39,68,38,65,38,63,40,70,40,77,32,57,72,73,41
1970DATA76,38,79,38,81,40,80,44,75,49,69,50,78,48,84,44,91,39,92,38,95,38,92,38,91,39,84,44,84,47,86,49,88,49
1980DATA93,44,96,40,96,39,96,40,93,45,92,47,94,49,97,49,108,36,108,34,107,38,111,42,111,43,108,46,108,47,110,49
1990DATA112,49,122,39,127,38,122,39,116,45,116,47,118,49,121,49,125,45,132,25,125,43,125,48,126,49,129,49
2000DATA136,38,132,48,133,49,136,49,142,38,134,52,129,62,124,67,119,65,119,63,121,59,125,55,129,53,142,53,-1,-1
2020REMDATAFORPLAYERS
2030DATA24,24,0,24,56,92,90,24,24,36,36,54,24,24,0,24,56,40,60,24,28,8,24,44
2040DATA24,24,0,24,28,58,90,24,24,36,36,108,24,24,0,24,28,20,60,24,56,16,24,52
2050DATA24,24,0,24,58,92,24,24,38,65,129,128,24,24,0,24,92,58,24,24,100,130,129,1
2060DATA26,26,66,126,24,24,24,24,36,36,32,32,88,88,66,126,24,24,24,24,36,36,4,4
2070DATA24,24,0,24,60,90,90,24,24,36,36,36,36,0,36,0,82,129,169,0,36,0,40,129
2080REMDATAFORVBI
2090DATA104,169,7,162,0,160,10,76,92,228,173,28,2,208,3,141,5,210,78,18,6,240,5,176,9
2100DATA76,98,228,173,17,6,141,18,6,173,15,6,240,2,208,111,141,3,210,216,174,9,6
2110DATA224,243,240,3,76,0,0,174,16,6,189,120,2,141,10,6,172,8,6,192,32,208,73,189,132,2,208
2120DATA3,76,0,0,173,10,6,201,7,240,69,201,11,240,96,162,2,201,13,240,6,162,0,201,14,208,50
2130DATA173,0,6,221,4,6,144,42,221,5,6,176,37,224,2,208,7,173,11,6,201,6,176,26,189,4,6,24,105,3
2140DATA141,0,6,141,0,208,224,2,240,83,208,111,201,13,240,77,201,14,240,103,24,144,67,173,0,6,141
2150DATA0,208,201,190,176,5,238,0,6,144,3,32,0,0,74,176,46,169,0,197,203,208,38,169,12,208,29,173
2160DATA0,6,141,0,208,201,59,144,5,206,0,6,176,3,32,0,0,74,176,15,169,24,197,203,208,7,169,36
2170DATA162,8,142,3,210,133,203,76,0,0,238,8,6,173,8,6,201,64,208,11,169,32,141,8,6,238,11
2180DATA6,32,0,0,160,0,152,145,205,230,205,144,44,206,8,6,173,8,6,174,11,6,224,3,144
2190DATA6,201,0,240,11,208,20,201,8,208,16,169,1,141,15,6,169,32,141,8,6,206,11,6,32,0,0
2200DATA160,11,169,0,145,205,198,205,165,205,74,176,10,169,84,197,203,208,2,169,72,133,203,173,11,6,174,8
2210DATA6,224,28,176,3,56,233,1,201,2,176,2,105,1,170,169,0,24,105,32,202,208,250,105,18
2220DATA205,3,6,240,32,72,169,0,141,1,6,141,2,6,172,3,6,162,3,145,207,200,202,208,250
2230DATA201,0,208,8,104,141,3,6,169,60,208,233,76,0,0,169,130,141,19,6,169,175,141,20,6
2240DATA165,203,133,209,160,48,201,13,144,2,160,60,132,203,162,11,142,9,6,160,0,138,48,2,160
2250DATA11,169,0,145,205,230,205,138,48,4,198,205,198,205,173,9,6,206,9,6,74,176,227,173,0
2260DATA6,141,0,208,201,190,176,4,201,59,176,5,169,15,141,10,6,173,10,6,201,7,208,3,238
2270DATA0,6,201,11,208,3,206,0,6,173,19,6,141,0,210,56,233,5,141,19,6,206,20,6,173
2280DATA20,6,141,1,210,224,245,208,12,165,209,133,203,169,0,141,1,210,141,14,6,240,47,173,14
2290DATA6,208,16,173,4,208,74,74,74,144,8,169,20,141,12,6,141,14,6,160,2,174,0,6,202
2300DATA202,236,1,6,240,5,236,2,6,208,5,169,40,141,13,6,202,136,208,237,160,0,177,203,145
2310DATA205,200,192,12,208,247,173,15,6,201,1,240,75,176,20,173,4,208,74,74,144,13,169,2,141
2320DATA15,6,169,0,141,1,210,141,3,210,238,1,6,206,2,6,162,0,189,1,6,201,195,176,4
2330DATA201,58,176,23,169,0,157,1,6,157,5,208,173,10,210,201,5,176,14,169,58,224,0,240,2
2340DATA169,194,157,1,6,157,5,208,232,224,2,208,211,76,98,228,162,2,189,5,6,72,189,3,6,157
2350DATA5,6,104,157,3,6,202,208,239,96,162,138,142,5,210,162,10,142,4,210,142,28,2,96
2360REMDATAFORJUMPINSTRUCTIONS
2370DATA416,53,387,77,683,171,683,202,567,223,663,244,663,292,567,385	

• Download link 1

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