0 REM FLIP.100 BY Don Zeikel [75775,1430], 1985.  NEC adaptation by Dave Thomas 3/89
1 REM Modifications 1/11/99 by Gary Weber
2 CLS:SCREEN0,0:CLEAR99:GOTO26
3 A$=INKEY$:DU=RND(1):IFA$=CHR$(27)THEN67ELSEIFA$=""THEN3ELSERETURN
4 FORI=1TO9:GOSUB59:LOCATEXP,YP:PRINTI:FORJ=1TO30:NEXTJ,I:RETURN
5 LOCATE0,0:PRINTS$:RETURN
6 GOSUB3:IFASC(A$)<49ORASC(A$)>57THEN6ELSEGOSUB5:RETURN
7 FORI=1TO11:DU=RND(1):NEXT:RETURN
8 CLS:LOCATEZE,3:PRINTP$" FLIP.NEC "Q$;:RETURN
9 X=INT(RND(1)*6+1):GOSUB7:Y=INT(RND(1)*6)+1:GOSUB7:Z=X+Y
10 FORN=0TO1STEP1:FORI=105TO125STEP20:LINE(I,30)-(I+11,41),N,BF:NEXTI,N:GOSUB25
11 N=0:M=0:ONXGOSUB15,16,17,18,19,20:M=20:ONYGOSUB15,16,17,18,19,20:RETURN
12 IF(X3=1)OR(X3=2)THENGOSUB60:LOCATEXP,YP:PRINTP$;Z;Q$:NE(Z)=1:RETURN
13 IFRND(1)<.8THENGOSUB60:LOCATEXP,YP:PRINTP$;Z;Q$:NE(Z)=1ELSEGOSUB61:LOCATEXP,YP:PRINTP$;X3;Q$:NE(X3)=1:GOSUB62:LOCATEXP,YP:PRINTP$;Y3;Q$:NE(Y3)=1:RETURNELSERETURN
14 RETURN
15 GOSUB21:RETURN
16 GOSUB22:RETURN
17 GOSUB21:GOSUB22:RETURN
18 GOSUB22:GOSUB23:RETURN
19 GOSUB17:GOSUB23:RETURN
20 GOSUB18:GOSUB24:RETURN
21 LINE(110+M,35)-(111+M,36),N,B:RETURN
22 LINE(106+M,31)-(107+M,32),N,B:LINE(114+M,39)-(115+M,40),N,B:RETURN
23 LINE(106+M,39)-(107+M,40),N,B:LINE(114+M,31)-(115+M,32),N,B:RETURN
24 LINE(106+M,35)-(107+M,36),N,B:LINE(114+M,35)-(115+M,36),N,B:RETURN
25 N=1:FORI=1TO4:M=0:FORJ=1TO2:N=N+1:ONIGOSUB15,17,19,16:NEXT:M=20:FORJ=1TO2:N=N+1:ONIGOSUB20,18,16,15:NEXTJ,I:RETURN
26 FORI=91TO107STEP2:J=J+1:P(J)=I:NEXT:P$=CHR$(27)+"p":Q$=CHR$(27)+"q":DIMNE(13):S$=SPACE$(39):ONERRORGOTO65
27 ZE=14:GOSUB8:LOCATE7,5:PRINT"by Don Zeikel [75775,1430]":FORI=1TO500:NEXT:FORI=1TOINT(((VAL(RIGHT$(TIME$,2))))*((VAL(MID$(TIME$,4,2)))/2)*(VAL(MID$(DATE$,4,2)))/100):I3=RND(1):NEXT
28 CH=28:PH=28:PI=-1:CI=-1:ZE=0:GOSUB8:LINE(65,12)-(180,48),1,B:LINE(64,11)-(181,49),1,B:LINE(63,10)-(182,50),1,B:LINE(65,25)-(180,25):GOSUB54
29 GOSUB5:FORI=1TO12:NE(I)=0:NEXT:GOSUB4
30 UQ=0:FORI=1TO9:UQ=UQ+NE(I):NEXT:IF(UQ=9)OR((UQ=8)AND(NE(1)=0))THENGOSUB5:GOTO33ELSELOCATE0,0:PRINT"Press any key to roll dice.
31 GOSUB3:GOSUB5:GOSUB9:IF(NE(Z)=0)AND(Z<10)THENGOTO35ELSEFORI=1TO5:IFNE(I)=1ANDI<>5THENNEXTELSEIFNE(I)=1ANDI=5THEN33
32 FORJ=(I+1)TO9:IF(NE(J)=0)AND(I+J=Z)THENGOTO35ELSENEXTJ,I
33 PR=0:FORI=1TO9:IFNE(I)=0THENPR=PR+I
34 NEXT:GOSUB5:LOCATE0,0:PRINT"Your score this round:"PR:PT=PT+PR:GOSUB55:FORI=1TO1500:NEXT:GOTO39
35 LOCATE0,0:PRINT"Press one or two numbers."
36 X1=0:Y1=0:GOSUB6:X1=VAL(A$):IFNE(X1)=1THEN38ELSEIF(Z=X1)AND(NE(X1)=0)THENGOSUB60:LOCATEXP,YP:PRINTP$;Z;Q$:NE(Z)=1:GOTO30
37 GOSUB6:Y1=VAL(A$):IF(Z=X1+Y1)AND(NE(X1)=0)AND(NE(Y1)=0)THENGOSUB63:LOCATEXP,YP:PRINTP$;X1:GOSUB64:LOCATEXP,YP:PRINTY1;Q$:NE(X1)=1:NE(Y1)=1:GOTO30
38 BEEP:LOCATE0,0:PRINT"INVALID ENTRY!  TRY AGAIN.":GOTO36
39 FORI=1TO12:NE(I)=0:NEXT:GOSUB4:GOSUB5:LOCATE0,0:PRINT"Now it's MY turn!"
40 TR=0:TS=0:UQ=0:FORI=1TO9:UQ=UQ+NE(I):NEXT:IF(UQ=9)OR((UQ=8)AND(NE(1)=0))THEN45ELSEGOSUB9:FORI=1TO900:NEXT:IF(NE(Z)=0)AND(Z<10)THENTR=1
41 FORI=5TO1STEP-1:IFNE(I)=1ANDI<>1THENNEXTELSEIFNE(I)=1ANDI=1THEN43
42 X3=0:Y3=0:FORJ=(I+1)TO9:IF(NE(J)=0)AND(I+J=Z)THENTS=1:X3=I:Y3=J:GOTO43ELSENEXTJ,I
43 IF(TR=1)AND(TS=0)THENGOSUB60:LOCATEXP,YP:PRINTP$;Z;Q$:NE(Z)=1ELSEIF(TR=0)AND(TS=1)THENGOSUB61:LOCATEXP,YP:PRINTP$;X3;Q$:NE(X3)=1:GOSUB62:LOCATEXP,YP:PRINTP$;Y3;Q$:NE(Y3)=1ELSEIF(TR=1)AND(TS=1)THENGOSUB12ELSEGOTO45
44 GOTO40
45 CR=0:FORI=1TO9:IFNE(I)=0THENCR=CR+I
46 NEXT:GOSUB5:LOCATE0,0:PRINT"My score this round:"CR:CT=CT+CR:GOSUB57:FORI=1TO1500:NEXT
47 GOSUB5:IF((PT>44)AND(CT<45))OR((PT>44)AND(CT>44)AND(PT>CT))THENLOCATE0,0:PRINT"I WIN!":CG=CG+1:GOTO50
48 IF((PT<45)AND(CT>44))OR((PT>44)AND(CT>44)AND(PT<CT))THENLOCATE0,0:PRINT"YOU WIN!":PG=PG+1:GOTO50
49 IF(PT>44)AND(CT>44)AND(PT=CT)THENLOCATE0,0:PRINT"TIE!":TG=TG+1ELSEGOTO29
50 FORI=1TO1500:NEXT
51 IFTG=1THENQR$=""ELSEQR$="S
52 CLS:LOCATE10,2:PRINT"YOU HAVE WON"PG:LOCATE10,3:PRINT"I HAVE WON"CG:LOCATE10,4:PRINT"WITH"TG"TIE"QR$
53 LOCATE10,6:PRINT"Play again? (Y/N)? ";:GOSUB3:IFA$="Y"ORA$="y"THENPT=0:CT=0:GOTO28ELSEIFA$="N"ORA$="n"THEN67ELSEGOTO53
54 LOCATE0,6:PRINT"YOU";:LOCATE0,7:PRINT"ME";:FORJ=0TO6STEP6:FORI=52TO55STEP3:LINE(28,I+J)-(208,I+J):NEXTI,J:FORI=32TO208STEP4:LINE(I,53)-(I,54):LINE(I,59)-(I,60):NEXT:FORI=275TO315STEP40:LOCATEIMOD40,I\40:PRINT0;:NEXT:RETURN
55 IFPT>45THENTP=45ELSETP=PT
56 FORJ=PHTO((TP*4)+28)STEP4:FORI=53TO54:LINE(28,I)-(J,I):NEXT:PI=PI+1:LOCATE35,6:PRINTPI;:FORK=1TO25:NEXTK,J:PH=TP*4+28:PI=TP-1:IFPT>45THENFORI=46TOPT:LOCATE35,6:PRINTI;:FORK=1TO25:NEXTK,I:RETURNELSERETURN
57 IFCT>45THENTC=45ELSETC=CT
58 FORJ=CHTO((TC*4)+28)STEP4:FORI=59TO60:LINE(28,I)-(J,I):NEXT:CI=CI+1:LOCATE35,7:PRINTCI;:FORK=1TO25:NEXTK,J:CH=TC*4+28:CI=TC-1:IFCT>45THENFORI=46TOCT:LOCATE35,7:PRINTI;:FORK=1TO25:NEXTK,I:RETURNELSERETURN
59 XP=P(I)MOD40:YP=P(I)\40:RETURN
60 XP=P(Z)MOD40:YP=P(Z)\40:RETURN
61 XP=P(X3)MOD40:YP=P(X3)\40:RETURN
62 XP=P(Y3)MOD40:YP=P(Y3)\40:RETURN
63 XP=P(X1)MOD40:YP=P(X1)\40:RETURN
64 XP=P(Y1)MOD40:YP=P(Y1)\40:RETURN
65 CLS:IFERR=5ANDERL=28THENBEEP:LOCATE10,3:PRINT"LINE must be enabled.":GOTO67
66 PRINT:PRINT"Error"ERR"in line"ERL:END
67 CLEAR256,-3200:MENU