Computer & Video Games magazine type-in games

sometimes99er · February 1, 2013

Hungarian Square / Hungarian Squares is the same.

Edited February 1, 2013 by sometimes99er

sometimes99er · February 1, 2013

Space Laser / Space Lazer is the same, but the entry in the Gamebase has bugs. Something for someone to look at.

sometimes99er · February 1, 2013

Can't find Target in the Gamebase.

sometimes99er · February 1, 2013

Pompeii / Pompei is the same.

sometimes99er · February 1, 2013

Hungarian Hex is the same.

sometimes99er · February 1, 2013

Defuse is the same.

sometimes99er · February 1, 2013

Skiing / Ski-ing is the same.

sometimes99er · February 1, 2013

Can't find Substrike.

sometimes99er · February 1, 2013

3D Road Race is the same.

sometimes99er · February 1, 2013

Frogger / Frogger (4) in Gamebase is the same (beside being translated into Italian).

sometimes99er · February 1, 2013

Meteor / Meteor (3) in Gamebase is the same.

+Vorticon · February 2, 2013

I'd welcome the idea of splitting them up and a number of us typing them in .

Happy to contribute. These games will be a nice addition to the TI Gameshelf site :-)

Willsy · February 4, 2013

Happy to contribute. These games will be a nice addition to the TI Gameshelf site :-)

Me too. I don't have the time to manage/coordinate the project, but if someone divvies up the listings (after determining what is needed and what we already have - seems Sometimes has made a start already! :thumbsup: ) and allocates them to the team I'll type in the ones allocated to me, like a good little soldier. :grin:

sometimes99er · February 4, 2013

I'll go through them and report back.

Retrospect · February 4, 2013

Have we got a game called "Defuse" ? if not I can type that one in

sometimes99er · February 4, 2013

Have we got a game called "Defuse" ? if not I can type that one in

We got it. See post #31.

sometimes99er · February 4, 2013

Originally I went thru page 3 (index) of the magazines and found the TI-99/4A listings. I’ve then searched the Gamebase for similar names and loosely compared the maybe first 40 lines of code visually. Issue #33 has a TI-99/4A chess game listed, both in the index and on the page, but the source looks ZX Spectrum. Looks like many of the mags are available as PDF on archive.org among others.

C&VG.png

Willsy · February 4, 2013

Okay, I'll start with TANK from issue #26. I'll report back in a few days! Game on! :thumbsup:

Willsy · February 4, 2013

Then I'll port it to Forth!

Ha ha!! Only joking :ahoy:

Retrospect · February 4, 2013

I've just been looking through old CVG scans, and it looks like it died off for the TI99 after 1985, for the listings .....

Yet that bloody Amstrad 464 muscled in on the market and somehow got a foothold. Hate Amstrads.

Retrospect · February 4, 2013

I have found Substrike. I'll do that list and post here.

SUBSTRIKE.zip

Keys are S & D for left/right, and F to fire.

Substrike is copied exactly how it was in C & VG, but contains a slight bug. When the enemy reaches your boat, it produces a BAD VALUE IN 990 error.

Upon checking this out, it appears variable A is -1 (which is not tolerated in this case).... If anyone has the knowledge or the time to fix this bug, then please do so, I've been tearing my hair out over it and have gotten quite upset.

Here's the code in text;

substrike.txt

Edited February 4, 2013 by Retrospect

ti99iuc · February 4, 2013

Guys ... i have about 2000 Floppy disks and 50 cassette tape full of programs and games form differents parts of the world: Canada, France, German, Italy ...but still to check to load..... maybe i could found some these programs on them in future ...

Edited February 4, 2013 by ti99userclub

Willsy · February 4, 2013

TANK

Written by Andrew Lees, age 13.

Published in Computer and Video Games Magazine (C&VG), Issue 26, December 1983.

30 FOR COL=2 TO 12
40 CALL COLOR(COL,COL+1,COL+1)
50 NEXT COL
60 CALL SCREEN(2)
70 CALL CLEAR
80 PRINT "((00 888 h	 H AA A"
90 PRINT "PPXX h h pp	 X pp p"
100 PRINT " xx 1 1 1 1 0 (( ("
110 PRINT " 00 8 8 8 A p AA"
120 PRINT " HH P P H H p X1("
130 PRINT " `` hYFMh A A 0 88 8 "
140 PRINT " xx 1 1 0	 00 (( ("
150 PRINT " 00 8 8 H	 H AA A"
160 PRINT :::::::
170 FOR I=1 TO 500
180 NEXT I
190 CALL CLEAR
200 CALL SCREEN(16)
210 FOR I=1 TO 12
220 CALL COLOR(I,2,1)
230 NEXT I
240 PRINT "WANT INSTRUCTIONS (Y/N)?"
250 CALL KEY(0,K,S)
260 IF K<1 THEN 250
270 IF K=78 THEN 290 ELSE 2420
280 GOTO 250
290 LIFE=3
300 CALL CHAR(54,"FFFF7E7E3C3C1818")
310 CALL CHAR(55,"3C3C3C3C3C3C3C18")
320 DIM P(21)
330 CALL COLOR(9,9,1)
340 DIM R(24)
350 SHOT=1
360 CALL COLOR(8,5,1)
370 CALL COLOR(1,4,4)
380 CALL SCREEN(
390 SCORE=0
400 CALL COLOR(13,7,15)
410 CALL COLOR(15,3,15)
420 CALL COLOR(16,3,15)
430 CALL COLOR(12,15,15)
440 CALL CHAR(120,"FFFFFFFFFFFFFFFFFFFF")
450 CALL COLOR(11,13,15)
460 CALL COLOR(2,2,15)
470 Y=5
480 G=1
490 RANDOMIZE
500 CALL CHAR(113,"000000FF0000000F")
510 CALL CHAR(112,"3C7EFFFFFFFF7FFF")
520 CALL CHAR(145,"0000E0F0F0E080FF")
530 CALL CHAR(146,"FF7F3F1F0F070301")
540 CALL CHAR(152,"FFFFFFFFAA55AAFF")
550 CALL CHAR(153,"FEFFFFFFFEFCF8F0")
560 CALL CHAR(154,"000080")
570 CALL CHAR(101,"18183C3C7E7EFFFF")
580 CALL CHAR(91,"183C3C3C3C3C3C3C")
590 CALL CLEAR
600 CALL CHAR(135,"FFFFFFFFFFFFFFFFF")
610 REM BRIDGE
620 CALL HCHAR(11,1,135,32)
630 CALL VCHAR(12,8,135,4)
640 CALL VCHAR(12,16,135,4)
650 CALL VCHAR(12,24,135,4)
660 CALL VCHAR(12,32,135,4)
670 CALL HCHAR(8,1,45,32)
680 CALL HCHAR(7,1,120,32)
690 CALL HCHAR(6,1,120,32)
700 CALL HCHAR(4,1,120,32)
710 CALL HCHAR(3,1,120,32)
720 CALL HCHAR(9,1,120,32)
730 CALL HCHAR(10,1,120,32)
740 CALL HCHAR(5,1,45,32)
750 CALL HCHAR(2,1,45,32)
760 CALL HCHAR(1,1,135,32)
770 CALL CHAR(137,"7E7E7E7E7E7E7E7E")
780 CALL CHAR(136,"3C3C3C3C3C3C3C3C")
790 CALL CHAR(138,"FFFFFFFFFFFFFFFF")
800 CALL COLOR(14,13,4)
810 GOTO 1700
820 CALL KEY(0,M,S)
830 IF M=69 THEN 890
840 IF M=88 THEN 930
850 IF M=83 THEN 970
860 IF M=68 THEN 1010
870 IF M=32 THEN 1060
880 GOTO 1810
890 G=G+1
900 IF G>3 THEN 910 ELSE 920
910 G=3
920 GOTO 1360
930 G=G-1
940 IF G<1 THEN 950 ELSE 960
950 G=1
960 GOTO 1360
970 Y=Y-1
980 IF Y<1 THEN 990 ELSE 1370
990 Y=3
1000 GOTO 1360
1010 Y=Y+1
1020 IF Y>27 THEN 1030 ELSE 1360
1030 Y=27
1040 GOTO 1360
1050 REM USERS SHOOTING SEQUENCE
1060 IF SHOT=0 THEN 1360
1070 CALL GCHAR(T,Y+2,XX)
1080 FOR I=F TO T STEP -1
1090 CALL GCHAR(I+1,Y+2,R(I))
1100 NEXT I
1110 CALL VCHAR(T,Y+2,101,LE)
1120 CALL VCHAR(T,Y+2,91)
1130 FOR J=F TO T STEP -1
1140 CALL VCHAR(J+1,Y+2,R(J))
1150 NEXT J
1160 CALL SOUND(1,1760,0)
1170 SHOT=SHOT-1
1180 IF XX=112 THEN 1200 ELSE 1330
1190 CALL HCHAR(I+1,Y+2,120)
1200 SCORE=SCORE+20
1210 A$="SCORE="&STR$(SCORE)
1220 CALL COLOR(3,2,1)
1230 FOR I=1 TO LEN(A$)
1240 CALL HCHAR(1,I+2,ASC(SEG$(A$,I,1)))
1250 NEXT I
1260 FOR I=1 TO 16
1270 CALL SCREEN(I)
1280 CALL SOUND(I,110*I,I)
1290 NEXT I
1300 CALL SCREEN(
1310 GOTO 1950
1320 XX=0
1330 CALL SOUND(200,-5,0)
1340 CALL HCHAR(I+1,Y+2,120)
1350 I=0
1360 CALL VCHAR(16,Y+2,32,
1370 CALL VCHAR(21,Y,138,4)
1380 CALL VCHAR(21,Y-1,32,4)
1390 CALL VCHAR(21,Y+4,138,4)
1400 CALL VCHAR(21,Y+5,32,4)
1410 CALL VCHAR(16,Y+1,32,9)
1420 CALL VCHAR(16,Y+3,32,9)
1430 REM USERS MOVING SEQUENVE & RAISING GUN SEQUENCE
1440 ON G GOTO 1450,1530,1610
1450 CALL HCHAR(24,Y+2,138)
1460 F=20
1470 T=9
1480 LE=11
1490 CALL HCHAR(23,Y+2,137)
1500 CALL HCHAR(22,Y+2,136)
1510 IF Y+1=HOR THEN 2070
1520 GOTO 1810
1530 CALL VCHAR(23,Y+2,138,2)
1540 F=17
1550 T=6
1560 LE=11
1570 CALL VCHAR(21,Y+2,137,2)
1580 CALL VCHAR(19,Y+2,136,2)
1590 IF Y+1=HOR THEN 2070
1600 GOTO 1810
1610 CALL VCHAR(22,Y+2,138,3)
1620 LE=11
1630 T=3
1640 F=13
1650 CALL VCHAR(19,Y+2,137,3)
1660 CALL VCHAR(16,Y+2,136,3)
1670 IF Y+1=HOR THEN 2070
1680 GOTO 1810
1690 REM ENEMY LANE SELECTING
1700 K=INT(RND*3)+1
1710 IF K=1 THEN 1740
1720 IF K=2 THEN 1760
1730 IF K=3 THEN 1780
1740 VERT=9
1750 GOTO 1790
1760 VERT=6
1770 GOTO 1790
1780 VERT=3
1790 HOR=29
1800 REM ENEMY MOVING ROUTINE
1810 HOR=HOR-1
1820 IF HOR=2 THEN 1950 ELSE 1840
1830 GOTO 1950
1840 CALL HCHAR(VERT,HOR-1,113)
1850 CALL HCHAR(VERT,HOR,112)
1860 CALL HCHAR(VERT,HOR+1,145)
1870 CALL HCHAR(VERT,HOR+2,120)
1880 CALL HCHAR(VERT+1,HOR-1,146)
1890 CALL HCHAR(VERT+1,HOR,152)
1900 CALL HCHAR(VERT+1,HOR+1,153)
1910 CALL HCHAR(VERT+1,HOR+2,154)
1920 CALL HCHAR(VERT+1,HOR+3,120)
1930 IF Y+1=HOR THEN 2070
1940 GOTO 820
1950 CALL HCHAR(VERT,HOR+1,120)
1960 CALL HCHAR(VERT,HOR+2,120)
1970 CALL HCHAR(VERT,HOR,120)
1980 CALL HCHAR(VERT,HOR-1,120)
1990 CALL HCHAR(VERT+1,HOR+1,120)
2000 CALL HCHAR(VERT+1,HOR+2,120)
2010 CALL HCHAR(VERT+1,HOR+3,120)
2020 CALL HCHAR(VERT+1,HOR,120)
2030 CALL HCHAR(VERT+1,HOR-1,120)
2040 SHOT=1
2050 GOTO 1700
2060 REM ENEMY SHOOTING ROUTINE
2070 CALL HCHAR(VERT+1,HOR-1,120)
2080 CALL CHAR(114,"3C7EFFCFCFFF7FFF")
2090 CALL HCHAR(VERT,Y+1,114)
2100 CALL HCHAR(VERT,Y+2,120)
2110 LE=0
2120 FOR I=VERT+2 TO 21
2130 LE=LE+1
2140 CALL GCHAR(I,Y+2,P(I))
2150 NEXT I
2160 CALL GCHAR(Y+2,21,B)
2170 CALL COLOR(3,10,1)
2180 CALL VCHAR(VERT+2,Y+2,54,LE)
2190 CALL HCHAR(21,Y+2,55)
2200 FOR I=VERT+2 TO 21
2210 CALL HCHAR(I,HOR+1,P(I))
2220 NEXT I
2230 CALL COLOR(3,2,1)
2240 LE=0
2250 LIFE=LIFE-1
2260 FOR I=1 TO 10
2270 CALL SOUND(10*I,110*I,I)
2280 NEXT I
2290 IF LIFE<1 THEN 2310
2300 GOTO 1810
2310 CALL CLEAR
2320 FOR I=1 TO 8
2330 CALL COLOR(I,2,1)
2340 NEXT I
2350 PRINT "FINALLY YOU WERE SHOT BY AN ENEMY TANK YOU SCORED";"";SCORE
2360 PRINT "WANT ANOTHER GAME(Y/N)?"
2370 CALL KEY(0,K,S)
2380 IF K=89 THEN 290
2390 IF K=78 THEN 2410
2400 GOTO 2370
2410 END
2420 CALL CLEAR
2430 PRINT
2440 PRINT "PROG BY ANDREW LEES AGE 13"
2450 PRINT
2460 PRINT "YOU ARE CONTROLLING A TANK THE AIM OF THE GAME IS TO SHOOT THE ENEMY TANKS AND"
2465 PRINT "STOP THEM FROM CROSSING THE BRIDGE."
2470 PRINT "PRESS THE SPACE BAR TO FIRE."
2480 PRINT
2490 PRINT "S MOVES YOU LEFT & D RIGHT E MAKES YOUR GUN LONGER	 THEREFORE LENGTHENING YOUR"
2495 PRINT "RANGE SO THAT YOU CAN HIT THE HIGHER LANES.		 X DOES THE OPPOSITE."
2500 PRINT
2520 PRINT "YOU CAN ONLY FIRE ONE SHELL PER TANK AND YOU HAVE TO HITTHE TURRET."
2525 PRINT "IF YOU MISS THE ENEMY WILL SHOOT."
2530 PRINT "LUCKILY YOU HAVE THREE LIVES"
2540 PRINT
2550 PRINT "PRESS ANY KEY TO BEGIN";
2560 CALL KEY(0,K,S)
2570 IF K>0 THEN 290 ELSE 2560

Attached: TI FILES version for TI BASIC. TANK.zip

Enjoy! ;-)

ti99iuc · February 4, 2013

is not possible use an OCR program for TI program Listing ?

Retrospect · February 4, 2013

Guys ... i have about 2000 Floppy disks and 50 cassette tape full of programs and games form differents parts of the world: Canada, France, German, Italy ...but still to check to load..... maybe i could found some these programs on them in future ...

Have a look and see if you've got Chalice and Castle Conquest amongst them they have been missing for years.

Computer & Video Games magazine type-in games

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members