׷UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUwU}U}UU}w]UUU}U}}]ww}UUUUUUwUwUwUUww}]uUUU]wuUww}wwugUUUU}UwUuUuUUu}g]uU}U]uuUuugugU}UU}UwU}U}UU}}g]}U}U]u}U}ug}}U}UUUUwUWUWUUW}]uUUU]uuUWuwwu}UUUUUUwuwuwuUwww]uUUU]wuUwwwwwuwUUUUUU}u}u}uU}ww]UUU}U}}wwwwUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUP?/PUAQP8?QUN tUQO OU***P}_U**""UU?U_""**"US?U_*" ""UW??U_""***WGyU **@OPIUUUQ@^R>QTQT U.TQ?U-JTTP_UM@WTQU_ UHWoQU9-SWoQUToQTUoUUUUUwUUUTgPUEUU_gUEUUOUEUUOGUEUU_}__UEUUO ?/UUUUWKqUUQUUOsUQUUOwHTQUUOOQUUS/QUUS ??QUUUQUU@?QUPGwUTUWUUUG?* *@UUU" "UUU"" **"UUUU"" ""UUUUO"" ***TUTW?"TUUW?TUCWTUOW_#UUSwUUU7OUUTU_PUUUU^PUUT]@USTY@UUS?UY@UUUUY@UUTCU]@UEUQ^@UEUA_UEU^UUSU%>UUUEtUQP{QiUQT?ߟTdUT?SUQ_SݔTE_?STU_UTUcNEPTK|?^PQUW?PEUOPE_T@UUGU**""!UUWUB" UQWU*"" UUOU ""UTOU**UT_UU8TUTUU?TUE?PUEGPUUWU@UQSU@UURU?U@UTPU=UUUTUUQTCTUEUTUAUSPUUUSPUTUSU@UWU@UUUWTUTUES?UUQTPEUUUU EEUDUTUKUU@UUSTUUPUUEGQUU@"UUQGEUU"" " UUTUU"  UUUUT "  UUaUUP "UU4t$UU@UUPy?UUUUUT _?UUUUppUTUyPTUPUUUuWU UUU%SUUUUUU>UUUT?U@UUUU_UUUUOPUUUW@"UTW" UTS" UU"" "ϷϷﷷϷﷷﷷ׷￷ﷷϿ߷ﷷ߷ﷷﷷﷷϷϷ&y:SURFACE!' * 1984 BY CHRISTOPHER PFEIFER 1348 N. DALE ST. ST. PAUL, MN 55117&:*****************************'T:NOTE 1: SAVE THIS PROGRAM BEFORE RUNNING IT! NOTE 2: THE CASSETTE VERSION SHOULD HAVE "CHARTS" (MADE BY THE "DRAWINGS" PROGRAM) AFTER THIS ONE ON TAPE'x:*****************************'200,&H6000'(&HC000)&H44 DK&H800'(&H72)&H60 12'164'183' &H6070' 14' :pclear( 8:10( 10(((&HC000)&H44 DK&H800(D(&H145EDK)&HA0 17(pDK&H800 M"CHARTS/ART" : M"CHARTS"(~:get sub(QQ(5)(4,1:(220,179)(242,187),QQ,G(&H6097,&H12:&H73,&H97 :revise reset)&H167,&H39 :disable textscreen after print)%173 :draw ice routine)?159 :break disable)iDR220:D13:IT4:SR50:GB(300)400)PX138:PY40.9:K30 :start location)151)R&H6000 &H6038:R,(IT)D1::R&H6020 &H6030:R,D:)4,5)&H60E0 :erase ice*KL(DP1.155)17** KL179 KL179*` DP147(52,(DP1.155)9)(74,KL),QQ, :put sub*!&H6040:SP0PS0PSPS1:54:PS5((SP)4)*"H(IT)1*#PXPX((FX100)SP)500*$PYPY((FY100)SP)500+%PX128KX(PX3)9:KX((256PX)3)9+9&PY96KY((PY2)3)9:KY(((192PY)2)3)9+d'K((KXKY)2)3.3:K0K0:K50K50+v(ZZ(&H603F)+)GG144+* ZZ&H38 D(ZZ&H6001) :D(&H6000)++45+, ZZ1 D(ZZ&H5FFF):D(&H6038)+-(110)K 47,.D170DDH:48,/DDH,*0 D13 D13,U1GG0(ZZ&H6000),D : (ZZ&H5FFF),D,b2GG153,3ZZ0&H603F,&H38 : &H603F,ZZ1,454,5 ZZ&H38 &H603F,0 : &H603F,ZZ1-663,1:LD(PX,PY):DD(PX1,PY):DL(PX1,PY):(PX,PY,1):LD6DL6DD6(PX,PY,LD):GB4:133 : 178:(PX,PY,LD)-G74,5:&H60B0-k8DP5(64,KL8)5GB3:133-9DP2(56,KL5)5(60,KL5)5(68,KL5)5(72,KL5)5GB3:133-::get key-;A$:A$" "86:A$"0"155-DRDR((LSP)100): :change direction.b?76.k@80.ADR0DRDR360:DR360DRDR360:@72," ";.BDPDP(TR10)((SPRS)300).C DPGB GB1:133 :crash.DDP0DP0.E:print outs/0FF$((K40)100):F((F$,4,2)):F(F.6)/]GTE(&H603F)40: TE&H39 TETE&H39/HIC(((&H6000TE))1.1611)/IC$(F100)"00":DP0@51," S";:@51,(DP4);0J@66,L;:@71,(DR);:@77,SR;:@83,IC;:@92,SP;:@98,RS;:@115,(F$,3);":";(C$,3,2);:1780"K280>LDR90FXDR:FYDR90:0_MDR180FX180DR:FYDR90:0NDR270FXDR360:FY270DR:0OFX180DR:FY270DR:0PTRSR50:0Q:poke routine0RR1(B$)20SC$"&H"(B$,R,2)1TV(C$):Y,V:YY1:R1U1#V1,1:CSCS1:CS3CS116WCS 89,90,911?X281OY4,1:1,1:1XZ0:1i[1,1:&H60D01o\1]L45LL51^1_L45LL51`1aRS45RSRS51b1cRS45RSRS51d1eSR0SRSR21f1gSR100SRSR22h2iSP20SPSP42)jSP0GG1:GG02/k2ClSP20SPSP42XmSP0GG1:GG02^n2no:periscope2p@160,"":R19:::@197,"PERISCOPE AYE, CAPTAIN"2qIC0114:DPIC14GB2:1332rR15:R10,1::3,5:3:R80942:(128,96),R:3 s1313LtDP15(128,96),2,0:131:(128,96),80,1:(128,96),95,1:1243uCI0:R&H6000 &H6038:CICI(R)::CICI5713:(50,96)(220,96),:(128,90),0,0:(128,100),2,03v1313wDW96:R6021010:WD(CI10):WD97WD4xWD130WD130:WD0WD(90)4.y(R10,DW)(R,WD),:DWWD:48z1314{(128,96),95,1:(128,96),80,1:(128,20),1,1:@160,"":R19:::@203,"WE ARE ";:"###.#";(50K)25:" NAUTICAL MILES FROM POLE"4|4,5:1,15}A$:A$""125 : &H60B0,&H10:&H60B4,&H12:&H60BC,&H1250:&H60B05H&H60B0,&H12:&H60B4,&H10:&H60BC,&H105k DP0 (F$,2,1)"9" 1425R15000::@160,"":R19:::5" UP . . .":5:goodbye5:0:30,305@200,"MISSION SCRUBBED"6 GB 137,138,139,1406A$:A$""136:6[" EXESSIVE PRESSURE HAS":" DAMAGED HULL":6" PERISCOPE DAMAGED BY ICE":6" COLLISION WITH ICE":" REQUIRES EXTENSIVE REPAIRS":6" SUB HAS RUN AGROUND":6:messages7@160,"":R19::7@160,"":B$" ANY SHIP OR ANY STATION X THIS IS THE USS SKATE X WE HAVE A MESSAGE TO SEND X OVER":148:1477::B$" THIS IS RADIO MANILA X HEAR YOU LOUD AND CLEAR X WILL RELAY YOUR MESSAGE X OVER":148:1478$!"%SURFACE BAS CHARTS ART# @160,"":R18:::@160,"":B$" FROM USS SKATE TO NAVY DEPARTMENT X HAVE SURFACED AT NORTH GEOGRAPHIC POLE X OVER":148:1479::B$" TO USS SKATE FROM CHIEF OF NAVAL OPERATIONS X CONGRATULATIONS ON A JOB WELL DONE X OVER AND OUT":1489*A$:A$""147:9<R1(B$)29^C$(B$,R,2):255,1:C$;::9w:draw control panel:A175:0::R031:(A);::" TRIM ";(A);"BEARG";(A);"BLLST";(A);" ";(A);"SPEEDR: ";(A);" ";(A);" ";(A);" ";:t(A);" P: ";(A);"DEGRS";(A);"% CAP";(A);" ";(A);"KNOTS";:R132:(A);::R110:::157;1@160," = CHANGE SCREEN":" <1> = RIGHT RUDDER (+)":" <2> = LEFT RUDDER (-)":" <3> = DIVING PLANE DOWN (+)":" <4> = DIVING PLANE UP (-)";" <5> = BLOW MAIN BALLAST":" <6> = FILL MAIN BALLAST":" <7> = INCREASE SPEED (+)":" <8> = DECREASE SPEED (-)":" <9> = PERISCOPE (UP/DOWN)";R131:(A);::&H5FF,&HAF;<:break disable<4B$"32621CAF7EADA5":Y&HF8:82B$"600086FF97B586E0BE603EC60DD7C6E680D7C097BE97C4800427138C603822093412BD94A1351220E68E600020F239">#82>)>5:sonar>JE 0 : >nE(DP4IC)5:E20GB3:133> IC0 :150,1>>:screen routines>B$"128E6200108E">B$B$(&H1E00DK)>B$B$"ECA1ED81108C">B$B$(&H3600DK)?:B$B$"25F686FFC60E8E0152A7805A270820F98662447E960F39"?LY&H60B0:82?\:erase ice?lB$"125F8E"?B$B$(&H1F00DK)?B$B$"861DE7804A27068C"?B$B$(&H347CDK)?B$B$"25F639300320EF12"?Y&H60E0:82?Đ0x" "****"(( "" """  *"**(?"" " ""** "(TUS|USUSU UpUUS?UUS UUF?=|(UUABP UUOUATUUT/UUUPQ7EUUUWGwUU@UOUUPUN=U@UUUUTSqEUVGޅQUWUUUU?UTTU@UUU@`UUUUPeUUAUPeUUQUTUUEUTG=UUUTUUOUUUUOUUUUU@WUUUUEU@OUUTUUTOUUUUQT?UUQUUTUUQUUS "" UUUUTO" UUEUU_ "" T?UUUUU?T?UUUU? U?UUUUTUUUUU)T_UTUUTwTOUUUUT WUQUUTCSWUQUUTQS?UUUUUP\P?UUEUUOO?AUUUU_N?UUUU?V?CUUUUU?M??UUUU?TUUTT9?ߑPUUUUQ?TQUUSW_UUUUOOUEUUUNoOUUUU?MoQUUTIlKTUUP@QSUUUUD@EUUUU@U??UTU?U@U_UUUU?U@UKUEQU_U@GUEEUOU߷׷Ϸ׷ϷﷷﷷϷϷ߷LJϷﷷ