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, G, A, L, G, J, E, ENTER -------------------------------------------------------------------------- Your programm starts here: -------------------------------------------------------------------------- 0801121215->L1(1) 1618091419->L1(2) 0705202015->L1(3) 1315151804->L1(4) 1618210913->L1(5) 1920210606->L1(6) 0514110512->L1(7) 0215181920->L1(8) 1801040915->L1(9) (these words are DUTCH! Please fill 1321191005->L1(10) in your own words! 1=A, 2=B,...26=Z) 1920180916->L1(11) 1908081516->L1(12) 1115110518->L1(13) 1101020512->L1(14) 1820260905->L1(15) 1605201005->L1(16) 0201180111->L1(17) 1101040518->L1(18) 1912011407->L1(19) 2212090507->L1(20) 1->A:2->B:3->C 4->D:5->E:6->F 7->G:8->H:9->I 10->J:11->K 12->L:13->M 14->N:15->O 16->P:17->Q 18->R:19->S 20->T:21->U 22->V:23->W 24->X:25->Y 26->Z LBL B 1->L1(21) 0->L1(22) 0->L1(23) RANDINT(1,20)->L1(24) PRGM_INSTGRP LBL L IF L1(21)=1 LINE(18,15,38,15) IF L1(21)=2 THEN LINE(21,15,21,33) LINE(21,19,25,15) END IF L1(21)=3 THEN LINE(20,33,35,33) LINE(25,33,21,29) LINE(32,33,32,30) END IF L1(21)=4 THEN LINE(32,30,34,28) LINE(34,28,32,26) LINE(32,26,30,28) LINE(30,28,32,30) END IF L1(21)=5 LINE(32,26,32,21) IF L1(21)=6 LINE(27,24,37,24) IF L1(21)=7 THEN LINE(32,21,29,17) LINE(32,21,35,17) END IF L1(21)=7 GOTO X PAUSE LBL H 0->L1(22) CLRHOME LBL I INPUT "CHAR: ",é IF é<1 THEN DISP "ONE CHAR!" GOTO I END IF é>26 THEN DISP "ONE CHAR!" GOTO I END é->L1(25) 0->L1(22) FOR(é,1,5,1) IF FPART ((IPART (L1(L1(24))/(10^(2é)/100)))/100)*100=L1(25) THEN IF FPART ((IPART (L1(23)/(10^(2é)/100)))/100)*100=0 THEN 1->L1(22) 10^(2é)/100+L1(23)->L1(23) DISP "CHAR NO: ",6-é DISP "TOTAL: ",5 PAUSE END END END IF (L1(22)=0)*(L1(21)<8)=1 THEN L1(21)+1->L1(21) GOTO L END LBL X IF L1(23)=0101010101 THEN CLRHOME DISP "YOU HAVE WON!" PAUSE GOTO B END IF L1(22)=1 GOTO H IF (L1(21)=7)*(L1(22)=0)=1 THEN CLRHOME DISP "YOU LOST!" PAUSE GOTO B END