98∙'Ж2.45,5,3,-6,3.1,-3,2.6,5,2.45,5,99,99,3.35,1,3.4,-2,3.8,-2.5,3.95,.5,3.95,5.5,3.85,6,3.35,1,99,99,3.1,-6.5,3.65,-7,3.65,-6.5,3.1,-6,3.1,-6.5,99,99,4,0,4.3,.1,4,-5,4,0,99,99,4.8,-.5,4.85,-3,5.2,-3.5,5.25,-7.5,5.55,-8,5.8,-7.5,5.9,-9.5,6.05,-9.59╫(Ж5.7,-3,5.2,-1.5,5.05,-2.5,5,0,4.8,-.5,99,99,7.55,-34,7.65,-36,7.6,-38,7.75,-39,7.9,-36.5,7.8,-36,7.55,-34,99,99,7.55,-39,7.2,-45.5,7.35,-46,7.65,-40,7.55,-39,99,99,5.7,-41,5.8,-43.5,5.95,-43,5.9,-41.5,5.7,-41.5,99,99:\)Ж17.6,84,15.5,81,15.6,80,15.1,79.5,15.5,76.5,16,77,16.55,63,16.75,61,17.1,60.5,17.3,64.5,18.3,68.5,18.7,80,19.2,81,17.6,84,99,99;T*Ж24,69,23.6,68.5,23.65,69,23.25,68,23.25,67.5,23,68,23.1,68.5,22.9,68.75,22.95,67,22.7,66.5,22.75,65.5,22.5,66,22.55,65,22.15,67,22.6,66.5,22.7,67,21.9,71,21,69,20.75,64.5,20.4,63,20.4,58,20.7,59,20.9,56,21.1,56.5,21.15,59,21.25,59.5,21.2,60.5<I+Ж21.2,62.5,21.47,65,21.7,65,21.72,64.5,21.45,63,21.55,60,22,60,21.6,59,21.65,57.5,21.5,58,21.4,55.5,20.7,55.5,20.75,57,20.6,56.5,20.7,55,20.4,54,19.75,49.5,19.9,46,19.87,43.5,19.4,44,19.45,42.5,19.45,38,19.55,38.5,19.6,37,19.85,37.5,20.2,42=>,Ж20.2,44,20.7,45,20.73,43,21.1,40.5,21.03,39,21.15,40,21.15,41,21.25,40.5,20.8,45,21,45,21.35,42,21.45,36,21.6,36.5,21.55,39,21.8,40,21.85,36,22.45,36,22.3,31,21.8,31,21.4,32.5,21.4,30,20.8,32.5,20.75,36,19.85,35,19.6,35.5,19.45,33,19.35,29>0-Ж19.15,28,18.8,21,18.9,21,18.9,16,18.8,16,19,12,19.5,5,20.25,6.5,20.4,5,20.6,5,20.65,4,20.6,-1,20.75,-5.5,20.9,-11,20.8,-12,20.75,-17.5,20.85,-18.5,21,-26,21.25,-32.5,21.2,-33,21.35,-34,21.75,-33,22.25,-29,22.25,-20.5,22.4,-19.5,22.3,-19>@.Ж 22.75,-16?9/Ж22.75,-11.5,22.7,-5,23.2,4,23.4,12,23,11,22.7,15,22.2,30,22.25,28.5,22.35,29,22.8,17,22.9,13,23.7,17.5,24,23,23.7,25,23.6,24,23.25,30,23.4,30,23.7,26.5,23.8,27,23.82,26,24,26,99,99,23.3,-12,22.9,-16,22.85,-22.5,23,-21,23.2,-20.5,23.3,-12,99,99@)0Ж19.7,58,19.6,57,19.7,54,19.77,54,19.6,51,20.05,52,20.1,53,19.8,55,19.9,57,19.75,57,19.8,58,19.7,58,99,99,19.5,54.5,19.4,54.5,19.4,51.5,19.55,52,19.6,54,19.5,54.5,99,99,18.5,66,18.4,65.5,18.7,63,19.1,64.5,19,65.5,18.55,65,18.5,66,99,99A1Ж15.55,62,15.65,64,15.5,66,15.9,66,14.9,74,14.1,74,14,73,14.55,71,14.97,71.5,15.05,70,15,65,14.8,65,14.8,64.5,15.1,64.5,15.55,62,99,99,15.2,84,13.75,82,13.85,79,14.25,79,13.9,77,13.6,77.3,13.9,76.5,13.9,75,14.6,75,14.65,75.7,14,76,14.65,76.5B2Ж15,79,15.9,83.5,15.2,84,99,99,13.25,71,12,74.5,11.7,74.5,11.75,73,12,73.5,12.4,70,13.25,71,99,99,5.5,45,5.7,43.5,5.6,42,5.45,42.5,5.5,45,99,99,5.4,41,5.5,40,5.4,36,4.7,32,4.6,33,5.3,37,5.4,41,99,99,5.55,54,5.6,49,5.55,49,5.5,46,5.5,52.5,5.55,54C3Ж99,99,2.4,81,2.1,80.5,2.7,78.5,2.65,78,3,78.5,3,79,2.9,79.5,2.85,79,2.85,80,2.4,81,99,99,1.4,10.5,1.4,7.5,1.5,7,1.5,9.5,1.4,10.5,99,99,9.7,19,9.65,19,9.65,20,9.7,19,99,99,20.75,79,20.9,78,21.2,78,20.9,77.5,21.15,77,21.3,78,21.4,78,21.4,77.5D4Ж21.55,77.5,21.1,79,21.75,79,21.85,80,21.2,80,20.75,79,99,99,24,74.5,23.75,73,23.75,72,23.8,71,23.5,71.5,23.75,75,24,76,99,99,0,76,.7,77,.7,76.5,0,75,99,99,22,47,21.8,42,21.9,41,22.45,42,22.55,41,22.8,41.5,22.8,42.5,22.55,45,22.65,47,22.3,46D■5Ж22.5,45,22.25,45,22.1,46.5,22,47,99,99,14.4,22.5,14.55,22.5,15.05,20,14.8,19.5,14.55,22,14.4,22,99,99,15.1,18,15.4,18.5,15.1,20,15.1,18,99,99,16.25,50,16.05,47.5,16.5,47,16.22,49,16.25,50,99,99,15.2,-52,15.4,-53.5,15.6,-54,15.5,-53,15.45,-51.5EЗ6Ж99,99,23.5,47.5,23.2,46.7,23.1,45,23.4,40,23.3,37,23.55,35.5,23.65,36,23.6,40,23.7,39.5,23.65,42,23.4,45,23.65,45.5,23.5,47.5,-1,-1Eд8Й"N OR S";A$:ЕA$│"N"зH│1E╟9┐1,1:┬(127,96),Sл1:┬(127,96),2E▐:НX,Y:ЕX│м1░Y│м1з66E№;ЕX│99░Y│99зX1│0:Y1│0:Бе58F<ЕH│1░Y┤0зX1│0:Y1│0:Бе58F4=ЕH│0░Y▓0зX1│0:Y1│0:Бе58FП>XI│Xн15нPIо180:YI│YнPIо180:X│127л Х(YI)н(Sн Е(XI)):Y│96л Х(YI)н(Sн Х(XI)):ЕH│0зY│191мYFб?ЕX1│0░Y1│0з65F╢@╗(X1,Y1)м(X,Y),╜F╔AX1│X:Y1│Y:Бе58F╥BБе661░Y│м1з66E№;ЕX│99░Y│99зX1│0:Y1│0:Бе58F                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ╙&о└4:╚4,1:╝:Х10:S│90:PI│3.1415927:Ю:З@7,"*** WORLD MAP ***":З@128,"MENU:":З"1 MERCATOR":З"2 ORTHOGRAPHIC":З"3 POLAR ORTHOGRAPHIC":Й"WHICH";A:ИA Бе12,1,56::Г(C) CLOAD 1981&Є
Й"CENTER (0-360)";C:┐1,1:┬(127,94),Sл1:╗(127мS,94)м(127лS,94),╜'	НX,Y:ЕX│м1░Y│м1з66'&ЕX│99░Y│99зN3│0:N4│0:Бе2'EX│Xн15м30мC:ЕX▓180зX│Xм360'YЕX┤м180зX│Xл360'wЕX▓0▒X┤м180зN3│0:N4│0:Бе2'ОБж11:ЕN3│0░N4│0з10'е	╗(N1,N2)м(N3,N4),╜'╣
N3│N1:N4│N2:Бе2(IX│XнPIо180:IY│YнPIо180:N1│ Х(IY)н(Sн Х(IX))л127:N2│191м(Sн Е(IY)л96):Р(S│255о360:┐1,1(/
НX,Y:ЕX│м1░Y│м1з66(MЕX│99░Y│99зX1│0:Y1│0:Бе13(ЩY│192м((Yл А(Y)н( В(Yо8)л В(YнYо150)))о1.1нSл96):X│Xн15нS:ЕX1│0░Y1│0з18(о╗(X1,Y1)м(X,Y),╜(┴X1│X:Y1│Y:Бе13)Ж0,25,.5,25,.75,21,.83,22,1.15,8,1.4,10,1.4,15.5,1.9,22,2,22,2.1,23,2.16,20,2.3,19)lЖ2.3,15.2,2.5,15.8,2.6,11,2.56,8.5,2.65,8.7,2.74,3,2.95,1.5,2.9,6,2.7,7,2.65,11)ўЖ2.7,14,2.74,13,2.83,12.5,2.83,11,3,10.5,3,8,3.3,11.5,3.32,14,3.15,18,3.1,20.5,3.23,22,3.38,22,3.56,23,3.65,23.5,4,25.5,4,26.5,4.13,29*ВЖ 4.11,31.5,3.95,36,4.2,37.5,4.05,38,3.9,37.2,3.77,40,3.87,40,4.1,41,4.1,39.5,4.35,40,4.35,38,4.5,38,4.44,35,4.6,36,4.6,37.5,4.54,38.5+`Ж4.8,43,4.95,42.8,5.4,49,5.47,52,5.47,53,5.4,54,5.15,53.5,5.57,59.7,5.95,59.5,5.97,60,6.15,59,6.32,59.7,6.3,60,6.5,62,6.75,62.3,6.75,60.5,6.9,62,6.9,61,6.45,56,6.5,51,6.6,52,6.67,53,6.8,53,6.8,58,6.9,60,7.45,60,8,62.5,Ж7.72,65,7.9,64.6,8.05,65.5,8.25,65.8,8.5,64.8,8.5,65.3,8.65,65.3,8.5,66.7,8.4,66.6,8.38,67.2,8.13,68,7.4,70,7.5,68.5,7.35,68,7.28,69.5,6.7,69.5,6.7,71,6.2,71,6,71.5,5.35,72,╗Ж5.37,70,4.9,70,4.85,69,4.6,71.5,3.5,73.5,3,72,3.5,75,3.48,76.5,3.15,76.5,3,77.5,2.73,77,2.75,76.5,2,75.5,1.7,74.5,1.7,74,1.47,74,1.47,73,.6,73.3,.5,71.5,.5,69,0,70-РЖ99,99,11,69,10.45,70,9.55,71,9.15,70,9.1,69,8.95,69,8.9,68.5,9.1,67.5,9.2,67.5,9.2,66.5,9.07,66.5,9.05,67,8.85,66.3,8.8,66.2,8.9,65.5,9.2,65.7,9.3,66,9.35,64.5,9.27,64.5,8.9,62,9,60.5,9.2,60,9.25,60,9.3,60.5.eЖ9.3,58.5,9.4,59,9.55,58.5,9.5,57,9.2,55,9,54,9.48,56,9.75,59,9.75,60,9.95,61.5,9.8,60.5,9.8,59.3,10.2,61,10.35,61,10.4,60,10.65,59.5,10.9,58.5,11,59,11.1,59,11.45,51.5,11.8,50.5,11.85,49.5,11.7,49.5,11.75,47/EЖ11.7,42.5,11.77,38.5,11.85,37.5,12,35,12.2,34,12.35,29,12.4,28.5,12.45,27,12.42,27,12.42,27.5,12.5,25,12.55,24,12.6,22.5,12.67,23,12.55,25.5,12.4,30,12.38,32,12.48,32,12.51,30,12.75,26,12.75,25,12.92,22,13,19,13.3,16.508Ж13.6,16,13.7,16.5,13.97,14,14,14,14.15,13,14.25,11,14.25,10.5,14.47,9,14.65,8.5,14.77,9,14.77,8,14.8,7.5,14.82,5,14.8,4,14.7,1,14.6,-1.5,14.7,-2,14.6,-4,14.65,-5,14.7,-7,14.75,-9.5,14.87,-14,15.37,-17,15.3,-25,15.25,-30,15.2,-33,15.2,-3713Ж15.1,-38,15.05,-40.5,15.2,-40,15.1,-46,15,-46.6,15.1,-47,15.02,-48,15.06,-51.5,15.1,-51,15.15,-51.8,15.15,-52,15.4,-51,15.35,-50.5,15.55,-48,15.6,-47.3,15.5,-46,15.5,-45.4,15.53,-45,15.6,-45,15.65,-42.5,15.7,-42.5,15.65,-43,15.62,-41.5,15.75,-411∙Ж15.8,-40.5,16.1,-39.5,16.2,-37,16.1,-36,16.05,-35,16.45,-35.5,16.55,-33,16.65,-30.5,16.75,-28,16.77,-24.5,17.1,-23,17.25,-22.5,17.4,-19,17.45,-16,17.46,-13,17.65,-7,17.6,-5.5,17.5,-3,17.1,-2.52╒ Ж16.7,0,16.6,0,16.66,1.5,16.62,1.5,16.6,5,16.55,5.5,16.2,6,15.8,11,15.5,10.5,15.45,11.5,15.3,11.5,15.3,12.5,14.95,11.5,14.8,9,14.77,10,14.5,10,14.45,11,14.47,15,14.45,16,14.1,16,14.2,17,14.25,21.5,14,21.5,13.95,19.53z!Ж13.7,19,13.6,20,13.5,23,13.55,28,13.6,30,13.9,30,14,29,14.1,29,14,31,14.35,31,14.4,30,14.45,30,14.47,27,14.55,25,14.6,25,14.6,27.5,14.55,31,14.9,37.5,14.9,38.54o"Ж15.1,40,15.4,41,15.37,41,15.34,42,15.5,44.5,15.6,46,15.53,44.5,15.45,44,15.8,46,15.65,46,15.6,49,15.5,48.5,15.55,49,16,49,16.1,50,16.3,50.3,16.3,52,16.2,52,16.2,53,16,53,15.7,60,15.6,59.7,15.6,59,15.45,59,15.45,61,15.3,61.5,14.8,62,14.8,605j#Ж14.75,59,14.8,58,14.85,56.5,14.75,55,14.8,51.5,14.7,51.5,14.65,52.5,14.65,55,14.3,56,13.95,57,13.85,57,13.85,59,13.75,59,13.77,62,14,64.5,14.2,65.5,14.55,66,14.5,68.5,14.35,69,14.25,67,14.2,68.5,14,67.5,13.8,71,13.6,70,13.8,68,12.9,68.5,12.35,686e$Ж12.4,69,11.5,70.5,11,69,99,99,0,-68,.7,-68,.7,-69,1,-69.5,1.8,-67,3,-67,3.45,-66,4.1,-67.5,5,-67,5.8,-67.5,5.8,-68,7.45,-70.5,6.9,-75,6.85,-77,7,-78,6.7,-78,6.7,-82,10,-86,10,-85,9.7,-84.5,9.7,-81,10.35,-80.5,9.5,-77,10.25,-78,10.25,-76,11.2,-757%Ж 11.2,-75,11.5,-76,11.8,-73.5,13,-74,13.5,-72,13.6,-72.5,15.55,-72.5,15.45,-68.5,15.6,-66,16.2,-63,15.6,-67,16,-73,16,-77,17.5,-78,18.8,-73,20,-70,21.9,-70,23.75,-66,24,-68,99,998&Ж3.6,-21,3.6,-24,3.75,-32.5,3.7,-34,3.8,-34.3,4.35,-33.5,4.8,-31.5,4.97,-33,5.1,-34,5.25,-33,5.45,-38.5,6,-37.5,6.25,-29,6.3,-28,5.8,-19,5.55,-12,5.5,-16.5,5.1,-14.5,5.2,-13,4.8,-12,4.6,-15,4.45,-14.5,4.1,-19,3.6,-21,99,9 r&:Г POUNCE - FRAN GREEN&8:Г          P O BOX 184&[:Г          STONEWALL MS 39363&z:ГCOPYRIGHT (C) CLOAD 1981&й
Х50:Бж1000:M│м1:P│1:Z│0:BN│175:RN│191:F│88&▐З:Й"DO YOU WANT INSTRUCTIONS ";D$:ЕD$│"Y"зБж2000'З:Й"LEVEL OF DIFFICULTY (1-3) ";D:ЕD┤1▒D▓3з30::ДD│(4мD)н15'e#З:З"LEFT JOYSTICK  "; Л(191);:Й"  NAME ";R$:Е З(R$)▓15зR$│ О(R$,15)'н$З:З"RIGHT JOYSTICK "; Л(175);:Й"  NAME ";B$:Е З(B$)▓15зB$│ О(B$,15)'є(АX│1024е1535:ТX,F:ЛX:RP│1024:BP│1535:ТBP,BN:ТRP,RN:BS│0:RS│0:CT│0(2ЕCT│0зБж500:A│ Н(0)(/dCT│CTм1:A│ Н(2):B│ Н(3):X│Z:Y│Z(9nБж300(PxHR│RP:RP│RPлYн32лX(gВЕRP┤1024зRP│RPл512(~МЕRP▓1535зRP│RPм512(ЬЦЕRP│BP за50,4:RP│HR:Бе170(╢аЕHR┤▓RP зТRP,RN:ТHR,F(┼кЕRP│T з400(с╚A│ Н(0):B│ Н(1):X│Z:Y│Z(ы╥Бж300)▄HB│BP:BP│BPлYн32лX)цЕBP┤1024зBP│BPл512)0ЁЕBP▓1535зBP│BPм512)N·ЕBP│RP за50,4:BP│HB:Бе270)h
ЕHB┤▓BP зТBP,BN:ТHB,F)w
ЕBP│T з410)А
Бе50)П
,ЕA│0зX│M:Р)Я
6ЕA│63зX│P:Р)о
@ЕB│0зY│M:Р)╝
JЕB│63зY│P)┬
TР*
РRS│RSлS:АI│1е4:а100,2:ТRP,SC:ТRP,RN:ЛI:ЕRS┤100зCT│0:Бе50::Д420*B
ЪBS│BSлS:АI│1е4:а200,2:ТBP,SC:ТBP,BN:ЛI:ЕBS┤100зCT│0:Бе50*o
дЕRS▓BS зБж1000:З:Зд5)R$;" WINS!":З:Бе450*Ь
оЕBS▓RS зБж1000:З:Зд5)B$;" WINS!":З:Бе450*╢
╕Ю:З:Зд5)"IT'S A TIE!"*с
┬Е З(R$)▓ З(B$)зL│ З(R$)л1::ДL│ З(B$)л1+K
╠З:Зд2) Л(191);"  ";R$; б(Lм З(R$)," ");:З═"###";RS:З:Зд2) Л(175);"  ";B$; б(Lм З(B$)," ");:З═"###";BS+Э
╓З:З:З:Зд1)"* FIRE BUTTON FOR SAME GAME *":З:Зд2)"<R> TO RESTART  <Q> TO QUIT"+з
╫D$│ Т+╝
╪D$│ Т:ЕD$│""з472+╧
┌ЕD$│"R"зЮ:Бе30+с
▄ЕD$│"Q"зБе480+ъ
▐Бе40,
рЮ:З:З:Зд5)"BYE-BYE":З:З:З:З:К,0
ЇCT│ Д(10)лD:ЕT┤▓BP ░T┤▓RP зТT,F,T
■T│1023л Д(512):ЕT│BP ▒T│RP з510,qS│ Д(9):SC│Sл112:ТT,SC:Р,ПшЮ:Зд10)"** POUNCE **":З:Р,╣╨Бж1000:З"USE A JOYSTICK TO MOVE YOUR",▄┌З"BLOCK TO THE HIDDEN NUMBER."-
фЗ"*POUNCE* ON IT AND YOU'LL GET"-$юЗ"THAT MANY POINTS. THE FIRST"-H°З"PLAYER WITH 100 POINTS WINS."-nЗ:З"MOVE OFF THE SCREEN & YOU'LL"-УЗ"APPEAR ON THE OPPOSITE SIDE -"-╣З"BUT WATCH OUT FOR THE CORNERS!"-ч З:З:Й"HIT <ENTER> TO CONTINUE ";D$:Бж1000.
*З"THERE'S ALWAYS 1 NUMBER ON THE".34З"SCREEN - SOMEWHERE. THE HIGHER".T>З"THE LEVEL, THE FASTER THE".iHЗ"NUMBERS MOVE.".qRЗ:Р"APPEAR ON THE OPPOSITE SIDE -"-╣З"BUT WATCH OUT FOR THE CORNERS!"-ч З:З:Й"HIT <ENTER> TO CONTINUE ";D$:Бж1000.
*З"THERE'S ALWAYS 1  ╣&3Х5500:PI│3.1415927:T1│1:FL│0:В (C) CLOAD 1981&C(NM│20:NL│16&d2МP$(NM),A(NL,6),AT(6):Бе2000&У<Ю:З"# OF LINES -"NL"MAX";:ЙL:ЕL┤1▒L▓NL з60&║FЗ"COORDS MUST BE BETWEEN -95 & 95"&╨PАX│1еL:З" LINE";X&щZЙ"X1,Y1,Z1";X1,Y1,Z1'dЙ"X2,Y2,Z2";X2,Y2,Z2'BnA(X,1)│X1:A(X,2)│Y1:A(X,3)│Z1:A(X,4)│X2:A(X,5)│Y2:A(X,6)│Z2'osАI│1е6:Е В(A(X,I))▓95зЗ" TRY AGAIN":Бе90'АxЛI:ЛX:Бе2000'оВЮ:Й"RX,RY,RZ (DEGREES ROTATION)";RX,RY,RZ'уЗЗ"# OF MOVES -"NM"MAX";:ЙM:ЕM▓NM з135:ДЕQ│4з2000'єМ╚4,1:╝:┐1,1(ЦRX│RXнPIо180:RY│RYнPIо180:RZ│RZнPIо180(+кА I│1еNM(B┤P$(I)│"":ЕI▓M з450(c╛АX│1еL:АQ│1е6:AT(Q)│A(X,Q):Л(╚N1│1:N2│2:T│RZнI:Бж1000(ФцN1│4:N2│5:Бж1000(░
N1│1:N2│3:T│RYнI:Бж1000(┼
"N1│4:N2│6:Бж1000(с
@N1│3:N2│2:T│RXнI:Бж1000(Ў
^N1│6:N2│5:Бж1000)

hP$(I)│P$(I)л"B")
rАQ│0е1)+
|N1│Qн2л1:N2│Qн2л2)n
ЖP(N1)│ Б(127лAT(Qн3л1)):ЕP(N1)▓255зP(N1)│255:ДЕP(N1)┤0зP(N1)│0)░
РP(N2)│ Б(96мAT(Qн3л2)):ЕP(N2)▓255зP(N2)│255:ДЕP(N2)┤0зP(N2)│0*
оP$(I)│P$(I)л"M"л П( И(P(N1)), З( И(P(N1)))м1)л","л П( И(P(N2)), З( И(P(N2)))м1)*
╕ЛQ:Л X*&
┬╞ P$(I):Л I:Бе2000*>
ъА I│1еM:╞P$(I):┐1,1*Q
ЇT1│мT1:╚2,2мT1*g
■Е Т│""з╝:ЛI:Бе490*yI│M:ЛI:Бе2000*ХшD│ Ы(AT(N1)п2лAT(N2)п2)*▒ЄЕAT(N2)│0зAT(N2)│.00001*╦№A│ Ф(AT(N1)оAT(N2))лT*рЕAT(N2)┤0зA│AлPI+AT(N1)│Dн Е(A):AT(N2)│Dн Х(A)+$Р+#╨Ю:З@107,"** MENU **":З+<юЗ" 1 -- ENTER SHAPE"+Y°З" 2 -- SET UP ROTATION"+АЗ" 3 -- ROTATE (HIT KEY FOR MENU)"+дЗ" 4 -- CHANGE NUMBER OF MOVES"+╛З" 5 -- SAVE TO TAPE"+┌З" 6 -- LOAD FROM TAPE"+э З:З"WHICH -->",%Q$│ Т:ЕQ$│""▒Q$┤"1"▒Q$▓"6"з2085:ДQ│ Й(Q$),`*ЕFL зИQ Бе60,130,490,135,3000,4000::ДЕQ│1▒Q│6зFL│1:Бе2090::Д2000,╕Q$│"SAVE":Бж5000:З"SAVING",Ч╠Щ"O",м1,F$:З#м1,L,M,║рАI│1еL:АJ│1е6:З#м1,A(I,J):ЛJ,I,╚хЕM│0з3060,съАI│1еM:З#м1,P$(I):ЛI,юЇЪ:Бе2000-аQ$│"LOAD":Бж5000:З"LOADING"-&╛Щ"I",м1,F$:Й#м1,L,M-I▄АI│1еL:АJ│1е6:Й#м1,A(I,J):ЛJ,I-WсЕM│0з4080-pцАI│1еM:Й#м1,P$(I):ЛI-}ЁЪ:Бе2000-╕ИЮ:Й"FILE NAME";F$:Ю:ЗQ$;:Й" -- ENTER WHEN READY";Q:Ю:Р,╚хЕM│0з3060,съАI│1еM:З#м1,P$(I):ЛI,юЇЪ:Бе2000-аQ$│"LOAD":Бж                                                                                                                                                                                                                                                                 	&9
:ГWILLIE BURK  STAR RT BOX 292    KNEELAND CA 95549&X:ГCOPYRIGHT (C) CLOAD 1981&oЮ:Х200:S│0:Бж 1010&Ж
МA(100),B(100):S│0&╢Ю:З"COMMANDS:":З"  *FI - TERMINATE PROGRAM"&┘З"  *CH - CHANGE TO NEW BASES"&ї(З"  *SW - SWITCH BASES"'<З"  *BS - DISPLAY BASE 1 & BASE 2"'@PЗ"  *OF - CHANGE OUTPUT FORMAT"'aZЗ"  *   - DISPLAY THIS LIST"'ИdЗ"-------------------------------"'ЩnЗ:ЕS│1з 160 '╫xS│1:B$│"0123456789ABCDEF":Й"     ENTER B1, B2 ......";A,B('ВЕA┤2▒A▓16▒B┤2▒B▓16зЗ"BOTH B1 AND B2 MUST BE IN THE    RANGE (2-16)":Бе 120 (_аA$│"":Й"NUMBER - ";A$:ЕA$│"*CH"з 120 :Д ЕA$│"*FI"зК(йк ЕA$│"*BS"з 360 :Д ЕA$│"*SW"з 370 :Д ЕA$│"*OF" з380:ДЕ О(A$,1)│"*"з20(х┤АT│1е  З(A$):АJ│1еA:Е  Р(A$,T,1)│  Р(B$,J,1)з 200 :Д ЛJ) ╛З"(" Р(A$,T,1)") IS AN ILLEGAL ENTRY IN BASE"A:Бе 160 )H╚A(T)│Jм1:ЛT:E│  З(A$):G│0:P│1:A$│"")T╥F│0:N│0)}▄АT│PеE:N│NнAлA(T):C│  Б(NоB):N│NмBнC)МцЕF│0з 260 )ЦЁF│Fл1)й·A(F)│C:Бе 280 )╕
ЕC│0з 280 )╚
F│1:Бе 250 )ы
ЛT:G│Gл1:B(G)│N:E│F:ЕF▓0з 210 *
"W│0:АT│Gе1й м1:W│Wл1*"
,A$│A$л  Р(B$,B(T)л1,1):ЛT*6
6ЕD│0зЗA$;:Бе350*c
;DT│ З(A$)м Б( З(A$)оD)нD:З О(A$,DT);" ";*z
@АW│DTл1 е  З(A$)йD*У
JЗ  Р(A$,W,D);" ";:ЛW*б
^З:Бе 160 *ч
hЗ"B1="A"   B2="B:З"VALID #'S IN BASE"A":":З"    " О(B$,A):Бе 160 * 
rZ│A:A│B:B│Z:Бе 160 +&
|Й"   OUTPUT FORMAT (DEFAULT 0)";D$+3
ЖD│ Й(D$)+=
РБе160+eЄЮ:З"  BASE CONVERSION INSTRUCTIONS"+Н№З "  ----------------------------"+╥З"   THIS PROGRAM WILL CONVERT ONENUMBER IN A BASE FROM 2 TO 16",З"TO A NUMBER IN ANOTHER BASE IN  THAT SAME RANGE.  FOR EXAMPLE,",uЗ"YOU CAN CHANGE DECIMAL #'S, BASE(10), TO HEXADECIMAL #'S, BASE  (16), AND VICE-VERSA.",╘$З"   WHEN YOU ARE ASKED TO 'ENTER B1, B2', B1 IS THE CURRENT BASE,AND B2 IS THE NEW BASE.",·jЗ:Й"HIT ENTER TO CONTINUE--->";A$-_tЮ:З"   THERE ARE A FEW COMMANDS YOU CAN TYPE IN WHEN YOU ARE ASKED  FOR A NUMBER.  MOST ARE EX-"-╣~З"PLAINED IN THE COMMANDS LIST.   THE OTHER ONES ARE EXPLAINED IN MORE DETAIL BELOW:"-ЎИЗ"   *SW SWITCHES THE TWO BASES   YOU WERE WORKING WITH".ЭТЗ"   *OF PUTS SPACES IN BETWEEN   GROUPS OF NUMBERS FOR EASY      READING.  FOR EXAMPLE, IN OUTPUTFORMAT 0, A BINARY NUMBER MIGHT LOOK LIKE '1101101011001'.  BUT".сЬЗ"IN OUPUT FORMAT 5, IT WOULD     LOOK LIKE '110 11010 11001'."/жЙ"   HIT ENTER TO START---->";A$/
 РIN BETWEEN   GROUPS OF NUMBERS FOR EASY      READING.  FOR EXAMPLE, IN OUTPUTFORMAT 0, A BINARY NUMBER MIGHT LOOK LIKE '1101101011001'.  BUT".сЬЗ"IN OUPUT FORMAT 5, IT WOULD     LOOK LIKE '110 11010 11001'."/жЙ"   HIT ENTER TO START--                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 д&А:Г      PROGRAMED BY                 ARNOLD C. POUCH JR.          406 LITTLE MOUNTAIN ROAD        WAYNESVILLE, N.C.  28786&Я:ГCOPYRIGHT (C) CLOAD 1981&√:Г ALL COVERS MUST HAVE THE    LOGO AT THE TOP OF THE SCREEN   DURING GRAPHICS DISPLAY.'T:ГDECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.'╛:ГLINES 50-95 PUT THE LOGO ON  SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.(:ГDISCLAIMER (LINES 100-175) MUST ALWAYS BE INCLUDED IN ANY  COVER PROGRAM.(%
└4:М LO$(7):Бе 200(9I│0:J│0:K│0:Q│0(M(╚ 3,1:╝3: ┐ 1,0(n-┴ 2,3:╗ (0,44)м(255,48),╜,BF)<2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк"*
4LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк"*╪6LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк"+ж8LO$(3)│"кккйZккЦккккккккккккккккZЦкккккккккйZккЦкЦккккккккккккккZЦкккккккккеZккЦкЦккккккккккZкккZЦкккккккккеZккЦZХккккккккккZкккZЦкккккккккеjккХVХUiZйeiZкVZZкккZЦкккккккккеjккХVХUeVйeYZйUZZкVкZЦкVкккк",t:LO$(4)│"кккеjккUЦХUeVйUUVеUYZйUеUUiUкккккккеjккVЦЦХЦейUUVеiYVйUеUUiUкккккккеjккVЦVЦЦейZVЦХйYVеeeUUeejккккккеjккZЦZVЦейjZЦЦйYVейijZейjккккккеjккZЦZZVеeiZVЦйiUХйijZейjккккккеjккZЦYZZйeйjZVйeeЦйijZЦйjккк"-B<LO$(5)│"кккеjккZЦYjZйeйjZZйeеЦйijZЦйjккккккеjккZVYjZйeйjZZйeеХUijZХUjккккккеZкйZZYjZйeйjZZйeеХUйjZХUкккккккеZкйjZYjZйeйjZZеeйUVеiZХVкккккккйVкйjYYjЦеХеiZZекйVкейjЦккккккккйVкйjYijЦеЦейjZекеVкейjЦккккк".>LO$(6)│"кккйUкйjYijЦеЦейjZекеVкейjЦкккккккккUUUjYiZЦеЦейjЦХкХХкейjХкккккккккUUUjUjUUUЦейUUUUUеUUYUeUjкккккккХUUjUjUUVЦейUUUUVеUUYUiUjкккккккеUUjХjХUZЦекUеYUjкUUYUjUjккккккккккккккккккккккккккккккккккк".dALO$(7)│"╜│э
О Ж 4жа4 4Ж4╞жДзд
Г р
Г рZ&ыГ Є
5J&█5жА5 5J&╞9".АFVP│0:AD│0:VP│ Э(LO$(0)).ЭKAD│ Ж(VPл2)н256л Ж(VPл3).пPVP│ Э(LO$(7)).╤UQ│ Ж(VPл2)н256л Ж(VPл3):╣ Г│Q.фXТQл7, Ж(25)м25/Z╞"C3BM0,191R255U149L255D148R255BM0,0"/_Q│ Г(AD)/-c╚ 3,1:┴ 2,3:Р/]dВ OUR DISCLAIMER - HAS TO BE IN ALL COVERS./ciЮ/ГnЗ@38,"CHROMASETTE MAGAZINE"/мsЗ"ISSUE #6           DECEMBER 1981";/▓uЗ/┌xЗ:З" ALL PROGRAMS CONTAINED HEREIN"/√}З"      COPYRIGHT (C) CLOAD"0ВЗ"    MAGAZINE  P.O. BOX 1448"0BЗЗ"    SANTA BARBARA, CA 93102."0fМЗ"   REPRODUCTION BY ANY MEANS"0ЛСЗ"   PROHIBITED. CLOAD MAGAZINE"0▒ЦЗ" ASSUMES NO RESPONSIBILITY FOR"0╫ЫЗ"  ERRORS, OMISSIONS OR DAMAGES"0№аЗ"   CAUSED BY THE USE OF THESE"1еЗд11)"PROGRAMS.";1$кАI│1е 3500:ЛI14пA$│"":Бе2001S╟В***SURFACE -^- GRAPHICS**1Т╚В***TRY CHANGING - PMODE,        PCLS, COLOR, SCREEN, ETC.1б╥Бж20:A$│""1└╙Бж 500 ::ГFOR PAGE DISPLAY2▄В*******CHOOSE SIZE*******    000 =  576 POINTS - 0:14 MIN    050 =2,592 POINTS - 1:28 MIN    100 =6,200 POINTS - 3:28 MIN         ENTER IN LINE 230          (TIMES TAKEN WITH VITAMIN E)2┤цSIZE│ Й(A$):SIZE│SIZEл69:W│SIZEл24:D│(SIZEо2)м2432ЁВ *****HEIGHT IS AUTOMATIC        TRY CHANGING IT TO              0= FLAT PLAIN                   35= MAXIMUM SCREEN SIZE3G·HEIGHT│ Ш(Wо5)м93i
XC│128м((WлD)о2):ГTO CENTER X3Л
YC│179м(D) :Г     TO CENTER Y3Ч
PI│3.144/
"В ******WIERD EFFECTS BY          CHANGING THE LAST +1 IN         BOTH LINE 320 AND 330           TRY CHANGING EACH FACTOR        IN BOTH FORMULAS.4C
,А Y │ 0 е D й 24W
6А X │ 0 е W й 44u
@DEPTH│ Е(YоDн2нPIмPIо2)л14У
JWIDTH│ Е(XоWн2нPIмPIо2)л14м
TH│DEPTHнWIDTHнHEIGHT4╕
^H│ Ш(H)4 
hX1│XлYлXC:Y1│YлYC:┴2, Д(4):╗(X1,Y1)м(X1л2,Y1мHл2),╛,B:╜(X1,Y1мH,2)5
rЛ X5&
vВ***THE REAL TIME TIMER***5[
wX9│(Yн2м16)л78:Е X9│▓75 ░ X9┤180  з ╜ (X9,188,2)5c
|Л Y5|
ЖА TD │ 1 е 3500:Л TD5З
РБе 1005ж
єВ****SCREEN DISPLAY*******5░
ЇБе5106'
їВ LINES 502-508 CONTAIN AN ENTER ROUTINE - NOT USED -      CHANGE LINE 500 TO '500 REM' &  DELETE LINE 510 TO USE.6Ы
Ў╞"S4;BM02,171;C3;NR5D3NR4D4R4BU7;BR4;D1ND6E1R3F1D6BU7;BR4;R4L2D7BU7;BR6;NR5D3NR4D4R5BU7;BR4;ND7R4F1D1G1NL4F1D3"6╢
ўI$│ Т:ЕI$┤▓"" з Бе 5057B
°╞"S4;BM02,171;C2;NR5D3NR4D4R4BU7;BR4;D1ND6E1R3F1D6BU7;BR4;R4L2D7BU7;BR6;NR5D3NR4D4R5BU7;BR4;ND7R4F1D1G1NL4F1D3":А TD│1 е 50:Л TD:Бе 5027d
∙A$│A$лI$:Е  З(A$)┤▓3 з Бе 5027Н
·Е A$┤"000" ▒ A$▓"100" зA$│"": Бе 5027Ч
№Бж 207к
■A$│ И( Д(100))8
╞ "BM78,191;BU2U10BR10BD2D2BR10U2BR10D2BR10U2BR10BU2D10BR10BU6U2BR10D2BR10U2BR10                                                                                                                                                                                                                                                                                        ╞╔╚┴!"─$╚&╟()╟                          GRAPHCOVBAS зDOGSTARSBAS#>BASECONVBASAMORT   BAS%ЇPOUNCE  BASuROTATE  BAS╝FIGURE  DAT
 'бWORLDMAPBAS╓                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                D2BR10U4D10"8YXS│78л Й(A$):╗(76,186)м(180,191),╜,BF:┴ 4,3:╗ (76,188)м(XS,189),╜,B:┴ 2,38═XА TI│76 е 77:А D│42 е 182 й 70:D$│"S08;BM"л И(D)л","л И(TI)л";":╞ D$ л "R5D3NL4D4NL5BU4BR2R1BR2BD4U7R4F2D3G2L4"8╪bЛ D,TI9Уl╞"S4;BM24,53;BD1D1F1R3F1D2G1L3H1BU5E1R3F1BU1;BR5;D6F1R3E1U6;BR6;ND7R3F1D1G1NL4F1D3BU7;BR6;NR4D3NR4D4BU7;BR9;BD1D6U4NR5U2E1R3F1D6BU7;BR5;BD1D5F1R3E1U1BU3U1H1L3G1BU1;BR11;NR5D3NR4D4R5"9▒q╞"S4;BM117,58;R6E3R2F3R6":Ыv╞ "S4;BM158,53;BD1D5F1R3E1U2NL2BU2U1H1L3G1BU1;BR10;ND7R4F1D1G1NL4F1D3BU7;BR5;BD1D6U4NR5U2E1R3F1D6BU7;BR6;ND7R3F1D2G1L4BU4;BR10;D7U4R5NU3D4BU7;BR6;R4L2D7L2R4BR1BU7;BR6;BD1D5F1R3E1U1BU3U1H1L3G1BU1;BR10;BD1D1F1R3F1D2G1L3H1BU5E1R3F1";А╞ "S4;BM16,182;BD1D1F1R3F1D2G1L3H1BU5E1R3F1BU1;BR4;R4L2D7L2R4BU7;BR5;R5D1G5D1R5BU7;BR4;NR5D3NR4D4R5;BR8BU4R16NH3G3";ЭК╞"S4;BM188,182;NR4D7R4U7;BR4;NR4D7R4U7;BR4;NR4D7R4U7;BR8;R4L2D7BU7;BR4;BD1D5F1R3E1U5H1L3G1BU1;BR14;D7BU7;BR4;NR4D7R4U7;BR4;NR4D7R4U7";гФРBM16,182;BD1D1F1R3F1D2G1L3H1BU5E1R3F1BU1;BR4;R4L2D7L2R4BU7;BR5;R5D1G5D1R5BU7;BR4;NR5D3NR4                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ;&К
:Г
            DOGSTARS

           WRITTEN BY:
    ED DELOUIS & BUD RUSSELL
          12 LESLIE ST.
         PGH., PA  15205


&й:ГCOPYRIGHT (C) CLOAD 1981&╡└4:Х200&╬Ю0:З@236,"dogstars";'4(МA(20,12),TS(9),TS$(9):MX│3.77:MY│2.82:N9│9:N7│7:N3│3:N2│2:N0│0:TW│20:T2│12:H2│235:H1│179:TM│1800'[2АX│1е9:TS(X)│0:TS$(X)│ б(14,"."):Л'x<В *** DRAW SPACE FIGHTER'ЪFTS(0)│126:TS$(0)│"BUD RUSSELL'╬P┴1,0:╚4,1:╝:┬(10,6),2:╗(3,6)м(17,6),╜:┬(10,6),8()Z╗(0,0)м(20,0),╛:╗(0,1)м(20,1),╛:╗(0,12)м(20,12),╛:╗(0,11)м(20,11),╛:─(0,0)м(20,12),A,G(U_A$│ Т:Ю:З"JOYSTICK OR KEYBOARD (J/K)?";(Д`A$│ Т:ЕA$│""з96:ДЕA$│"K"зKB│1:ДKB│0:A$│"J"(┼aЗA$:ЕKB зЗ:З"USE ARROW KEYS TO MOVE, SPACE   BAR TO FIRE.":З(ьdЗ"DO YOU WANT INSTRUCTIONS (Y/N)?")nA$│ Т:ЕA$│""з110:ДЕA$┤▓"Y"з210)ЛxЮ:З@12,"dogstars";:З@99,"SO YOU WANT TO KNOW WHAT IT":З"FEELS LIKE TO HAVE A DOGFIGHT INDEEP SPACE...  STICK AROUND!!!"*
ВЗ@227,"WHEN YOU FINISH THIS TRAININGAND YOU FEEL YOU'RE READY, PUSH ";:ЕKB зЗ"ANY KEY";:ДЗ"YOUR JOYSTICK BUTTON";*ГЗ" AND..."*jМЗ@355,"THE COMMAND CONSOLE APPEARS; A BOGIE IS DISPLAYED, MOVING AT SUB-LIGHT SPEED."*tЦБж590*єаЗ@35,"YOUR OBJECTUS IS TO LINE THE CROSSHAIRS ON THE PIGDOG SPACE  FIGHTER, PRESS THE FIRE BUTTON, AND WATCH HIM SIZZLE!!"+ТкЗ@195,"YOU GET THIRTY SECONDS TO NABAS MANY FIGHTERS AS YOU CAN. TENPOINTS ARE GIVEN FOR EACH PIGDOGDISINTEGRATUS; ONE POINT IS LOSTFOR EACH WASTED SHOT."+┴┤З@386,"MAY THE FORCE BE WITH YOU...":Бж590+╬╜ЕKB з210,f╛З"THINGS TO KNOW:":З@67,"WHEN A GAME IS OVER, A NEW   GAME MAY BE PLAYED BY DEPRESSINGEITHER JOYSTICK'S BUTTON. IF A  GAME IS NOT DESIRED, YOU MAY",ў╚З"PRESS 'X' TO EXIT AND TO GET A  PRINT OF THE TOP SCORES.":З@320,"** THE JOYSTICK WHOSE BUTTON **":З"**  IS PRESSED HAS THE GAME  **":Бж590,¤╥Ю-8▄З:Зд11)"TOP SCORES":З:АX│0е9:З" "Xл1;д8)TS(X),TS$(X):Л-WфЕKB Бж600:ЕA$│"X"з270:Д320-ДцЗ@480,"TO PLAY GAME PRESS YOUR BUTTON!";-▒ЁJB│ Ж(65280)░3:ЕJB│2зJX│346:JY│347:Бе320-╧·ЕJB│1зJX│348:JY│349:Бе320-р
Е Т┤▓"X"з240.
Ю:A$│ Т:З"WOULD YOU LIKE A PRINTOUT OF THE TOP SCORES?".?
A$│ Т:ЕA$│""з280:ДЕA$┤▓"Y"з310.w
"З#м2:З#м2,д12)"Dogstars":З#м2,д11)"TOP SCORES":З#м2.п
,АX│0е9:З#м2," "Xл1;д8)TS(X),TS$(X):Л:З#м2:З#м2:З#м2.╗
6╚0:└1:К.№
@X│50:Y│50:KD│247:F│0:S│0:T│0:В   FIGHTERS,SHOTS & TIME RESET/+
JВ *** 'DOGSTARS' IS DRAWN  AND SCALED HERE/;
T╚3,1:╝:┐1,1/j
^╞"BM125,20":АX│1е10:Y│ В(Xм2):ЕY│5▒Y│1зY│3/Е
hS$│"S"л И(X)л"C"л И(Y)0O
r╞"XS$;BM-48,0;R8F2D8G2L6NU12L2BM+18,0;H2U8E2R4F2D8G2L4BM+20,-10;H2L4G2D8F2R4E2U4L2BM+15,-4;H2L4G2F8G2L4H2BM+12,-10;R4ND12R4BM+4,12;U8E4F4D4NL8D4BM+6,0;U12R6F2D2G2L5F6BM+14,-10;H2L4G2F8G2L4H2BM-48,20_
|Л:╚4,1:┐1,10o
ЖАX│1е1000:Л0л
РВ *** STARTS MAJOR GAME    LOOP, NO 'REM'S TO SAVE TIME1%
Ъ╝:X│ Д(199)л20:Y│ Д(164)л10:I│10:XI│ Д(N3)мN2:YI│ Д(N3)мN2:ЕKB зX│ Д(99)л78:Y│ Д(70)л61:X1│ Д(20)н5л75:Y1│ Д(17)н4л6014
дA$│ Т: Я│T1╬
оЕKB з432:ДP│ Н(N0):X1│ Ж(JX)нMXлN9:Y1│ Ж(JY)нMYлN7:╗(X1,Y1мN7)м(X1,Y1лN7),╜:╗(X1мN9,Y1)м(X1лN9,Y1),╜:I│Iм1:ЕI┤0зI│ Д(N7)лN7:XI│ Д(N3)мN2:YI│ Д(N3)мN21╪
пБе4401∙
░Е Ж(344)│KD зЕX1┤245зX1│X1л52
▒Е Ж(343)│KD зЕX1▓11зX1│X1м52:
▓Е Ж(342)│KD зЕY1┤184зY1│Y1л42Y
│Е Ж(341)│KD зЕY1▓8зY1│Y1м42└
┤╗(X1,Y1мN7)м(X1,Y1лN7),╜:╗(X1мN9,Y1)м(X1лN9,Y1),╜:I│Iм1:ЕI┤0зI│ Д(N7)лN7:XI│ Д(N3)мN2:YI│ Д(N3)мN230
╕X│XлXIл(X│H2)м(X│N0):Y│YлYIл(Y│H1)м(Y│N0):├(X1,Y1),0:┼(X,Y)м(XлTW,YлT2),A,╜:A$│ Т:ЕA$▓"Z"▒A$┤" "░TM▓ Я з4303E
┬T│ Я:ЕT▓│TM з5203U
╠P│ а(X1,Y1)3g
╓╔"V31T4L150O13┤
р╔"C":╗(130,191)м(X1,Y1),╜:╔"D":╗(124,191)м(X1,Y1),╜:╔"E":├(125,191):╔"F"4
ъ╔"G":├(125,191),0:╔"F":┼(X,Y)м(Xл20,Yл12),A,╜:╔"E":╗(130,191)м(X1,Y1),╛:╔"D":╗(124,191)м(X1,Y1),╛:╔"C"42
ЇS│Sл1:ЕP│0з4204m
■F│Fл1:╔"V31L130O1":АZ│2е16й2:┬(X1,Y1),Z,0:╔"C":Л:Бе4104аВ *** END OF MAJOR LOOP... SCORING STARTS HERE4├PS│Fн11мS:╔"V15T4L2O3GAFO2FO3C4ъЮ:З"YOUR SCORE WAS"PS; Л(8)".":X│05$&В *** IS THIS SCORE GOOD   ENOUGH TO BE ON THE BOARD?5H0ЕPS┤│TS(X)зX│Xл1:ЕX┤10з560:Д2205x:АY│9еXл1йм1:TS(Y)│TS(Yм1):TS$(Y)│TS$(Yм1):Л5пDTS(X)│PS:Й"YOUR NAME IS";A$:TS$(X)│ О(A$,14):Бе2105чNВ *** THIS SUBROUTINE WAITS FOR KEY OR BUTTON PRESS6 XA$│ Т:A$│ Т:З@480,"<<< HIT ANY KEY TO CONTINUE >>>";6:bA$│ Т:ЕA$│""з610:ДЮ:Р10з560:Д2205x:АY│9еXл1йм1:TS(Y)│TS(Yм1):TS$(Y)│TS$(Yм1):Л5пDTS(X)│PS:Й"YOUR NAME IS";A$:TS$(X)│ О(A$,14):Бе2105чNВ *** THIS SUBROUTINE WAITS FOR KEY OR BUTTON PRESS6 XA$│ Т:A$│ Т:З@480,"                                                                                                                                                                                                                                                                 ё&1:Г AMORTIZATION SCHEDULE WITH LP VII OPTION&h:Г BY FRAN GREEN, P O BOX 184, STONEWALL, MS 39363&З:ГCOPYRIGHT (C) CLOAD 1981&╫
Х10:TAB$│ Л(16):E0$│"###        ###,###.##     ###,###.##     #,###,###.##"'eE1$│"###        ###,###.##":E4$│"    ###,###.##     #,###,###.##":E2$│"###,###.##":E3$│"$$#,###,###.##":EP$│"##.## %":ET$│"##,###,###.##"'МБж2000:З:Й"INSTRUCTIONS - Y/N ";D$'Я(ЕD$│"Y"зБж5000'╠2З:Й"P-PRINT / D-DISPLAY ";D$:D$│ О(D$,1)(<ЕD$│"P"зЙ"REGULAR OR LPVII TABS (R/L)";D$:D$│ О(D$,1)(EdБж2000:З:З"LOAN AMOUNT ":Зд5)"";:ЙB:ЕB┤│0▒B▓9999999.99з100(КnЗ:З"ANNUAL INTEREST RATE - XX.XX %":Зд5)"";:ЙAR:ЕAR┤│0▒AR▓99з110(кxM│0:TI│0:TB│B:I│(ARо12)о100(щВЗ:З"NUMBER OF MONTHLY PAYMENTS":Зд5)"";:ЙN:ЕN┤│0▒N▓999з130)аF│(Iл1)пN:P│ Б((FнIо(Fм1)нB)н100л.5)о100)@╚Ю:З@160,"   PAYMENT AMOUNT ";:З═E2$;P)V╥TP│P:АJ│1е1200:ЛJ)u▄ЕD$┤▓"D"зЕD$│"L"з500:Д7000)А
,Бж2000)┴
6З"MONTH         INTEREST":З"     PRINCIPAL          BALANCE")╥
@АL│1е6:M│Mл1*
JPI│ Б(IнBн100л.5)о100:PB│PмPI:B│Bл(PIмP):TI│TIлPI*
TЕM│N з400*$
^ЕB┤│0з400*/
hБж1000*6
rЛL*G
|Бж3000:Бе300*]
РP│PлB:B│0:PB│PмPI*h
ЪБж1000*}
дЗ@480,"";:Бж3000*Ч
оБж2000:Зд13)"SUMMARY"*╩
╕З:З"  ";:З═E3$;TB;:З"  AT ";:З═EP$;AR:TB│TBлTI*я
╜З:З"  TOTAL INTEREST ";:З═ET$;TI+
┬З:З" ";Nм1;д5)" PAYMENTS OF   ";:З═E2$;TP+B
╠З"  FINAL PAYMENT OF  ";:З═E2$;P+g
╓З:З"  TOTAL          ";:З═ET$;TB+И
ъЗ@480,"";:Бж3000:Бж2000:Бе50+й
ЇLM│66:LC│LM:PG│1:Бж800:Бж850+х
■M│Mл1:PI│ Б(IнBн100л.5)о100:PB│PмPI:B│Bл(PIмP):TI│TIлPI+єЕM│N з600,
ЕB┤│0з600,ЕLC▓LMм6зБж800:Бж850,*&Бж900:Бе510,@XP│PлB:B│0:PB│PмPI,YbЕLC▓LMм5зБж800:Бж850,clБж900,wvЕLC▓LMм18зБж800,мАЗ#м2,"":З#м2,"":З#м2,TAB$;"29";"SUMMARY":З#м2,"",·КЗ#м2,"":З#м2,TAB$;"18";:З#м2,═E3$;TB;:З#м2,"  AT ";:З#м2,═EP$;AR:TB│TBлTI-7ФЗ#м2,"":З#м2,TAB$;"18";"TOTAL INTEREST   ";:З#м2,═ET$;TI-АЮЗ#м2,"":З#м2,TAB$;"17";Nм1;TAB$;"23";" PAYMENTS OF   ";:З#м2,═E2$;TP-╖иЗ#м2,TAB$;"18";"FINAL PAYMENT OF    ";:З#м2,═E2$;P-Є▓З#м2,"":З#м2,TAB$;"18";"TOTAL";TAB$;"35";:З#м2,═ET$;TB.!╝LC│LCл13:АJ│1еLMмLC:З#м2,"":ЛJ:Бж2000:Бе50.1 ЕLC│LM з820.L*АJ│1еLMмLC:З#м2,""::ЛJ.М4З#м2,TAB$;"22";"AMORTIZATION SCHEDULE";TAB$;"60";"PAGE ";PG.п>З#м2,"":З#м2,"":LC│3:PG│PGл1:Р/
RЗ#м2,"PAYMENT";TAB$;"15";"INTEREST";TAB$;"29";"PRINCIPAL";TAB$;"48";"BALANCE"/\З#м2,"":LC│LCл2:Р/IДЗ#м2,TAB$;"02";:З#м2,═E0$;M,PI,PB,B:LC│LCл1:Р/eшЗ═E1$;M,PI:З═E4$;PB,B:Р/Й╨Ю:Зд6)"AMORTIZATION SCHEDULE":Р/о╕Й"HIT <ENTER> TO CONTINUE ";K$:Р/╣ИБж2000/▐ТЗ:З"BEEN WONDERING HOW MUCH THE"0ЬЗ"EASY MONTHLY PAYMENTS AMOUNT TO"0жЗ"IN THE LONG RUN?"0B░З:З"AMORTIZATION SCHEDULE GIVES"0f║З"YOU THE BOTTOM LINE, THE TOP"0Й─З"LINE, AND A LOT IN BETWEEN."0в╬АJ│1е6:З:ЛJ:Бж3000:Ю0░╪З"ENTER:"0╓тЗ"* AMOUNT - UP TO $9,999,999.99"0°ьЗ"* INTEREST RATE IN PERCENT"1ЎЗ"  (WITH UP TO 2 DECIMAL PLACES)1?З"* TERM - UP TO 999 MONTHS"1j
З:З"  THE PROGRAM WILL CALCULATE THE";1УЗ"PAYMENT AMOUNT, SHOW HOW MUCH IS";1╝З"INTEREST AND HOW MUCH APPLIES TO";1у(З"PRINCIPAL FOR EACH PAYMENT, AND"1 2З"GIVE OVERALL TOTALS."2*<З:З"* USE THE PRINT OPTION ONLY WITH";2QFЗ"A READY PRINTER OR YOU HANG UP!"2bPЗ:Бж3000:Ю:Р2hXВ2ЛbLM│66:LC│LM:PG│1:Бж7180:Бж72202╟lM│Mл1:PI│ Б(IнBн100л.5)о100:PB│PмPI:B│Bл(PIмP):TI│TIлPI2╓vЕM│N з70702хАЕB┤│0з70703КЕLC▓LMм6зБж7180:Бж72203ФБж7240:Бе70203(ЮP│PлB:B│0:PB│PмPI3CиЕLC▓LMм5зБж7180:Бж72203N▓Бж72403c╝ЕLC▓LMм18зБж71803У╞З#м2,"":З#м2,"":З#м2,д29);"SUMMARY":З#м2,""3▄╨З#м2,"":З#м2,д18);:З#м2,═E3$;TB;:З#м2,"  AT ";:З#м2,═EP$;AR:TB│TBлTI4┌З#м2,"":З#м2,д18);"TOTAL INTEREST   ";:З#м2,═ET$;TI4SфЗ#м2,"":З#м2,д17);Nм1;д23);" PAYMENTS OF   ";:З#м2,═E2$;TP4ЕюЗ#м2,д18);"FINAL PAYMENT OF    ";:З#м2,═E2$;P4╢°З#м2,"":З#м2,д18);"TOTAL";д35);:З#м2,═ET$;TB4хLC│LCл13:АJ│1еLMмLC:З#м2,"":ЛJ:Бж2000:Бе504ЎЕLC│LM з72005АJ│1еLMмLC:З#м2,""::ЛJ5G З#м2,д22);"AMORTIZATION SCHEDULE";д60);"PAGE ";PG5j*З#м2,"":З#м2,"":LC│3:PG│PGл1:Р5н4З#м2,"PAYMENT";д15);"INTEREST";д29);"PRINCIPAL";д48);"BALANCE"5├>З#м2,"":LC│LCл2:Р5ЁHЗ#м2,д02);:З#м2,═E0$;M,PI,PB,B:LC│LCл1:Р2005АJ│1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "15"
"20"
"0"
"50"
"0"
"50"
"0"
"0"
"0"
"50"
"0"
"-50"
"0"
"0"
"0"
"50"
"0"
"0"
"0"
"50"
"0"
"50"
"0"
"0"
"0"
"-50"
"0"
"-50"
"0"
"50"
"0"
"0"
"0"
"-50"
"0"
"-50"
"0"
"0"
"0"
"-50"
"0"
"0"
"0"
"50"
"0"
"-50"
"0"
"0"
"0"
"-50"
"50"
"0"
"0"
"0"
"0"
"-50"
"50"
"0"
"0"
"0"
"0"
"50"
"-50"
"0"
"0"
"0"
"0"
"50"
"-50"
"0"
"0"
"0"
"0"
"-50"
"50"
"0"
"0"
"-50"
"0"
"0"
"0"
"0"
"50"
"0"
"0"
"-50"
"0"
"50"
"0"
"0"
"-50"
"0"
"BM130"
"46M176"
"99BM130"
"46M77"
"92BM130"
"46M130"
"99BM130"
"46M123"
"92BM123"
"145M176"
"99BM123"
"145M77"
"92BM123"
"145M130"
"99BM123"
"145M123"
"92BM176"
"99M123"
"92BM176"
"99M130"
"99BM77"
"92M130"
"99BM77"
"92M123"
"92BM176"
"99M77"
"92BM130"
"99M123"
"92BM130"
"46M123"
"145"
"BM134"
"47M175"
"102BM134"
"47M78"
"89BM134"
"47M134"
"103BM134"
"47M119"
"88BM119"
"144M175"
"102BM119"
"144M78"
"89BM119"
"144M134"
"103BM119"
"144M119"
"88BM175"
"102M119"
"88BM175"
"102M134"
"103BM78"
"89M134"
"103BM78"
"89M119"
"88BM175"
"102M78"
"89BM134"
"103M119"
"88BM134"
"47M119"
"144"
"BM138"
"48M174"
"104BM138"
"48M79"
"87BM138"
"48M138"
"107BM138"
"48M115"
"84BM115"
"143M174"
"104BM115"
"143M79"
"87BM115"
"143M138"
"107BM115"
"143M115"
"84BM174"
"104M115"
"84BM174"
"104M138"
"107BM79"
"87M138"
"107BM79"
"87M115"
"84BM174"
"104M79"
"87BM138"
"107M115"
"84BM138"
"48M115"
"143"
"BM141"
"49M172"
"106BM141"
"49M81"
"85BM141"
"49M142"
"110BM141"
"49M111"
"81BM112"
"142M172"
"106BM112"
"142M81"
"85BM112"
"142M142"
"110BM112"
"142M111"
"81BM172"
"106M111"
"81BM172"
"106M142"
"110BM81"
"85M142"
"110BM81"
"85M111"
"81BM172"
"106M81"
"85BM142"
"110M111"
"81BM141"
"49M112"
"142"
"BM144"
"50M169"
"106BM144"
"50M84"
"85BM144"
"50M146"
"113BM144"
"50M107"
"78BM109"
"141M169"
"106BM109"
"141M84"
"85BM109"
"141M146"
"113BM109"
"141M107"
"78BM169"
"106M107"
"78BM169"
"106M146"
"113BM84"
"85M146"
"113BM84"
"85M107"
"78BM169"
"106M84"
"85BM146"
"113M107"
"78BM144"
"50M109"
"141"
"BM147"
"51M166"
"107BM147"
"51M87"
"84BM147"
"51M149"
"116BM147"
"51M104"
"75BM106"
"140M166"
"107BM106"
"140M87"
"84BM106"
"140M149"
"116BM106"
"140M104"
"75BM166"
"107M104"
"75BM166"
"107M149"
"116BM87"
"84M149"
"116BM87"
"84M104"
"75BM166"
"107M87"
"84BM149"
"116M104"
"75BM147"
"51M106"
"140"
"BM149"
"52M163"
"106BM149"
"52M90"
"85BM149"
"52M153"
"118BM149"
"52M100"
"73BM104"
"139M163"
"106BM104"
"139M90"
"85BM104"
"139M153"
"118BM104"
"139M100"
"73BM163"
"106M100"
"73BM163"
"106M153"
"118BM90"
"85M153"
"118BM90"
"85M100"
"73BM163"
"106M90"
"85BM153"
"118M100"
"73BM149"
"52M104"
"139"
"BM150"
"53M159"
"105BM150"
"53M94"
"86BM150"
"53M156"
"119BM150"
"53M97"
"72BM103"
"138M159"
"105BM103"
"138M94"
"86BM103"
"138M156"
"119BM103"
"138M97"
"72BM159"
"105M97"
"72BM159"
"105M156"
"119BM94"
"86M156"
"119BM94"
"86M97"
"72BM159"
"105M94"
"86BM156"
"119M97"
"72BM150"
"53M103"
"138"
"BM151"
"53M155"
"104BM151"
"53M98"
"87BM151"
"53M159"
"120BM151"
"53M94"
"71BM102"
"138M155"
"104BM102"
"138M98"
"87BM102"
"138M159"
"120BM102"
"138M94"
"71BM155"
"104M94"
"71BM155"
"104M159"
"120BM98"
"87M159"
"120BM98"
"87M94"
"71BM155"
"104M98"
"87BM159"
"120M94"
"71BM151"
"53M102"
"138"
"BM152"
"53M152"
"103BM152"
"53M102"
"88BM152"
"53M162"
"120BM152"
"53M91"
"70BM102"
"138M152"
"103BM102"
"138M102"
"88BM102"
"138M162"
"120BM102"
"138M91"
"70BM152"
"103M91"
"70BM152"
"103M162"
"120BM102"
"88M162"
"120BM102"
"88M91"
"70BM152"
"103M102"
"88BM162"
"120M91"
"70BM152"
"53M102"
"138"
"BM151"
"52M148"
"101BM151"
"52M105"
"90BM151"
"52M165"
"120BM151"
"52M88"
"71BM102"
"139M148"
"101BM102"
"139M105"
"90BM102"
"139M165"
"120BM102"
"139M88"
"71BM148"
"101M88"
"71BM148"
"101M165"
"120BM105"
"90M165"
"120BM105"
"90M88"
"71BM148"
"101M105"
"90BM165"
"120M88"
"71BM151"
"52M102"
"139"
"BM150"
"52M144"
"100BM150"
"52M109"
"91BM150"
"52M167"
"119BM150"
"52M86"
"72BM103"
"139M144"
"100BM103"
"139M109"
"91BM103"
"139M167"
"119BM103"
"139M86"
"72BM144"
"100M86"
"72BM144"
"100M167"
"119BM109"
"91M167"
"119BM109"
"91M86"
"72BM144"
"100M109"
"91BM167"
"119M86"
"72BM150"
"52M103"
"139"
"BM149"
"51M140"
"99BM149"
"51M113"
"92BM149"
"51M169"
"118BM149"
"51M84"
"73BM104"
"140M140"
"99BM104"
"140M113"
"92BM104"
"140M169"
"118BM104"
"140M84"
"73BM140"
"99M84"
"73BM140"
"99M169"
"118BM113"
"92M169"
"118BM113"
"92M84"
"73BM140"
"99M113"
"92BM169"
"118M84"
"73BM149"
"51M104"
"140"
"BM147"
"50M137"
"98BM147"
"50M116"
"93BM147"
"50M171"
"116BM147"
"50M82"
"75BM106"
"141M137"
"98BM106"
"141M116"
"93BM106"
"141M171"
"116BM106"
"141M82"
"75BM137"
"98M82"
"75BM137"
"98M171"
"116BM116"
"93M171"
"116BM116"
"93M82"
"75BM137"
"98M116"
"93BM171"
"116M82"
"75BM147"
"50M106"
"141"
"BM144"
"49M134"
"97BM144"
"49M119"
"94BM144"
"49M173"
"113BM144"
"49M80"
"78BM109"
"142M134"
"97BM109"
"142M119"
"94BM109"
"142M173"
"113BM109"
"142M80"
"78BM134"
"97M80"
"78BM134"
"97M173"
"113BM119"
"94M173"
"113BM119"
"94M80"
"78BM134"
"97M119"
"94BM173"
"113M80"
"78BM144"
"49M109"
"142"
"BM141"
"48M131"
"96BM141"
"48M122"
"95BM141"
"48M174"
"110BM141"
"48M79"
"81BM112"
"143M131"
"96BM112"
"143M122"
"95BM112"
"143M174"
"110BM112"
"143M79"
"81BM131"
"96M79"
"81BM131"
"96M174"
"110BM122"
"95M174"
"110BM122"
"95M79"
"81BM131"
"96M122"
"95BM174"
"110M79"
"81BM141"
"48M112"
"143"
"BM138"
"47M129"
"96BM138"
"47M124"
"95BM138"
"47M175"
"107BM138"
"47M78"
"84BM115"
"144M129"
"96BM115"
"144M124"
"95BM115"
"144M175"
"107BM115"
"144M78"
"84BM129"
"96M78"
"84BM129"
"96M175"
"107BM124"
"95M175"
"107BM124"
"95M78"
"84BM129"
"96M124"
"95BM175"
"107M78"
"84BM138"
"47M115"
"144"
"BM134"
"46M128"
"96BM134"
"46M125"
"95BM134"
"46M176"
"103BM134"
"46M77"
"88BM119"
"145M128"
"96BM119"
"145M125"
"95BM119"
"145M176"
"103BM119"
"145M77"
"88BM128"
"96M77"
"88BM128"
"96M176"
"103BM125"
"95M176"
"103BM125"
"95M77"
"88BM128"
"96M125"
"95BM176"
"103M77"
"88BM134"
"46M119"
"145"
"BM130"
"46M127"
"96BM130"
"46M126"
"95BM130"
"46M176"
"99BM130"
"46M77"
"92BM123"
"145M127"
"96BM123"
"145M126"
"95BM123"
"145M176"
"99BM123"
"145M77"
"92BM127"
"96M77"
"92BM127"
"96M176"
"99BM126"
"95M176"
"99BM126"
"95M77"
"92BM127"
"96M126"
"95BM176"
"99M77"
"92BM130"
"46M123"
"145"
"BM127"
"45M127"
"95BM127"
"45M127"
"95BM127"
"45M177"
"95BM127"
"45M76"
"96BM127"
"146M127"
"95BM127"
"146M127"
"95BM127"
"146M177"
"95BM127"
"146M76"
"96BM127"
"95M76"
"96BM127"
"95M177"
"95BM127"
"95M177"
"95BM127"
"95M76"
"96BM127"
"95M127"
"95BM177"
"95M76"
"96BM127"
"45M127"
"146"
27"
"95BM127"
"45M177"
"95BM127"
"45M76"
"96BM127"
"146M127"
"95BM127"
"146M127"
"95BM127"
"146