This file is made for the graphical calculater TI-80. On other computers it probably will not work. As known you have to type the functions word by word. Example: "CLRHOME" ain't "A-LOCK, C, L, R, H, O, M, E" but "PRGM, arrow right, 4". Any other way it will not work. For most of the programs you will need the programm "INSTGRP". Good luck. Atlantic Software, 1996. -======================- Type first: -------------------------------------------------------------------------- PRGM, NEW, ENTER, R, O, U, L, E, T, ENTER -------------------------------------------------------------------------- Your programm starts here: -------------------------------------------------------------------------- LBL C CLRHOME DISP "DO YOU WANT" DISP "TO PLAY WITH" DISP "(1) OR WITH-" DISP "OUT (2) " INPUT "GRAPHICS? ",G IF G=/=1 (this "=/=" has to be a not eqeal to-sign) THEN IF G=/=2 GOTO C END IF G=1 THEN INSTGRP CLRDRAW DEGREE FOR(I,0,350,10) SIN I->V COS I->W SIN (I+10)->X COS (I+10)->Y LINE(V*20+30,W*20+30,X*20+30,Y*20+30) END END CLRHOME 532->S:612->A 578->V:534->E 215->L:431->O 612->A:467->D DISP "ROULETTE!" DISP "" DISP "LOSE YOUR MONEY " DISP "WITHOUT PROBLEMS" DISP "" DISP "GOOD LUCK!" FOR(I,1,200,1) END 500->R LBL P CLRHOME IF R=0 THEN DISP "YOU'RE BROKE" STOP END DISP "YOU'VE GOT:",R LBL H DISP "" INPUT "MONEY: ",I IF I<.01 THEN DISP "MORE THAN 0" GOTO H END IF I>R THEN DISP "YOU DON'T" DISP "SO MUCH" GOTO H END (RAND*36)+.4->O INT O->O LBL L INPUT "NUMBER: ",N IF N=99 THEN IF RAND<.9 O->N GOTO Z END IF N=0 STOP IF N=SAVE THEN R->L2(1) CLRHOME GOTO P END IF N=LOAD THEN L2(1)->R CLRHOME GOTO P END IF (N>36)+(N<1) THEN DISP "CHOOSE BETWEEN" DISP "1 AND 36." GOTO L END LBL Z IF G=1 THEN PT-CHANGE((SIN 0)*15+30,(COS 0)*15+30) FOR(S,20,360,20) SIN S->V COS S->W SIN (S-20)->X COS (S-20)->Y PT-CHANGE(V*15+30,W*15+30) PT-CHANGE(X*15+30,Y*15+30) END FOR(Q,1,100,1) END PT-OFF((SIN 360)*15+30,(COS 360)*15+30) END DISP "THE NUMBER IS",O IF N=/=O (this "=/=" has to be a not eqeal to-sign) THEN DISP "YOU WIN NOTHING" R-I->R FOR(Q,1,100,1) END GOTO P END IF N=O THEN DISP "YOU WIN:",36*I R+36I->R FOR(Q,1,100,1) END GOTO P END