I ORIGINAL PROGRAM BY T. HARTNELL WRITTEN AROUND 1978 GRAPHICS, SOUND, COLOR, TITLE, ETC BY JIM GREEN 1986 PUBLIC DOMAIN DISK # MB2CG53265,11:P828:J828843:X:J,X:  32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255R (L$""q 253280,7:53281, 7:""; <""; >J13:"";:T18:646,CD:":: "; ?CDCD1:CD7CD8 @CD9CD0 A:"";:""38)"";::80] P"         "; R"   ߒ             ߒ  "; T"         "; XJ13:""38)"";. Z"";:T18:646,CD:":: ";E [CDCD1:CD7CD8T \CD9CD0h ]: "";: ^"" `" SORTA' LIKE DOMINOS BUT NOT QUITE! b" INSTRUCTIONS- [Y]EP OR [N]OPE":53265,27 dG$:G$"Y"G$"N"100- fG$"N"204D nT136:::""; s" :: :: :: :: :: :: :: :: ::" t" - O R T A N O S - u" :: :: :: :: :: :: :: :: ::" vD11E3:M x"";:1500;:"";:1500:"";:1500} z"";:1500:"";:T110:"";:1500: |:"> NSTRUCTIONS" "HIS GAME IS PLAYED WITH THE COMPUTER. "ACH 'ORTANOS' IS A PAIR OF NUMBERS"SUCH AS, 63 OR 30. HEY ARE READ AS IFI"THEY WERE DOMINO TILES 'SIX/THREE' ANDw"'THREE/BLANK'. OU AND THE COMPUTER ARE"DEALT SEVEN TILES EACH. HE REST GO TO"THE 'BONEYARD'. FTER THE FIRST TILE IS"PLAYED YOU MUST RESPOND BY PLACING YOUR." NEXT TO IT WITH A NUMBER WHICH_"CORRESPONDS TO ONE OF THE NUMBERS OF THE";"TILE ALREADY IN PLACE. OR EXAMPLE, IF"THE COMPUTER HAD PLAYED 63 YOU COULD"PLAY 46 OR 34 (OR ANY COMBINATION) "WHICH INCLUDED A 6) TO THE LEFT OF THE6"COMPUTER'S PIECE, OR A PIECE WHICHc"INCLUDED A 3 (SUCH AS 38 OR 03) TO THE"RIGHT OF THE COMPUTER'S PIECE." RESS <>FOR MOREG$:G$" "16653265,11:"OTICE THAT THE PROGRAM AUTOMATICALLY("'FLIPS' YOUR PIECE AROUND SO THAT THEY"SAME TWO NUMBERS ARE TOGETHER. XAMPLE -";" 37:43:62:04. OU WILL NEED A TILE WITH"A 3 OR 4 IN IT - 32 OR 74 WILL WORK."F YOU PUT 32 AT THE START, THE TILES"WOULD LOOK LIKE THIS 23:37:43:62:04@"F YOU PUT THE 74 AT THE END IT WOULD_"REVERSE AND BECOME 47."AME ENDS WHEN ONE OF THE PLAYERS GETS"RID OF ALL HIS TILES, OR WHEN NEITHER"PLAYER CAN MOVE - NOTE THAT YOU MUST"ENTER '0' WHEN YOU CANNOT MOVE AND MUST8"GO TO THE 'BONEYARD' FOR A TILE.d"HE VALUE OF EACH NUMBER ON THE TILES"YOU HAVE AT THE END OF THE GAME IS"TOTALED (NOTE THAT 35 COUNTS AS 3+5 NOT"35). HE LOWEST SCORE WINS. HERE ARE 5"GAMES IN EACH ROUND AND THE WINNER ISA"THE ONE WHO WINS MOST OF THE GAMES.s" RESS <> TO PLAY":53265,27G$:G$" "20253280,5:53281,15:1270NT0:TF0:1140:CL141340:300530:NT1260TF0270#P,8,3:"'LL TAKE A TILE FROM THE BONEYARD":14108D12E3::1340AMF9\1180:1160:HL14300|780:1180:NT2300: END"210,PU7:1340:P,8,13:"ND OF AME "::1260:13406MF9:1180:CS0:HS0:" Y TILES: ":"";@J114:C$(J)":";:=J:" OUR TILES:":"";bTJ114:H$(J)":";::::J114^C$(J)""CSCS((C$(J),1))((C$(J),1))hH$(J)""HSHS((H$(J),1))((H$(J),1))rH$(J)"":C$(J)""|:" T THE END OF THAT GAME, YOUR SCORE6" IS"HS"AND MINE IS"CS:""8);UCSHS" T'S A DRAWCSHS" O 'M THE WINNER":CGCG1HSCS"O YOU'RE THE WINNER":HGHG1"";" "CG"GAMES TO ME,"HG"GAMES TO YOU":CGHG5490?" HAT'S FIVE GAMES WE'VE PLAYEDkCGHG7)"AND I'M THE OVERALL WINNER"CGHG5)"AND YOU'RE THE OVERALL WINNER"520" NTER '' FOR A NEW GAME, '' TO END"A$:A$"Y"A$"N"500 A$"Y""":1280:2104" , THANKS FOR THE GAMES":SMF1:P$""680: 1ST MOVEP,8,2:"EFORE THIS MOVE HAVE"14CL"TILES...":1380:1260&X0:FL00PU10:1340:XX1:(C$(X),1)(P$,1)FL1:730::(C$(X),1)(P$,1)FL2:730:D(C$(X),1)(P$,1)FL3:730:CN(C$(X),1)(P$,1)FL4:730:QXX14560bP,8,2:" CANNOT MOVE... ":1410:1260lXX1:D$(X)""660vY0YY1:C$(Y)""C$(Y)D$(X):D$(X)"":TF1:Y14640X28620>P,8,2:"HERE ARE NO TILES LEFT IN BONEYARD":1260:NTNT1:FX0{XX1:(C$(X),1)(C$(X),1)720: DOUBLE FOUNDX7690X((1)7)1P$C$(X):C$(X)"":FL1P$(C$(X),1)(C$(X),1)":"P$FL2P$C$(X)":"P$FL3P$P$":"C$(X):FL4P$P$":"(C$(X),1)(C$(X),1)IC$(X)"": MF2:P,8,2:"ERE IS YOUR HAND - ":L$:1380G114:G6P,11,0 G5G11840*G11P,11,04G10850>H$(G)""7)G"- "H$(G):860HH$(G)""17)G"- "H$(G):860=RH$(G)""27)G"- "H$(G)O\:P,17,0:L$fP,19,1:"NTER THE NUMBER OF THE PIECE YOU WANTp" TO PLAY OR '0' TO GO TO BONEYARD";MzM0M14870M01410:1050: PASSH$(M)"" 870(1380:" T THE START () OR END () /FA$:A$"S"A$"E" 930n" UT "H$(M)" AT THE ";A$"S""START "A$"E""END "A$"E"1010(H$(M),1)(P$,1)P$H$(M)":"P$:1040(H$(M),1)(P$,1)1360/P$(H$(M),1)(H$(M),1)":"P$:1040](H$(M),1)(P$,1)P$P$":"H$(M):1040{(H$(M),1)(P$,1)1360P$P$":"(H$(M),1)(H$(M),1)H$(M)"":X0$XX1:H$(X)""1080.X1410608Y14 BYY1:D$(Y)""1120 LY281090B V" O TILES LEFT IN BONEYARD":NTNT1:[ `H$(X)D$(Y):D$(Y)"" j" OU HAVE DRAWN :"H$(X)":":1260: tCL0:J114:C$(J)""CLCL1 ~: HL0:J114:H$(J)""HLHL1 : "":MF912108!"":MF1" FTER MY MOVE, THIS IS THE BOARD:":1220l!" FTER YOUR MOVE, THIS IS THE BOARD:":1220!" HIS IS THE BOARD: "!1380:L$:(P$)391240!P,3,1:T1(P$):"";:!P,4,1"""(P$,1,38):" "(P$,40,38):" "(P$,79,38)""."Q13E3::j"X(TI):D$(28),H$(14),C$(14):" TAND BY TO PLAY!"X0:J06:K0J:XX1:D$(X)((J),1)((K),1)" ::::J2811:T((1)J)1#H$D$(T):D$(T)D$(J):D$(J)H$::J17:H$(J)D$(J):D$(J)""$#C$(J)D$(J7):D$(J7)""::#(P$"":HG0:CG0:K#2D11E3::`#<TPU24:T17v#F781,T:59903::#PD11E3::" OU ' DO THAT!! "#Z1410:1410: 870$dS54272:S24,15:S5,1:S6,248:S1,30:S,244:S4,17$nT1200::54276,161$xTSS23:T,0::h$S54272:S24,9:S4,8:S5,1:S6,248:NO4865$S1,NO:S,47:S4,33$T115:T:NO$T1100::S4,32:$D1100::