$ TRIANGLE BY JIM COOPERg FROM QS! DISK # G1 P/PD # 49 PD 77 GET$ AT 1300x (147):900CU1,X:CU3,Y: CU:(19):209,X:210,Y:(WF,WL:HF,0:LF,0:220:" "7XX1:YY1:20:" " <XX1:YY1:20:" ":& A20:" ":2 FA110O KHF,H(5):LF,L(5):WF,WHh P20:"":T18: UHF,H(8):LF,L(8):WF,WH Z20:"":T18:: _40:65 dA115:B((.)12)5 iHF,H(B):LF,L(B):WF,WH: n20:" ":T15:! s40:20:" "::T1250::0 x20:" "M }XX1:YY1:20:" "j XX1:YY1:20:" ":w A3139 HF,H(A):LF,L(A):WF,WH 20:"" T140:::40:65 X192:Y7:HF,H(5):LF,L(5):WF,WH 30:PP165,175) " USE CURSOR RIGHT & DOWN TO SELECT MAN ": PPPP1:180q " USE CURSOR RIGHT & DOWN TO SELECT PEG ":PP1 T150::40: A205,210,215,220,225,230,235,240,245,250,255,260,265,270,275 X18:Y2:CC,1: X15:Y6:CC,2: X21:Y6:CC,3: X12:Y10:CC,4:3 X18:Y10:CC,5:I X24:Y10:CC,6:^ X9:Y14:CC,7:t X15:Y14:CC,8: X21:Y14:CC,9: X27:Y14:CC,10: X6:Y18:CC,11: X12:Y18:CC,12: X18:Y18:CC,13: X24:Y18:CC,14: X30:Y18:CC,15:% ,SB,(SB)2394 120:" "Q 6XX1:YY1:20:" "l ;XX1:YY1:20:" " @X112:Y7:30:" " EX152:Y7:30:" "&JX192:Y7:30:" "/O500>^A13:40~cX192:Y7:30:" ILLEGAL MOVE "hB115mVL,15:T13::VL,0::T1200:rX192:Y7:30:" "wT150:!|:T1100::VL,15:PP1:500240:CN(PL):A$OPL,87:T125:wPL,CN:T125::(PL)81PLLF,1A$""400A$(13)A$(29)445A$(17)470405A114:PLA(A)460HF,H(A15):LF,L(A15):WF,WH:T120::PLA(1):400IHF,H(A15):LF,L(A15):WF,WH:T120:`BA1:PLA(B):400|A1521:PLA(A)490HF,H(A15):LF,L(A15):WF,WH:T120:PLA(15):400HF,H(A15):LF,L(A15):WF,WH:T120:BA1:PLA(B):400 PP1:155:SB,(SB)164A$:A$""505M400:(PL)215350WP1PLpA115:PLA(A)530v 200YY2:135:T1500:155!400:(PL)81350&P2PL+(PL6)215(PL12)215PL12P15900(PL6)215(PL12)215PL12P1590O5(PL157)215(PL314)215PL314P1590:(PL157)215(PL314)215PL314P1590?(PL163)215(PL326)215PL326P1590D(PL163)215(PL326)215PL326P1590I350NP2P1600SP3(P1P2)2P2:605'XP3(P2P1)2P1@]A115:P3A(A)615Fbeg200:YY2:100:T1500:~lA115:P3A(A)630qv200:120:T1175:{A115:P1A(A)645200:120:T1175:A115:P2A(A)660200:5070:T1500::A1&A16730<(A(A))215725jB1A(A):B2B16:B3B112:B4B16:B5B112(B2)215(B3)81500(B4)215(B5)81500B1A(A):B2B1157:B3B1314:B4B1157:B5B1314(B2)215(B3)81500(B4)215(B5)81500FB1A(A):B2B1163:B3B1326:B4B1163:B5B1326c(B2)215(B3)81500(B4)215(B5)81500AA1:670FS0A115(A(A))215QQ1:(147)X192:Y7:30:" GAME OVER "PLLP785.Q765,770,775,780XX13:Y11:20:"EXPERT PLAYER!":805X13:Y11:20:"AVERAGE PLAYER":805X12:Y11:20:"YOU CAN DO BETTER":805 X12:Y11:20:"TRY AND TRY AGAIN":805X13:Y11:20:"LOGIC EXPERT!"(A175:B((.)7)1:C((.)15)1KHF,H(B10):LF,L(B10):WF,WHe BC,C:T190::40:%T11000::BC,0:(147)*X10:Y10:20:"PRESS P TO PLAY AGAIN"/X13:Y13:20:"PRESS S TO STOP"4HF,H(8):LF,L(8):WF,WH/9X192:Y7:30:" TYPE IN THE LETTER "B>T1150::40`CA$:A$"P"A$"S"835lH(147)}MA$"P"1140RA$"S"CC646:SB53265:BC53280:SC53281:CM54272:CU679A:CU,A:A96CU679:930CUCU1:910H(41):L(41)%A141:B:C:H(A)B:L(A)C:VMU5427254296:MU,0::54277,64:54278,128HF54273:LF54272:WF54276:WH17:WL16:40:VL54296:VL,1540:VL54296:VL,15A(15):BC,0:SC,0A115:B:A(A)B:X12:Y8:20:"T R I A N G L E"X18:Y11:20:"B Y"DX10:Y14:20:"J I M C O O P E R "ST1500:pHF,H(8):LF,L(8):WF,WHX192:Y7:30:" PRESS ANY KEY TO START "T1150::40 A$:A$""1035(147)X7:Y8:20:"I N S T R U C T I O N S ?"0X15:Y11:20:"Y = Y E S "NX16:Y14:20:"N = N O "]$T1500:z)HF,H(8):LF,L(8):WF,WH.X192:Y7:30:" TYPE IN THE LETTER "3T1150::408A$:A$"Y"A$"N"1080=(147)BA$"Y"1100GA$"N"1200IL:"THE OBJECT OF THE GAME IS TO HAVE THE"vQ:"LAST GAME PIECE LAND ON THE PEG YOU"V:"HAVE SELECTED PRIOR TO THE START OF"[:"THE ROUND. USE CURSOR CONTROLS TO"`:"POSITION CURSOR OVER MAN YOU WANT TO"-e:"MOVE. THEN PRESS RETURN. MOVE CURSOR"[j:"TO PEG YOU WANT TO MOVE TO AND PRESS"o:"RETURN AGAIN. YOU MUST JUMP ONLY ONE"t:"PIECE ON EACH MOVE AND THERE MUST BE"y:"AN OPEN PEG IN THE LOCATION YOU"~:"JUMP TO."T1500:HF,H(8):LF,L(8):WF,WH^X192:Y7:30:" PRESS ANY KEY TO CONTINUE "qT1150::40A$:A$""1175(147)SB,(SB)239A115:200:50:X112:Y7:30:" USE THE RIGHT AND DOWN CURSOR CONTROLS "6X152:Y7:30:" TO SELECT THE PEG YOU WANT YOUR LAST "tX192:Y7:30:" MAN TO LAND ON. THEN PRESS RETURN "SB,(SB)16HF,H(8):LF,L(8):WF,WH:T1225::40PLA(1)A$PL,87:T125:#PL,215:T125: (A$""1305 -A$(13)1400& 2A$(29)13509 7A$(17)1370C <1305] FA114:PLA(A)1365c Ku PT125:1300 UT125::BA1:PLA(B):1305 ZA1521:PLA(A)1385 _ dT125::PLA(15):1305 iT125:BA1:PLA(B):1305!xLPPL:A115:PLA(A)1410!}&!200/!300Q!160,0,162,0,24,32,240,255,96!0,0,253,46,225,143,200,243,179,6,168,250,150,139,134,30,126,151,112!199,100,121,89,131,84,125,75,69,67,15,63,74,56,99,50,60,44,193,42+"62,37,162,33,135,31,165,28,49,25,30,22,96,21,31,18,209,16,195,15,210o"14,24,12,143,11,48,10,143,9,104,8,97,7,233,7,12,6,71,5,152,0,0"@1163,1320,1326,1477,1483,1489,1634,1640,1646,1652"J1791,1797,1803,1809,1815