Looking for...

[oddemann]

I am looking for a program... Back in the time I got a magazine and I copied it. Found the copy the other day. Scanned it. But, I am looking for the program online. Have not found it. Dos anyone know it and where I can find it, so that I don't need to type it in?

Game: React
Author: Charles A. Sharp
Runs on: TI 99/4A in 16K

[tibasic]

There is a game called Re-act in the Gamebase. It code looks similar apart from the instructions. 

100 CALL CLEAR
110 PRINT "      *RE-ACT*"
120 PRINT :::::
130 PRINT "LO SCOPO E` DI RAGGIUNGERE":"IL REATTORE"
140 PRINT
150 PRINT "EVITANDO I ROBOT"::
160 PRINT "SE UNO VI PRENDE,ALLORA":"SIETE MORTI!"::
170 CALL SOUND(200,1109,0)
180 FOR D=1 TO 2000
190 NEXT D
200 CALL CLEAR
210 PRINT "USARE I TASTI CURSORE"
220 PRINT "RAGGIUNGERE IL REATTORE"
230 PRINT "PRIMA CHE ESPLODA"
240 PRINT :"I SISTEMI DI SICUREZZA NON"
243 PRINT "SONO PIU` SINCRONIZZATI : "
245 PRINT "LE PORTE SI APRONO/CHIUDONO"
250 PRINT "A CASO"
260 PRINT :::
270 PRINT "         *BUONA FORTUNA*"
280 CALL SOUND(200,1109,0)
290 FOR D=1 TO 2000
300 NEXT D
310 CALL CLEAR
320 R=24
330 C=16
340 RR=4
350 CC=4
360 REM ..SET SCREEN 
370 CALL SCREEN(16)
380 CALL CHAR(40,"FFFFFFFFFFFFFFFF")
390 CALL CHAR(97,"FFC3A59999A5C3FF")
400 CALL CHAR(120,"FFFFFFFFFFFFFFFF")
410 CALL CHAR(112,"0000081C241C1422")
420 CALL CHAR(104,"1C1C083E241C1422")
430 CALL CHAR(105,"00220099990022")
440 CALL HCHAR(1,1,40,32)
450 CALL HCHAR(24,1,40,32)
460 CALL VCHAR(1,1,40,24)
470 CALL VCHAR(1,32,40,24)
480 CALL HCHAR(3,3,40,28)
490 CALL HCHAR(22,3,40,28)
500 CALL VCHAR(3,3,40,20)
510 CALL VCHAR(3,30,40,20)
520 CALL HCHAR(5,5,40,24)
530 CALL HCHAR(20,5,40,24)
540 CALL VCHAR(5,5,40,15)
550 CALL VCHAR(5,28,40,15)
560 CALL HCHAR(10,15,40,7)
570 CALL HCHAR(14,15,40,7)
580 CALL HCHAR(11,15,40,2)
590 CALL HCHAR(12,15,40,4)
600 CALL VCHAR(11,21,40,3)
610 CALL VCHAR(15,21,40,5)
620 CALL VCHAR(5,15,40,5)
630 CALL HCHAR(24,16,32)
640 CALL HCHAR(3,16,32)
650 CALL HCHAR(12,5,32)
660 CALL HCHAR(12,28,32)
670 CALL HCHAR(7,15,32)
680 CALL HCHAR(17,21,32)
690 CALL HCHAR(12,20,32,2)
700 CALL HCHAR(18,7,40,5)
710 CALL VCHAR(19,7,40)
720 CALL VCHAR(19,11,40)
740 FOR A=22 TO 25
750 CALL VCHAR(8,A,40,7)
760 NEXT A
770 CALL COLOR(9,2,12)
780 CALL COLOR(11,5,1)
790 CALL COLOR(10,7,1)
800 CALL VCHAR(9,23,120,3)
810 CALL VCHAR(9,24,120,3)
820 REM ......SET TIME 
830 TIME=41
840 TIME=TIME-1
850 IF LEN(STR$(TIME))=1 THEN 860 ELSE 870
860 CALL HCHAR(19,10,32)
870 FOR I=1 TO LEN(STR$(TIME))
880 CALL HCHAR(19,I+8,ASC(SEG$(STR$(TIME),I,1)))
890 NEXT I
900 REM  
910 REM  ...**MAIN LOOP** 
915 RANDOMIZE
920 CALL HCHAR(R,C,112)
930 GOSUB 1150
940 GOSUB 1090
950 GOSUB 1150
960 GOSUB 2090
970 CALL GCHAR(12,21,E)
980 IF E=112 THEN 2390
990 GOSUB 1150
1000 MX=INT(RND*10)+1
1010 IF MX=1 THEN 1120
1020 GOSUB 1150
1030 DC=INT(RND*10)+1
1040 ON DC GOSUB 1730,1800,1870,1940,2010,1940,2010,1940,2010,1730
1050 GOSUB 1150
1060 CALL HCHAR(RR,CC,104)
1070 GOTO 920
1080 REM  ...CORE COLOUR 
1090 COLL=INT(RND*15)+1
1100 CALL COLOR(12,COLL,1)
1110 RETURN
1120 GOSUB 1430
1130 GOTO 920
1140 REM  .......MAN MOVES 
1150 CALL HCHAR(R,C,32)
1160 CALL KEY(0,K,S)
1170 IF K=69 THEN 1180 ELSE 1230
1180 R=R-1
1190 CALL GCHAR(R,C,G)
1200 IF G>32 THEN 1210 ELSE 1220
1210 R=R+1
1220 GOTO 1400
1230 IF K=88 THEN 1240 ELSE 1290
1240 R=R+1
1250 CALL GCHAR(R,C,G)
1260 IF G>32 THEN 1270 ELSE 1280
1270 R=R-1
1280 GOTO 1400
1290 IF K=83 THEN 1300 ELSE 1350
1300 C=C-1
1310 CALL GCHAR(R,C,G)
1320 IF G>32 THEN 1330 ELSE 1340
1330 C=C+1
1340 GOTO 1400
1350 IF K=68 THEN 1360 ELSE 1400
1360 C=C+1
1370 CALL GCHAR(R,C,G)
1380 IF G>32 THEN 1390 ELSE 1400
1390 C=C-1
1400 CALL HCHAR(R,C,112)
1410 RETURN
1420 REM .......ROBOT MOVES 
1430 FOR T=4 TO 29
1440 CALL HCHAR(4,T,104)
1450 CALL GCHAR(4,T+1,GC)
1460 IF GC=112 THEN 2310
1470 CALL HCHAR(4,T,32)
1480 NEXT T
1490 GOSUB 2090
1500 FOR VV=5 TO 21
1510 CALL VCHAR(VV,29,104)
1520 CALL GCHAR(VV+1,29,GC)
1530 IF GC=112 THEN 2310
1540 CALL VCHAR(VV,29,32)
1550 NEXT VV
1560 GOSUB 2090
1570 FOR CO=28 TO 4 STEP -1
1580 CALL HCHAR(21,CO,104)
1590 CALL GCHAR(21,CO+1,GC)
1600 IF GC=112 THEN 2310
1610 CALL HCHAR(21,CO,32)
1620 NEXT CO
1630 GOSUB 2090
1640 FOR VC=20 TO 5 STEP -1
1650 CALL VCHAR(VC,4,104)
1660 CALL GCHAR(VC+1,4,GC)
1670 IF GC=112 THEN 2310
1680 CALL VCHAR(VC,4,32)
1690 NEXT VC
1700 GOSUB 2090
1710 RETURN
1720 REM  .......DOOR CONTROL     
1730 CALL HCHAR(3,16,97)
1740 CALL HCHAR(12,5,32)
1750 CALL HCHAR(12,28,32)
1760 CALL HCHAR(7,15,32)
1770 CALL HCHAR(17,21,32)
1780 CALL SOUND(100,110,10)
1790 RETURN
1800 CALL HCHAR(12,5,97)
1810 CALL HCHAR(12,28,32)
1820 CALL HCHAR(7,15,32)
1830 CALL HCHAR(17,21,32)
1840 CALL HCHAR(3,16,32)
1850 CALL SOUND(100,110,10)
1860 RETURN
1870 CALL HCHAR(12,28,97)
1880 CALL HCHAR(7,15,32)
1890 CALL HCHAR(17,21,32)
1900 CALL HCHAR(3,16,32)
1910 CALL HCHAR(12,5,32)
1920 CALL SOUND(100,110,10)
1930 RETURN
1940 CALL HCHAR(7,15,97)
1950 CALL HCHAR(17,21,32)
1960 CALL HCHAR(3,16,32)
1970 CALL HCHAR(12,5,32)
1980 CALL HCHAR(12,28,32)
1990 CALL SOUND(100,110,10)
2000 RETURN
2010 CALL HCHAR(17,21,97)
2020 CALL HCHAR(3,16,32)
2030 CALL HCHAR(12,5,32)
2040 CALL HCHAR(12,28,32)
2050 CALL HCHAR(7,15,32)
2060 CALL SOUND(100,110,10)
2070 RETURN
2080 REM  ....TIME COUNT  
2090 TIME=TIME-1
2100 IF LEN(STR$(TIME))=1 THEN 2110 ELSE 2120
2110 CALL HCHAR(19,10,32)
2120 FOR I=1 TO LEN(STR$(TIME))
2130 CALL HCHAR(19,I+8,ASC(SEG$(STR$(TIME),I,1)))
2140 IF TIME=0 THEN 2180
2150 NEXT I
2160 CALL SOUND(100,1760,0)
2170 RETURN
2180 REM .....DESTRUCTION 
2190 CALL COLOR(2,14,1)
2200 FOR S=30 TO 0 STEP -1
2210 CALL SOUND(50,110,S)
2220 NEXT S
2230 CALL SOUND(300,110,0)
2240 CALL CLEAR
2250 CALL SCREEN(14)
2260 PRINT "IL REATTORE E` SALTATO"::::::
2270 FOR D=1 TO 2000
2280 NEXT D
2290 GOTO 2460
2300 REM .....CAUGHT BY ROBOT     
2310 CALL HCHAR(R,C,105)
2320 CALL SOUND(300,-1,0)
2330 CALL HCHAR(R,C,32)
2340 FOR DE=1 TO 1000
2350 NEXT DE
2360 CALL CLEAR
2370 PRINT "SEI STATO BATTUTO!"::::::::::
2380 GOTO 2460
2390 FOR V=30 TO 0 STEP -.125
2400 CALL SOUND(50,392,V)
2410 NEXT V
2420 CALL CLEAR
2430 PRINT "FANTASTICO!CE L'HAI FATTA IN":TIME:"SECONDI"
2440 FOR D=1 TO 3000
2450 NEXT D
2460 INPUT "VUOI RICOMINCIARE? ":RS$
2470 IF (RS$="S")+(RS$="s")+(RS$="SI")+(RS$="si")THEN 310
2480 END

 

[Keneg]

I worked on this program.  I have the original, Italian?, version and an English version.  They are very slow in regular BASIC, but work OK in Extended BASIC 2.6.

REACT-IT REACT-EN

[wierd_w]

Suitable candidate for the "Compiler treatment" for the speedup then?

[tmop69]

23 hours ago, wierd_w said:

Suitable candidate for the "Compiler treatment" for the speedup then?

 

Done! ? It's downloadable in this thread: