File CUBIC.SV (save files (Executable program)

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

?>2CBPFLHHE\TSL A0L  THISDAP HI8EHL%<YDU\ HONHONHT$ <WN< N HL%<HWD DBTOTD DNPODHHE DGHME? HL%0PDELAED DN\SHER	TYHS	HOR	<NH	T.HTH8.H.8.H.8.H.8.H.8.H.8.%. H8 H TDPH8ADK$ HOUDFHO 8A 8EDJ$OA0BE\ ATMC:H+X[%SYSTEM???=?<?;?,?3>4?=P=3EALB1BJB B,K?NLL?N
SOKBJJ;D5D*HTE[D DFJ,DHBHJHL%ZL<B/??/?4?2[?1?0?.?=?%N:H?$IKC8HAF%MZSVF)N%<HG6NF
N-GAI3? JKWC3G?I6>GB.D??:?&<??6?>=RB = \B;0Z0&%S7%TN$?*K%T&%Z$?8 X%H%> *X%Z.$?<H8 X&H;X0HTX1HWX2H:XH\HP2*!%XR$?<H+L%X^%GX H
%H%GX!H
%H%GX"H %F+3H!%F+3H HXX H!HXX!H"HXX"%CH:XL> +38A\%EH-> +^L0X-H-H:X$L$>(+)P0P1+P%YA-I: H/>(+9;$H/>(+6H:H-X$HZ\$%X;H-%BH%?%D*)%X	*)%YV+;%YN	>%D-IK](A%Y]$?)M.EBY0Y*G0^0!*J0&X$H$J\>(-IH$J]>(.
H$J^>()MH$.F=2<!=-B)HX=(*(HS?*(R :. : H"9FX$: H!H$9FH .*HPX$H$9H9H9H9HX"H"9F8F8!H$9H9HX!H"9FH!8F8!H$X H H\%HH
%HH!H\%HH
%HH"H\%H.5H<XHH=XIHVX2X)HRX3LIX$H)L$X)P3+%H)\HP2+"HUX2H>XHX//6FERO P/LHX*LHX+LHX,H*? +6H<XIHVX3LIH*> +4;$H/?(-JH[H39FH=XJHRX4LJX-L-> +2H+? -KH<XKHVX5LKH+> +0HI8!HK>(+0H[H59FH=XLHLXMHRX6LL8!H-> +.H,? -KHRX7LMX.L.> +,H<XNHVX8LNH,> +*HN8!HI>(+*HN8!HK>(+*H[H8
FH=XOHRX9LO8!H.>(-LP9+P8+NP7+EP6*;P5*)P4*]P3*NP2*+?>GB?&0CK/>EX-X.*PH[H39FH=8AX-X.*P;X.H:8!H-X-NSX$,$E[;H&>(*]H&X	K?%HH]%HHRX2:AX"%Y=HRX3:AX %ZHHRX4:AX!%CH:X$L$<(*<=H+MHS>(KPKQ<HH^%H%ZJP!P4*/%Y=P P3*)P"P2*X	.T:KR*=ICOB*!HQH"XQ+JH AP9F8DK1]6HQ/ FN>?HQ9DXQH
8DX /!I,XLIUX!2I\LP!+.2C,=2I\!+1J+H<X\	>H;$S/6==J2BL: NXHRLHZOJO8J8J8J"PJO"P*EB	<(.J(=*YJ)*$HQ< *^H]*$J*< *J&*$J+%H.PBM?? C ?>B%X(H	> -AH(0!*20&;0\K?>(/>.,H(66;61*?*:%GK[<(+TK\>(+U%GHY> +J%Y,KBHQ[B/BSB:%GHY> +V/B<	KHRX2L-X$: \$H:8!H$%BH^%HP-P2+ /]+*%A-/H4
)H3[=+:HY>(,2%2BAD7>==%2BAD
(AH0XOL1X!H!%LPOLO	>J!Z!P!*KJ!9F8FH(2J$RC\+7H(2J$RD\A+7H0XO$ZM78D8 ?PJY[0,LO[/;XLO[.K/8D?X+WK./> +W: K.9DK/8D?X+FK.H>+VK.X!K/8!H.9X[.,;Z[/K.-8!H!=H,[.,T1*.%2FHK(A: 2I\?,+S(/%2HH??[(A/$V!AF+7K.	>K0[0/,%SAVE ERRORO59H%TOO FEW ARGS8 A,>(V+W*Z	[&AAM4D=P1V+W*L
L*L?LLVL)L<LCLYL&L3LLLZL%L0LOLUL)L=LALVL*L>LBLVL%L4LGLZL)L8LKLYL%L1LMLZL&L2LNLUL&L7LDLYL*L;LHLUL%L5LELVL&L6LFLYL)L9LILZL*L:LJLULVLWLTLYLZL[LXLULYL]LQLVLZL^LRLULZL
LPLVLYL\LSL%L&L	L$L)L*L+L(L%L)L-L!L&L*L.L"L%L*L/L L&L)L,LL<LLTL(L?LCLWL+L0LCLRL!L<LOL^L-L0LLLXL$L3LOL[L	L3LLQL"L?LLL]L.L0LLPL L3LCLSLL<LLL\L,L?LOL
L/LCLLALBLOLLLMLNLLLLDLHLOLCLGLKLOLLELJLLLCLFLIL3L0L1L2L?L<L=L>L<L0L4L8L?L3L7L;L?L0L5L:L<L3L6L9LQL!L1LALRL"L2LBLTL$L4LDLWL	L7LGLXL(L8LHL[L+L;LKL]L-L=LML^L.L>LNLELFLGLDLILJLKLHLELILMLALFLJLNLBLQLRLSLPL]L^L
L\LTLXL\LPLWL[L
LSL!L"LL L-L.L/L,L$L(L,L L	L+L/LL5L6L7L4L9L:L;L8L5L9L=L1L6L:L>L2?<AA?1AA?=AA?6?6A?6?;?6?>?>A?>???>?>?????>?>?;?;?6?;?;?;?;?6?;?;%THIS IS CUBIC, A 3 DIMENSIONAL TIC-TAC-TOE%DO YOU WANT AN EXPLANTION OF HOW TO PLAY ? %THIS PROGRAM PLAYS TIC-TAC-TOE ON A 4 B
 4 BY 4 CUBE.%THE OBJECT IS TO GET 4 SQUARES IN A ROW, EITHER VERTICALLY,%DIAGONALLY OR HORIZONTALLY THROUGH THE CUBE. INPUT MOVES AS ROW,%COLUMN, PLANE. IF YOU DO NOT WANT THE BOARD PRINTED OUT AT EVERY STEP,%ANSWER 	NO	 TO THE QUESTION 	BOARD PRINTOUT ?
. OTHERWISE,%THE BOARD IS PRINTED WITH YOU AS 	O	, THE COMPUTER%AS 	X	, AND THE WINNING ROW AS 	*	 .%%THE OBJECT IS TO GET 4 SQUARES IN A ROW, EITHER VERTICALLY,%SHALL I GO FIRST ? %YOUR MOVE IS %THAT MOVE IS ILLEGAL. TRY AGAIN.%%I MOVE %LET	S CALL THIS A
TIE.%YOU WON ON %I WON ON %HOW ABOUT ANOTHER GAME ? %PLEASE ANSWER 	YES	 OR 	NO	.%%.................%.  . %THANK YOU FOR AN ENJOYABLE GAME.%%BOARD PRINTOUT ? %ON THE LINE PRINTER ? >(+E	:+C
T8(.8Z+
(T8L;8!L89 L<>P+QZ.8	:-[L<9 L=>P-[T<.8	9JX%Y/ZL6B0>(/
K8%Y	9/
L7\9L6C7\6/(%VI)//=HB<B?+<
"HQAS"<AU
>0I(&

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