File YAHTZE.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

?=2C8H
P8CH8B=!)WG0&EQ U	PCE	)DYA	U&=A< PC<AA&)AYW=A=1QH<K< =!(!:&0&U=A=1QI<K< =!0A=A=1QJ<K< =!0AE=A=1QK<K< =!0AP=A=1QL<K< =!0AU<D0A =A=1 J6 <KQM<K< =!0A%PSUMQLU(PCE()DZ9A(T[PI$J [4A)FL0)AZ40A0=A=1QN<K=!PC<A[)AZ =A=1QO<K< =!PIUM<D<!X[($/].".MNJ20& 7NWP3TJ 2$	\3F
 *$J=+NB"3TWH/NR 25	\3FJ *$J=+YB"3TWH/NR 20
\3O?T. V2.MRJ20^ 7OWS/B& "965.JV46 KP7ISN2 ""+OCW3M;A7YB 7L	A7EOR. ."3\;I7PSU" 7N.JB52 [I. 3N61R 3H;E. V43\[I. 3N*=B73TWH/N^ "5*M*5B53P	R+NCT2"GM3X7I+UCM3N7U7BKE2 [O2 3P3AWY+RCS+ICS"76"P[=NT[P\X[)E\0H0=A=1PN<KHC=!0H5=1PCDD=!(&? =1PCDE=!)FP$0IEPI$J [4A)FAD
IP=A=1 J6 <KPO<K=!P[<J0IU=A=1PP<K=!$J [6!<J=1PQ<K=!P[<J< (!? 0I PNX[)DBP0I0PIT]0I5PLTZPCDZ)DA%ZT^P[ ^4)CA P[]T]PC<A^)AASPIX])FBPCX])CBH0JE=A=1 J6 <KPR<K< =!0JPPC$J C7A)AP0JUP
$J [7A)ALP0LP]$J [7A)ALP0LEPNX[DC)FCPNX[DO)FCWPNX[DP)FF,0LFPNX[DQ)FH3PNX[DL)FH3PNX[DN)FC.0LGPNX[DE)FK5=A=1PS<K< <!=!0LUPPT  O6  C4 T" P6 "T Q6 T$ L6 $T!)AC40L PQT  O6  C4 T" P6 "T Q6 T$ L6 $T!)AC40L%PLT P%T!0L0PNT"PCD")DDF"T&PI &7DPC<A&)AC90L5PNTPCD)DD0TH
LT$PCD$)DD+$T	0MPH 	4)CD&0MEPC H4$ H7DPC<A	)ADSPC<AH)ADK0MUPNT)PCD))DEF)T(0M P  (4D)BELPC<A()AD5P
$J [7A)ALP0M0P%$J [4A)FE^0M5P!$J [7AP*X[)CF*0N=APE<
<K< =!PE<
<K< =!PET,PCD,)DE=,T+=APE<
<K=!PC<A+)AE.0NE=A=1PT<K J6 <KPU<K< =!0NP=APE<
<K< =!PE<
<K< =!PET-PCD-)DF*-T+=APE<
<K< =!PC<A+)AFZ)ALP0PEPIT.PIT/PNT1PCD1)DGB1T0PI 07EPC<A0)AF50PPPNT2PCD2)DG,2T0PLT4PCD4)DG	4T30PUP0 34)CG"0P PC 04% 07EPC<A3)AGOPC<A0)AGG0P0PNT6PCD6)DH[6T50P5PCX/)FHJ0QPO 54E)CHJ0QEPC/T/)AHQ0QPPP 54E)CHV0QUPC.T.PC<A5)AG10Q%POX.)FH)0Q0P
$J 77A)ALP0Q5PS$J 77A)ALP)ALP0RPPLT9PCD9)DI9T8P8T;PCD;)DI^;T:0RU :6  84)BIY0T 86 T< :6  87P< :7PC<A:)AIPC<A8)AH80TPPIT^PIT=PIT>=A<E0TUPIT?QX[)FJQ0T PC^T^QAX^)FK-0T%=Q C7B=Q O7B=Q P7B=Q Q7B=Q L7B)AJ60UEPCX>)DK-0UPPC>T>PIUB0UUPQ>UDP>ED)DJ6ADUC0U PCABUBQC!B7
PC<AAC)AJ$0U0PLUFPCEF)DKPAFUE0U5!E6"!E4)CKKPC?T?PC<AAE)AJ;0VEPNX[X?)FKY)AI-0VPQX[)FK%QG$J [7A)ALP0VUQH$J [7A)ALP0XP
$J [7A)ALP0XPPIUI0XUPLUKPCEK)DLLAKUJQI!J4 UIPC<AAJ)AK>QI$J!L7A0X =A=1 J6 <KPV<K$J [=!6!=N<J=1PQ<K=!P[<J=1PW<K=!0X%=A=1PX<K=!0X0PNX[)DMR0X5PCX[)FM;POX[)FNDPPX[)FNMPQX[)FNV0X6PLX[)FN
PNX[)FN(0YPNX[DC)FN1PNX[DO)FN:PNX[DP)FOC0YAPNX[DQ)FOLPNX[DL)FOUPNX[DN)FO^0YBPNX[DE)FO	0YE=A=1PY<K=!)AO.0YP=A=1PZ<K=!)AO.0YU=A=1P[<K=!)AO.0Y =A=1P\<K=!)AO.0Y%=A=1P]<K=!)AO.0Y0=A=1P^<K=!)AO.0Y5=A=1P
<K=!)AO.0Z=A=1P <K=!)AO.0ZE=A=1P!<K=!)AO.0ZP=A=1P"<K=!)AO.0ZU=A=1P<K=!)AO.0\=A=1P$<K=!)AO.0\E=A=1P%<K=!0\PPSXR)FZ-PSYM)FZ-0\U=A=1P&<K< =!0\ PDUNPCEN)DP$ANTKQLUPPCEP)DP
APUO0\%PI$K!O4A(&:>PC<AAO)APMPC<AK)APE0\5PDURPCER)DP9ARUQPI!Q7FPI!Q7GPC<AAQ)AP)0]=A< 0]EPDUSPCES)DQASUQPNUUPCEU)DQ^AUUT0]P%Q!T6!=N!Q4&!Q7FPC<AAT)AQJPC<AAQ)AQB0] PDUWPCEW)DRIAWUVQLUYPEEY)DRDAYUX0]%%V!X6!=N!V4	!V7GPC<AAX)AQ0PC<AAV)AQ(0]5PDUZPCEZ)DR%AZUQ0^Q[
Q4F)ER 0^EQ\%Q \7APC<AAQ)ARN0^U)WG0 PDU^PCE^)DWA^U]0 E=A< < < 0 P=AQ
==1!]6 <KP	<K< =!Q
==1P(<K< =!0 U=A< 0  =A=1P)<K%] C=!6!=N<J< 0 %=A=1P*<K%] O=!6!=N<J< 0 0=A=1P+<K%] P=!6!=N<J< 0 5=A=1P,<K%] Q=!6!=N<J< 0!=A=1P-<K%] L=!6!=N<J< 0!E=A=1P.<K%] N=!6!=N<J< < 0!P=A=1P/<K%] E=!6!=N<J< 0!U=A=1P0<K%]! =!6!=N<J< 0! =A=1P1<K%] 7=!6!=N<J< 0!%=A=1P2<K
]!!=!6!=N<J< 0!0=A=1P3<K%]!=!6!=N<J< 0!5=A=1P4<K%]!"=!6!=N<J< 0"=A=1P5<K%]!L=!6!=N<J< 0"E=A< =1P6<K=!!]6&<J< 0"P=A=1P7<K=!%] \6!<J< 0"U=A=1P8<K=!!]6	<J< 0$E!]6	!]4&U$%] \6!A$U0$P=A=1!]6 <KP9<K=!Q<J< 0$U)WGPC<AA])AR.0$%QLX[($? <!0%Q%U$PCE$)DW[A$TR=A=1P:<K=
PC<AR)AWL=A< <D0%E)WG0%P=A=1P;<K< =!)WG=1P<<K< =!)WG0%U=A=1P=<K< =!)WG=1P><K< =!)WG0% =A=1P?<K< =!)WG=1Q<K< =!)WG0%%=A=1QA<K< =!)WG=1QB<K< =!)WG0%0=A=1QC<K< =!)WG=1QD<K< =!)WG0%5=A=1QE<K< =!)WG=1QF<K< =!)WG0&=A=1QG<K< =!)WG0&EQ U	PCE	)DYA	U&=A< PC<AA&)AYW
A=1QH<K< =!(!:&0&U=A=1QI<K< =!0A=A=1QJ<K< =!0AE=A=1QK<K< =!0AP=A=1QL<K< =!0AU<D0A =A=1 J6 <KQM<K< =!0A%PSUMQLU(PCE()DZ9A(T[PI$J [4A)FL0)AZ40A0=A=1QN<K=!PC<A[)AZ =A=1QO<K< =!PIUM<D<!APBPBXCPC\BPBXCPCTC\C\BXCPCTCXC\BPBXCPCTC\APBPBXCPAPC\BPBXCPAPBPC\BXCPAPBP
XC\CPBPC\BXCPCTBPBXCPC\CTBPBXC\CPCTBXC\CPCTCXBXCPC\CTCXBXCPCTC\CX?LTO SEE WHAT SCORECARD OPTIONS YOU HAVE NOT YET USED,?LRESPOND TO 	HOW MANY	 OR 	SCORECARD NUMBER	 WITH 25.?O, YOU HAVE THE FOLLOWING SCOREBOARD OPTIONS LEFT: ?O	SCORECARD NUMBER	 WITH A NU
BER GREATER THAN 13. ?S, YOU NOW HAVE 1 POINT IN ROW NUMBER 1 (ACES) ?XTOTALS WILL BE PRINTED IF YOU RESPOND TO?\WOULD YOU LIKE A SCORECARD [Y OR N] ?
DO YOU WANT INSTRUCTIONS [Y OR N] ?"MAXIMUM NUMBER OF PLAYERS IS 7?, YOU HAVE ALREADY USED ROW  ?$	S GRAND TOTAL--------------?$TOTAL OF UPPER HALF---------?$TOTAL OF LOWER HALF---------?$BONUS-----------------------?), YOU HAVE A YAHTZEE!!! ?,	S SCOREBOA
D NUMBER?.TEAR OFF SCORECARD?.NAME OF PLAYER NO.?/HOW MANY PLAYERS  ?/GAME OF 	YAHTZEE	 ?/CONFIRM [Y OR N]  ?04 OF A KIND-----?03 OF A KIND-----?011**LG. STRAIGHT?010**SM. STRAIGHT?0YAHTZEE---------?0TWOS------------?0THREES----------?0SMALL STRAIGHT--?0S
XES-----------?0LARGE STRAIGHT--?0FULL HOUSE------?0FOURS-----------?0FIVES-----------?0CONGRATULATIONS ?0CHANCE----------?0ACES------------?1POINTS IN ROW  ?28**4 OF A KIND?27**3 OF A KIND?2SMALL STRAIGHT?2LARGE STRAIGHT?39**FULL HOUSE ?3************* ?4
S NUMBERS: ?54 OF A KIND ?53 OF A KIND ?512**YAHTZEE ?5WHICH DICE  ?613**CHANCE?6, YOU HAVE?6FULL HOUSE?6ERROR HALT?73**THREES ?7	S TOTALS ?7HOW MANY  ?86**SIXES?85**FIVES?84**FOURS?8YOU HAVE?92**TWOS ?91**ACES ?9YAHTZEE ?:THREES?:CHANCE?;SIXES ?;FOURS ?;
IVES ?<TWOS?<ACES?>, ?>  ??. ??- ??) ??( ??Y ??N [D2Q?8K02Q>8,:2Q?/*V2Q?
$U2Q?82/2Q??2-2Q??,02Q?/*(2Q?",&2Q?.*C2Q?\0W2Q?41^2Q?7032Q?5,Q2Q?,-D2Q?/*82Q?132Q?8/^2Q?1)V2Q?S1L2Q?6/C2Q?0,D2Q?)12Q?62!2Q?>2+2Q??2^2Q?<2[2Q?<2G2Q?:2S2Q?;2W2Q?;2O2Q?;0%2Q?50^2Q?51F2Q?6/72Q?2/?2Q?22B2Q?92K2Q?:2)2Q??1X2Q?70O2Q?3/U2Q?0-;2Q?0.D2Q?0.12Q?0.:2Q?
.V2Q?0-W2Q?0-N2Q?0.(2Q?0.M2Q?0.
2Q?0-22Q?0/L2Q?0+W2Q?$+52Q?$+&2Q?$+H2Q?$2	2Q??1=2Q?9182Q?91R2Q?71.2Q?81)2Q?81$2Q?8//2Q?2/	2Q?20G2Q?3-)2Q?0- 2Q?00,2Q?50:2Q?6,\2Q?.).2Q?X(<2Q?O	,2Q?L(G2Q?L("2Q?O22Q?>2%2Q??^2QF]62QOH]$2QF]U2QE]2QG\+2QG\S2QH[;2QHAPC\CTCXBPBXCPEYD\??Y&Y&FYDRDVD^E^FTDZF
 FQ ESDPDTDXGR0E0=A C<I7C O<I7C P<I7C(!>^0E5=A C<I7C O<I7C P<I7C Q<I7C(!>^0FPQTWPCDW($>>WTV V6=N V7CPL V4C($=K0FEPI V4C(%=KPC<AV(!>0FPPQTYPCDY($?^YTXPI X4C(&?Y0FU X6TZPC>NHN=NC Z7PC<AX(!?C(!;&0HP=A=1 J6 <KPM<K=!0HU=A<IT[0H PSX[(?9)ZN(!? 0H%PCX[(%? /EF=2 ?
. J77\KP7ISN* 6"6"2;7NE3TV 7\KP7ISN3\WR7TKUN*M.9V42 ?G3SKU. R9"0*M.9B56 KP7ISN. F"2*F*7COE2"
\7OWS/B& 64203P	R+NCT*"*26*
T+OKS3\?G3SKU. R9"0*M.9V56 KP7ISN. N"6*R*3HWR+EKS3\?G3SKU. R960C\3R;I+TJ *4**7FWO+RKS3\?G3SKU. R9"0*M.9B66 KP7ISN. V"2*Z*3IWVAS W= X^8
2I\AU XE XY8S2I]P XJ8Y2I]U XT8/2I]  X^8	2I]AW X YD9A2I^AY X+ X?852I]% X08;2I]0 X:9I2I]5 YD992I
AZ 0 =A< =1PA<K< <Q< =!0%=A=1PB<K=!00=A=1HCPCDD=!(&9-=1PCDE=!(&9)(!9P0A)Y+0AE=A=1PF<K=!<ITD0APPCXD(%9-PEXD(	:J0AU=A=1PG<K< =!(!9-0A5PDTGPCDG($:&GTF0B=A=1PH<K=!PF<J=1 F5=!PC<AF(!:O0BE=A=1PI<KHC=!0BP=1PCDD=!(&:>=1PCDE=!)FW^(!:&0DPITH=A< PCJTJPCDXJ(;NPCTJ0DE
LTMPCDM($;$MTKPC>NHN=NC K7PC<AK(!;S=A< 0DP=A< =1 J6 <KPJ<K=!PCHTH0DU=A C6 <J O6 <J P6 <J Q6 <J L6 <J< PPXH(&? 0D =A=1PK<K=!<ITR0D%PSXR(<^)ZN(!<K0D0PLXR($<K0D5PIXR(%<KPR=NDR(<K0EPIXR(&? PLXR(&;N0EEPQTUPCDU($=KUTTPI T7CPC<AT(!<>0EP=A=1PL<K=!0ERPCXR(&=,POXR(
=4PPXR(&=?0ESPQXR(&>MPLXR(&=,(!=K0E =A C<I7C(!>^0E%=A C<I7C O<I7C(!>^.JB1*1B03P	R+NCT2"WR3S?P+NCD+TCO2	?H3W6 7A	N2	> +R^ 3S?C3ROE3ASR6 WN3MWB+RB	7WSI/HJ *5J..MFJ.0V12 WR7TKUN*M.1J060B 3R;I3TF 2$F(*)J;6,& +OCU7H[A7ER +HCE3F3O7L
O3I
N2 OS3OWR3BGO+RCD7OSP3I;O3S2 7ESF":6".JB1*2B5/I6062257FKO. 7I61R /OF 23	\3F. *(3I/A6)60R 3H;E<H*.K?XHK>XI2I\H\H\H2A2J	=HLI<(*
ZV:A2J	<B	;JV8A2I\H2A*N:A2J	<B9H*(J8A2I\H2A2J	<I2IO:2A
9/8888<99DBRTSSVBASICAFBASICSFBASICFFBASICUFO7C 9H8J< /L2AK18F8DC K+[Z2AO/8[ZK\
/8O/<K"K0> ++KZ
/S1+S2A: K1/L9"LA7]O?0>O7\??:I:N>G;JB?82>CH(ZF	?\?>.S$*P	?\P2ISNO>C=K<2A>(O;K:> +&K%>(JKXZ2QO+Z29O+[JJ
+2QKJ
+S+* 2A9VJ
;8AJ
9O9
8SN	7JG?HJO"^OS"ROS*;K6
5K6
4HY8H9TXY/32J	2GA/4K$>("K1
5K0
4/52Q7E6$24202I9E	+$Y ;X?6??AK/C!K.[!*6>CP A2K"G?B>E>,G9L?W?QM->"=8G8?0>G

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search