Retrospect

I didn't think BASIC on a TI would be able to do the raster crt bars! ... cuz it uses CALLS which , I recently read, are one of the reasons for slowspeed. I did this trick on a Spectrum though.

XXB is a strange one! .... I entered this program 1 CALL CLEAR 2 A$="JOE MORRIS" 3 X=1 4 CALL LINK("DSPLY",X,X,A$) 5 FOR DE=1 TO 100 :: NEXT DE 6 X=X+1 7 GOTO 4 Now, for the 1st 3 lines it did not progress across the screen diagonally, only down ... THEN it went diagonally ... the intention of mine was for it to throw an error once it reached a value that the screen would not permit (ie, over 24) ... but it did not! It just carried on and did some weird stuff with the screen instead.

There are a few people discussing the TI on other parts of Atariage, away from the TI forum itself. I'd say you are right with that figure, Omega.

I think Car Wars runs so fast (in GPL) because, the sprites are using auto-motion (is that a command in GPL?) ... and it only has to look at positions, locations of the sprites to turn them either of four ways. I'm guessing you could set the automotion to 32 or 48 and it would still catch nicely. I like the game too.

Thanks again Lee, yeah , I would like to see if there's any routines for faster random number generating (can we exceed a value of 32767 in that case?) .... and routines to store values and display them on screen ... are there any rapid colour-changing routines, that sort of thing. I've never really delved into the Mini Memory and it's been sitting there on Classic99 all this time. I wonder if anyone ever asked about the battery being emulated. As a side-note, that sort of deep emulation is evident in the EightyOne sinclair emulator, they gave it "Ram-Pack Wobble". Anyhoo, if there are any handy little routines I can use for a game I might write one with a little spare time on my hands should i get more.

It's nothing more than a pure nostalgia trip to type old cs1 and have it load a tape ... Being British, that appeals in a retro way to me because believe me not many of us tight-fisted Brits paid out for a disk drive or 32k ram ... It was tapes or carts. It's a silly notion really in the broad sense, it's gonna load a game whether we type run dsk1.whatever or old cs1

It would be fantastic if someone with knowledge of the dialect could perhaps put some quick examples in this thread? .... I could search for books if not I suppose

Does anyone have any routines / code they would like to share, as to give examples of what we can do with Mini Memory in TI Basic? For example, there are probably some nice PRINT AT routines maybe? Thanks in advance.

Sweet! Cheers Lee.

It would be SO nice if JS99er could use a WAV as a cassette for loading with OLD CS1 or RUN "CS1" command, and actually produce the sound of the cassette too. Or to use SAVE CS1 and have it spit out a WAV to the downloads folder maybe? That said - if you don't wanna do it, fair enough - its already an awesome emulator

If it DID go back to a single forum, might I make a suggestion that I think could help us - a better search function, that pics up a word associated with a topic title rather than any word used in all topics ... like if I typed into the search bar; "Parsec" .... it would only look for topic titles with that word, then we can find stuff much faster.

Yeah I'm always going between the two. I think it might end up a single forum again anyhow. At the end of the day this forum is all about the TI whether that be the hardware guru's or the software guru's

