Help with illegible 30 year old program listing

[wyerd]

I bought my TI-99/4A back in 1982 and one of the first programs I wrote was a Skiing program in BASIC which was published in one of the many computer mags at the time called Computer & Video Games. It wasn't very good and the coding was awful, but I thought it was fantastic at the time! You can see it here at Archive.org http://archive.org/s...ge/n37/mode/2up . Recently, I've got back into my old retro computers and have now re-acquainted myself with a ZX81+16K RAM Pack, 48K Spectrum, Memotech MTX500 and an Atari STE (4Meg). I'm still waiting to find a decent 99 to come up on eBay but not for silly money. While I wait, I've installed the Classic99 emulator on my PC and I'd thought that I'll enter my brilliant Skiing program. The trouble is, the graphic designer didn't do a very good job with his choice of colour for the listing as it merges into the background picture in the top right of the page. I've run it through Gimp and fiddled with the colours & brightness etc. but there are still bits I can't make out. I'd really appreciate it if some kind soul could see if they could enhance the listing to make it legible so I can see my program running again.

 

Many thanks.

Dave.

 

 

[S1500]

OT: Wow, archive.org again delivers. It's fun to go through the video game & computer magazine archives. Forget the other sites!

[Hakogame 箱亀]

I think the source file is too low quality. Anyway, here's the best I could do:

 

[+Lee Stewart]

Wow! That's really too bad they chose that color over such a background. I tried to enhance it to little avail.

 

...lee

[Retrospect]

There's a topic about Computer & Video Games type-ins on this forum somewhere buried in the depths of time, I'm not sure if anyone ever managed to type that particular one out .... but I do recall it myself, attempting to type it in and giving up because the idiot chose not to use a black ink on the text.

 

I've just had a go at the image myself in GIMP, I tried allsorts to enhance it , invert it, and whatever I did was no good.

Edited August 16, 2013 by Retrospect

[sometimes99er]

http://atariage.com/...e-type-in-games

 

 

 

 

Edited August 16, 2013 by sometimes99er

[wyerd]

That's it sometimes99er!!!!!!!

 

Thanks for the amazing find and thanks to the other guys for trying to enhance the listing.

 

I'll see if I can now load the Gamebase version into the emulator and bring back the old memories of 1983.

 

Thanks again!!!!

 

PS I also wrote a Frogger game called Leapfrog in XB, which I sold a few copies of. Have a look for Saturn Software in CVG issue 24 in the classified section. Unfortunately, I no longer have a listing for that either.

[Retrospect]

That's it sometimes99er!!!!!!!

 

Thanks for the amazing find and thanks to the other guys for trying to enhance the listing.

 

I'll see if I can now load the Gamebase version into the emulator and bring back the old memories of 1983.

 

Thanks again!!!!

 

PS I also wrote a Frogger game called Leapfrog in XB, which I sold a few copies of. Have a look for Saturn Software in CVG issue 24 in the classified section. Unfortunately, I no longer have a listing for that either.

 

Hey .... you might be the man I need to ask ; I had some cassette software for my TI-99 back in 1985 .... the games had been mail order from magazine adverts .... have heard of the following games ; Chalice .... Castle Conquest (or Conquerer) ....... Dodger ...... Alpine Quest (text adventure) ...... I would LOVE to know if anyone else knew of these games ......

[sometimes99er]

I'll see if I can now load the Gamebase version into the emulator and bring back the old memories of 1983.

 

Unzip attached file from post #6. Place file in DSK1 folder of Classic99. Start XB. Type OLD DSK1.SKIING and press Enter. Then of course type RUN and hit Enter.

 

PS I also wrote a Frogger game called Leapfrog in XB, which I sold a few copies of. Have a look for Saturn Software in CVG issue 24 in the classified section. Unfortunately, I no longer have a listing for that either.

 

 

The Leapfrog in the Gamebase looks like this

 

 

[wyerd]

No, that's not my Leapfog game unfortunately. Thanks for looking.

 

I haven't heard of those games Retrospect, but it was a long time ago.........

 

I've managed to recover the Skiing listing by modifying the one on Gamebase to reflect the original code in CVG (after correcting THEIR typos), apart from the illegible section which is the winning routine.

 

 

Here's the code:-

 

