tutachamons tomb, need help getting it to use joystick 1

[jrhodes]

I am attempting to convert a game that uses joystick 2 to use joystick 1.
I know i should change 630 CALL KEY(2,K,S) to 630 CALL KEY(1,K,S),
and change 640 CALL JOYST(2,YJ,XJ) to 640 CALL JOYST(1,YJ,XJ)
but i am confused what to use here:780 IF K=-7 THEN 810

Original:

630 CALL KEY(2,K,S) :: IF S THEN 780
640 CALL JOYST(2,YJ,XJ) :: IF XJ+YJ=0 THEN 620
780 IF K=-7 THEN 810

What i have so far:

630 CALL KEY(1,K,S) :: IF S THEN 780
640 CALL JOYST(1,YJ,XJ) :: IF XJ+YJ=0 THEN 620
780 IF K=[b][i]??[/i][/b] THEN 810

Original game is attached to this post.

 

 

100 !***********************
110 !* TUTANCHAMON'S TOMB *
120 !* Version 2.3 *
130 !*---------------------*
140 !* For the TI-99/4A *
150 !* Home Computer *
160 !* with Extended Basic *
170 !* and Joystick *
180 !* in Port 2 *
190 !*---------------------*
200 !* Size:12659 Bytes *
210 !*---------------------*
220 !* By Remco Polman *
230 !* Onderste Wehr 43 *
240 !* 6433LC Hoensbroek *
250 !* HOLLAND *
260 !***********************
270 GOTO 310
280 CALL CHAR :: CALL COINC :: CALL DELSPRITE :: CALL GCHAR :: CALL HCHAR :: CALL JOYST :: CALL KEY :: CALL LOCATE :: CALL MOTION :: CALL PATTERN :: CALL SOUND :: CALL SPRITE :: CALL VCHAR
290 A,A$,HI,HIT,K,KEY,LV,M,P,Q,QQ,S,SCR,T,TEK,TEK1,X,XJ,Y,YJ
300 DATA
310 RANDOMIZE :: OPTION BASE 1 :: DIM D(4) :: DEF H(X)=(X+7)/8
320 CALL MAGNIFY(3) :: CALL CLEAR :: CALL SCREEN(2) :: CALL COLOR(0,2,7,1,7,2,9,12,6,10,12,11,11,16,2,12,5,2,13,16,2)
330 REM !@P-
340 FOR T=3 TO 8 :: CALL COLOR(T,16,2) :: NEXT T
350 CALL CHAR(40,"C3FFC3C3C3FFC3C33C10081008100810",43,"18181818181818181C22221C08180838")
360 CALL CHAR(34,"FFFE131BBA1D1F1E5E4E5E7EBDD11",36,"FE282828282828384438282828282828FFF8E41CCEF3FCFFFF0FB73B78E71FFF")
370 A$="66666666" :: CALL CHAR(58,"7E7E"&RPT$("18",28),70,A$&A$,74,A$&"667E3C18",81,"3C7E"&A$&"7E7E",87,A$&"767676766E6E6E6E"&A$,100,"",90,A$&"66667E7E")
380 CALL CHAR(112,"1C3E7360606060606060606063733E1C4242424266667E7E0E0E0408",116,"3C7E"&A$&A$&A$&"7E3C1C3E736360703C1E0703030363677E3C")
390 CALL CHAR(96,"0103070F1F3F7FFF80C0E0F0F8FCFEFF071F3F7F7FFFFFFFFFFFFF7F7F3F1F07",102,"E0F8FCFEFEFFFFFFFFFFFFFEFEFCF8E000"&RPT$("F",30))
400 FOR T=0 TO 16 STEP 4 :: CALL CHAR(T+126,"",T+127,"") :: NEXT T
410 A$="1C7F3A3F0E081C3E" :: CALL CHAR(128,A$&"3E3E3E1C0808081E",132,A$&"7EBEBE1C5474444F")
420 A$="38FE5CFC7010387C" :: CALL CHAR(136,A$&"7C7C7C3810101078",140,A$&"7EFD7D382A2E22F2")
430 CALL CHAR(60,"00001000080004100008001000080018",62,"",63,"",124,"1C7F3E7F5D495D3E3E3E3E1C222214FF")
440 CALL CHAR(64,"3C4299919199423C",92,"0000181818FFFFFF1818181818187EFF",94,"",95,"")
450 !************************
460 HI=MAX(P,HI) :: CALL DELSPRITE(ALL) :: P,KEY=0 :: M=4 :: Q,SCR,LV=1 :: GOTO 1200
470 CALL DELSPRITE(#1) :: CALL HCHAR(1,1,31,768) :: CALL VCHAR(1,31,33,96) :: FOR T=1 TO 22 STEP 3 :: CALL VCHAR(T,2,32,2) :: CALL VCHAR(T,31,32,2) :: NEXT T
480 FOR T=1 TO 4 :: D(T)=6 :: NEXT T
490 DISPLAY AT(12,9)SIZE(14):"UP TO SCREEN";SCR :: DISPLAY AT(14,8)SIZE(16):USING "######## POINTS":P :: DISPLAY AT(16,12)SIZE(:"LEVEL";LV :: RANDOMIZE :: ON SCR GOSUB 1110,1130,1150,1170
500 FOR X=1 TO 22 STEP 3 :: READ A$ :: DISPLAY AT(X,1):A$
510 IF 9-(X+2)/3>D(SCR)THEN 560 ELSE A=1
520 Y=POS(SEG$(A$,1,28)," ",A)
530 IF Y<25 AND SEG$(A$,Y+55+A,1)="!" THEN CALL HCHAR(X,Y+2,44)ELSE A=A+1 :: GOTO 520
540 RANDOMIZE :: Y=INT(RND*24+4)
550 CALL GCHAR(X,Y,TEK) :: CALL GCHAR(X-1,Y,TEK1) :: IF TEK<>32 OR TEK1<>33 THEN 540 ELSE CALL HCHAR(X,Y,36) :: CALL HCHAR(X+1,Y,37)
560 NEXT X
570 CALL HCHAR(1,30,44) :: GOSUB 1820 :: GOSUB 1830 :: FOR T=1 TO 6
580 Q=-Q :: X=(RND*5+3*LV)*Q :: CALL SPRITE(#T*2,120,RND*13+3,T*24+1,100,0,X) :: IF LV>2 THEN CALL SPRITE(#T*2+1,120,RND*13+3,T*24+1,225,0,X)
590 NEXT T :: IF SCR>1 THEN X=1 :: Y=25 :: CALL SPRITE(#1,124,11,X,Y) :: GOTO 910
600 Y=(INT(RND*28+3))*8-7 :: CALL GCHAR(1,H(Y),TEK) :: IF TEK<>32 THEN 600
610 X=1 :: CALL SPRITE(#1,128,11,X,Y)
620 CALL COINC(ALL,HIT) :: IF HIT THEN 1640
630 CALL KEY(2,K,S) :: IF S THEN 780
640 CALL JOYST(2,YJ,XJ) :: IF XJ+YJ=0 THEN 620
650 IF XJ THEN CALL PATTERN(#1,124) :: GOTO 920
660 CALL COINC(ALL,HIT) :: IF HIT THEN 1640
670 CALL GCHAR(H(X),H(Y+2*YJ),TEK) :: IF TEK>32 THEN 720
680 Q=-Q :: QQ=8*(YJ=-4) :: IF Q=1 THEN CALL PATTERN(#1,128-QQ)ELSE CALL PATTERN(#1,132-QQ)
690 CALL MOTION(#1,0,2*YJ)
700 Y=Y+2*YJ :: CALL MOTION(#1,0,0) :: CALL LOCATE(#1,X,Y) :: IF TEK=43 THEN 880
710 CALL SOUND(1,-5,0) :: GOTO 620
720 CALL MOTION(#1,0,0)
730 CALL COINC(ALL,HIT) :: IF HIT THEN 1640
740 IF TEK>39 AND TEK<44 THEN 680
750 IF TEK=44 THEN CALL SOUND(200,880,0,990,0,1100,0) :: KEY=KEY+1 :: P=P+10 :: CALL HCHAR(H(X),H(Y+2*YJ),32) :: GOSUB 1820 :: GOTO 680
760 IF TEK=36 AND KEY>0 THEN KEY=KEY-1 :: D(SCR)=D(SCR)-1 :: CALL SOUND(200,110,0,220,0,330,0) :: P=P+20 :: CALL VCHAR(H(X),H(Y+2*YJ),32,2) :: GOSUB 1820 :: GOTO 680
770 GOTO 620
780 IF K=-7 THEN 810
790 CALL PATTERN(#1,60) :: FOR T=1 TO 50 :: NEXT T
800 CALL DELSPRITE(#1) :: FOR T=0 TO 30 :: CALL SOUND(-1,-5,30-T) :: NEXT T :: Y=41 :: CALL SPRITE(#1,60,11,1,Y) :: FOR T=1 TO 50 :: NEXT T :: GOTO 610
810 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE IF YJ=0 OR(Y<25 AND YJ<0)OR(Y>232 AND YJ>0)THEN 870
820 CALL GCHAR(H(X),H(Y+2*YJ),TEK) :: IF TEK=33 OR TEK=36 THEN CALL MOTION(#1,-10,0) :: GOTO 850 ELSE CALL MOTION(#1,-3,2*YJ) :: CALL GCHAR(H(X),H(Y+4*YJ),TEK)
830 CALL COINC(ALL,HIT) :: IF HIT THEN 1640
840 IF TEK=33 OR(TEK=36 AND KEY=0)THEN CALL MOTION(#1,3,-YJ/2) :: GOTO 660 ELSE 860
850 CALL MOTION(#1,0,0) :: CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE CALL LOCATE(#1,X,Y) :: CALL SOUND(-10,-6,0) :: GOTO 620
860 Y=Y+2*YJ :: CALL MOTION(#1,1,YJ) :: GOTO 660
870 CALL MOTION(#1,-10,0) :: CALL PATTERN(#1,124) :: YJ=0 :: CALL MOTION(#1,0,0) :: CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE CALL LOCATE(#1,X,Y) :: CALL SOUND(-10,-6,0) :: GOTO 640
880 S=880 :: CALL PATTERN(#1,124)
890 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE S=S-20 :: CALL SOUND(-1000,S,0,S+110,0,S+220,0)
900 CALL GCHAR(H(X)+3,H(Y),TEK) :: X=X+8 :: CALL LOCATE(#1,X,Y) :: IF TEK-33 THEN 890 ELSE CALL SOUND(-10,-6,0) :: GOTO 620
910 CALL GCHAR(H(X-XJ/4),H(Y),TEK) :: IF TEK=32 THEN 620
920 CALL COINC(ALL,HIT) :: IF HIT THEN 1640
930 IF XJ=4 THEN 1000
940 IF X=177 THEN 1670
950 CALL GCHAR(H(X+16),H(Y),TEK) :: IF TEK<>42 AND TEK<>40 THEN 1060
960 X=X+8 :: CALL MOTION(#1,5,0) :: IF TEK<41 THEN CALL SOUND(-50,880,0,990,0,1100,0) :: GOTO 990
970 FOR T=30 TO 0 STEP-10 :: CALL COINC(ALL,HIT) :: IF HIT THEN 1640
980 CALL SOUND(-40,-5,T) :: NEXT T
990 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE CALL MOTION(#1,0,0) :: CALL LOCATE(#1,X,Y) :: GOTO 1060
1000 IF X=1 THEN IF SCR>1 AND Y=25 THEN SCR=SCR-1 :: GOTO 1810 ELSE 620
1010 CALL GCHAR(H(X-,H(Y),TEK) :: IF(TEK>32 AND TEK<40)OR TEK>42 THEN 1060
1020 X=X-8 :: CALL MOTION(#1,-5,0) :: IF TEK<41 THEN CALL SOUND(-50,880,0,990,0,1100,0) :: GOTO 1050
1030 FOR T=30 TO 0 STEP-10 :: CALL COINC(ALL,HIT) :: IF HIT THEN 1640
1040 CALL SOUND(-40,-5,T) :: NEXT T
1050 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE CALL MOTION(#1,0,0) :: CALL LOCATE(#1,X,Y)
1060 CALL COINC(ALL,HIT) :: IF HIT THEN 1640 ELSE CALL JOYST(2,YJ,XJ) :: IF XJ THEN 920
1070 IF YJ=0 THEN 1060
1080 CALL GCHAR(H(X+,H(Y+2*YJ),TEK) :: IF TEK=33 THEN 1060
1090 GOTO 660
1100 !************************
1110 CALL CHAR(33,"FBFB007700DD0077",42,"0810081008100810",120,"03060605040302050A050A050A050201E0B0B0D010E020D028D028D028D020C")
1120 CALL COLOR(1,15,2,2,16,2) :: RESTORE 1280 :: RETURN
1130 CALL CHAR(33,"FE0670777707E0EE",42,"1000100008001000",120,"3748555B2F5B5F2D5FAB9E6D152A241830C828E6D26AF4ECB2FAF46E61916A04")
1140 CALL COLOR(1,11,2,2,16,2) :: RESTORE 1370 :: RETURN
1150 CALL CHAR(33,"FF818181FFAE2420",42,"1028281008141408",120,"CF5FD24D47A7120F020F0207F84020F080C04081121F20C000800000F8102078")
1160 CALL COLOR(1,5,2,2,6,2) :: RESTORE 1460 :: RETURN
1170 CALL CHAR(33,"F7F7F7007F7F7F",42,"11,2")
1180 CALL CHAR(33,"F7F7F7007F7F7F",42,"1008040804081020",120,"020A0A68776FE90DEE0FF4031801191980A0A80EEEF697B077F02FC018809898")
1190 CALL CHAR(120,"020A0A68776FE90DEE0FF4031801191980A0A80EEEF697B077F02FC018809898") :: RESTORE 1550 :: RETURN
1200 GOSUB 1190
1210 CALL HCHAR(1,1,100,256) :: CALL HCHAR(9,1,105,512) :: CALL CHAR(33,"") :: DISPLAY AT(2,14)SIZE(13):"`adddddddddbf" :: DISPLAY AT(3,13)SIZE(14):"`hhaddddddddcg"
1220 FOR T=2 TO 6 :: DISPLAY AT(T+2,14-T)SIZE(2*T+2):"`"&RPT$("h",T*2)&"a" :: NEXT T :: FOR T=11 TO 22 :: CALL HCHAR(T,4,32,27) :: NEXT T
1230 DISPLAY AT(13,4)SIZE(23):"" :F:QWpZQrtWsv :trQ "" :: DISPLAY AT(14,4)SIZE(23):"# ;J;FXqFFFuX w ;uFu #"
1240 DISPLAY AT(16,4)SIZE(23):"&` BY REMCO POLMAN &`" :: DISPLAY AT(17,13)SIZE(5):"@1986" :: DISPLAY AT(20,9)SIZE(13):"PRESS BUTTON"
1250 DISPLAY AT(19,8)SIZE(15):USING "HISCORE ######":HI :: CALL SPRITE(#1,120,5,49,121)
1260 CALL KEY(2,K,S) :: IF S=0 THEN 1260 ELSE 470
1270 !***********************
1280 DATA " , + + !!!!!!!!!!!(!!!!+!!!!!!!!!!!"
1290 DATA ") + (!+ + ( ) * + (!+ + ( * *!!!+!!!!!!(!+!!+!(!!!!!!*!!"
1300 DATA "* (!+ (!( !* * (!+ (!( !* *!!!!!!!!!!(!+!!!!(!(!!!!*!!"
1310 DATA "* !) ( (!(!+ * (* !* ( (!(!+ * (!!!*!!!!!!!!!!!!!!!!(!+!!!!("
1320 DATA " * ( + + ( ! ) ( + ( * ( + + ( ! * ( + (!!!*!!(!+!+!(!!!!*!!!!+!!!!("
1330 DATA " )!* ( !+!( * ! ( *!* ( !+!( * ! (!*!!!!(!!!+!(!!!!*!!!!!!!!!("
1340 DATA " * ( ! ((! * + ( * ( ! ((! * + (!*!!!!!!!!!(!!!!!!!!!+!!!!!("
1350 DATA " * ( ( * ( (!*!!!!!!!!!!!!!!!!!!!!!!!!!!"
1360 !***********************
1370 DATA "!*! ( + ( + !*! ( + ( + !*!!!!(!!!!!(!!!+!!!!!(!+!!!"
1380 DATA " * (!) ( +!( ( + ) * (!* ( +!( ( + * !!!!!!!!*!!!(!!!+!(!!!!!+!*!"
1390 DATA "( * ( + ( + * ( * ( + ( + * (!!!!!!!*!!!!!!!+!(!!!!!+!!!"
1400 DATA "( ) * ) ( ( ( ( * * * ( ( ( (!!!!!*!*!!!!*!(!!!!(!!!!!!!"
1410 DATA "( ) * * + *!( ( ) ( * * * + *!( ( * !!*!!!*!!!!+!!!(!!!!(!!!!*!!"
1420 DATA " * * + ( ( + * * * + ( ( + * !!*!!!*!!!!+!!!(!!!!!!!+!*!!"
1430 DATA " )* * !( + * ** * !( + * !*!!!!!!!!!!!!!(!!+!!!!!!*!!"
1440 DATA " * ( * * ( * !*!!!!!!!!!!!!!!!!!!!!!!!!!!"
1450 !***********************
1460 DATA " * ++ + ) * ++ + * !*!!++!!!(!!!!!!+!!!!*!!!!!!"
1470 DATA " *! + ( ( + * ! ) *! + ( ( + * ! * !*!!!+!!!(!!!!(!+!!!!*!!!!*!"
1480 DATA "(* + (! ( + * * (* + (! ( + * * (!!!!+!!!!!!!!(!+!!!!!!!!!*!"
1490 DATA "( ++ + ( +++ ( * ( ++ + ( +++ ( * !!!++!!!!!+!!!!!+++!!!(!!!!!"
1500 DATA " + ) + ! + + ( ) ( + * + ! + + ( * (!!!!+!!!*!+!!!!!+!+!!!!!*!!("
1510 DATA " + * ! + ( * ( + * ! + ( * (!!!!+!!!*!!!!!!!+!!!(!!!!!!("
1520 DATA " ( * + ) ( ( ( * + * ( (!(!!!!!!*!!!+!!!!!*!!!!!!!!("
1530 DATA " ( * * ( ( * * (!(!!!!!!!!!!!!!!!!!!!!!!!!!!"
1540 !**********************
1550 DATA "!*" ) + ( ) !*# * + ( * !*!!!*!!!!!(!!!!+!!!!!!(!!*!"
1560 DATA "!* *!) (!(!!!!+!!!) ( !*!!* *!* (!(!&'!+!"!* ( !*!!*!!!!!(!(!(!!!!+!#!*!!(!!*!"
1570 DATA " * *!( ( ) * ( * * *!( ( * * ( * !(!!!!!*!!!!!*!!!!!!!!!(!!!!"
1580 DATA "!(!) !*!!"!!*!( ! (!( !(!* !*!!#!!*!( ! (!( !(!*!!!*!!!!!*!(!!!!!!!!!(!!"
1590 DATA "!( *!( *! + * (!!+ ( !( *!( *! + * (!!+ ( !(!!!(!!!!!+!!!(!!+!!!!!!(!!"
1600 DATA " ( (!!"!! (!! )!!! ()! ( (!!#!! (!! *!!! (*!!!!!!!!!!!!!!!!(!!!*!!!!!!*!"
1610 DATA "!"""!xz!&'!"!!!((!!* ( *!!###!y(!!!!#!!!((!!* ( *!!!!!!!!!!!!!!!!!(!!!!!!(!!!!"
1620 DATA " ( ( ( ( ( ( !(!!!!!!!!!!!!!!!!!!!!!!!!!!"
1630 !**********************
1640 CALL MOTION(#1,0,0) :: M=M-1 :: CALL PATTERN(#1,60) :: CALL PATTERN(#1,92) :: FOR T=220 TO 110 STEP-5 :: CALL SOUND(-50,T,0) :: NEXT T :: GOSUB 1830 :: IF M>0 THEN 800
1650 FOR T=10 TO 16 :: CALL HCHAR(T,11,31,13) :: NEXT T :: DISPLAY AT(11,11)SIZE(9):"GAME OVER" :: DISPLAY AT(13,9)SIZE(13):"PRESS BUTTON" :: DISPLAY AT(15,11)SIZE(9):"TO REPLAY"
1660 CALL KEY(2,K,S) :: IF S<1 THEN 1660 ELSE 460
1670 IF D(SCR)>0 THEN DISPLAY AT(1,8)SIZE(14):"OPEN EACH+DOOR" :: CALL SOUND(-200,220,0) :: DISPLAY AT(1,8)SIZE(14):" + " :: GOTO 1060
1680 CALL MOTION(#1,127,0) :: CALL SOUND(-100,880,0,990,0) :: SCR=SCR+1 :: CALL DELSPRITE(ALL) :: CALL VCHAR(1,3,31,672) :: IF SCR<5 THEN 490
1690 CALL VCHAR(1,3,33,672) :: FOR T=7 TO 15 :: CALL HCHAR(T,T-3,32,3) :: NEXT T :: CALL VCHAR(1,4,40,
1700 CALL HCHAR(14,14,32,2) :: CALL HCHAR(15,15,32,4) :: FOR T=9 TO 14 :: CALL HCHAR(T,16,32,9) :: NEXT T :: FOR T=17 TO 23 STEP 2
1710 CALL HCHAR(10,T,34) :: CALL HCHAR(11,T,35) :: NEXT T :: CALL SPRITE(#2,120,5,97,153,#1,124,11,1,25)
1720 FOR T=1 TO 49 STEP 3 :: CALL LOCATE(#1,T,25) :: FOR X=1 TO 15 :: NEXT X :: CALL SOUND(1,880,0,990,0) :: NEXT T :: CALL PATTERN(#1,128) :: FOR T=49 TO 105 STEP 8 :: CALL LOCATE(#1,T,T-16)
1730 FOR X=1 TO 15 :: NEXT X :: CALL SOUND(1,-5,0) :: NEXT T :: FOR T=97 TO 137 STEP 8 :: Q=-Q :: CALL PATTERN(#1,2*Q+130) :: CALL LOCATE(#1,105,T) :: FOR X=1 TO 20 :: NEXT X
1740 CALL SOUND(1,-5,0) :: NEXT T :: FOR T=1 TO 20 :: CALL LOCATE(#1,100,137) :: FOR X=1 TO 10 :: NEXT X :: CALL LOCATE(#1,105,137) :: CALL SOUND(1,-6,0) :: FOR X=1 TO 20 :: NEXT X :: NEXT T
1750 CALL DELSPRITE(ALL) :: M=M+1 :: LV=LV+1 :: SCR=1 :: P=P+100*LV :: CALL VCHAR(1,3,31,672) :: GOTO 480
1760 GOSUB 1810
1770 FOR T=1 TO 8 :: READ A$ :: DISPLAY AT(T*3-2,1):A$ :: NEXT T :: GOSUB 1820 :: GOSUB 1830 :: CALL HCHAR(1,30,44)
1780 X=177 :: Y=25 :: CALL SPRITE(#1,124,11,X,Y) :: FOR T=1 TO 6
1790 Q=-Q :: S=(RND*5+3*LV)*Q :: CALL SPRITE(#T*2,120,RND*13+3,T*24+1,1,0,S) :: IF LV>2 THEN CALL SPRITE(#1*2+1,120,RND*13+3,T*24+1,125,0,S)
1800 NEXT T :: GOTO 910
1810 CALL SOUND(-100,880,0,990,0) :: CALL DELSPRITE(ALL) :: CALL VCHAR(1,3,31,672) :: DISPLAY AT(12,8)SIZE(16):"BACK TO SCREEN";SCR :: ON SCR GOSUB 1110,1130,1150,1170 :: GOTO 1770
1820 A$=STR$(P) :: DISPLAY AT(24,6)SIZE(LEN(A$)):A$ :: RETURN
1830 CALL HCHAR(24,16,33,4) :: CALL HCHAR(24,16,128,M) :: RETURN

 

 

TUTACHAMON.zip

[+OLD CS1]

If that line works then I would think changing the scanned units in CALL KEY and CALL JOYST should be sufficient.

[jrhodes]

Just was not sure. I was searching for new games, previewing them through TI99Dir. I hate swapping my joystick around.

I actually have not run it yet, just running through what i think i will need to do to make it work with joystick 1.

 

The following loop never yields a -7 with CALL KEY(2,K,S), so i'm honestly not sure what they are looking for here:

1 CALL KEY(2,K,S)
2 IF S=0 THEN 1
3 PRINT K :: GOTO 1

[+OLD CS1]

Got me. I cannot find (CTRL-F) any other place in the program which literally sets K. Unless the programmer is exploiting some quirk of the key scan which could possibly produce a -7 return.

 

EDIT: I think your pasted listing is missing something. I cannot find anywhere TEK is actually assigned, either.

[+OLD CS1]

Got me. I cannot find (CTRL-F) any other place in the program which literally sets K. Unless the programmer is exploiting some quirk of the key scan which could possibly produce a -7 return.

 

EDIT: I think your pasted listing is missing something. I cannot find anywhere TEK is actually assigned, either.

 

Nope. The program lists the same way. My brain hurts right now

[+OLD CS1]

You need to edit lines 1060, 1260, 1660. These have JOYST and KEY calls.

[sparkdrummer]

I have that game as well - good game. No need to change 780, it is correct as is. As OLD CS1 states above, you do need to change those other lines. I can upload my copy if needed.

[jrhodes]

You need to edit lines 1060, 1260, 1660. These have JOYST and KEY calls.

Got it.

Attached version is joystick #1, thanks for the help!

TUTACHMNJ1.zip

Edited July 18, 2018 by jrhodes