; (c) 2000 Bengt Werstén and Jefa from Transmission Productions ; ;"->" is the STO>-button ; Prgm3:DICE :0->P :ClrHome :Disp "" :Disp " DD I CC EEE" :Disp " D D I C E" :Disp " D D I C EE" :Disp " D D I C E" :Disp " DD I CC EEE" :Disp " BY" :Disp " BENGT AND JEFA" :Pause :All-Off :2->Xmin :97->Xmax :2->Ymin :65->Ymax :0->C :Lbl A :ClrDraw :Line(30,20,50,20 :Line(30,20,30,40 :Line(30,40,50,40 :Line(50,40,50,20 :ClrHome :If C=0 :Disp "COMPUTER STRIKES" :If C=1 :Disp "YOUR TURN" :Pause :(Int Rand6)+1->T :If C=0 :T->H :If T=1 :Goto Y :If T=2 :Goto Z :If T=3 :Goto @ ; @ is the theta character. :If T>3 :Goto T :Lbl Y :PT-On(40,30 :Goto C :Lbl Z :PT-On(45,35 :PT-On(35,25 :Goto C :Lbl @ :PT-On(45,35 :PT-On(40,30 :PT-On(35,25 :Goto C :Lbl T :PT-On(45,35 :PT-On(35,25 :PT-On(45,25 :PT-On(35,35 :If T=5 :PT-On(40,30 :If T=6 :PT-On(40,25 :If T=6 :PT-On(40,35 :Lbl C :ClrHome :DispGraph :Pause :If C=0 :Disp "HE GOT" :If C=1 :Disp "You GOT" :Disp T :Pause :If C=1 :Goto R :If C=0 :1->C :Goto A :Lbl R :If H>T :Disp " YOU LOSE" :If H>T :P-1->P :If H=T :Disp " A DRAW" :If HP :Disp "" :Disp "YOUR SCORE" :Disp P :Pause :0->C :Goto A