100 CALL CLEAR
110 GOTO 940
120 CALL CLEAR
130 CALL SCREEN(5)
140 CALL COLOR(1,3,16)
150 P=3
160 RESTORE
170 CALL CHAR(104,"0C0C191E180809FE")
180 CALL CHAR(112,"101038387C7CFE10")
190 CALL CHAR(120,"0C3C7C3C0C040404")
200 CALL CHAR(128,"383810FEBABA286C")
210 CALL CHAR(129,"38BA92FE3838286C")
220 CALL CHAR(105,"30309878181090FF")
230 CALL COLOR(11,3,16)
240 CALL VCHAR(1,1,112,22)
250 CALL VCHAR(1,32,112,22)
260 CALL HCHAR(1,1,112,32)
270 CALL HCHAR(22,1,112,32)
280 FOR N=0 TO 41
290 READ A,B,C
300 FOR M=A TO B
310 CALL HCHAR(C+1,M+1,112)
320 NEXT M
330 NEXT N
340 CALL COLOR(12,9,16)
350 FOR N=0 TO 31
360 READ A,B
370 CALL HCHAR(A+1,B+1,120)
380 NEXT N
390 CALL COLOR(5,2,16)
400 CALL HCHAR(5,6,32)
410 CALL HCHAR(6,4,32)
420 FOR N=5 TO 7
430 CALL COLOR(N,2,16)
440 NEXT N
450 CALL HCHAR(2,2,83)
460 CALL HCHAR(3,2,84)
470 CALL HCHAR(4,2,65)
480 CALL HCHAR(5,2,82)
490 CALL HCHAR(6,2,84)
500 CALL HCHAR(16,31,70)
510 CALL HCHAR(17,31,73)
520 CALL HCHAR(18,31,78)
530 CALL HCHAR(19,31,73)
540 CALL HCHAR(20,31,83)
550 CALL HCHAR(21,31,72)
560 E=104
570 X=3
580 Y=3
590 A=0
600 B=0
610 CALL KEY(0,K,S)
620 IF K=83 THEN 800
630 IF K=68 THEN 840
640 IF K=88 THEN 880
650 IF K=69 THEN 910
660 X=X+A
670 Y=Y+B
680 CALL COLOR(10,2,16)
690 CALL COLOR(13,2,16)
700 CALL GCHAR(X,Y,C)
710 IF C=112 THEN 1760
720 IF C=120 THEN 2030
730 IF (C=70)+(C=72)+(C=78)+(C=83)+(C=73)THEN 1470
740 CALL HCHAR(X,Y,E)
750 CALL SOUND(200,-5,9)
760 CALL HCHAR(X,Y,32)
770 CALL HCHAR(22,9,128,21)
780 CALL HCHAR(22,9,129,21)
790 GOTO 610
800 B=-1
810 A=0
820 E=105
830 GOTO 630
840 B=1
850 A=0
860 E=104
870 GOTO 640
880 B=0
890 A=1
900 GOTO 650
910 B=0
920 A=-1
930 GOTO 660
940 CALL SCREEN(5)
950 FOR N=1 TO 9
960 CALL COLOR(N,5,16)
970 NEXT N
980 CALL CHAR(35,"3C4299A1A199423C")
990 CALL CLEAR
1000 K$="99'ER SKIING BY"
1010 Z=2
1020 GOSUB 1350
1030 K$="# DAVID KIMBERLIN-WYER."
1040 Z=4
1050 GOSUB 1350
1060 K$="WELCOME TO SKIING.MAKE YOUR"
1070 Z=6
1080 GOSUB 1350
1090 K$="WAY DOWN THE COURSE USING THE"
1100 Z=8
1110 GOSUB 1350
1120 K$="CURSOR KEYS TO DODGE THE FLAGS"
1130 Z=10
1140 GOSUB 1350
1150 K$="AND FOREST TO REACH THE FINISH"
1160 Z=12
1170 GOSUB 1350
1180 K$="AND A COLOURFUL CELEBRATION."
1190 Z=14
1200 GOSUB 1350
1210 K$="BUT BE WARNED YOU ONLY"
1220 Z=17
1230 GOSUB 1350
1240 K$="HAVE 3 LIVES."
1250 Z=19
1260 GOSUB 1350
1270 FOR M=262 TO 312 STEP 8
1280 CALL SOUND(100,M,0)
1290 CALL SOUND(100,M-60,0)
1300 NEXT M
1310 FOR M=1 TO 600
1320 NEXT M
1330 CALL CLEAR
1340 GOTO 120
1350 V=16-INT(LEN(K$)/2)
1360 FOR I=1 TO LEN(K$)
1370 CD=ASC(SEG$(K$,I,1))
1380 CALL HCHAR(Z,V+I,CD)
1390 NEXT I
1400 RETURN
1410 DATA 5,30,1,6,8,2,13,30,2,25,30,3,28,30,4,27,30,5,1,3,6,9,10,6,22,22,6,29,30,6,1,23,7
1420 DATA 30,30,7,1,7,8,12,23,8,30,30,8,1,6,9,17,22,9,1,4,9,30,30,9,1,1,10,30,30,10,1,1,11,29
1430 DATA 30,11,1,1,12,10,11,12,29,30,12,1,1,13,9,14,13,22,30,13,1,1,14,5,15,14,21,30,14,1,1
1440 DATA 14,1,1,15,5,30,15,1,1,16,6,30,16,1,1,17,1,1,18,19,24,18,1,6,19,1,30,20
1450 DATA 3,8,3,5,5,5,5,8,2,11,4,11,4,17,6,17,3,22,5,22,7,24,7,28,9,28,9,25,12,23,10,23,11,19
1460 DATA 13,19,10,15,12,15,8,10,10,10,10,7,12,7,13,2,13,4,16,4,16,2,17,9,19,9,19,12,17,12
1470 FOR N=110 TO 210 STEP 8
1480 CALL SCREEN(INT(RND*15)+1)
1490 CALL COLOR(11,3,16)
1500 CALL COLOR(10,2,16)
1510 CALL COLOR(13,2,16)
1520 CALL SOUND(100,N,0)
1530 CALL SOUND(100,N+5,0)
1540 NEXT N
1550 CALL CLEAR
1560 CALL COLOR(1,12,9)
1570 CALL CHAR(33,"FFFFFFFFFFFFFFFF")
1580 FOR X=8 TO 14
1590 CALL HCHAR(X,9,33)
1600 CALL HCHAR(X,25,33)
1610 NEXT X
1620 CALL HCHAR(8,9,33,16)
1630 CALL HCHAR(14,9,33,16)
1640 FOR N=4 TO 9
1650 CALL COLOR(N,2,9)
1660 NEXT N
1670 K$="WE HAVE"
1680 Z=9
1690 GOSUB 1350
1700 K$="A WINNER"
1710 Z=11
1720 GOSUB 1350
1730 INPUT "DO YOU WANT TO PLAY AGAIN":T$
1740 IF T$="Y" THEN 120
1750 STOP
1760 CALL HCHAR(X,Y,E)
1770 FOR N=170 TO 220 STEP 8
1780 CALL SOUND(100,N,0)
1790 CALL SOUND(100,N-60,0)
1800 NEXT N
1810 FOR N=5 TO 9
1820 CALL COLOR(N,2,16)
1830 NEXT N
1840 K$="BAD LUCK YOU HIT A TREE"
1850 Z=24
1860 GOSUB 1350
1870 FOR M=110 TO 155 STEP 8
1880 CALL SOUND(100,M,0)
1890 NEXT M
1900 CALL HCHAR(24,1,32,32)
1910 K$="LOOSE ANOTHER LIFE"
1920 Z=24
1930 GOSUB 1350
1940 FOR N=110 TO 210 STEP 8
1950 CALL SOUND(100,N,0)
1960 NEXT N
1970 CALL HCHAR(24,1,32,32)
1980 P=P-1
1990 IF P=0 THEN 2290
2000 E=104
2010 CALL HCHAR(X,Y,112)
2020 GOTO 570
2030 CALL HCHAR(X,Y,E)
2040 FOR N=250 TO 110 STEP -8
2050 CALL SOUND(100,N,0)
2060 NEXT N
2070 FOR N=5 TO 9
2080 CALL COLOR(N,2,16)
2090 NEXT N
2100 K$="HA HA HA YOU HIT A FLAG"
2110 Z=24
2120 GOSUB 1350
2130 FOR N=262 TO 110 STEP -8
2140 CALL SOUND(100,N,0)
2150 NEXT N
2160 CALL HCHAR(24,1,32,32)
2170 K$="LOOSE ANOTHER LIFE"
2180 Z=24
2190 GOSUB 1350
2200 FOR N=196 TO 230 STEP 8
2210 CALL SOUND(100,N,0)
2220 NEXT N
2230 CALL HCHAR(24,1,32,32)
2240 P=P-1
2250 IF P=0 THEN 2290
2260 CALL HCHAR(X,Y,120)
2270 E=104
2280 GOTO 570
2290 CALL CLEAR
2300 CALL SCREEN(2)
2310 CALL COLOR(1,16,16)
2320 FOR N=5 TO 9
2330 CALL COLOR(N,9,16)
2340 NEXT N
2350 K$="GUESS YOU RAN"
2360 Z=10
2370 GOSUB 1350
2380 K$="OUT OF LIVES"
2390 Z=12
2400 GOSUB 1350
2410 INPUT "DO YOU WANT TO PLAY AGAIN ":T$
2420 IF T$="Y" THEN 100
2430 END

 

I've also attached the file. I'm not able to attach files, so I've saved it here http://www.wyerd.co.uk/ti/skiing.zip

 

Thanks again for all your help.

[+Lee Stewart]

...

I'm not able to attach files, ...

 

You should be able to attach ZIP files with no problem. This board only allows a few extensions, like PDF, TXT (I think), several graphics extensions and ZIP.

 

For your reply, you should first choose the "More Reply Options" button below the reply box and to the right. You will then see a "Choose Files..." option just below the reply box and to the left.

 

...lee

[wyerd]

For your reply, you should first choose the "More Reply Options" button below the reply box and to the right. You will then see a "Choose Files..." option just below the reply box and to the left.

Got it. Thanks.

SKIING.zip