Jump to content
IGNORED

Some TI74/CC40 Programs including new Roulette game


Recommended Posts

  • 2 weeks later...
  • 2 months later...

A new program for the the new year! You have 3 chances to guess a phrase that has been decoded. The computer substitutes letters for other letters at random. There are multiple messages to work out, although the order of the messages don't change. You will need a pen and paper as only 1 letter appears on screen at a time. Hope you have some fun with it. Please feel free to modify the data lines to change the included phrases.

Crypto.txt

Edited by mutantcamel1979
  • Like 2
Link to comment
Share on other sites

Got a problem with the program below to work. 3 spellings are displayed but only one is correct. It just goes round in a infinite loop and does not get past the program title. Any help to get this to work on the TI-74 would be appreciated! Problem is probably obvious!

 

 100 REM
  110 REM SPELLING TEST
  150 RANDOMIZE
  160 DIM W$(20,3)
  170 RX=INT(RND*3+1)
  180 PRINT "SPELLING TEST":PAUSE 2.5
  190 REM READ IN DATA
  200 FOR J=1 TO 20
  210 FOR K=1 TO 3
  220 READ W$(J,K)
  230 NEXT K
  240 NEXT J
  250 REM CHOOSE WORD & ORDER
  260 R1=RX
  270 R2=RX
  280 IF R1=R2 THEN 270
  290 R3=RX
  300 IF(R3=R1)+(R3=R2)THEN 290
  310 RD=INT(RND*20+1)
  320 IF RD=RWD THEN 310
  330 RWD=RD
  340 PRINT "1. ";WD$(RWD,R1):PAUSE 3.5
  350 PRINT "2. ";WD$(RWD,R2):PAUSE 3.5
  360 PRINT "3. ";WD$(RWD,R3):PAUSE 3.5
  370 PRINT "WHAT IS THE CORRECT SPELLING?":PAUSE 3
  380 INPUT AN$
  400 IF AN$=WD$(RWD,1)THEN 430
  410 PRINT "TRY AGAIN!":PAUSE 3
  420 GOTO 380
  430 PRINT "THAT IS CORRECT!!":PAUSE 3
  440 GOTO 260
  450 DATA CARROT,CAROT,CAROTT
  460 DATA TELEVISION,TELIVISION,TELEVISON
  470 DATA COMPUTER,COMPUTOR,COMPUTAR
  480 DATA VEHICLE,VEICLE,VERRCLE
  490 DATA RANDOM,RANDEM,RANDAM
  500 DATA FEBRUARY,FEBUARY,FEBURARY
  510 DATA YELLOW,YELOW,YELLEW
  520 DATA SUCCESS,SUCESS,SUCCES
  530 DATA SENTENCE,SENTANCE,SENTENSE
  540 DATA TOMORROW,TOMMOROW,TOMOROW
  550 DATA ENVIRONMENT,ENVIROMENT,ENVIRAMENT
  560 DATA BEAUTIFUL,BUEATIFUL,BEATIFULL
  570 DATA IMPOSSIBLE,IMPOSIBLE,INPOSSIBLE
  580 DATA ILLEGIBLE,ILEGIBLE,ILLEGABLE
  590 DATA AMEND,AMMEND,EMEND
  600 DATA ORCHESTRA,ORKESTRA,ORCESTRA
  610 DATA INTRIGUE,INTRIGE,INTREAGUE
  620 DATA PNEUMATIC,NEWMATIC,PNUMATIC
  630 DATA WEDNESDAY,WENSDAY,WENDSDAY
  640 DATA APPLICATION,APLICATON,APPLICCATION
  650 DATA END

Link to comment
Share on other sites

It's line 170 that seems to be causing my issue. The TI74 does not allow you to define a function. It does not understand DEF which is part of TI99 Basic.

The game works fine on the TI99 with the line amended to 170 DEF RX=INT(RND*3)+1.

If you take out DEF on the TI99 you also get the program stuck in an endless loop.

I'm not sure of a way to get the program to work on the TI74 !

Any ideas?!

Link to comment
Share on other sites

7 hours ago, mutantcamel1979 said:

It's line 170 that seems to be causing my issue. The TI74 does not allow you to define a function. It does not understand DEF which is part of TI99 Basic.

The game works fine on the TI99 with the line amended to 170 DEF RX=INT(RND*3)+1.

If you take out DEF on the TI99 you also get the program stuck in an endless loop.

I'm not sure of a way to get the program to work on the TI74 !

Any ideas?!

Since DEF DEFines a function, you will need to replace every occurrence of RX with that formula.  So far I see lines 260, 270, and 290, and eliminate line 170.

Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...