;d53280,1:53281,1:53272,21:"": C64 MODS 1983Vn*** EDWARD MARCHESCHIkx*** MAY 4, 1979}B(70),T(9,9)*** ORIGINAL PROGRAM BY*** CHARLES LUND53272,21:"HI-Q"I11000:I "DO YOU WISH INSTRUCTIONS ?";( Y$:""Y$190: Y$"Y"1430E R19P C19m (R4)(R5)(R6)0270 (C4)(C5)(C6)0270 T(R,C)5 290 (R1)(C1)(R9)(C9)0250 T(R,C)5 "C ,R 6T(5,5)0:560 @ JW133 TMB ^13,14,15,22,23,24,29,30,31,32,33,34,35,38,39,40,41_ h52,53,58,59,60,67,68,69| r42,43,44,47,48,49,50,51 |B(M)7:W B(41)3 "MOVE WHICH PIECE ";Z  B(Z)7 450 "ILLEGAL MOVE, TRY AGAIN...":A1999:AK " "T 400| "TO WHERE ";P  B(P)0420 B(P)7420 ZP400 ((ZP)2)((ZP)2)510 420 ((ZP)2)((ZP)18)0420 740 570 1000 &400# 0"". :X199 DY19\ N(X1)(X9)(Y1)(Y9)0620y X(X4)(X5)(X6)0640 b(Y4)(Y5)(Y6)0640 l v680 T(X,Y)5670 Y3);""; 680 Y3);"";  Y  X 1350  ""% C1:X190 Y19> CZ960N C2P830b T(X,Y1)0420q T(X,Y2)5 *T(X,Y1)0:B(C1)3 4940 >C18P870 HT(X1,Y)0420 RT(X2,Y)5:T(X1,Y)0:B(C9)3 \940 fC2P910 pT(X,Y1)0420-zT(X,Y2)5:T(X,Y1)0:B(C1)36940GC18P960[T(X1,Y)0420T(X2,Y)5:T(X1,Y)0:B(C9)3B(Z)3:B(P)7T(X,Y)0:990CC1YXF0R28C28T(R,C)51220FF1$AR1R1.T0+8BC1C1:BTTT(A,B)ALBQVT101130e`T(A,C)01330ljA{tXC1C1~T0YR1R1TTT(Y,X)YT101210T(R,X)01330XCR "THE GAME IS OVER."2"YOU HAD";F;"PIECES REMAINING."AF11290i"BRAVO! YOU MADE A PERFECT SCORE!" :"PLAY AGAIN (Y/N)";A$A$"N"1340:210(2<F"13 14 15"P"22 23 24"Z"29 30 31 32 33 34 35"Ad"38 39 40 41 42 43 44"cn"47 48 49 50 51 52 53"x"58 59 60""67 68 69""THIS IS A COMPUTERIZED VERSION OF AN EUROPEAN SOLITAIRE GAME"8"OF LOGIC CALLED HI-Q. THE GAME STARTS WITH A PEGBOARD SHAPED LIKE A""CROSS HAVING PEGS IN EVERY HOLE BUT THE CENTER. THE OBJECT IS TO REMOVE""ALL 32 PEGS, OR AS MANY AS POSSIBLE, BY JUMPING INTO AN EMPTY HOLE ""THE JUMPED PEG IS THEN REMOVED."A"THE PEGS WILL BE REPESENTED BY '' THE EMPTY HOLES BY ''."f"PRESS ANY KEY TO BEGIN";Z$zZ$:""Z$1500