G"DEALER (C) 1978 GEORGE DUISMAN":"RECORDING (P) 1978 PETSOFT S1$(3),C$(53),Z$(12),SL(3,3),J$(3,3),W(3),A%(52),D$(4) "PUT BLANK TAPE IN TAPE #1. THEN PRESS THE 'SPACE' KEY." A$: A$" "14J03:S1$(J): D$(J): 5,1,1: 5: 1100: "",EAST,"",SOUTH,"",WEST,"",NORTHOJ012:Z$(J):c S(X)(X13)t#C8..1415926("SETUP,SKIP OR DEAL";B$-TT02A$"BR DEAL#"< (B$,2)"SE"3500:40F"WHAT SET OF HANDS";SEH"DO YOU WANT THE HANDS THAT ARE SKIPED COUNTED";C$3KSESE93001:X0LM (B$,2)"SK"4800m A,K,Q,J,10,9,8,7,6,5,4,3,2,"WHAT IS THE MINIMUM # OF HCP";MI6"WHAT IS THE MAXIMUM # OF HCP";MX@ML13E DELETE 'REM' IN NEXT LINE TO SAVE LONG SUIT DEALS.5J INPUT"SAVE ALL DEALS WITH A SUIT LONGER THAN";ML@ 9000MT0:MM0[ J0 3i K0 3vZJ13K SL(J,K)ML MM1 A%(Z)1 A%(Z)3 520TT4K K,J  MM1 780 TMI TMX 780 MM0(TMITMX) (C$,1)"Y" X9X91( 4006&B$"LOAD"L: 900:9160: 550R^ X9X91nX$A$(X9)y 1100 5,1,1,X$5,X9:5,SE:5,C  N0 5145,A%(N)H NM 1100R 5\ 1100z 4,1,0,"BR" 4,X:4,SE:4,C  N0 51& 4,A%(N)G  (ST) 124 "ERROR";ST:O  NW  4] l L 59411,53v VQ7TI ` (TIQ7)50 1120 j 59411,61 ~ XX1 J051:A%(J)0: "" H13 CC0:CD0 S03 D$(H1);" HAND ";S1$(S);# 4400:S$X$7 S$"STOP" L S$"REDO"3502] J1 (S$)j K012 (Z$(K),1)(S$,J,1)3700 K  3610 CCCC1  J CDCC $ S )S0 . CC13 CC;"CARDS?? YOU NEED 13 CARDS.":3730 8 H jTT13:9160:3800+ tZS13K= yA%(Z)H3610P ~A%(Z)03920b A%(Z)H:3600 JS1351: A%(J)H A%(J)0  J: S0CCCD:3530 3520 "WANT TO SAVE THIS DEAL";Y$ Y$(Y$,1)  Y$"Y" 780:  Y$"N" 38001 "WANT TO SHIFT THESE HANDS EAST-WEST";Y$O  (Y$,1)"Y"3900:3690U 2w <J051:A%(J)(A%(J)3)3:: PS1$(S(Z));Z$(ZS(Z)13); Z" IS ALREADY IN ";D$(A%(Z)1);" HAND." d 3730 0X$"":"?  "; :F$:F$""4410 D(F$)20(X$)2X$"":F$;:4410H N(F$)20X$(X$,(X$)1):F$;:4410] X(F$)13" ":| bX$X$F$:F$;" ";:4410 "SKIP TO WHAT DEAL";S5 S5S5X1:S514820 K1S5:XX1:S038:CCC8:S,K:(C$,1)"Y"X9X  (#2#XX1:J051:A%(J)0:37#S5SEX93047:SE0S4(S5)FP#K13:9100:RZ#9160:dd#J03:K03n#SL(K,J)0:J$(K,J)" ":K,Jx##J012#(C)(C.5)R(1)#R((1)52)#A%(R)09120#A%(R)K:CCC8#J:# 9060#TT13J051:A%(J)(A%(J)7):1#J051:RA%(J)H#R1S(J):R99240r#R2R21:J$(R1,R)J$(R1,R)Z$(JR113)$SL(R1,R)SL(R1,R)1$ J$"";$"DEAL #";X;$H02$H1$T214:TT13T218:H1$S03%H1H3:T20:9900:H1:T221%H095501N%9900::S,H:M&T2);S1$(S);J$(S,H);: