//FILE: PRS //!CREATED BY: KDragyn 021598!// NOTE: "//" = comment. 100->M LBL M CLRHOME DISP "*****MONEY","" //*=Space DISP M,"","" DISP "BET" INPUT Z IF Z>M GOTO M LBL A CLRHOME DISP "PAPER," DISP " ROCK," DISP " SCISSORS!" DISP "","" INPUT "1:P 2:R 3:S> ",A IF A>3 GOTO A IF A<1 GOTO A RANDINT(1,3)->B IF B=A GOTO 3 IF B+1=A GOTO 1 IF B-2=A GOTO 1 1->C GOTO B LBL 1 2->C GOTO B LBL 3 3->C GOTO B LBL B CLRHOME DISP"YOU:" 1->D A->E GOTO D LBL C DISP "" DISP "COMP:" 2->D B->E GOTO D LBL D IF E=1 DISP " PAPER" IF E=2 DISP " ROCK" IF E=3 DISP " SCISSORS" IF D=1 GOTO C LBL E DISP "" IF C=1 DISP " YOU WIN!" IF C=2 DISP " YOU LOSE" IF C=3 DISP " YOU TIE" PAUSE IF C=3 GOTO M CLRHOME DISP M IF C=1 DISP "***********+" //*=Space IF C=2 DISP "***********-" //*=Space PAUSE IF C=1 M+Z->M IF C=2 M-Z->M GOTO M LBL Q CLRHOME DISP "YOU" DISP " ARE" DISP " BANKRUPT!" DISP "" DISP "1:PLAY AGAIN" INPUT "2:QUIT",@ IF @=1 PRGM_PRS STOP //END OF FILE: PRS KDragyn Aaron Wynn mailto:a_1@bigfoot.com http://members.xoom.com