UKRetrogamer Posted November 2, 2014 Share Posted November 2, 2014 I have a follower on Twitter who is looking for software from UK-based Ti-99 developers Sceptre Software or Gamesware. As I didn't have a Ti-99 back in the day, I'm not familiar with these software houses. Does anyone here know of (or have copies of) any titles from either of these developers or other UK programmers? Quote Link to comment Share on other sites More sharing options...
ti99iuc Posted November 2, 2014 Share Posted November 2, 2014 i checked about them on all my UK cassette Tape but i haven't any from that developers Quote Link to comment Share on other sites More sharing options...
Retrospect Posted November 2, 2014 Share Posted November 2, 2014 I've heard of Sceptre - I owned a TI99 back in the mid 80s and was often on the lookout for software ..... we got it most often mail order from magazines. As far as I know a LOT of these little software houses had something to do, in some way, with Stephen Shaw's "Stainless" publishing company. And right they were if they did ..... for Stephen Shaw recognised the shortage of TI software in the UK at the time and decided to actively do something about it and took on responsibility of distributing games from America AND helping small software houses sell TI games. His site (just google Stephen Shaw TI99 stainless and you will find his site! ) has lots of disk images to download, now these games are all from different authors/companies .... you MIGHT find what you're looking for on there.Lots of the disks are compilations, on these disks are games from UK, FRANCE, GERMANY, and many more countries. They are all mixed in together. Needle in a haystack, but nonetheless lots of fun. Quote Link to comment Share on other sites More sharing options...
am1933 Posted November 2, 2014 Share Posted November 2, 2014 Chances of finding original copies are slim to zero, If the companies advertised anywhere-it would probably have been in Home Computing Weekly(copies are available on archive.org for download), as Retrospect said, if you can't find it on Shaw web, you probably won't find it at all. Quote Link to comment Share on other sites More sharing options...
TI-99er Posted November 2, 2014 Share Posted November 2, 2014 Hi all - thanks to UK Retrogamer for posting this for me. I'm new to all this. I'm the guy that wrote the titles for Sceptre. They were distributed by Gamesware and advertised in many mags at the time including C&VG, HCW etc. The biggest seller was a three-parter called Sloopy's Christmas, there was also a number of games pack compilations as well. Sloopy's Christmas was also ported to the Memotech MTX. I've got a copy of the MTX version but would love to locate a copy for the TI purely for nostalgia. Any help massively appreciated. Best, Gary @Mac_Gaz Quote Link to comment Share on other sites More sharing options...
TI-99er Posted November 2, 2014 Share Posted November 2, 2014 .. 2 Quote Link to comment Share on other sites More sharing options...
UKRetrogamer Posted November 2, 2014 Author Share Posted November 2, 2014 Hi all - thanks to UKRetrogamer for posting this for me. I'm new to all this. No problem. Welcome to the forums. With your Ti-99 history, I'm sure you'll feel at home here. Quote Link to comment Share on other sites More sharing options...
ti99iuc Posted November 2, 2014 Share Posted November 2, 2014 Hi I'm new to all this. Hi Gary !! welcome at home i am a 99er since i was 8yo and still love this computer... Quote Link to comment Share on other sites More sharing options...
UKRetrogamer Posted November 3, 2014 Author Share Posted November 3, 2014 Another advert I've turned up. Sorry it's not very clear, the original file appears to be badly scanned. Titles mentioned include: Sloopy's Christmas Hangover, Capture and Dodge Grid Race Record File, Earth Defend and River Run Musiload 3 Quote Link to comment Share on other sites More sharing options...
TI-99er Posted November 3, 2014 Share Posted November 3, 2014 Yes, most of those are all mine (2 on the left and the one in the middle). Brings back memories does that. Huge thanks. Gary 1 Quote Link to comment Share on other sites More sharing options...
TI-99er Posted May 10, 2015 Share Posted May 10, 2015 Anyone have any luck with "Sloopy's Christmas"? 1 Quote Link to comment Share on other sites More sharing options...
TI-99er Posted December 19, 2021 Share Posted December 19, 2021 Just wondering if anyone had any luck in finding copies of my games? I noticed that a couple had turned up in the compiled section. Can anyone give me some pointers on how to download/view these? cheers Gary 1 Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted December 19, 2021 Share Posted December 19, 2021 On 5/10/2015 at 5:43 PM, TI-99er said: Anyone have any luck with "Sloopy's Christmas"? Hi, this ? Sloopy´s Christmas: Spoiler 70 CALL CLEAR 80 CALL SCREEN(2) 90 FOR C=1 TO 16 100 READ F,B 110 IF C>14 THEN 130 120 CALL COLOR(C,F,B) 130 NEXT C 140 FOR C=32 TO 159 150 READ A$ :: IF C>143 THEN 170 160 CALL CHAR(C,A$) 170 NEXT C 180 FOR V=3 TO 22 190 FOR H=6 TO 28 200 READ A 210 CALL HCHAR(V,H,A) 220 NEXT H 230 NEXT V 240 GOTO 300 250 RESTORE 870 :: CALL KEY(0,K,S):: IF S<>0 THEN 10 300 CT2,CT=0 320 CT=CT+1 340 CT2=CT2+1 360 READ D,F1,F2 380 CALL SOUND(D,F1,0,F2,0) 390 CALL KEY(0,K,S):: IF S<>0 THEN 980 400 IF CT2=72 THEN 250 420 IF CT=3 THEN 300 430 CALL KEY(0,K,S):: IF S<>0 THEN 980 440 GOTO 320 450 DATA 3,2,16,2,16,2,16,2,2,16,9,2,16,3,9,16,16,2,2,16,2,16,2,16,15,3,12,3,10,3,11,11 460 DATA 0,0103070F1F3F7FFF,80C0E0F0F8FCFEFF,FFFFFFFFFFFFFFFF,060606063F7F0000,E7A5C30000C3A5E7 470 DATA E7C3A524A5C3E7E7,0099C3E7E7C39900,FFFFFFFFFFFFFFFF,E0F8FCFFFFFFFFFF,0000000080C0C0E0 480 DATA E0F0F0F8F8FCFCFC,FCFCFCF8F8F0F0F0,FFFBFBFBF7EFDC81,FFFFFF7F7FBFBFDF 490 DATA E0E0C0C08000C0E0,FFFFFFFFFFFF7F00,EFEFF3FCFFFFFF1F,FFFFFC03FFFFFFFF 500 DATA FFFC10E0C0808000,03070F0F0F0F0703,E0C0F8F8F8F0F8FC,0F07030101010000 510 DATA 0000000000071F7F,070F1F3FFFFFFFFF,FEFEFCECC0C08000,FFFFFFFFFFFFF0CF 520 DATA 7FBFBFDFEFC03FFF,FEF0EFDFBF7FFFFC,80C0E0F0F8FCFEFF,FFFEFFFEFCFEF4B0 530 DATA FFFFFFFFFFFFF7F6,0102040810204080,000C1E3E3E3C1800,1C3C7C7C78300000 540 DATA 00000000070F1F1F,0000000080E0F0F8,0F07030000000000,F8F8F8F000000000 550 DATA E0F0F8FCFEFEFFFF,00000000071F3FFF,0000000080FCFEFF,000000010F1F3F7F,00010FFFFFFFFFFF 560 DATA FFFFFFFFFFFFFFFF,7F7F7F7FFFFFFFFF,FFFF7F7F3F1F1F0F,0F07070303010000 570 DATA A050A8542B150B07,050A152AD4A8D0A0,0,0,0,0,0,0,FFFEFCF8F0E0C080,FFFFFFFFFFFB50000,0,0 580 DATA 0000FFFFFFFF0000,0,0,0,10385454546C4400,183C7E566AFF1020,2A1C7F1C2A000000,18187E1818244200 590 DATA 182C564A762C1800,183C427E423C0000,1828180808492A1C,0,FAF0908080C08000,800000C08080F8F9 600 DATA C7838181C1FEFFFF,FFFFFEFEFEFEFCFC,0000000000201F00,000000000003FC00,000000030783874F,F8F8F0F0E0C08088 610 DATA 0000000001010307,3F3F7F7FFFFFFFFF,FF80C1FFFFFFFFFF,1C3EFEFFFFFFFFFF,0004040402010000 620 DATA 0F1F0F0703FF0000,FFFFFFFFFFFF2010,FFFFFFFFFFFF1F0F,FFFEF8E080808080,0000010804040404 630 DATA 0804824121212121,0783412111111111,F6EED6F8D8E6F6FE,5F6F573F374F5F7F,4F0F1F0F0F030300 640 DATA FFFFEBC9F7C9EBFF,183C3C3C7EFFFF18,183C7EFF7E3C1818,00183CFFFF3C1800,0,0,0,0,0,183C3C3C7EFFFF18 650 DATA 183C7EFF7E3C1818,00183CFFFF3C1800,0,0,0,0,0,183C3C3C7EFFFF18,183C7EFF7E3C1818,00183CFFFF3C1800 660 DATA 0,0,0,0,0,FFFFFFFFFFFFFFFF,0,0,0,0,0,0,0 670 DATA 32,32,32,32,32,32,127,32,32,32,32,32,32,32,32,124,125,32,32,127,32,32,32 680 DATA 32,127,32,32,32,32,32,32,32,32,32,127,32,32,32,33,34,32,32,32,32,32,127 690 DATA 32,32,32,32,32,32,32,32,127,32,32,32,32,32,33,80,81,34,32,32,32,32,32 700 DATA 32,32,32,127,32,32,32,32,32,32,32,32,32,33,35,35,35,35,34,32,32,32,32 710 DATA 32,32,32,32,32,32,127,32,32,32,127,32,32,32,33,35,35,34,32,32,32,127,32 720 DATA 32,127,32,32,32,32,32,32,32,32,32,32,32,33,80,81,80,81,34,32,32,32,32 730 DATA 32,32,32,32,32,32,32,32,127,32,32,32,33,35,35,35,35,35,35,34,32,32,32 740 DATA 32,32,72,73,32,32,32,32,32,32,127,32,32,33,35,35,35,35,34,32,32,32,127 750 DATA 74,75,76,88,61,32,32,32,32,32,32,32,33,80,81,80,81,80,81,34,32,32,32 760 DATA 77,76,88,40,64,40,40,41,42,32,32,33,35,35,35,35,35,35,35,35,34,32,32 770 DATA 76,76,40,64,65,66,67,68,43,32,32,32,33,35,35,35,35,35,35,34,32,32,32 780 DATA 78,76,64,40,40,40,69,70,44,32,32,33,80,81,80,81,80,81,80,81,34,32,32 790 DATA 79,89,71,40,46,40,40,45,47,32,33,35,35,35,35,35,35,35,35,35,35,34,32 800 DATA 104,40,126,48,49,50,51,52,53,32,32,33,35,35,35,35,35,35,35,35,34,32,32 810 DATA 105,63,62,32,54,92,55,56,57,32,33,80,81,80,81,80,81,80,81,80,81,34,32 820 DATA 32,32,32,32,32,58,59,60,32,33,35,35,35,35,35,35,35,35,35,35,35,35,34 830 DATA 32,32,32,32,107,108,109,110,32,96,97,98,99,100,101,102,102,101,100,99,98,97,96 840 DATA 32,32,32,32,111,40,112,113,32,32,32,32,32,32,32,35,35,32,32,32,32,32,32 850 DATA 32,32,32,114,115,116,117,118,119,32,32,32,32,32,32,35,35,32,32,32,32,32,32 860 DATA 32,32,32,32,120,40,121,122,123,32,32,32,32,32,32,35,35,32,32,32,32,32,32 870 DATA 300,294,370,300,330,40000,900,220,294,300,330,40000,300,294,370,300,392,40000,1200,330,440 880 DATA 300,330,494,300,554,40000 890 DATA 600,440,587,600,440,554,600,392,494,1200,370,440,300,294,494,300,554,330,600,587,440,600,554,370 900 DATA 600,392,494,600,440,40000,600,294,494,600,392,554,600,370,587,600,370,440,600,330,392 910 DATA 1200,294,370,300,277,370,300,330,40000,900,220,294,300,330,40000,300,294,370,300,392,40000 920 DATA 1200,330,440,300,330,494,300,554,40000,600,440,587,600,554,40000,600,392,494,1200,370,440 930 DATA 300,294,494,300,330,554,600,440,587,600,370,554,600,392,494,600,440,40000,600,392,494 940 DATA 600,392,554,600,370,587,600,440,40000,600,330,392,1200,294,370,300,277,370,300,330,40000 950 DATA 900,220,294,300,330,40000,300,294,370,300,392,40000,1200,277,440,300,370,587,300,554,40000 960 DATA 1200,392,494,600,392,494,1500,370,440,600,370,587,600,370,554,600,392,494 970 DATA 600,370,440,600,494,370,600,392,554,600,370,587,600,440,587,600,330,392,1200,294,370 980 CALL CLEAR :: CALL CHARSET :: CALL SCREEN(10) 990 CALL CHAR(42,"28107C1028") 1000 DISPLAY AT(6,6):"SLOOPY'S CHRISTMAS": : : : : :"***" &RPT$(" ***",6):"* * * * * * * * *":"*** * ** *** * ** **" 1070 DISPLAY AT(15,3):"* * * * * * * *":"*** *** *** * * * * ***": : :RPT$("*",28):"** INSTRUCTIONEN <Y/N>? **":RPT$("*",28) 1120 CALL CHAR(42,"28107C1028"):: CALL KEY(0,K,S):: CALL CHARSET :: IF S=0 THEN 1120 1200 ACCEPT AT(20,25)SIZE(1)VALIDATE("Y","N")BEEP:A$ 1210 IF A$="Y" THEN CALL CHARSET :: CALL I 1220 CALL COLOR(0,2,2):: CALL D(100):: CALL CLEAR 1230 CALL HCHAR(1,1,32,1000) 1240 LI=4 1250 CALL MAGNIFY(3) 1260 CALL CHAR(130,"000000000C5FFFFF",131,"00000000103DFFFF",132,"000000387CFFFFFF",133,"00000040E0FBFFFF",134,"000000049CBFFFFF") 1270 CALL CHAR(135,"0000000001078FFF",136,"00000000C0E7EFFF",137,"00000000387DFFFF") 1280 CALL CHAR(96,"00FF010F11254D7FFF3F907F0000000000FE0080C1E3E3FFFEE040FC00000000") 1290 CALL CHAR(100,"08166180806814030000000000000000609609010142B408" &RPT$("0",16)) 1300 CALL CHAR(104,"03070F0F3F3F20100804020103070707C0E0F0F0FCFC040810204080C0E0E0E0") 1310 CALL CHAR(108,"00000002071F20C0C7271F07020000000000000000C02C1A1F1EEC0000000000") 1320 CALL CHAR(112,"00000000000000070810203F0F0F0F0F00000000000000E0100804FCF0F0F0F0",95,"") 1340 CALL COLOR(8,13,13,14,13,1,13,13,1) 1350 CALL SCREEN(8):: CALL CLEAR :: RANDOMIZE 1360 DEF RN(X)=INT(RND*X)+1 1370 DISPLAY AT(1,3)SIZE(9):"LIVES=";LI :: DISPLAY AT(1,17):"SCORE=";SC 1380 CALL HCHAR(22,1,95,96):: A$=RPT$("ê",32):: FOR T=1 TO LEN(A$):: CALL HCHAR(22,T,ASC(SEG$(A$,T,1))):: NEXT T 1390 FOR A=1 TO 4 1391 CALL SOUND(-1,110*A,0) 1400 CALL SPRITE(#A+1,100,14,(A*10)+20,RN(250),0,-RN(20)+1) 1410 NEXT A 1420 CALL COLOR(#2,2,#4,2) 1430 CALL SPRITE(#26,112,7,157,170,#24,112,7,157,17,#25,112,5,157,70) 1450 FOR A=1 TO 5 1460 CALL SPRITE(#A+6,108,7,A*14+61,RN(250),0,RN(10)) 1461 CALL SOUND(-1,500*A,0) 1470 NEXT A 1480 CALL COLOR(#8,2,#10,2) 1490 CALL SPRITE(#1,96,2,10,100,0,-20) 1500 CALL SOUND(-1,-1,0):: CALL KEY(0,K,S):: IF S<>1 THEN 1500 1510 CALL POSITION(#1,X,Y):: CALL SPRITE(#28,104,16,X+16,Y,10,0) 1520 CALL SOUND(-1,-1,0):: CALL KEY(0,K,S):: CALL COINC(ALL,R):: IF R=-1 THEN 1690 1530 CALL POSITION(#28,J,E):: IF J>182 THEN 1610 1540 IF S=-1 THEN 1520 1550 CALL COINC(ALL,C):: IF C=-1 THEN 1690 1560 IF S=0 THEN CALL MOTION(#28,10,0):: GOTO 1520 1570 IF K<44 OR K>46 THEN 1520 1580 CALL MOTION(#28,10,(K-45)*10):: CALL COINC(ALL,C):: IF C=-1 THEN 1690 ELSE 1520 1590 CALL POSITION(#28,J,F):: IF K>184 THEN 1610 1600 GOTO 1600 1610 CALL SOUND(50,2202,2):: CALL SOUND(-100,1111,2):: CALL DELSPRITE(#28):: SC=SC+10 :: DISPLAY AT(1,17):"SCORE=";SC 1620 GOSUB 1630 :: GOTO 1500 1630 SP=SP+1 1640 IF SC=200 THEN 1810 1650 FOR A=1 TO 5 1660 CALL MOTION(#A+6,0,SP) 1670 NEXT A 1680 RETURN 1690 CALL DELSPRITE(#28):: LI=LI-1 :: DISPLAY AT(1,3)SIZE(9):"LIVES=";LI :: IF LI=0 THEN 1710 ELSE CALL SOUND(50,-5,0):: CALL SOUND(50,-1,0) 1700 GOTO 1500 1710 FOR T=1 TO 28 :: CALL SOUND(-10,111+T,0,112+T,0,113+T,0):: CALL DELSPRITE(#T):: NEXT T 1720 CALL CLEAR 1730 CALL CHARSET 1740 FOR T=1 TO 20 STEP 2 1750 DISPLAY AT(T,10):"GAME OVER" 1760 NEXT T 1770 DISPLAY AT(23,4):"YOUR FINAL SCORE IS";SC 1790 DISPLAY AT(1,3)BEEP:"PRESS ANY KEY TO REPLAY!" 1800 CALL KEY(0,K,S):: IF S<>0 THEN RUN 1230 ELSE CALL SOUND(-1,-1,5):: GOTO 1800 1810 CALL CHARSET :: RANDOMIZE 1820 FOR T=1 TO 28 :: CALL DELSPRITE(#T):: NEXT T 1830 FOR T=400 TO 800 STEP 75 :: CALL SOUND(-50,T+111,5,T+112,5,T+113,5):: NEXT T 1840 DISPLAY AT(8,4)ERASE ALL:"G E S C H A F F T !!!": :" " &RPT$("*",23): :" DEIN SCORE =";SC: : :" ES FOLGT TEIL 2" 1990 RUN "DSK1.SLOOPY/2" 2000 SUB I :: CALL CLEAR 2020 PRINT "BRINGE 20 SLOOPYS, DIE SICH": :"IN BOXEN BEFINDEN UND PER ": :"HUBSCHRAUBER GETRAGEN WERDEN": :"SICHER ZUR ERDE. TASTE =": :"ABSPRUNG. AUF IHREM WEG" 2030 PRINT :"DUERFEN SIE KEIN HINDERNIS": :"BERUEHREN, AUCH NICHT DIE": :"HUETTEN AUF DEM BODEN.": :"STEUERUNG DES FALLSCHIRMS:": :" (<)= LINKS (>)= RECHTS" 2100 CALL KEY(0,K,S):: IF S=0 THEN 2100 2110 SUBEND 2120 SUB D(T):: FOR Q=1 TO T :: NEXT Q :: SUBEND Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted December 19, 2021 Share Posted December 19, 2021 On 5/10/2015 at 5:43 PM, TI-99er said: Anyone have any luck with "Sloopy's Christmas"? And part 2: "ANLEITUNG" sounds german ? Spoiler 10 CALL CLEAR :: CALL SCREEN(2):: RANDOMIZE 40 RANDOMIZE 50 CALL MAGNIFY(2) 60 CALL SPRITE(#1,83,2,25,2,#10,83,2,25,242,#2,67,2,45,2,#11,67,2,45,242) 70 CALL SPRITE(#3,69,2,65,2,#12,69,2,65,242) 120 CALL SPRITE(#4,80,2,85,2,#13,80,2,85,242,#5,84,2,105,2,#14,84,2,105,242,#6,82,2,125,2) 170 CALL SPRITE(#15,82,2,125,242,#7,69,2,145,2,#16,69,2,145,242) 200 CALL COLOR(0,16,16) 210 FOR T=1 TO 25 :: PRINT :: NEXT T 220 DISPLAY AT(1,1):RPT$("=",28) 230 FOR T=2 TO 14 :: CALL COLOR(T,16,1):: NEXT T 250 DISPLAY AT(5,6):"SLOOPY'S CHRISTMAS": :TAB(12);"PART 2" 270 FOR T=2 TO 14 :: CALL COLOR(T,16,1):: NEXT T 290 DISPLAY AT(11,1)BEEP:RPT$("=",28): : : : :" ANLEITUNG (Y/N) ?": : : : : : :RPT$("=",28) 300 FOR T=3 TO 16 :: CALL KEY(0,K,S):: IF S<>0 THEN 320 ELSE CALL COLOR(0,T,T) 310 NEXT T :: GOTO 300 320 IF K=ASC("Y")THEN CALL I 450 FOR T=1 TO 24 :: S=INT(RND*13)+2 :: CALL COLOR(#S,S):: N=110+(T+T)*2 :: CALL SOUND(-100,N,1,N+1,1):: PRINT :: NEXT T 460 FOR T=1 TO 30 :: CALL SOUND(-200,-1,T):: CALL SOUND(-200,-5,T):: NEXT T 470 CALL COLOR(0,7,7) 480 FOR T=1 TO 16 :: CALL COLOR(#T,16):: CALL SOUND(-1,-1,0):: NEXT T 490 FOR T=1 TO 16 :: CALL COLOR(#T,2):: CALL SOUND(-1,-5,0):: NEXT T 500 FOR T=1 TO 16 :: CALL DELSPRITE(#T):: CALL SOUND(-100,-1,0):: CALL SOUND(-100,-5,0):: NEXT T 510 FOR T=1 TO 30 :: CALL SOUND(-100,1000,T):: NEXT T 520 CALL CHARSET 530 CALL SCREEN(12) 540 CALL COLOR(0,1,1) 570 DISPLAY AT(1,1):RPT$("=",28): :" SLOOPY'S CHRISTMAS PART 2.": :RPT$("=",28): : : : :"GIB SLOOPY'S SCHUBKRAFT EIN": :" SN500": :" SN 500": :" CONTROL SN" 610 ACCEPT AT(18,5)BEEP:A$ 620 IF A$="SN 500" OR A$="ôÄ" OR A$="CONTROL SN" OR A$="SN500" THEN 650 ELSE 610 630 CALL SCREEN(8) 640 CALL COLOR(0,1,1) 650 FOR T=1 TO 25 :: DISPLAY AT(T,1):: NEXT T 660 CALL MAGNIFY(3) 670 LI,SC=0 680 DISPLAY AT(1,1)SIZE(12):"SCORE=";SC :: DISPLAY AT(1,15):"CRASHES=";LI 690 CALL CHAR(96,"40201008040200FF00020408102040008182848890A080FF80A0908884828100") 700 CALL CHAR(100,"1C0F0703C1EF7F7F3F0F03070F1E38000000C0DEFAFEFFFCF0E0C0C080000000") 710 CALL CHAR(104,"80C0FFFFFF3F78" &RPT$("0",22)&"FCFEFE8" &RPT$("0",16)) 720 CALL CHAR(108,"030F3F7F7FFFFFFF402010090701020280E0F8FCFCFEFEFE04081020C0008080") 730 CALL CHAR(112,"00FF010F11254D7FFF3F907F0000000000FE0080C1E3E3FFFEE040FC00000000") 740 CALL SPRITE(#1,96,2,128,96) 750 CALL SPRITE(#2,100,5,RND*100,RND*100,RND*35,RND*35) 760 CALL SPRITE(#3,104,7,RND*60,RND*60,RND*35,RND*35,#4,108,7,RND*60,RND*60,RND*35,RND*35) 770 CALL SPRITE(#5,112,2,RND*100,RND*200,RND*35,-RND*35) 780 CALL MOTION(#2,RND*35,RND*35,#3,RND*35,RND*35,#4,RND*35,RND*35,#5,RND*35,-RND*35) 800 CALL COINC(#1,#3,8,A):: CALL COINC(#1,#4,8,A1):: CALL COINC(#1,#5,8,A2):: IF A<>0 OR A1<>0 OR A2<>0 THEN 880 810 CALL COINC(#1,#2,10,C):: IF C<>0 THEN 940 820 CALL KEY(0,K,S):: IF S=0 THEN 800 830 IF K=ASC("E")THEN CALL MOTION(#1,-20,0):: GOTO 820 840 IF K=ASC("X")THEN CALL MOTION(#1,20,0):: GOTO 820 850 IF K=ASC("D")THEN CALL MOTION(#1,0,20):: GOTO 820 860 IF K=ASC("S")THEN CALL MOTION(#1,0,-20):: GOTO 820 870 GOTO 800 880 CALL MOTION(#1,0,0,#2,0,0,#3,0,0,#4,0,0,#5,0,0) 890 FOR T=30 TO 1 STEP -1 :: CALL SOUND(-100,-1,T):: CALL SOUND(-100,-5,T):: NEXT T 900 LI=LI+1 :: IF LI>2 THEN 1120 910 DISPLAY AT(1,15):"CRASHES=";LI 920 GOTO 780 940 CALL MOTION(#1,0,0,#2,0,0,#3,0,0,#4,0,0,#5,0,0) 950 SC=SC+10 :: IF SC>100 THEN 1000 960 FOR T=1 TO 30 STEP 2 :: CALL SOUND(-100,3333,T):: NEXT T 970 DISPLAY AT(1,1)SIZE(12):"SCORE=";SC 980 GOTO 780 1000 CALL CLEAR :: FOR T=1 TO 5 :: FOR Y=1 TO 30 STEP 2 :: CALL SOUND(-100,-5,Y):: NEXT Y :: CALL DELSPRITE(#T):: NEXT T 1010 DISPLAY AT(10,6):"G A M E O V E R !" 1020 FOR T=1 TO 30 :: CALL SOUND(-100,1000+T,T):: NEXT T :: FOR T=30 TO 1 STEP -1 :: CALL SOUND(-100,1000+T,T):: NEXT T 1030 FOR T=1 TO 20 :: PRINT :: CALL SOUND(-100,T*T+110,0,(T*T+110)+1,0):: NEXT T 1040 PRINT "WELL DONE";TAB(26);"YOU":"HAVE COMPLETED THE SECOND LEVEL OF SLOOPY'S CHRISTMAS" 1050 PRINT : :"I WILL NOW GIVE YOU THE":"PASSWORD TO LOAD THE GRAND FINAL PROGRAM" 1060 FOR T=1 TO 2000 :: NEXT T :: FOR T=1 TO 28 :: PRINT :: NEXT T :: PRINT "THE PASSWORD IS" :: PRINT :: FOR T=1 TO 1000 :: NEXT T 1070 PRINT "CHARLIE BROWN" 1080 FOR T=1 TO 28 :: R=INT(RND*100)+1 :: C=INT(RND*100)+1 :: CALL SPRITE(#T,42,16,R,C,R,C):: NEXT T :: CALL MAGNIFY(2):: CALL SCREEN(7) 1100 RUN "DSK1.SLOOPY" 1110 GOTO 1110 1120 CALL CLEAR :: CALL DELSPRITE(ALL) 1140 FOR T=1 TO 1000 :: NEXT T :: CALL SCREEN(7) 1150 DISPLAY AT(1,1):"HARD LUCK": :"YOU MANAGED TO CATCH";SC/10: :"TURKEYS.": :"I'M SORRY TO SAY THAT I'TS" 1190 DISPLAY AT(9,1):"NOT ENOUGH FOR SLOOPY'S": :"CHRISTMAS DINNER PARTY": :"YOU WILL HAVE TO TRY AGAIN !" 1230 CALL KEY(0,K,S) 1240 CALL SOUND(-1,-1,0):: IF S=0 THEN 1230 ELSE RUN 1250 GOTO 1250 1270 SUB I 1280 CALL CLEAR 1290 PRINT : : : :"FANGE SLOOPY 10 PUTEN FUER": : :"WEIHNACHTEN, INDEM DU EIN": : :"FLUGZEUG (KREUZ) PER PFEIL-": : :"TASTEN DIREKT AUF EINE PUTE": : :"LENKST OHNE ANDERE GEGEN-" 1300 PRINT : :"STAENDE ZU BERUEHREN, DA": : :"DIESES DEIN TOD WAERE." 1340 CALL COLOR(0,(RND*14)+2,(RND*14+2)):: CALL KEY(0,K,S):: IF S=0 THEN 1340 1350 SUBEND Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted December 19, 2021 Share Posted December 19, 2021 (edited) There are some errors in the code, I think this is due to the scan, whenever this happened. imho, transmitting code errors while digitizing from old scans in the chain is regular, yes likely. xXx PS: Easily found with @kl99 ´s tool Web99 ? Edited December 19, 2021 by Schmitzi Quote Link to comment Share on other sites More sharing options...
TI-99er Posted December 19, 2021 Share Posted December 19, 2021 Looks like there has been a few changes made over the years. Original text was all English. it brings back some great memories. Much appreciated. I only wish I could run it up. Gary 1 Quote Link to comment Share on other sites More sharing options...
ti99iuc Posted December 19, 2021 Share Posted December 19, 2021 (edited) 6 hours ago, TI-99er said: Just wondering if anyone had any luck in finding copies of my games? I noticed that a couple had turned up in the compiled section. Can anyone give me some pointers on how to download/view these? Hello Gary! I haven't found any of the original copies on cassette tape but the games that also have been compiled by @tmop69 were part of my dumps. I also remember something I sent in attachment to your direct email when we exchanged a few messages in 2018. anyway you can find some of your games here: (the .ZIP that you can find scrolling down the page will include: .dsk - FIAD - .Wav and the .BIN if it has been compiled) Adventure Page Hangover Page Miss Muffet Page Earth Invade Page Of course, if you will be able to fix the Sloopy's Christmas as it was in the original English version, I will be happy to add it too Edited December 19, 2021 by ti99iuc 2 Quote Link to comment Share on other sites More sharing options...
TI-99er Posted December 20, 2021 Share Posted December 20, 2021 Wow. Huge thanks for sending me those links. I think I’ll have to dig out the old 99 and fire it up. Happy Christmas and Best Regards Gary 2 Quote Link to comment Share on other sites More sharing options...
Like us on Facebook
Follow us on Twitter
AtariAge on Instagram
Watch us on YouTube
Chat on Discord
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.