JJJJ ( X ,0 ,b9 LԠ  Рààè   3.3     Ԡˠ ʠРӧ$%L"ʹ0  `:54,0:55,96:1002>DI080:Y(I)(I9):X(I)IY(I)9:NI063:C(I)(I32):P(I)((I32C(I))4):D(I)I32C(I)4P(I):X28,128:230,32:62454:49239,0:49232,0:49234,0b:I08:SN(I):lI017:BD(I):vI1862:BD(I)1:63),C(63),D(63)k ::4:12:"LASER CHESS(TM)":7:12:"COPYRIGHT 1987":7:"COMPUTE! PUBLICATIONS, INC" 10:10:"ALL RIGHTS RESERVED" (4);"BLOAD LASER.ML" &25315:I24400I7:I,128: 06,80:7,95:(191256)76ĺ(4)"pr#a$6000":580Ğ 9:2:"PASS"::MS3Ğ5 11:2:"QUIT"::g PX4421X(I):PY418Y(I):7:I2(I2)Ē4 R6:K118:PX,PYRPX15,PYR:RR716(R8):: 24:14:"PRESS A KEY"; A$:14:11);: 32768:(21):BD(80),TD(7,3),X(80),Y(80),P(11HCI ^HC:J01:K01:PX43XJ18:PY2YK16:PX,PYPX,PY1:::g h130:25312,SN(P)D,C,X,Ym r |R((1)81):BD(R)1R40380 IL1L1R IL2L2R BD(R)BD(I):BD(I)1:IR:110  7:2::MS1Ğ "FIRE"::MS2X10,LY9LX10,LY:E LX9,LY8LX20,LY8LX20,LY9LX9,LY9:] "7:CP2(CP2)Ē4 ,PX43X(CP)21:PY3Y(CP)18:PX,PYPX18,PYPX18,PY15PX,PY15PX,PY 6CPSPİ330 @ JHC7:XX(SP)21:YY(SP)18:SP2(SP2)HC4 TSPCPHC:  25309,X,Y6 X4Y4Ē6:146,74146,91< S 4:I2(I2)Ē7 LX4221X(I):LY218Y(I):D1250,260,270,280 LX9,LY8LX9,LY17LX10,LY17LX10,LY8: LX,LY8LX10,LY8LX10,LY9LX,LY9: LX9,LYLX9,LY9LG COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC ALL RIGHTS RESERVEDPd510cn130:ISP330ixYY(I):XX(I):BD(I)1200180:X2(X2)C1CCC2(I2(I2))25306,SN(P)D,C,X,Y CC(BD(I)):PP(BD(I)):DD(BD(I))     5`ɠ J x ?L k N L :LÅ xLN X Ɂɍ )  L  ꕍL oL돕ґȑAA摊ґőCURSOR MODEDIT MODVERIFY? (ESC/RETƅL<hh`"H"#8H $(*)+!h"H $(*0" '(h"`+tsts`H %%#% "h` 00`6789`6789` Lƅ67`67`Hɠ)?H5, R$($$h($$!n$ h0 rLȱЂN`ͮ ,,R8Єτ Nȱ0 Й ,0ϐ r ,0 rLrH , ,,`h`H%8i#nh`哚h%h$h哮 "(`哚H$H%H哮N`HH,0ꕌ p "8n%%#L%L擩$`'$`,$() ۰(I (` Lɺɰ``%5 ( D5 (`` 5 ֺ PQ 5xȱȱQPg,,0[,0 R땄$ $$ rȱ0 r r慤& r (L`% O앆% "(ɠ)?)!%%# "(ɠ ,0>% "ʠ'(ɠʈ% "L_ $ 4 ɍN`%%#% 擮  LD Nꕥ$ %"\% "`$N`8n $$! ,0vL  & &Lkѝ`hhȱ<ȱ=l< $( D>! ((!(%%#(*)+ "( D ȱ('*%L '((ȑ($$($%%#+%ɠ 擥%H %"% h (L (ɠ ɠ%  / X H ?L 1.0  1986 ɍHv3hv`h 9Նv$ ? /#% B  4 nN蕢哢 4 ɛ-Ʌ )  4 ɠ Lɛ L#ʆ%  B+89           ,8,17,30,30+30,26,26,12,20,21,26,26,29K63,56,56,53,52,46,56,56,60k60,60,49,40,32,36,48,63,63|-1,-1,-1,-1-1,-1,-1,-10,1,2,3-1,0,4,03,2,1,02,1,0,3-1,-1,0,-1-1,-1,1,0B$,B)):110:,/6SP1ISP:SP1:110:@MC2:XJ24:8::"Q";::"UIT ";uT:"R";::"ESTART OR ";^:"C";::"ANCEL";:C$:C$"R"C$"r"QF1:hC$"Q"C$"q"Ė8:23);:r::|0,1,5,6,10,12,14,18,22 29,29,16,6,0$SX$I$%LDDLT:LDLD4(LD3):YLX$""I(LX$):LD((LX$,2)):LX$(LX$,3):uZ1::490:EX$""1570J1(EX$):I((EX$,J)):470:BD(I)0K11BD(I)32K21IL1L11IL2L21BD(I)1: "B1(LB$):I((L:230(I$(I):LB$LB$I$:BD(I)1Ău180:LTLDD:LTTD(P,LT4(LT0)):LT1EX$EX$I$:360:DLD:230:1500LT4LX$LX$I$(D14(D0)):LT1P3LT1490SX$""1480J1(SX$):I$(SX$,J,1)J999:J10001500SXEX$"":SX$""4Z010:LD11320,1340,1360,1380R(D2:JI9:I8I491400a2230:1500<D3:JI1:X(I)8I391400F230:1500PD0:JI9:I72I311400Z230:1500dD1:JI1:X(I)I411400n230:1500x230:DLD:IJC$:C$(21)C$(10)MSMS13(MS3)MC$(8)C$(11)MSMS13(MS1)`C$(27)1270tC$(13)1220MS1280,1590,1610MS0:430:I(PP0)L1(PP1)L2:I1MF4ı MF4:MCMC1:Z(0) LDBD(I)32PP4:LB$(I):LX$"":`ISP:SP1:110:MCMC(XM)(YM)DM:5jSP1ıbtISP:180:DD1:D0DSN(SI1)SN(SI)1~BD(SP)SC32P4D:ICPİ110SP1ıISP:180:DD1:DSN(SI1)SN(SI)D0BD(SP)SC32P4D:ICPİ110MS1&430:1120 BD(CP)11090<(SI0SI6)MF31070OBD(CP)0K11cBD(CP)32K21tCPL0L01CPL1L11$MF3:1090.SI2MF1MF1:ICP:380:10908BBD(CP)BD(SP):BD(SP)1LSPL1L1CPVSPL2L2CP(180:DM(DSD):(XM)(YM)DMMC2ı5CPSP1120a(XM)2(BD(SPXM2)1SPXM240)ı(YM)2(BD(SPYM29)1SPYM2940)ıYMXM(BD(SPYM9)1SPYM940)(BD(SPXM)1SPXM40)ıCP401000MF2MF2:ISP:380:80,1130,1170,1210:IOP:110:6902 CP8CPCP98*M4X(CP)8CPCP1S>fHCP72CPCP9lR\X(CP)0CPCP1fpSP1920zBD(CP)1ıICP:180:PPCSCC:SIP:SDD:SPCP%YMY(CP)Y(SP):XMX(CP)X(SP):ISP:90:600XMC2PP1PP:MC0:MF0:20:2:("] ][ [",PP31,3):SP1ISP:SP1:110nMC1Ģ20:4:" "w290 C$:C(C$):K(C11)2(C21)3(C10)4(C8)5(C13)6(C44C60)7(C46C62)8(C27):C0780 OPCP:K800,820,840,860,8I6380:BD(I):3P07:D03:TD(P,D)::WCP0:SP1:PP1:MC2:L13:L277jI080:110:QF0:MS0:K10:K20:430QF600K1K2075023:K1K2Ė18:"DRAW":740K1Ė14:"ORANGE WINS":74015:"BLUE WINS"4 NUMBER OF THE DRAWING ROUTINE THAT YOU WANT TO USE FORYOUR PICTURE AND FOR THE NAME OF A FILE TO SAVE IT TO. WHEN THE PROGRAM HAS"i"FINISHED CREATING THE FILE, YOU WILL BE RETURNED TO THE MAIN MENU.": INSTRUCTIONS":"<2> LOAD PICTURE FROM DISK":"<3> TRY DRAW ROUTINES":"<4> MAKE AUTO-DISPLAY HI-RES PICTURE":"<5> SEE SCREEN IN MEMORY"e"<6> ";MN$:"<7> QUIT": f"PLEASE CHOOSE ONE (1-7) : ";:X$:X$:X$"1"X$"7"ĺ896)76CT$"CAT":NL%15:MN$"SET PREFIX":D$;"PREFIX":PX$:SL$""Nd63000Tddd MAIN MENUjdd::3:"AUTO-DISPLAY HI-RES PICTURE MAKER":3:"=================================": e"COPYRIGHT 1987 COMPUTE! PUBLICATIONS":10:"ALL RIGHTZ&Fc COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC ALL RIGHTS RESERVEDc(103)(104)25625345Ĺ25344,0:103,1:104,99::(4);"RUN AUTO.HIRES.PIC"cD$(4)BdSL$",S6,D1":SL%6:DR%1:MN$"SET SLOT AND DRIVE (NOW 6,1)":CT$"CATALOG":NL%30:(48           0 &e` ᥡ`i,Ue`i`)`i'` aeu`uu` ae 'eye` d{e ze MzeJ`vxEFG >0 e()) $20I$ i EFGXL怀憆澀澀澀怀漀涞怀怀怀漀澆쀀怀挰澀1,232,97,169,191,141,233,97,169,96,141,234,97,174,232,97,189,104,96,133,60,133y 64,189,40,97,133,61,24,105,32,133,65,174,233,97,189,104,96,133,62,133,66,189,40,97,133,63,24,105,32,133,672z 160,0,177,60,145,64,177,62,145,66,200,192,40,240,3,76,63,95,58,255,35,58,41,63,37,52,43,56x 45,61,47,58,64,89,69,93,67,80,73,85,76,91,77,90,0,0,128,128,128,0,128,0,0,0,80,128,127,127,127x 255,127,255,255,255,127,127,255,255,181,300xx DRAWING ROUTINE 2xNy 32,216,243,173,82,192,169,0,14,141,75,96,142,163,96,32,56,96,174,163,96,232,76,8,96,96,169,32,133,61,169w 40,133,63,169,64,133,67,169,0,133,60,133,66,169,255,133,62,32,82,96,96,160,0,177,60,145,66,32,180,252,176 x 8,169,16,32,168,252,76,82,96,96,32,57,37,61,35,48,41,53,44,59,42,169Fvj 67,133,63,169,0,133,66,169,96,133,67,32,44,254,76,0,96,300Lv{dv| DRAWING ROUTINE 1jv}v~ 32,216,243,173,82,192,162,0,189,102,96,201,255,240,40,141,57,96,189,115,96,141,61,96,189,127,96,141,65,96Jw 189,139,96,141,69,96,189,151,96u'X:X300ıu$'10010"u+'!"ENTER NEW PREFIX:";X$0tH!8600TtR!D$;"PREFIX ";X$:PX$X$:63000^t\!1000pt!(7)::8510vt 't ' SUBROUTINESt 't' WAIT FOR KEYPRESSt't'23:"PRESS ANY KEY TO CONTINUE ";:X$::t't' SKIP ONE DATA BLOCKu'"1"X$"7"ĺ(7):1:(37):80104s^SL%(X$):X$:Osh"DRIVE (1-2) ? ";:X$xsrX$"1"X$"2"ĺ(7):(37):1:8040s|DR%(X$):MN$"SET SLOT AND DRIVE (NOW "(SL%)","(DR%)")":SL$",S"(SL%)",D"(DR%):1000 t4!"CURRENT PREFIX: ";PX$::34,Y KEY TO GO BACK TO MENU ONCE":"PICTURE COMES ON":X12500:rl49232,0:49234,0:49236,0:49239,0:16384,128:16368,0:1000r=r> SLOT,DRIVE / PREFIXr?r@::MN$:X1(MN$):"-";::::CT$"CAT"8500rJ"SLOT (1-7) ? ";:X$ sTX$D$;"BSAVE ";FI$;",A$2000,L$2400";SL$::"DONE.":X12000::8192,X1:8193,X2:8194,X3:1000bqmmqn QUITsqoqp::12:14:".... BYE ....":23:qUqV SEE SCREENqWqX::"SEE SCREEN IN MEMORY":"--------------------":>rb"PRESS AN2):X2(8193):X3(8194)6p8192,76:8193,0:8194,64Jp PO16384:10030lp16385,X1:16390,X2:16395,X3ypPO16640p(DR1İ10030:5300p2X51DR1:10010::10030p<DR5İ10030:5300pFX515DR:10010::10030\q"SAVING FILE....":::5030Ho(FI$)NL%((FI$,1))("A")((FI$,1))("Z")ĺ(7):5030o:"FILENAME:";FI$::"DRAWING ROUTINE ";DR:::"OK (Y/N) ? ";:X$:X$:X$"N"5000oX$"Y"5090o(7):5060o34,6::34,0:10o"CREATING FILE....":pX1(8191-5) : ";:X$:X$:X$"1"X$"5"ĺ(7)::5010;nDR(X$)n:"ENTER NAME OF FILE TO SAVE TO.":"(JUST RETURN FOR CATALOG)"::":";FI$oFI$""Ĺ34,0:D$;CT$;SL$:::10000::"MAKE AUTO-DISPLAY HI-RES PIC.":"-----------------------------"::34,310010:mPO24576:100302mX25İ10030:4200QmX115X2:10010::10030nmh24576:X15000::4000tmm MAKE PIC.mm:::"MAKE AUTO-DISPLAY HI-RES PIC.":"-----------------------------"::34,3.n"USE WHICH DRAWING ROUTINE (CHOOSE ONE:":VlX15:"<";X;"> DRAWING ROUTINE ";X::"<6> RETURN TO MAIN MENU":l"WHICH (1-6) ? ";:X$:X$:X$"1"X$"6"ĺ(7);:4000lX2(X$):X261000l::"SKIPPING DATA...."::10010lX21PO24576:10030:4200mX11X21:CT$;SL$:::10000:3000Zk (FI$)NL%((FI$,1))("A")((FI$,1))("Z")ĺ(7):3000k :49234,0:D$;"BLOAD ";FI$;",A$2000";SL$:X11500::1000kk TRY DRAW ROUTINESkk::"TRY DRAW ROUTINES":"-----------------":l"PLEASE LL OVERWRITE MEMORY LOCATIONS $2000- $62FF (8192-25343).":Mj 10000:1000Sj fj LOAD PICTURElj j ::"LOAD PICTURE FROM DISK":"----------------------"::34,3j "ENTER FILENAME (JUST RETURN FOR CATALOG)":":";FI$k FI$""Ĺ34,0:D$;RY AGAIN":63900> ::"ERROR NO. ";E1;" AT LINE NO. ";E2:X::ER$:10000:1000D00TE113ER$"FILE IS NOT A BINARY FILE"(13)(13)"PLEASE TRY ANOTHER FILE":63900^E16(E17(48896)76)ER$"FILE NOT FOUND"(13)(13)"PLEASE TRY ANOTHER FILE":63900hE111(E116(48896)76)ER$"DOS SYNTAX ERROR"(13)(13)"PLEASE TVE WRITE PROTECT STICKER":63900l6E18ER$"DISK I/O ERROR"(13)(13)"PLEASE TRY ANOTHER DISK":63900@E19ER$"DISK FULL"(13)(13)"PLEASE TRY ANOTHER DISK":63900JE110ER$"FILE LOCKED"(13)(13)"PLEASE TRY ANOTHER FILE":63900U46,50,54,58,62,34,38,42,46,50,54,58,62,35,39,43n 47,51,55,59,63,35,39,43,47,51,55,59,63,160,137,160,0,300t ERROR HANDLERE1(222):E2(218)(219)256†"E12551000 ,E14ER$"DISK WRITE PROTECTED"(13)(13)"PLEASE REMO,49,53i 57,61,33,37,41,45,49,53,57,61,34,38,42,46,50,54,58,62,34,38,42,46,50,54,58,62,35,39,43,47,51̅ 55,59,63,35,39,43,47,51,55,59,63,32,36,40,44,48,52,56,60,32,36,40,44,48,52,56,60,33,37,41,45/ 49,53,57,61,33,37,41,45,49,53,57,61,34,38,42,0,44,48,52,56,60,32,36,40,44,48,52,56,60,33,37,41,45,49,53,57,61 33,37,41,45,49,53,57,61,34,38,42,46,50,54,58,62,34,38,42,46,50,54,58,62,35,39,43,47,51,55,59 63,35,39,43,47,51,55,59,63,32,36,40,44,48,52,56,60,32,36,40,44,48,52,56,60,33,37,41,45,168,168,168,80,80,80,80,80,80,80,80,208,208,208,208,208,208,208,208,80,80,80,80,80,80,80,80,208,208փ 208,208,208,208,208,208,80,80,80,80,80,80,80,80,208,208,208,208,208,208,208,208,80,80,80,80,80,80,80,80,208@ 208,208,208,208,208,208,208,32,36,428,128,128,128 128,128,128,40,40,40,40,40,40,40,40,168,168,168,168,168,168,168,168,40,40,40,40,40,40,40,40,168,168,168,168 168,168,168,168,40,40,40,40,40,40,40,40,168,168,168,168,168,168,168,168,40,40,40,40,40,40,40,40,168,168,168d 168,16879,98,240,9,206,77,98,238,78,98,76,122,96,96,3006H COMMON DATAN 0,0,0,0,0,0,0,0,128,128,128,128,128,128,128,128,0,0,0,0,0,0,0,0,128,128,128,128,128,128 128,128,0,0,0,0,0,0,0,0,128,128,128,128,128,128,128,128,0,0,0,0,0,0,0,0,128,1sd 77,98,189,205,96,133,60,133,64,189,141,97,133,61,24,105,32,133,65,174,78,98,189,205,96,133,62,133,66,189,141n 97,133,63,24,105,32,133,67,160,0,177,60,145,64,177,62,145,66,200,192,40,240,3,76,164,96,169,96,32,168,2520x 206,79,98,169,255,205,189,141,97,133,63,24,105,32,133,67P 160,0,177,60,73,255,145,64,177,62,73,255,145,66,200,192,40,240,3,76,63,96,169,96,32,168,252,206,79,98,169Z 255,205,79,98,240,9,238,77,98,206,78,98,76,21,96,169,96,141,77,98,169,95,141,78,98,169,96,141,79,98,174133,62,160,0,32,44,254,96,300#~9;~: DRAWING ROUTINE 5A~;~< 32,216,243,173,82,192,169,0,141,77,98,169,191,141,78,98,169,96,141,79,98,174,77,98,189,205,96,133,60,133"F 64,189,141,97,133,61,24,105,32,133,65,174,78,98,189,205,96,133,62,133,66,4,105,32,133,67} 160,0,177,60,73,255,145,64,177,62,73,255,145,66,200,192,40,240,3,76,63,96,169,192,32,168,252,206,9,98,169}( 255,205,9,98,240,9,238,7,98,206,8,98,76,21,96,169,32,133,61,169,63,133,63,169,64,133,67,169,0,133,60~2 133,66,169,255,7,76,21,96,96,300|/| DRAWING ROUTINE 45| | 32,216,243,173,82,192,169,0,141,7,98,169,191,141,8,98,169,96,141,9,98,174,7,98,189,135,96,133,60,133} 64,189,71,97,133,61,24,105,32,133,65,174,8,98,189,135,96,133,62,133,66,189,71,97,133,63,2 64,189,40,97,133,61,24,105,32,133,65,174,233,97,189,104,96,133,62,133,66,189,40,97,133,63,24,105,32,133,67{ 160,0,177,60,145,64,177,62,145,66,200,192,40,240,3,76,63,96,169,192,32,168,252,206,234,97,169,255,205,234,97| 240,9,206,232,97,238,233,96,169,192,32,168,252,206,234,97,169,255,205,234,97dz 240,9,238,232,97,206,233,97,76,21,96,96,300jzz DRAWING ROUTINE 3zz 32,216,243,173,82,192,169,96,141,232,97,169,95,141,233,97,169,96,141,234,97,174,232,97,189,104,96,133,60,133l{S":MIN1:MAX9:1390:CE(1520b&"INPUT HUMIDITY":"(EX. INPUT 50 FOR 50% HUMIDITY)";~0MIN0:MAX100:1390:HE:1520D"INPUT TEMPERATURE IN FAHRENHEIT":"(EX. 63 = 63 DEG. F)";NMIN130:MAX130:1480:TEX1520b FORECAST 15205 "PLEASE ENTER THE NUMBER FOR THE MAIN"Z "CLOUD TYPE FOR YOUR LOCATION."`  "1. CIRRUS":"2. CUMULONIMBUS":"3. STRATUS" "4. NIMBOSTRATUS":"5. ALTOSTRATUS":"6. ALTOCUMULUS""7. CIRROSTRATUS":"8. CUMULUS":"9. NO CLOUD- r"PLEASE ENTER THE NUMBER THAT DESCRIBES"Q |"CURRENT BAROMETRIC ACTIVITY."p "BAROMETER IS: 1. STEADY" 14)"2. RISING FAST" 14)"3. SLOWLY RISING" 14)"4. FALLING FAST" 14)"5. SLOWLY FALLING"  MIN1:MAX5:1390:BDE)"2. NE"3)"3. E" 7 "4. SE"3)"5. S"4)"6. SW"= b ""7. W"4)"8. NW"3)"9. NO WIND"h ,n 6 @MIN1:MAX9:1390:WE J1520 T"ENTER BAROMETRIC PRESSURE":"IN INCHES OF MERCURY (EX. 29.95)"; ^MIN27:MAX33:1480:BPE h1520, S= SOUTH, E=EAST, W=WEST"F "(NOTE: THE DIRECTIONS ARE THERE THE"u "WIND COMES FROM, NOT WHERE IT IS GOING." "SO, 'NE' MEANS A WIND BLOWING OUT OF" "THE NORTHEAST.) "--------- WIND DIRECTION MENU ---------"  "1. N"490:ME/ Z"ENTER DAY";:MIN1:MAX31:1390:DE_ d"ENTER THE YEAR";:MIN0:MAX2100:1390:YEi n1520 x"INPUT NUMBERS WHEN PROMPTED BY ?" " FROM THE MENU ENTER THE NUMBER CORRES-" "PONDING TO THE WIND DIRECTION"  "N= NORTH(G COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC. ALL RIGHTS RESERVEDQ1520k"THE WEATHER WIZARD"q(2"COPYRIGHT 1987 COMPUTE! PUBLICATIONS":"ALL RIGHTS RESERVED"<J13000:F1520 P"ENTER MONTH (USE NUMBER)";:MIN1:MAX12:13         ,0,0,0,0' 0,0,0,0,0,1,239,216,0,0,0SE 788,TR:789,SA:796,OP> HB(BU256):LBBU(HB256)R 792,LB:793,HBi 768:BUBU256:SAo I768822:A:I,A:I: 169,3,160,16,32,217,3,96,0,0,0 0,0,0,0,0,1,96,1,0,17,15 48,3,0,32,0,0,1,0,254,96,1 0,0,0,0,0,0,0* <48894,(48894)1E FD$;"INIT HELLO,D1,S6":D$;"DELETE HELLO"[ P48894,(48894)1 ZSS0:SE0:BU8192:OP1:TR17:130 d8192196,255:8192197,255:819252,36 nSS0:SE0:BU8192:OP2:TR17:130 x20 ***DISK ACCESS*** SASS(F ** COPYRIGHT 1987, COMPUTE! PUBLICATIONS. ALL RIGHTS RESERVED.W D$(4):200::17:"D.M.E.S.":1:X116:X:"-";:X:X2540:X:"-";:X13:"INSERT DISK INTO SLOT 6,DRIVE 1":"AND PRESS ANY KEY":A$( 2***EXPAND DISK CAP.**   ` PRINT SHOP (TM) ( CONVERTER> COPYRIGHT 1987 `( COMPUTE! PUBLICATIONS, INC.{2 ALL RIGHTS RESERVED.<F::8191PFU%0:X0%0:Y0%0:X1%0:Y1%0:V0%0ZD$(13)(4):Q$(34) d(41868)113ĺ"Sorry! You must use DOS             R FORECAST"@P$J1520&T120 JLOW";:1470)EMAXĺ"TOO HIGH";:1470/7:N:M;"/";D;"/";Y:t"TEMPERATURE IS: ";T;" DEG. F":"HUMIDITY IS: ";H;"%":"BAROMETRIC PRESSURE IS: ";BP;" IN. HG""J13500:,:::: 6"PRESS TO MAKE ANOTHEPLEASE ENTER AN INTEGER";:1380<MINEĺ"TOO LOW";:1380ZEMAXĺ"TOO HIGH";:1380` REAL NUMBER INPUT ROUTINE"ENTER A NUMBER BETWEEN ";MIN;" AND ";MAX",TRY AGAIN"E$"":E$:E(E$):E0(E$,1)"0"1460 MINEĺ"TOO DERSTORMS TODAY]"@<"FORECAST: FAIR WEATHER TODAY WITH LIGHT"`F"TO MODERATE WINDS.":1530|P INTEGER INPUT ROUTINEZ"ENTER AN INTEGER BETWEEN ";MIN;" AND ";MAXd",TRY AGAIN"nE$"":E$:E(E$)xE0(E$,1)"0"1370E(E)ĺ"LURRIES":1530<"FORECAST: 90% CHANCE OF HEAVY PRECIPI-"c "TATION WITHIN 12-24 HOURS":1530"FORECAST: CHANCE OF LIGHT PRECIPITATION":1530"FORECAST: PRECIPITATION WITH HEAVY"("WINDS IN 24-48 HOURS.":15302"[POSSIBILITY OF THUNHANCE OF PRECI-"="PITATION WITHIN THE NEXT 24-36 HOURS."j"CHANCE OF PRECIPITATION WILL INCREASE""WITH THE ACCUMULATION OF MORE CUMULO-""NIMBUS TYPE CLOUDS.":1530"FORECAST: 10-20% CHANCE OF ";:T35ĺ"SHOWERS":1530"SNOW FELL.":15307"FORECAST: PRECIPITATION WITHIN 24-36"i"HOURS, SLIGHTLY COOLER TEMPERATURES.":1530"FORECAST: IF CIRRUS CLOUDS ARE""INCREASING AND BECOMING MORE DOMINANT""WE CAN EXPECT WARMER WEATHER.":1530"FORECAST: 50-80% C0CV"FORECAST: SEVERE WEATHER; STORMY WITH":"HIGH WINDS.":1530q`"FORECAST: CONTINUING PRECIPITATION CAN"j"BE EXPECTED FOR THE NEXT 12 TO 24 HOURS.":1530t"FORECAST: STORMS WITH HIGH WINDS WITHIN" ~"24 HOURS. COOLER TEMPERATURES AS WR AHEAD WITH"4"WITH COOLER TEMPERATURES.":1530b$"FORECAST: HIGH WINDS AND PRECIPITATION"."WITHIN 12 HOURS":15308"FORECAST: PRECIPITATION WITHIN 24 HOURS.":1530B"FORECAST: HIGH WINDS AND PRECIPITATION"L"WITHIN 24 HOURS.":153"THE NEXT 24 HOURS. TEMPERATURES WILL"N"REMAIN NEARLY CONSTANT.":1530}"FORECAST: PRECIPITATION CAN BE EXPECTED""IN 24-48 HOURS.":1530"FORECAST: WARMER TEMPERATURES FOR THE""NEXT 24 HOURS.":1530 "FORECAST: CLEAR WEATHEORECAST"1530?"[SMALL CHANCE OF THUNDERSTORMS TODAY]"Es"FORECAST: FAIR WEATHER CAN BE EXPECTED""FOR THE NEXT 24 TO 36 HOURS":1530"[SLIGHT CHANCE OF THUNDERSTORMS TODAY]""FORECAST: CONTINUED FAIR WEATHER FOR")*C1180,1210,1260,1280,1300,820,1310,840,840A4T75H68950K>1310_HT75H681330iR1340\"FORECAST: STRONG WINDS AND HEAVY"f"PRECIPITATION CAN BE EXPECTED WITHIN"p"THE NEXT 6-24 HOURS. LOWER TEMPERA-"z"TURES ARE ALSO F3)T75H709502(W6W8)(BD1BD3)970EW4BD51000gW4BP30.5(BD4BD5)1020(W4W5)BD41060(W4W5)BD51080(W3W4)BD41090 W5(BD4BD5)860(W1W2)BD41140 (W1W2)BD51160.SlBP29.97104v(W1W5)BD4BP29.7860a(W6W8)(BD1BD3)T75H68910(W6W8)(BD2BD3)930BP29.7810(BD2BD3)1040(W1W5)BD41110(W2W3)BD51120810(W6W8)(BD1BDA$" in drive 1 and press any key "3":21:I40;,J0L6B$(A$,IJ)p@(B$)(A$)(B$,1)(32)1620JJJ1:1590T(B$,I1)^K(A$)(B$)hK0Č198:198:756:rA$(A$,K):1580|:21:"Loading "Q$FI$Q$:Heof frame movement"85)"F = Turn full screen ON/OFF"^"RETURN = Accept position";:1::21:"Saved as "Q$FI$Q$:I12000:I:A$"Place the disk containing "Q$FI$Q$:1560A$"Place the disk you want to save "Q$FI$Q$" on"$A$1%2xX1%X0%1X1%X0%16Y1%Y0%1Y1%Y0%1?:KMMessages:21:"ARROWS = Move";:FR1450,1460,1470,1480,1490" TOP";:1490" BOTTOM";:1490" LEFT";:1490" RIGHT";" window frame"3)"1-9 = Distance :X1%X1%J(FR4)h(KB149KB138Y0%Y0%J(FR1):Y1%Y1%J(FR2):X0%X0%J(FR3):X1%X1%J(FR4)2KB176KB186JKB176<X0%35X0%35FX1%266X1%266PY0%0Y0%0ZY1%167Y1%167dX0%X1%2X0%X1%2nY0%Y1%2Y0%Y(32)(8);"(FI$)1FI$"":I=FI$(FI$,(FI$)1):IUMove window frame a1440:nK010KB(49152):KB128ĂK 49168,0::KBKB32(KB223)KB141į:KB136KB139Y0%Y0%J(FR1):Y1%Y1%J(FR2):X0%X0%J(FR3):1:868:FI$""`I010<j756:KB(49152):49168,0QtKBKB32(KB96)^~KB13ımKB27210}KB241110KB8KB95(36)25Č198:IKB8KB32ĂIKB8KB95FI$FI$(KB):(KB);:I(36)0Č198:I (8)of files";1110%FI$""1070=::D$"CATALOG,D1"k"Press any key to continue... ";:756:u$1000.1540:8 Get file nameB23:"CTRL-X=Erase file name"3)"ESC=Main menu"L"<- or DELETE=Delete char RETURN=Accept";V22I$".PS":D$"BSAVE"FI$",A22528,L576,D1":1530:2108ISUBROUTINESY File name:21:49235,0:"What name should I use to save this?"1090:1550::21:"What graphic do you want to convert?" 24:"Press 'RETURN' for a catalog 0)RKB138Y0%Y0%J:Y0%139Y0%139L\KB139Y0%Y0%J:Y0%0Y0%0sfKB149X0%X0%J:X0%191X0%191pX1%X0%88:Y1%Y0%52zKB155210KB176KB186JKB176KB198F49234(F49234):F,0:I980:FU%2:2FI$FSAVE"FI$",A$4000,L"L",D1":1530:210*?Save Print ShopETFR5:1440~ X0%95:Y0%50:X1%183:Y1%102:FU%5:J9 I010*KB(49152):KB128ĂI449168,0::KBKB32(KB223)>KB141930HKB136X0%X0%J:X0%0X0%mpressed HIRES picture"$vI010@KB(49152):KB127I1SI:49168,0:1cKB155210F0KB176:F01F02630FI$FI$".PIC"F01ĺD$"BSAVE"FI$",A$2000,L$1FFF,D1":1530:210FU%3:L(1)64L256L2(0)$D$"B 560 % Load Print Shop+ 5 1000? 520o 1660:D$"BLOAD"FI$",A$5800,D1":216,0:768{ &FU%1: 0F1600,770 : DSave HIRES N X980::21:" Save this as..." b6)"1 = Full-size HIRES picture"l6)"2 = Co010! ^KB(49152):KB127I11 hI:49168,0A rKB155210^ |F1KB176:F11F12340n F0430,520t  Load HIRES  1000 430 1660:D$"BLOAD"FI$",A$4000,D1":216,0:768 FU%0:(43616)256(43617)8000FU%4 "& 6)"2 = Print Shop(tm) graphic"H 6)"3 = Instructions";:1:1U I010q KB(49152):KB127I1 I:49168,0 "F0KB176:F00F03260 ,F031690 6F00ĉ:: @21:1:" Convert to...";:868 J24:1:868:1:1 TIompute! Publication, Inc.":I12000:IW 17:10:"All Rights Reserved":I11000:Ih ::49234,0 44596,234:44597,234:44598,234 Main Menu ::49235,0 :21:" Convert from..."10)"0 = Quit" 6)"1 = HIRES picture3.3":$ n1013,76:1014,0:1015,96 x768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 D$"BLOAD CV" (64435)6FU%6:' 10:15:"Print Shop":12:"C o n v e r t e r"::13:"Copyright 1987":15:7:"C} } } } }}}  Z`}i }}i}}Kh}Lh}}}}}}mh}nh}}}} k}}}m}}}m}}}i}}i}}h}h}}}i}}i}}h}h}}}}}}}Lf}}}}}}}}}}}}HM}h0h}0 }}LZg g}}L)g}}}}}}}}}}}}HM}h0h}0 }}Lg g}}L}gLjghLj a8 ȱ8ҭ}}} &%0)ԥΥдLj$ 08 !      Р -h}}}}}}}}}HM}h0h}0 }}Lf g}}Lf}}}}}}}}}}}HM}h0h}0 }}Lg gi 8 ԥΥд *$ 0$   HH 8$ 0  ȥ iPi hh$ Lj@ 'x 8(i8逅i 8}} k}}}m}}}m}}}m}}}m}}}}} &%0)}}}}}} k }} }m} } }m } }} n}n}}}Lc }d }d }}}Lc}}LecLj@ 'x 8(i8逅}i}}i}}}La}i}}i}_}}}}La}}LaLj }W } -h}}}}}HM}h0h}0 }}Ld}}}HIh0h0 } Ld } } } }}}}}}HIh0h0 }Ld Lc } } }b }b } }}}} }Lj}}}}}HIh0h0 }Lb 8}}}} }HM}h0,h}0$ }} 8 }} } }} }}m}}}m}}}}}  Z} n}n}}}LWb@}}HI`h0h`0 }Lfa}.a}/a}}8}}} }}Ya}Za}}}LaLj }W }2}}_}}}}}HIh0h0 }LIc}}}HIh0h0 }L>c}}}HIh0h0 }` HvHHHv٩3L`} ki}}j}}}} k}}}m}}}m}}}i}}i}}`}`}}}L`L`LiaL`LLcL`LdL`LeL`LifL`Lg X 6 "kեԠŠΠŠ kL}           t Shop images."3 "'filename.PIC' for normal or"S"compressed HIRES images."^ "END"i"compressed HIRES images." "END""."the 'from' and 'to' format you desire"Z"from the menus and CONVERTER will do"{"the work 'automatically.'""The computer will add the following""prefix or suffix to the name you" "choose:""'filename.PS' for Prinin a 'compressed'"="format that lets you store up to 50"V"images on a disk."" 3) The standard Print Shop image.""CONVERTER lets you convert an""image in any of these three formats to""any of the other formats. Just selectormats you can"*D"convert to or from:"XN" 1) A normal Apple HIRES screen, which"X"will let you store up to 17 images on"b"a disk."l" 2) A special HIRES format that"v"appears normal when you view it, but""is stored on disk rint Shop (tm)"="program uses a special format to store"h"graphic images. CONVERTER converts""graphics back and forth between"&"Apple's high resolution (HIRES) screen"0"and Print Shop's format. You have":"three choices of flp :I11::15)"CONVERTER"15)::3:1>JII9UA$:A$"END"1770_A$:mJ:II924:"Press any key to continue... ";B$::170024:"Press any key to continue... ";B$:::210"Broderbund Software's PEM; :D$"PR#1":E$"M"(8);:CL32:L. MARGIN, CHARS/LINEL RS:F1:LCLZ RCL300f "LFR1 ,JFL:(A(J))" ";:::CONTROLLING CHARACTERS 6E$"$"(1);:DL RAM "ON" @JFL:(A(J))" ";:::DL CHARACTERS JE$"$"(0):DL RAM "OFF" REQUESTED' :::: SET PRINTING STYLEH PS$"E"ĺE$"E";:EMPHASIZEDr PS$"P"ĺE$(112)(1);:PROPORTIONAL PS$"D"ĺE$"G";E$(112)(1);:DBL.STRIKE/PROPORTIONAL :D$"PR# 0": :::: PRINT LIST OF DOWNLOAD CHARS WITH THOSE ACTIVATING THTER, COPY CHAR. ROM TO DL RAM' Z190[ d:::: REPLACE REGULAR BY CUSTOM CHARS IN DL RAMp nK114:M%(K): xSS1:A(S)M%(1) E$"*"(1); K114 (49601)127150 49296,M%(K) K 110 PR$"Y"260:: PRINT CHAR TABLE IF"::6 2:"PRINT CHARACTER TABLE? (Y/N) ";:PR$:: <"(E)MPHASIZED?":"(P)ROPORTIONAL?":"(D)OUBLE-STRIKE PROPORTIONAL? "::"(OR ANY OTHER KEY FOR REGULAR) ";:PS$: F:"DOWNLOADING CHARACTERS - WAIT" PD$"PR#1":E$"@";E$"*"(0);:INIT. PRINDG COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC. ALL RIGHTS RESERVED::"COPYRIGHT 1987":"COMPUTE! PUBLICATIONS, INC":"ALL RIGHTS RESERVED"I11000:ID$(4):E$(27)A(95),M%(14) (::" D O W N L O A D . F R E N C H       END OF HIGH-RES SCREEN 1pa16383,(105):16382,(106):16381,(107):16380,(108):16379,(109):16378,(110)a16377,(111):16376,(112)a(4);"RUN CHAIN2.AUG"ap`LOC245761:(103)(104)256LOCĹLOC1,0:103,LOC(LOC256)256:104,(LOC256):(4)"RUN CHAIN1.AUG"{`34817` E1ND$"THIS IS PROGRAM 1"`E2ND$E1ND$""`"STRING = ";E1ND$`"ENTER A NUMBER, X ":X:Y9999ac STORE POINTERS AT  D=`105,(16383):106,(16382):107,(16381):108,(16380)y`109,(16379):110,(16378):111,(16377):112,(16376)` "STRING =[";E1ND$;"]"`"STRING =[";E2ND$;"]"`E1ND$"THIS IS PROGRAM 2"`"X = ";X;" Y = ";Y`("STRING = ";E1ND$; Ƈ0Lk`j`Ljj  L Lhh ɠ j8el8剅劅ȥ8凅刅Ȅ&&&8剨劐懅㥋8凅刅8充内`Ff ee&㤅`@ Ik } } } } k}}8}}} }}}8} }}} }}}} k}}}m}}}m}} } } k}}}m}}}m}}( } } k}}}m}}}m}}}m}}}m}}`hhhvh٩4݅3`Ʉj`ɍj}i}i}}}} k}}}m}}}m}}}i}}i}}Wi}Xi}}}i&}}i}}i}i}}}}}}i}i}}}} k}}}m}}}m}}`} } }} Ik } } }}* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "    5ȱ`ȱa{i2 >222###?>&##> #### 000001## >SSCC&&&&#######> #>0&####### CCSS>  ###> ? ?𘘌0!!?!!!!!!!!!!!!!!!!9!!!!!?!!!>> !!  ?!?-!!!!!#%)1!!!!!!!!!!!%)1>!! !! !>!!!!!!!!!!! !!!!-?!!! !!""" 0`8@@@@8>> 6$$>>< 'tr *, 000 ">">~@`0 !9-'!!?!  !? !!!!!!!!!> >> < : ($   )  L H8H   G  ` s VOLUME | $$A⩰ v FILEө$ P v FREE SECTOR` % L s Rĩ s Wҩ  s T=$ S=` s SEPTEMBER 1980`$L[($H(h)JL G ! RUN BRUN LOAD BLOAD EXEC LOCKUNLOCK COPYRENAMEVERIFYDELETERESTORREMOVE hhH hHHL ,,,` ,L L   .L %$ $ L m ERR$ " ` ~)J(  08 j( Ɉɕɛɍ 9 % " H H` L  -r. 8i$L[i ii i ()?` HBhi T ii / X v DISK SELECT (BY MAC)  1 x ."# R ()(>( H hɛL} Ɉ%ɍZɕi p б0ߥᰧ8#H $ʝ!h"0 H $(*0(C255)=:F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAA0B0:XBS8((AS)8):b"DISK ERROR":150aMICRO-WARE : F):DD1& D0C$" "D2D0:FF17 :D0FF1= [ J(C$):JJ487(J64):} A0:A$:A$(A$,4):(A$)0ı P1(A$):C$(A$,P,1):C$"0"C$"9"C$"A"C$"Z"A0: &520:AA16J::0C(B256):CB254C255(C127):CC255K13Ė7:A$;" ";:D K32K47K58K64K71A$L$(K)R$:PP1V K4A$L$R$x K9A$L$" "(A$,P1,1)R$ K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı C$" "İ520:V(F)J16(D1)V((7);:290, @F18:BF1,V(F)::::150K J(A$)33A$O$:PO:(7);w TL(A$):O$A$:OP:L$"":P0L$(A$,P) ^R$"":PL1R$(A$,LP1) h7:L$;::PLĺ(A$,P1,1);::R$; r" ";: |K(49152):K128380 49168,0:KK128 :L2+ F07:V(F1)(BF)::560:V(9)C^ F1N:AV(F):580:A$" ";:::(49152)128Ăp 49168,0:150 590:B0150 BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560:CV(9)ĺA$:I15:A$("EDLSQ",I,1)Ă:160E I270,220,180,200:34,0:z "FILENAME: ";A$:A$""ĺ(4);"BLOAD";A$;",A";S 150 "FILENAME: ";A$:A$""ĺ(4);"BSAVE";A$;",A";S;",L";ES 150 590:B0150 BBE8:L4:AB:580:A$;": ";&dN9:::"APPLE MLX":34,2:610Xn1:20:"START ADDRESS";:530:A0ĺ(7):110`xSA2:20:"END ADDRESS ";:530:SAA0ĺ(7):130EA:"CHOOSE:(E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)UIT":&          XxEFG >0 e()) $20I$ i EFGXL";: Q::8 R" ISSUES OF COMPUTE! MAGAZINE.":> Uk _:5:"(SET COMPUTER TO 40-COLUMN MODE)"x 8:18: "PRESS ANY KEY TO CONTINUE" 3:: X13000 (49152)128Ă 49168,0 D$;"RUN MENU"ENU""PRESS AN * FOR II'2 AND PLUSESB(64435)6ĺ(4);"BRUN UPCASE"N D$(4)T^3:4("BEFORE ATTEMPTING TO RUN ANY PROGRAMS"23793<"PLEASE REFER TO THE INSTRUCTIONS IN"AM4 P"THE ";::" JUNE - AUGUST, 1987 169,0 x72,189,255,1,201,160: 240,8,104,10,125,255 R 1,105,0,72,202,208k 238,104,170,41,15,9 48,201,58,144,2,233 57,141,1,4,138,74 74,74,74,41,15,9 48,201,58,144,2,233 57,141,0,4,104,170 169,141,96 ' C0:I76876868:A:CCA:I,A:^C7258ĺ"ERROR IN PROOFREADER DATA STATEMENTS":(190256)76Ĺ56,0:57,3:1002:50((4);"IN#A$300"234,0::34,1:2:"PROOFREADER INSTALLED"<d216,32,27,253,201,141 n208,60,138,72,Ҡ!@` p INSUFFICIENT SPACE s ANOTHER TARGET ?$hh LT L"ȱ& 01`߿߿8<@DHLPTX\`dhlptx|!ϥL  m REPLACE EXISTING FILE ? $ L> m RENAME TARGET FILE ? $ hhLT@ m RENAME $ ɛLL# 0uȊ 4 0S4Ȋ  4 0-4ȊILE L> m FORMAT ERROR   0LTL LbLȱ"퐏 ӥ  8     ҥ `ȱ`hhL  +  @` > 1 L HH   ^ hhH h`    m F$pؠ HhL5#R8=$0pI1`I1 m DISK ERROR L> m CANNOT RESTORE Fee   Z *   LU  L H8     4 h    4  LQ8*i8e` m INSERT SOURCEL m INSERT TARGET s PRESS s RETURN  ɍ`쭎 i  HhH h` p SELECT FILE, FOR A NEW DIRECTORY` p SELECT COMMAND, FOR ANOTHER FILL $ v RETURN OR ESC `"@Ȅȱ  Z m TARGET   ɛ=ɍ  $JJJJ $( ɍIH h $ ɍI ȑ` (Ȅ$ ɛ L ! ɛ !` $$)? @( ɍɛ)Ɉ&ɕ $ (&Hɠ)?(h`  0 ~ OL 1Qq<\| ;L5 Ά ;L5 ]  s,,)L+ ,T,Q XLK0L,ɍ 0sɃ)߮cWS8M^ɀVPKE@;   ` c 7 # ; @  QWTSP I`)Kp O   T / *%iݛiݛ?       A$ FA$""ī60. P(4):(4);"RUN MENU" C0 :h"THE PROGRAM 'DISK EXPANDER' WRITES TO ":"DISK AND CAN NOT BE RUN FROM THE MENU. ":"FOR MORE INFORMATION ON THIS PROGRAM ":"PLEASE REFER TO THE CORRESPONDING ISSUE":"OF COMPUTE!(::2" "; < D$(4) :8:7:"COMPUTE!'S APPLE PROGRAMS"E6:10e" JUNE - AUGUST, 1987"m13"(C) COPYRIGHT 1987 COMPUTE! PUBLICATIONSI12500:ZD$;"RUN ALERT"DR,RUN CHAIN1.AUG,RUN PROOFREADER,RUN MLXdT.AUG,RUN PROOFREADER,RUN MLXdTC.BOOT,RUN INDEX.BOOT,RUN REMEMORY,RUN SHAPEBOOT,RUN BARCHART,RUN TABLE.BOOT,RUN DISPLAYSHAPE,RUN HIRES.BOOT,RUN HIRES.BOOT,RUN DEMONSTRATION l RUN PROOFREADER,RUN MLXdTAY HI-RES PIC MAKERS  CLIMBER 5,CHAINING IN APPLESOFT,AUTOMATIC PROOFREADER,MLXy p::"LOADING......"::A$(T):: X RUN LASER.CHESS,RUN MORPOW.JUN,BRUN FSE b RUN WEATHER.JUL,RUN DISK.BOOT,RUN CONVRTR.JUL,RUN AUTO.HIRES.PIC( l BRUN CLIMBEPN(R$)48 sPNPNDE( xTPN:6000B 54,240:55,253:1002Q D$;B$(PN)W l T1FI:A$(T): T1FI:B$(T):   LASER CHESS,PRINTING SPECIAL CHARACTERS,FULL SCREEN EDITOR  WEATHER WIZARD,DISK EXPANDER,CONVERTER,AUTO-DISPLĞ:" ";A$(JDE)::702 <J;" ";A$(JDE);" "9 FXK ZR$:R$""90i _R$(32)PGPG1:DEPG9~ aPGTPPG0:DE0 cR$(32)10 d(R$)49(R$)57Ė6:17:90 fJDE35ĭ(R$)55Ė6:17:90 gB$((R$)48)"MONTH"90 iD$(4) nPROGRAMS ";::"JUNE-AUG,1987":M " (C) 1987 COMPUTE! PUBLICATIONS,INC." "PAGE ";PG1;" OF ";TP;" PRESS ";::"";::" FOR NEXT PAGE" PG1MT4:35 MT18 #X2MT2 (JJ1 -JDE35X18:70 2Y:X 7B$(JDE)"MONTH"*40196,189:40197,1588(768)216ĺ(4);"IN#0"P(4);"BLOAD HROUT"h(4);"BLOAD AASET"6,0:7,138:54,0:55,3:1002A$(36),B$(36)TP2 FI11:4000 ::61,1:62454Y31:22:J0 "COMPUTE!'S APPLE      z#   Ҡ Ԡ ؠҠԠՠԠˮԠ ֠ βǠ αǠ ׮Π Ԡ Š ̮ԠŠҮӠҮ̠ ϮӮà+ ĮͮŮӮҮ̠ Ү̠dNIVOu|teR⩕udW^N%:^U.=qYZS9d:sꊜ.ĬKI/$K/%>*9ĦJJJdגP앲TPq.9q9^IS%2VRK:s:s%Ld$_O_JY*]^J{)+\J+Y+^J|J,ULd\JĭdY'Qy؝'B8*$ğ^NI̕,LQ_.ULU2e=e,elJ>9ϊYK)e,Dy:E,VYK;w,YU[+elKYK)e,qR\WKqָCǎPvJ>تC[+elRYLTʙS*eLeS*U%q:e ]dC}w%.tKU,N%DTʙS*eL'Y'd]V'\NWd钩dd*IDQ%2q*y:q:\Jĥ⅍3r;%;'d%Y;'gy$((+^Jrr%j'K+]32$$$d_$rܲJ+8N\JKIW}Wwq:wDpTUs>3PD^ItI^OW,9*s