"Chase" by Vince Apps 100 REM 110 REM CHASE BY VINCE APPS 120 REM 130 CALL CLEAR 150 CALL CHAR(130,"3844386CAA3844C6") 160 CALL COLOR(13,7,1) 170 CALL CHAR(140,"387CBAFE82FE3838") 180 CALL COLOR(14,3,1) 190 R=23 200 RO=23 210 C=16 220 CO=16 230 CALL HCHAR(R,C,130) 240 MR=2 250 MRO=2 260 MC=16 270 MCO=16 280 GOTO 700 290 REM MOVE MAN 300 CALL KEY(0,K,S) 310 IF K<>69 THEN 330 320 R=R-1 330 IF K<>88 THEN 350 340 R=R+1 350 IF K<>68 THEN 370 360 C=C+1 370 IF K<>83 THEN 390 380 C=C-1 390 IF (R=RO)*(C=CO) THEN 490 400 IF (R<2)+(R>23)+(C>31)+(C<3) THEN 410 ELSE 440 410 R=RO 420 C=CO 430 GOTO 490 440 CALL SOUND(100,330,2) 450 CALL HCHAR(RO,CO,32) 460 CALL HCHAR(R,C,130) 470 RO=R 480 CO=C 490 RETURN 500 REM MOVE MONSTER 510 IF MR>=R THEN 530 520 MR=MR+1 530 IF MR<=R THEN 550 540 MR=MR-1 550 IF MC>=C THEN 570 560 MC=MC+1 570 IF MC<=C THEN 590 580 MC=MC-1 590 CALL SOUND(100,220,2) 600 CALL HCHAR(MRO,MCO,32) 610 CALL HCHAR(MR,MC,140) 620 IF (MR=R)*(MC=C) THEN 660 630 MRO=MR 640 MCO=MC 650 RETURN 660 CALL SOUND(200,200,2) 670 PRINT " CAUGHT YOU!":::: 680 END 690 REM MAIN LOOP 700 GOSUB 300 710 GOSUB 510 720 CALL CHAR(130,"3844386CAA38286C") 730 GOSUB 300 740 CALL CHAR(130,"3844386CAA3844C6") 750 CALL CHAR(140,"387CBAFEFEFE3838") 760 GOSUB 300 770 GOSUB 510 780 CALL CHAR(140,"387CBAFE82FE3838") 790 GOTO 700

Jesus this is an old one of mine. It's actually quite badly written but is a good one. Thanks anyhow - for the instructions, that's really great.

Well I did yes .... had it been anything other than a TI 99 I wouldn't have. Damn that video. It really wound me up. How can you not get wound up by that?

you mean there's another one? ffs! well I won't stress too much but I just wish for every TI smashed it would have been a mattel aquarious instead.

He replied to my comment to him with "Angry Manchild" Hmph! I suppose I am just that!

Thanks to Craig Miller for the main code on this "follow" program .... it needs Extended Basic 10 CALL CHAR(77,"3C7EDBDBFFDB663C"):: CALL CHAR(71,"3C7EDBDBFFDB663C") 20 FOR L=1 TO 14 :: CALL COLOR(L,16,2):: NEXT L 30 CALL CLEAR :: CALL SCREEN(2):: CALL MAGNIFY(2):: CALL SPRITE(#1,77,16,100,100,#2,71,12,30,30) 40 CALL JOYST(1,X,Y):: CALL MOTION(#1,4*-Y,4*X):: CALL POSITION(#2,R,C,#1,Y,X):: CALL MOTION(#2,(Y-R)*.25,(X-C)*.25) 50 DISPLAY AT(24,1):" " :: CALL COINC(ALL,A) 60 IF A=-1 THEN DISPLAY AT(24,1):"HELLO FRIEND!" :: GOTO 40 70 GOTO 40

Thanks Rasmus

1 REM ELECTRON 2 REM © 2016 RETROSPECT 3 REM 4 REM TI BASIC 5 REM 7 CALL COLOR(10,5,16) 8 CALL COLOR(11,16,5) 9 CALL COLOR(12,16,5) 10 CALL COLOR(13,4,5) 12 CALL SCREEN(4) 15 HISCORE=0 20 CALL CLEAR 21 PRINT " ~~~~ ELECTRON ~~~~": : : : :" © 2016 RETROSPECT": : : : : 22 FOR V=30 TO 0 STEP-2 23 CALL SOUND(256,-6,V) 24 NEXT V 25 CALL CLEAR 26 SCORE=0 30 CALL CHAR(104,"007E7E7E7E7E7E00") 40 CALL CHAR(112,"E7E7C3A566DBDB99") 50 CALL CHAR(120,"003C5A66665A3C00") 55 CALL CHAR(128,"00183C7E7E3C1800") 60 RANDOMIZE 110 CALL HCHAR(1,1,104,768) 111 FOR L=1 TO 20 112 C1=INT(24*RND)+1 113 C2=INT(32*RND)+1 114 CALL GCHAR(C1,C2,CH) 115 IF CH=104 THEN 116 ELSE 112 116 CALL HCHAR(C1,C2,128) 117 NEXT L 120 X=INT(24*RND)+1 130 Y=INT(32*RND)+1 131 CALL GCHAR(X,Y,CH) 132 IF CH=104 THEN 133 ELSE 120 133 FOR L=1 TO 8 134 CALL HCHAR(X,Y,104) 135 CALL HCHAR(X,Y,112) 136 CALL SOUND(16,220,0) 137 NEXT L 140 CALL HCHAR(X,Y,112) 145 CALL KEY(0,K,ST) 150 A=INT(24*RND)+1 160 B=INT(32*RND)+1 170 CALL GCHAR(A,B,CH) 180 IF CH=120 THEN 150 185 IF CH=128 THEN 150 190 IF CH=112 THEN 1000 200 CALL HCHAR(A,B,120) 210 CALL SOUND(64,-5,1) 220 IF ST=0 THEN 145 230 IF K=ASC("E")THEN 510 240 IF K=ASC("X")THEN 520 245 IF K=ASC("S")THEN 530 250 IF K=ASC("D")THEN 540 260 GOTO 145 510 CH=X-1 511 IF CH<1 THEN 145 512 CALL GCHAR(CH,Y,Z) 513 IF Z=120 THEN 2000 514 IF Z=128 THEN 3000 515 CALL HCHAR(X,Y,104) 517 X=CH 518 GOTO 140 520 CH=X+1 521 IF CH>24 THEN 145 522 GOTO 512 530 CH=Y-1 531 IF CH<1 THEN 145 532 CALL GCHAR(X,CH,Z) 533 IF Z=120 THEN 2000 534 IF Z=128 THEN 3000 535 CALL HCHAR(X,Y,104) 536 Y=CH 537 GOTO 140 540 CH=Y+1 541 IF CH>32 THEN 145 542 GOTO 532 1000 CALL HCHAR(A,B,120) 1005 CALL SCREEN(16) 1010 CALL SOUND(500,-7,0) 1015 CALL SCREEN(4) 1020 PRINT : : : : :"YOU GOT ELECTROCUTED!": : 1025 PRINT "YOU SCORED ";SCORE 1026 IF SCORE>HISCORE THEN 1027 ELSE 1030 1027 HISCORE=SCORE 1030 PRINT : :"HISCORE ";HISCORE 1040 PRINT : : 1045 INPUT "ANOTHER GO? Y OR N>>>":YN$ 1046 IF YN$="Y" THEN 20 1050 STOP 2000 CALL HCHAR(X,Y,104) 2010 GOTO 1005 3000 CALL HCHAR(X,Y,104) 3010 CALL SOUND(150,1324,0) 3020 SCORE=SCORE+1 3030 IF SCORE=20 THEN 4000 3040 IF K=ASC("E")THEN 3100 3050 IF K=ASC("X")THEN 3200 3060 IF K=ASC("S")THEN 3300 3070 IF K=ASC("D")THEN 3400 3100 X=X-1 3105 GOTO 140 3200 X=X+1 3205 GOTO 140 3300 Y=Y-1 3305 GOTO 140 3400 Y=Y+1 3405 GOTO 140 4000 SND=110 4010 Z=1 4020 CALL HCHAR(Z,1,32,32) 4030 CALL SOUND(Z,SND,0,SND+24,0,SND+48,0) 4040 Z=Z+1 4050 SND=SND+24 4060 IF Z=25 THEN 4100 4070 GOTO 4020 4100 CALL CLEAR 4110 GOTO 110

You have just described what we call "Karma" ....... Karma is for lazy people. Trust me, should I ever find these people, I will bring them to justice. I will smack them repeatedly over the head with a Tatung Einstein. Nobody, ever , does that to a TI ..... Death by Tatung !!!!

Hi all ....... I was just wondering if anyone out there had come across any of the games we mentioned here, in particular ALPINE QUEST from New Day Computing? Or any of the others too! .... someone, somewhere, might just have an old cassette with them on. Long shot but I'll probably never stop searching.

I want these people found .... And I want them killed.

I think my two favourite OS's would have to be WinXP and Linux Ubuntu 10.04. Win10 , I've not been troubled by it as such but it just keeps popping this cloud setup thing up everytime I go to open a file on an emulator (cant remember which one but it wasnt classic99) lol ... i DID have Win8 ... Win10 nagbox came up and i thought "ooh , this'll be a good idea...."

Just booted JS99er and had a look ... it did another update, all seems fine here, both keys and stick are perfect Rasmus.