IMD 1.18: 18/10/2018 9:29:16 gw-basic interpreter 6060 family level 2.01   XEROXph 3؎м|zxy}squ)3%u@@ȸ|uq}p|q}pػ.|.|.*x}2PXr.(p}v.|.& |ø}a|2&|||v}| &||P.v}E[r3 }u! } uËF<t ø}36|ˆx}36|s}t}ô.t}. 6x}ʆ.|.6s}% *P Non system disk. Replace and press any key disk error XERBIO COMXERDOS COMUUU00XCU@` /! #@%)+-/1 3@5`7;=?A C@E`GIKMOQ S@U`WY[]_a c@e`gikmoq s@u`wy@` /! #@%)+-/1 3@5`7;=?A C@E`GIKMOQ S@U`WY[]_a c@e`gikmoq s@u`wyXMAZE BAS tr XCOLOR BAS vr XSCLOCK BAS Jz XCHARS BAS vr |DATADISK nl{ DEMO BAT Iz 'XRCLOCK BAS kYt  EAD BAK ^s XMICE BAS &\s GXSAMPLESBAS dEz g+XSAMPLESDAT &DEMO DAT ^s 'ROMAN 4BL r(@GWBASIC EXE K READ ME m     : :  ," : " Building Maze "  AZ : ((,)) RD  : CD   M(, ),R(6),C(6),AR(),AC(),D$(),CPIC(@) :/ : D$ contains commands for DRAWing maze cells7 :V $ I   : D$(I) : ^ .: 8: Draw commands for each cell B: L "" V "BM+8,+0D24R16U24" ` "BM+32,+8L24D16R24" j "BM+8,+0D24R24BU16L8U8 t "BM+8,+32U24R16D24"~ "BM+8,+0D32BR16U32"8 "BM+8,+32U24R24BD16L8D8"[ "BM+8,+0D32BR16U8R8BU16L8U8"t "BM+0,+8R24D16L24" "BM+8,+0D8L8BD16R24U24" "BM+0,+8R32BD16L32" "BM+8,+0D8L8BD16R32BU16L8U8" "BM+0,+8R24D24BL16U8L8" "BM+8,+0D8L8BD16R8D8BR16U32"3 "BM+0,+8R32BD16L8D8BL16U8L8"_ "BM+8,+0D8L8BD16R8D8BR16U8R8BU16L8U8"g:: Edges of array are initialized to simplify checks for new cells:  I  RD  : M(I,)  : M(I,CD )  : - I  CD  : M(,I)  : M(RD ,I)  : qN  : R  : C  : M(R,C)  : initial starting celly(:2: create the maze array M<:F: revise list of boundry cells for new cell just addedP: Z: set boundry cellsd:0n I  : I  ux M(RI,C)  M(RI,C)  : N N  : R(N) RI : C(N)C M(R,CI)  M(R,CI)  : N N  : R(N) R : C(N)CI N   : no more cells3M(N):RR(M):CC(M):R(M)R(N):C(M)C(N):NN : new boundary cellTA : count adjacent cellso I  : I  M(RI,C) AA:AR(A)RI:AC(A)C M(R,CI) AA:AR(A)R:AC(A)CI: : number of adjacent cells should never be zero:L A ,: "Problem! No adjacent cells at";R;C:M(A):DRRAR(M):DCCAC(M) : select an adjacent cell:: calculate new cell value":, DR DC D:DB: r6 DR DC D:DB: r,@ DR DC D:DB: rOJ DR DC D:DB: rWT:^: insert new cell values, change adjacent cell, and connect new oneh:rM(AR(M),AC(M))M(AR(M),AC(M))D:M(R,C)DB| F : go get a new cell:.: display maze using DRAW command table6:L : , : ,T:o: draw the creaturew: "BM15,13" "C3R5BM-6,+1" "C3R1C2R2C1R1C3R1C2R2C3R0BM-7,+1" "C3R1C2R2C1R1C3R1C2R2C3R0BM-7,+1"  "C3R3C1R2C3R2BM-7,+1") "C3R1C2R6C3R0BM-6,+1"F "C3R1C2R4C3R0BM-5,+1"c "C1R2C3R2C1R1BM-6,+1"y "C1R3C0R2C1R2"& ( , )(,),CPIC5:"C2"D R RD : pass each rowN C CD : pass each column5X ROWD(R) :COLD(C) : translate to point coordinate=b:jl: select COMPILER or INTERPRETER here.rv:: DRAW"BM="+VARPTR$(COLD)+";,="+VARPTR$(ROWD)+";" ' *** COMPILER "BM=COLD;,=ROWD;" : *** INTERPRETER@ D$(M(R,C) ) : and DRAW it using D$ tableJ CR Re (,  ),, , : " Press Space Bar to Exit";:: place alpha creature:OLDX  : OLDY  : NEWX OLDX : NEWY OLDY DIST  : MLIM $# (OLDX,OLDY),CPIC+:J: get random motion codeR :rRDIR  () : K z :*: set movement vectors4:> RDIR  NEWX OLDX DIST : NEWY OLDY DIST : NEH RDIR  NEWX OLDX DIST : NEWY OLDY : E^R RDIR  NEWX OLDX DIST : NEWY OLDY DIST : SE\ RDIR  NEWX OLDX : NEWY OLDY DIST : Sf RDIR  NEWX OLDX DIST : NEWY OLDY DIST : SWp RDIR  NEWX OLDX DIST : NEWY OLDY : W\z RDIR  NEWX OLDX DIST : NEWY OLDY DIST : NW RDIR  NEWX OLDX : NEWY OLDY DIST : N::check for maze strike: I (NEWX) (NEWX )   J (NEWY) (NEWY ) # (I,J)  + J3 I;:b: spot is OK - move the creaturej: (NEWX,NEWY),CPIC, OLDX NEWX : OLDY NEWY K K  "" 8 $ K MLIM . >8 CHAINED$ "YES" : CHAINED$ : "XSAMPLES"LOGO COM k5BMOUSE COM XA FDMAINT EXE jU =FDMAINT HLP !& PRTDRV COM %n ' MATE EXE QYS (wNMATE1 EXE f -lMATE INT 3f YMATE1 HLP %!ZFC EXE lS   XEROX Color Display Test.  Kerry Hauptli  Sep. 12, 1984   COL$(),TITLE$(),TCOL()  : :  : ( : , :  $ ,,3 . I   : TITLE$(I) : T 8 I   : TCOL(I) : ] B  L I   : , I  : TITLE$(I) ; : I V I   : COL$(I) : I ` I   : (I ), : I j J   : () ; : J t ~ " " ;) I  = COL$(I) : IP , : u "Press Space Bar to Exit..." ;POLL$ : RNUM  (()) : RNU2  (()) TCOL(RNU2) : , RNUM : TITLE$(RNUM) POLL$ "" 0CHAINED$ "YES" : CHAINED$ : "XSAMPLES"f DATA for Title, Title Colors, and Color Names. X,E,R,O,X, ,P,C, ,C,O,L,O,R, ,D,E,M,O,N,S,T,R,A,T,I,O,N 1,2,3,4,5,6,7,9,10,11,12,13,14,15 BLACK,BLUE,GREEN,CYAN,RED,MAGENTA,BROWN,WHITE7 GRAY,LIGHT BLUE,LIGHT GREEN,LIGHT CYAN,LIGHT RED_  LIGHT MAGENTA,YELLOW,BRIGHT WHITEIO COM'-XERDOS COM'-CCOMMAND COM - U>DOS Z JohnRoberts-ANSI SYS yT AUTOEXECBAT "]{ cSK Z AT&T 8Z CONFIG BAK ~ hPCTALK ӡZ JRWORK dI[ 0JR Q[ 'TURBO Q[ (SUPERCAL #`[ )DRHALO ia[ }  XEROX Logo Clock  Kerry Hauptli  Sep. 12, 1984    AZ : S :  $ MO$( ),DA$(),DIGITS$( ),T(),AMP$(),DIG$( )Y . D0(Z),D1(Z),D2(Z),D3(Z),D4(Z),D5(Z),D6(Z),D7(Z),D8(Z) 8 D9(Z),DA(Z),DB(Z),A0(j),A1(j),A2(j),DX(Z),AX(j) B L Check for Color/Graphics Adapter On. V ` SEG @ : (( ) 0) 0 t9 j "The Clock Requires a Color/Graphics Card." : w t  : , : SROW N : SCOL > : LASTS   c : P1 } ~   I   : DIGITS$(I) :  "C3BM1,1"DIGITS$(I)  I ,,,,,,,,, ,, (,)( ,),D0 : (? (,)( ,),D1 : (_ (,)( ,),D2 : ( (,)( ,),D3 : ( (,)( ,),D4 : ( (,)( ,),D5 : ( (,)( ,),D6 : ( (,)( ,),D7 : ( (,)( ,),D8 : (?  (,)( ,),D9 : (_ (,)( ,),DA : ( (,)( ,),DB : (( I2 I   : AMP$(I) : < "C1BM1,1"AMP$(I)F I  P,Z,dP (,)(,),A0 : nZ (,)(,),A1 : n:d (,)(,),A2 : nBn IHxh Draw Clock Background.n : "C2BM60,85;R200D50L200U50E10R200G10E10D50G10U1L199U48R198D49" (F,P),, : ( ,d),,   ,  "Press Space Bar to Exit..." ;1SCOL > : SROW bQ I   : MO$(I) : q I   : DA$(I) : w Determine day of week.MO ((,))DA ((,,))YR ((,))"MO$ MO$(MO),S m YR DA  (MO ),6 MO  Jg@S S (YR )  (((YR )d )) : TJS S (L MO 33) YR  (YRd )TDND S (S ) ^DA$ DA$(DND)hr Set Up Day/Date Message.|:DMSG$ DA$ ", " MO$ (DA) "," (YR)P , : ($)z , (((DMSG$))) : DMSG$ "C1BM4,1R312D180L312U180"  T()   T()  T()  T()  T()  % Exit Program If Any Key Pressed.+@ "" { :  ,  : "Please wait, I am reloading the menu."CHAINED$ "YES" : CHAINED$ : "XSAMPLES" Draw Individual Digits. K  : T()  K  : P1  K & I K >0C I  SCOL : R SROW}: T(I) D,N,X,b,l,v,,,,,,D (C,R),D0, : N (C,R),D1, : X (C,R),D2, : b (C,R),D3, : l (C,R),D4, : v (C,R),D5, : 3 (C,R),D6, : M (C,R),D7, : g (C,R),D8, :  (C,R),D9, :  (C,R),DA, :  (C,R),DB, :  IP1  : C C  AX  (C,R),A0, AX  (C,R),A1,.C C  : (C,R),A2,8 >k Get Time into Integer Variable "T".q }T$   I  *T(I)  : I  I  >4T(I) ((T$,I,))> IH T() LASTS  RHX  T() T()-\ HX  AX  : AX Ff HX  HX  cp HX  HX HX  z HX  T()  : T()  HX  T() HX : T() HX  LASTS T() Data for Draw statements/ "BM+0,+2E2R6F2D16G2L6H2U16R1E1R6F1D16G1L6H1U16"V "BM+3,+3ED1E1D17L2D1R5U1L2U19G1" "BM+0,+6R1U3E2R4F2D6G9D2R10U1L10E10U6H3L4G3D3" "BM+0,+4U2E2R6F2D6G2F2D6G2L6H2U2R1D2F1R6E1U6H1L5U1R5E1U7H1L6G1D2" "BM+10,+16L10M+8,-16M-8,+16R1M+8,-16D20L1U20M-8,+16U1R11D1"R "BM+10,+1L9D8R7F2D7G2L6H2U2R1D2F1R6E1U7H1L8U10R10D2L1" "BM+10,+6U4H2L6G2D16F2R6E2U6H2L6G2R1E1R7D8L8U18R8D5" "BM+0,+2U2R10D2M-9,+18M+9,-18L1M-9,+18M+9,-18U1L9D1R1" "BM+0,+8U6E2R6F2D6G2F2D6G2L6H2U6E1D7F1R6E1U6H1L6U1R6E1U7H1L6G1D7"Q "BM+0,+8U6E2R6F2D16G2L6H2U1R1D1F1R6E1U7L6H1R7U8H1L6G1D7"[$ "B". "BM+4,+4C1R2D1L2D1R2BM-2,+8R2D1L2D1R2"8 B "BM+0,+20U18E2R6F2D18L1U19L8D19U10R8D1L8"L "BM+0,+20U20R8F2D7G2L8U1R9U9L8D19")V "BM+0,+0D20R1U20L1M+6,+12M+6,-12R1D20L1U20R1M-6,+12M-6,-12"/` Oj Data for Month and Day.Ut ~ January,February,March,April,May,June July,August,September,October,November,December Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday  XEROX Logo. 6 X$ "M+20,+40R4M-20,-40L4"[ COLO  : SCOL a : SROW  STRT$ "C"(COLO)"BM"(SCOL)","(SROW) STRT$ X$ (SCOL ,SROW),COLO,COLO "BR8BU20M-20,+40M+20,-40R1M-20,+40M+20,-40BR3"= E$ "BR4M+0,+40R1M+0,-40R1M+0,+40R1M+0,-40R1M+0,+40L1M+0,-40"t E$ E$ "R17D1L17D18R17D1L17D19R17D1L17BR20BU40"~ E$ R$ "BR3M+0,+40R1M+0,-40R1M+0,+40R1M+0,-40R1M+0,+40M+0,-40L1" R$ R$ "R12F1R2F1R1F1D1F1D10G1D1G1L1G1L2G1L7"2( R$ R$ "BU19BL5R12F1R2F1R1D1F1D10L1U12L2R1D14L1R3U2"Q2 R$ R$ "G1D1L1G1L2G1L8"< R$ R$ "F1M+10,+20M-  10,-20R1M+10,+20M-10,-20"F R$ R$ "R1M+10,+20M-10,-20R1M+10,+20M-10,-20"P R$ R$ "R1M+10,+20M-10,-20L1BU20BR10"Z R$ d O$ "BR6BD8D24R1D2U28R1U2D32R1D1U34"L n O$ O$ "E1D4U1E1U3R1D2E1U2R12D1L12U1R12" x O$ O$ "R1D2F1U2R1D3R1U2D4R1U3D34E1U32D2R1D28U2R1U24" O$ O$ "L3D29L1U3D2L1D2G1U2G2L11H4U1D4R1U2D3R1U2D2R1" O$ O$ "D1R13U1R2E2BU37BR4" O$ X$ ! (SCOLz,SROW),COLO,COLOV! "BR8BU20M-20,+40M+20,-40R1M-20,+40M+20,-40BR3"\! ??@  XEROX PC Character Display.  Kerry Hauptli  Sep. 12, 1984   AZ   : P : : :  : CHAINED$ $ . Print Page Heading 8+ B ,,< L X  GL V Y  b ` Y,X : ();j j Yr t X ~ , , :   " X E R O X P C C H A R A C T E R S E T " I   Y    X   # PRINT CHARACTERS FOR COLOR/GRAPHICS)9 SEG ^VIDLOC  (Y @)  X Y  VIDLOC VIDLOC  VIDLOC , (I ) VIDLOC , I  PRINT MONOCHROME CHARACTERS SEG ( VIDLOC ,2 VIDLOC , I%<I I -F X5P Y?Z SEGRd , :  wn "Press Space Bar to Exit..." ;}x Exit on Key Press "" CHAINED$ "YES" : "XSAMPLES"echo off cls gwbasic xsamples cls NUM  (()) : RNU2  (()) TCOL(RNU2) : , RNUM : TITLE$(RNUM) POLL$ "" 0CHAINED$ "YES" : CHAINED$ : "XSAMPLES"f DATA for Title, Title Colors, and Color Names. X,E,R,O,X, ,P,C, ,C,O,L,O,R, ,D,E,M,O,N,S,T,R,A,T,I,O,N 1,2,3,4,5,6,7,9,10,11,12,13,14,15 BLACK,BLUE,GREEN,CYAN,RED,MAGENTA,BROWN,WHITE7 GRAY,LIGHT BLUE,LIGHT GREEN,LIGHT CYAN,LIGHT RED_  LIGHT MAGENTA,YELLOW,BRIGHT WHITE  : TRUE  : FALSE  : ALLDONE FALSE : CHAINED$ "YES"  CHAINED$  Z : S : KLOK(l ) : MO$( ),DA$()  :  : , : : LASTM c5  "ROMAN.4BL" : ZPI IQ  (,c),],,,,  y  "BM62,9C1R194D180L194U180BR5BD5" $ (,),, . (F, )(,),KLOK 8 I   : MO$(I) : B I   : DA$(I) : L: V: Determine day of week. `:- jMO ((,))E tDA ((,,))[ ~YR ((,))m MO$ MO$(MO)  MO   : S m YR DA  (MO ) S S (YR )  (((YR )d )) : S m YR DA  (MO )DS S (L MO 33) YR  (YRd )cDND S (S ) : DND = DND + 1 : IF DND = 8 THEN DND = 1DA$ DA$(DND)DMSG$ DA$ ", " MO$ (DA) "," (YR) , : ($) ;1 , (((DMSG$))) : SEG : N, : DMSG$ ;V  : ALLDONE TRUE \r  (F, ),KLOK,x MX  ( MX  2 MX  < MX - FPRMX MX IZXMX (RMX) : CMX (RMX),dXX  U XMX : YY c K CMX2n]xRM1 (( MX Z) h) IXM1 (RM1) : CM1 (RM1)X1   XM1 : Y1 c  CM1RM2 (( MX Z) h) IXM2 (RM2) : CM2 (RM2)(X2   XM2 : Y2 c  CM2.r (XX,YY)(X1,Y1), : (X1,Y1)(X2,Y2), : (X2,Y2)(XX,  YY),XA (XX X1 X2) : YA (YY Y1 Y2) : (XA,YA),,RMX (HX MX) I XMX (RMX) : CMX (RMX)5XX  - XMX : YY c ( CMX;lRM1 ((HX MX Z) h) I"XM1 (RM1) : CM1 (RM1),X1   XM1 : Y1 c  CM16@RM2 ((HX MX Z) h) IJXM2 (RM2) : CM2 (RM2)=TX2   XM2 : Y2 c  CM2C^h (XX,YY)(X1,Y1), : (X1,Y1)(X2,Y2), : (X2,Y2)(XX,YY),rXA (XX X1 X2) : YA (YY Y1 Y2) : (XA,YA),,| (,c),,,,,  ' I   : J b d : (I,J), : J : I: (,c),,W ALLDONE TRUE l MX  Vr ALLDONE TRUE  ""  :: Get time into integer variables HX and MX.:T$ $ "" ALLDONE TRUE : <HX ((T$,,))TMX ((T$,,))m MX LASTM  HX  AX  : AX & HX  HX  0 HX  HX HX  :LASTM MXDN:X: Data for Month and Day.b:4l January,February,March,April,May,Junejv July,August,September,October,November,December Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday :  , ( : "Please wait, I am reloading the menu." "XSAMPLES" ! (SCOLz,SROW),COLO,COLOV! "BR8BU20M-20,+40M+20,-40R1M-20,+40M+20,-40BR3"\! F1M+10,+20M-MZ g8E6w/Ldp }}}~ ~~~i' D (,P؎XVW@3|&2v6| u&&O&O&O&O &O &O &G&g33;Ht FFA r^4>uIIPSQ6| u..$.. Y[X&r&w&w &w| uJ&G,&Ot &t &W ‹|B &O 2퉌DŽt  t u  t쨀u }3 t ult\dDŽ We have included some sample GW-BASIC programs. To see the programs in operation, boot the system, place the GW-BASIC disk into the A or B drive, enter DEMO and press return. 'XRCLOCK BAS kYt  READ ME ^s XMICE BAS &\s GXSAMPLESBAS dEz g+XSAMPLESDAT Gk &DEMO DAT ^s 'ROMAN 4BL r(@GWBASIC EXE HS 9F >1>P3>Rˋ>3>56>6B>6R>6R>6v>6>6>6>6>6 >8>9N>:>1>6B @D @z?̀̀ӻ?̀̀>6 .>狅F >6@;|w@;|Wӹ>G  $>NN>O=0=ͬ͢>t+ã>t>t>t>uR|Z!"!DŽƄDŽ_^PXSQRV2ԋƄ t"urƄ t,tddd+сrd,tw| uQ tu{DŽz t u[DŽZu t쨀u;DŽ:UDŽ,| tB@\\\+сr\|P3tXB^ZY[PXRQVS2ԋƄ t9rllP| Xt@r P| Xl+;rlPu$9utDŽBX俞*ut 俞@[^YZPXV2ԋƄ+сvu t^PXRV2ԋ护 uu t苔| u$B$2! $!SQ| u .$ . Y[^Zuu uuƄƄ ƄƄPHuXË| uA<u f<tu| uBu&<u DŽ2<u DŽ%<uDŽ]ttt+;rt  Pu9uBDŽXBƄ<u-u tu ƄDŽ  t uƄDŽc t쨀uƄDŽ@\| uB\\+сr\DŽ,| tBPSQRVؾk ^ZY[XPSQRVؾN ^ZY[XPSQRVؾ1d ^ZY[XPSQRVؾ ^ZY[XPXPQ% Ȉ3ҝPuXPtZYXPXQSWP&.&E.Xȫ_[YWQSP..GX[Y_PQQ2YU OuB;5D&g &gu u   U Y &O2S.[ ű &O 2퉌DŽt$2YX u2plt`e2 R LF@Ë t!21- u$DŽ#= u2t tJ uu@uƄƄ ƄƄð tpuut|u֨uou  AZ : CHAINED$ : CHAINED$ "YES" : :  PIC1(),PIC2(),PIC3(),PIC4()  SEG MSEG(3)(3) : Get mouse segmentT MOUSE(3)(3) : Get mouse offsetm  MSEG MOUSE L $"Mouse driver not found" : Not found, so print error. . 8"Press Space Bar to Exit" BI$ : I$"" B : "XSAMPLES"A L SEGMSEG : Set mouse segment VM1  : MOUSE(M1,M2,M3,M4) : Initialize the mouse `: j: Set mouse sensitivity t: ~M1  : M3 : M4  MOUSE(M1,M2,M3,M4) : :  : , : 1 , : "Press Space Bar to Exit"X "C3BM20,20;E1M+14,-2;M+14,+2F1"m "M+4,+20;D20" "G1D3G1D2G1D1G1L1G1L2G1L20" "H1L2H1L1H1U1H1U2H1U3H1" "U20;M+4,-20" (,),, "C3BM23,23;M+12,-1;M+12,+1" "M-2,+10;M+5,+25"7 "G1D3G1D2G1D1G1L1G1L2G1L12"W "H1L2H1L1H1U1H1U2H1U3H1"w  "M+5,-25;R20L20;M-2,-10" "C3BM28,32;U5E1R3F1D15G1L3H1U15" "C3BM37,32;U5E1R3F1D15G1L3H1U15"( (,),,2 (,"),,< (,)(F,Z),PIC1+F (,),, : (',),,OP (,"),, : (',"),,iZ (,)(F,Z),PIC2d (,),, : (',),,n (,"),, : (',"),,x (,)(F,Z),PIC3 (,),, : (',),, (,"),, : (',"),,- (,)(F,Z),PIC4H (d,)(,Z),PIC1| I  < : (I, : (II,I),PIC2, : :M1  : M3 < : M4  : MOUSE (M1,M2,M3,M4)M1  : M3 ( : M4  : MOUSE (M1,M2,M3,M4)*M1  : M3  : M4 d : MOUSE (M1,M2,M3,M4)@N3 M3 : N4 M4cM1  : MOUSE (M1,M2,M3,M4) ((N3M3) (N4M4)) (N3(,N4(),PIC1, (M2 ) ,,,J (M3(,M4(),PIC2, : " (M3(,M4(),PIC3, : , : ": (M3(,M4(),PIC4, :  ,P"N3 M3 : N4 M4[, ,6 " MOUSE is on Row ### and Column ### ";M4,M3 ;@ J "XSAMPLES"eXXY/YYY^/ZOZZ[%[O[e[[%\e\Dž\ɥ\\\]%]]]^^^^_e___FbF`f`` ` ` `a&aFafaaaaab!&b*'b)b-b9c1&c8Fc5fccod_g/dOdIM/eUFeqgeYe[e]e_fa&fOfeffhifkfmfhq&gsFg,wgygg/hFhhhh/iFiiiij&jFjfjj  GW-BASIC EXAMPLES MAIN PROGRAM : : DEFINE MENU ARRAYS AND VARIABLES  : CHAINED$ MAXMENUS  MAXCHOICES > $ DFLTSEL(MAXMENUS), FIRSTSEL(MAXMENUS), LASTSEL(MAXMENUS)Z . MENULIST$(MAXCHOICES)m 8MENUCHOICE  BDNKEY$ () (P) :SPECIAL CONTROL KEYS LUPKEY$ () (H) VRTKEY$ () (M) `LFKEY$ () (K) jHOMEKEY$ () (G)5 tENDKEY$ () (O)J ~RETKEY$ ( )_ ESCKEY$ ()g : :   FRAME VARIABLES USED TO MAKE THE LINES LL : UL : UR : LR : LT : RT  HZ : VT  :: INITIALIZE MENUS8MENULIST$() " Getting Started in GW-BASIC "kMENULIST$() " How to List Sample Programs "MENULIST$() " Sample Programs "MENULIST$() " Exit to GW-BASIC "MENULIST$() " Exit to DOS "MENULIST$() " Colors "' MENULIST$() " Xerox Standard Clock "PMENULIST$() " Xerox Roman Clock "v:MENULIST$(9) = " Mousy Moves "MENULIST$() " Character Set "(MENULIST$( ) " Maze Cleanup "2MENULIST$( ) " Exit to Main Menu ")<FIRSTSEL()  : FIRST MENU STARTING INDEXmFDFLTSEL()  : FIRST MENU DEFAULT SELECTIONPLASTSEL ()  : FIRST MENU ENDING INDEXZDFLTSEL()  : SECOND MENU STARTING INDEX3dFIRSTSEL()  : SECOND MENU DEFAULT SELECTIONsnLASTSEL ()  : SECOND MENU ENDING INDEX{x:: TEMPORARY VARIABLESBLANKS78$ (N)TITLE$ "This is a Test"TRUE  : FALSE : READ SAVED DEFAULTS FROM XSAMPLES.DAT p - P : w: IF WE ARE RETURNING FROM A CHAINED PROGRAM, GOTO THE SECOND MENU CHAINED$ "YES" @ : * : RETURN TO SECOND MENU: OTHERWISE, IT IS FIRST TIME IN; SHOW COPYRIGHT NOTICE1TITLE$ "XEROX GW-BASIC SAMPLES" : @ : FRAME=  , "COPYRIGHT (C), XEROX CORPORATION 1985"; : I   : DFLTSEL()  : DFLTSEL()  : ' : BEGIN PROGRAM:: CLEAR FRAME  I   : I,  : BLANKS78$; : : , : BLANKS78$;: , : BLANKS78$;@"H,:m6: BUILD AND WRITE SCREEN FRAME@ FOREGROUND, BACKGROUNDJT , : I  P : (HZ);: ^ , : I  P : (HZ);: h ,: I  P : (HZ);: 0r ,: I  P : (HZ);: E| , : (UL)Z , : (VT)o , : (LT) ,P: (UR); ,P: (VT); ,P: (RT); I   : I, : (VT); I,P: (VT); ,: (LT)/ ,: (LL);F ,P: (RT);] ,P: (LR);| : END OF BUILD FRAME:: PRINT TITLEI (P (TITLE$))  , I : TITLE$;: END OF BUILD FRAME:&0::: SHOW VERTICAL MENUjDCURLINE DFLTSEL(MENU) FIRSTSEL(MENU) : OFFSET RELATES TO ZERO (0)NNEXTLINE CURLINEXBEGINY  (LASTSEL(MENU) FIRSTSEL(MENU))bBEGINX  : USER DEFINED - WHERE DO YOU WANT TO CENTER IT#lFIRSTLINE FIRSTSEL(MENU)AvLASTLINE LASTSEL (MENU)oMAXLINES LASTSEL(MENU) FIRSTSEL(MENU)w:: START MAIN PART OF VERTICAL MENUCOLORCHG FALSE  :  : CLEAR FRAME, PRINT TITLE$ , : "[Colors: BkGd "; (); " FrGd ";();"]";Z ,": "[";();" & ";();" Selection]"; ,>: "[";(<);();" to Accept]"; I  MAXLINES : DISPLAY MENU SELECTIONS II I  : II$ (II)  (II$)  II$ " " II$A BEGINY (I), BEGINX : II$;".";  BEGINY (I), BEGINX  : MENULIST$(FIRSTLINE I)*4: DO THE FOLLOWING LOOP UNTIL ESCTYPED OR RETURN ENTERED>MORE TRUEH MORE!R BACKGROUND, FOREGROUND  : REVERSE COLORSG\ BEGINY(CURLINE), BEGINXmf MENULIST$(FIRSTLINECURLINE) FOREGROUND, BACKGROUND: READ THE KEYBOARD UNTIL A VALID CHARACTER IS ENTERED, THEN PROCESS GETCH TRUE GETCH GETCH FALSE@ KBDCH$ : KBDCH$ "" : IF SPECIAL CHARACTER ENTERED, GOSUB PROCESS SPECIAL CHARS, EXIT LOOP (KBDCH$)   :  : PROCESS SINGLE CHARACTER THAT IS NOT NUMERIC) (KBDCH$ "1") (KBDCH$ "9")  :  y: IF A NUMBER IS ENTERED, HIGHLIGHT THAT MENU SELECTION AND READ KEYBOARD TMPINT (KBDCH$) ("1") TMPINT MAXLINES NEXTLINE TMPINT :  :DUMMY LINE 8$ : IF THE COLORS ARE BEING CHANGED LOOP BACK TO BEGINNINGa. COLORCHG MORE FALSE : t 8 : IF ESCTYPED OR RETURN KEY PRESSED, WE ARE OUT OF THIS LOOPB (KBDCH$ ESCKEY$) (KBDCH$ RETKEY$) MORE FALSE: t L : OTHERWISE MOVE TO NEXT MENU SELECTION@V BEGINY(CURLINE), BEGINXf` MENULIST$(FIRSTLINECURLINE)j    CURLINE NEXTLINEt ~ COLORCHG   : : PROCESS THE SPECIAL KEYS FOR THE MENU KBDCH$ DNKEY$  :  ( KBDCH$ UPKEY$ P :  O KBDCH$ RETKEY$  :  v KBDCH$ ESCKEY$  :  KBDCH$ LFKEY$ 6 :  KBDCH$ RTKEY$ r :  KBDCH$ HOMEKEY$ NEXTLINE  :  0! KBDCH$ ENDKEY$ NEXTLINE MAXLINES :  i! () : GETCH TRUE : INVALID INPUT, REPROMPTo! w! :! : PROCESS DOWN KEY (ARROW)! NEXTLINE CURLINE !( NEXTLINE MAXLINES NEXTLINE !2 !< : "F : PROCESS UP KEY (ARROW)&"P NEXTLINE CURLINE O"Z NEXTLINE  NEXTLINE MAXLINESU"d ]"n :y"x : PROCESS RETURN KEY" CHOICE CURLINE " DFLTSEL(MENU) FIRSTSEL(MENU) CURLINE" " :" : PROCESS ESCAPE KEY # MENU  CHOICE  :  G# , : (FOREGROUND) : CANNOT ESCAPE FROMu# "Must Make Selection to Exit Main Menu"# () : I   : # , : I  ( : (HZ);: # TMPINT FOREGROUND  $ TMPINT BACKGROUND TMPINT TMPINT )$ TMPINT  TMPINT 6$ TMPINTy$ GETCH TRUE : MUST REPROMPT FOR VALID CHARACTER$ $" :$, : PROCESS LEFT KEY (ARROW)$6 BACKGROUND BACKGROUND $8 TMPINT BACKGROUND %: TMPING FOREGROUND BACKGROUND BACKGROUND C%@ BACKGROUND  BACKGROUND g%E ,BACKGROUND : COLORCHG TRUE%J  @ : REDISPLAY FRAME%T %^ :%h : PROCESS RIGHT KEY (ARROW) - CHANGE FOREGROUND COLOR%r FOREGROUND FOREGROUND  &t TMPINT FOREGROUND E&v TMPINT BACKGROUND FOREGROUND FOREGROUND l&| FOREGROUND  FOREGROUND & FOREGROUND : COLORCHG TRUE& @ : REDISPLAY FRAME& & :& : INTRODUCTION MESSAGES' TITLE$ "Getting Started" :  :  :TITLE' I b' , I : "Welcome to the Xerox Personal Computer GW-BASIC";' , I : "demonstration diskette. We have selected several";' , I : "programs that present a sampling of the types of";0( , I : "things that you can do with GW-BASIC. If you are";q( , I : "interested in writing a program, we encourage";(  , I : "you to study our examples and use any of the";(  , I : "techniques that fit your programming needs.";0)  , I : "The up and down arrows are used to move from";r) , I : "one menu selection to another. The left arrow";) , I : "will change the background color. The right";)& , I : "arrow will change the foreground color. The";1*0 , I : "RETURN key will select the highlighted menu";p*: , I : "item. The ESC key is used to return to the";*D , I : "previous menu, except for the main menu. To";*N , I : "exit the main menu, select one of the EXIT"; +X , I : "options. Happy Programming...";R+b ,  : "Press Space Bar to Continue...";p+l A$ : A$ "" l v+v ~+ :+ : HOW TO LIST A PROGRAM ON THE PRINTER OR SCREEN+ TITLE$ "Listing A Program" :  :  : TITLE+ I 8, , I : "The command for listing a program on the";}, , I : "screen is: LIST. To list specific line numbers,";, , I : "the command is: LIST linenumber-linenumber.";- , I : "An example: LIST 1000-2000 will list line numbers";G- , I : "1000 through 2000. LIST by itself will list all";-  , I : "line numbers beginning with the lowest.";-  , I : "To list a program on the LPT1 device (printer),";.  , I : "use the LLIST command. This command works the";4. , I : "same as the LIST command.";y. , I : "The LIST and LLIST commands work within GW-BASIC.";. , I : "Select EXIT TO GWBASIC from the main menu. You";/ , I : "will see an OK prompt. Enter LOAD"(")"program"(")" and";U/ , I : "press RETURN. When you again see the OK prompt,";/* , I : "enter the LIST or LLIST command to display the";/4 , I : "program.";/> ,  : "Press Space Bar to Continue...";0H A$ : A$ "" H 0R 0\ :W0f : GET THE SETTINGS FROM THE LAST SESSION FROM THE DEFAULT FILEj0p BACKGROUND ~0z FOREGROUND 0 "XSAMPLES.DAT" AS # 0 ,  AS SEL1$,  AS SEL2$,  AS BG$,  AS FG$0 ,0 DFLTSEL() (SEL1$)1 DFLTSEL() (SEL2$)-1 BACKGROUND (BG$)F1 FOREGROUND (FG$)O1 #U1 ]1 :1 : SAVE C  URRENT SETTINGS ON DEFAULT FILE1 "XSAMPLES.DAT" AS # 1 ,  AS SEL1$,  AS SEL2$,  AS BG$,  AS FG$1 SEL1$ (DFLTSEL())2 SEL2$ (DFLTSEL());2 BG$ (BACKGROUND)Y2$ FG$ (FOREGROUND)d2. ,m28 #s2B{2':2': MAIN LINE OF GW-BASIC SAMPLES PROGRAM2'TITLE$ "GW-BASIC SAMPLES MAIN MENU" : MENU 3' D : GET SELECTION FROM MENUJ3$' CHOICE  :  : P :  : y3.' CHOICE  :  :  :  : 38' CHOICE  * : SAMPLES MENU3B' CHOICE   : LIST INSTRUCTIONS 4L' CHOICE   : GETTING STARTEDM4V' ' : LOOP BACK FOR NEXT SELECTIONU4*:4*: SHOW SAMPLES MENU AND WAIT FOR SELECTION4*CHOICE  : TITLE$ "SAMPLES MENU" : MENU 4+ D : GET SELECTION FROM MENU!5 + CHOICE  CHOICE  : 'j5+  : SAVE CURRENT VALUES ON DEFAULT FILE5 + CHOICE  "XCOLOR" : *5*+ CHOICE  "XSCLOCK": *5/+ CHOICE  "XRCLOCK": *64+:IF CHOICE = 4 THEN CHAIN "XMICE" : GOTO 11000<6>+ CHOICE  "XCHARS" : *c6H+ CHOICE  "XMAZE" : *6R+ CHOICE  CHOICE  : '6\+ * : LOOP BACK FOR NEXT SELECTION / For insert into the GW-BASIC tutorial manual. We have included some sample GW-BASIC programs. To see the programs in operation, boot the system, place the GW-BASIC disk into the A or B drive, enter DEMO and press return. @?  >???>>>>??>?*>>>>???>>>> ?>>>>>>???>> > >   *      >>>>>>>?>?>???>???>>>?>?>?>>>>?*  >>>>??>>>>>>?>>>*"*> ** ? * *?? **>>>>???>?>   ICE = 4 THEN CHAIN "XMICE" : GOTO 11000<6>+ CHOICE  "XCHARS" : *c6H+ CHOICE  "XMAZE" : *6R+ CHOICE  CHOICE  : '6\+ * : LOOP BACK FOR NEXT SELECTION : GET SELECTION FROM MENU!5 + CHOICE  CHOICE  : 'j5+  : SAVE CURRENT VALUES ON DEFAULT FILE5a([ t$2JF u=ƄDŽ9 uj2tY Ƅ QYP&pxX `@0 Kn,X` % jjoCC7@?2C:F2 u)¢OË)   2`a t )2"t)YŠʢzڋ"t ډ ۇڻt "u2Ѣ$9 Rt<,t't  <,t't<,tZ^VS+ˊC KuCC;ڋًur2CB; u @*ȊŊ2BB<"u4< t B t/CP\X,:t%gRSlZYsQRL+[?Redo from start C u<"u[[  tY(ŋ֋S;<#tlfQ<"$t*<,u 2 ;S5+[S t ?G BħYsQ2,[SRRKg%K<[t<(u(Cu<"u?<(t<[t<]t<)uut<,t^V<,t#PmPȢPtS u,[Kg^V<,uq[KU [t,S 2^V,#^VR<,t  t 2t , Pu8<"t t:,K)XȠ uÊڻ^VRXP<QsKt<,tD^VKtkZ tUR[ : uCC uCCqt t.$t yj׺'<}t#<~tYCuw2P>uo`$u`Y'KKCCVT|u2؉-SQ;^.Vu <:r;o$ :t$uFP XĞ4t>$:u$t :t4t$:uà,rË2CCCuÀ>tS>)t?t u[ËW tRSUYZ[^V[Eއڋ+tS~׋ZrKtt2uGnVT Y)St]O2$Btoj$t:հP,u$^oX@ oon ۺuԋ)Oø2-RS˭^VP?,X:t^VS;uZ[^VR蒭[苭[ܰuSIIII yIIڇڋ;ڋBAuIى[<,tXĞ[ÊC荡uË b< uaA XPڋwЊȵC;rwCXXĞXu:P:QRwSSVT;ڹ ;t+;tCCCPX<uq2ж݋ ҋtډCCCCډY;uoCPCCC/CXS<u݉{[Cڋ{;tĹ;Q2 CC7CuËˋw;ڋs[^V;^VSrYXXSRQZ[ uK/KSKيKˋw貟[C/KQS^V^VSSsZI^V@Su S^VS[^VCC/uËAB觞!tRJw;u 2ىw[ËTK/KK;tÉTùQ2 ùQuC&=uYjv+(&R#,/)^VS}tZ PXtuCu2^VȰSS:rźQLY[SC/C?ݵًZ wZR*뻇ڊluQXĞ^V[=Q:rÊȊ*:ŠsÊuߊCSڊ/Ţ7^VQK觙Y[/Ç()YZQf'ްPtX uP,,S^V)S>Y[XQQQPR2ZXȊ:rË uÊC/C?ݵ*QR^VC[SRQ:uBt CuZZYZ2[ZZY*YZ[Cud(7`SRC;r+;s [S[S蹜[^V4,/ uPiR$St[YX^VS^V uÊ*s:rɵRCC?يZڊCڊ uËBCuuò<)t,)t_wD݉}ɇfDDuً)S}SR(t?uh)CCCC)HSۛ[t Q5ɋ)[YY'ɻCC:u:t9uں2:uCK PS[Kuv,<,tSЉ[Kt[,:tALLuv,:t QYZQىs Ӊ[;rɝt)S+KCC uCC)b t<:tuR,)Y_66,)Su)SЕ[H[S%S軕[).[S%SY[atȡctНtajcl&Sv[d(pSf[O,JPD)XS<rA. F[?FFsFF)Xr`㓻*r•û%+;输A“(+  Q0)+ (rQ r[eRF[gÀ>t>tSi)S_)[PXSs"#[yS-(9o<)u[XfS|sފËa t+ct>uݻ%t)<A[À>t >u+藔[ "ZQSP6l6j6c6a6&6%6'6)6+_S s J""طOZ+)'%&acjlX[YR![S_([QRt A,<,t8؊S5"s¢e[ZYnj+sËl+PllXPQj^P6jYXQRvZYtj,<,tUBt<,tnFSn[r?S0*sCSsCSZ!ZYRQ QPS]"[XY !YZIu[^vQRS^ajcl[ZY;vSlSR[l[ljQ[j[RQ,։vYZtsRSӻisi^S;st[nip^Sމpinډt[ZSro ZRYAvs!t;rr+rpnu ut˟utӞtRj;}ZRl;}Zá;|;|;|;|> tPuL uċrrrs >QRjlZY29~@9} 9~ 9} PS+ًj+ً΋l+™RX x@ƋYX tBP Xt;PSQR3 y y u tu* ZY[X锶頶x6j6ljlÜPS3WQYZ&$[XUQRDet,e<,tԊ3rAZRSw[ZYSs"6tS^@ [Ӿ`V|$?$ts r!r0tu t~4$ 5(6^6+6tCr&]t<u t5΁  }NIu4<  uÊ h6> ۊQSPqX[YÊ>uÀ>u3À>t u>tߊ:v2ۈV>2:>wS[:uFG:u^À>tPRڊ2+sڈZX2Sn"[p蝻tkO,<,tcWuXS2w<>QYQ2Y t 2H2䢭@t86t0,+uS t:v2w[2:r2À>t,262IH;w >tϻV2u Iu>Ku^;v6SRw+=sZw+=sۣ[ò>t!. BPحȭPЉ6^XRVQSP 9sXXXXX>P ;wXr$,S脓 y>t  Y迓[SډjW5=裓2[RPQYZS[Zs t4tӢ;u t V[uS t*!,Su莉xjۊrRSCB7[Z;r[ËˋCڊr++CIBR[>tÉS[SZ"SR+ډۉZ[ڰPSRSRډ;t&s ;t s7>u;5"t0@t$"ttZYE3>tZ[ZY0sCZ[Xt&ۇkajclQacËxt u u2sƊru!,<,uQ%^VSY y $66"8Ere2r uu uPtj裐XPQRu~~ y$66j+dYZNZYXu* 66蝐YX[R u S0[IAZSâPCX t|QR/ZYSs>t >uCtsCrm[SRQRtrrZڇ[;s[&CCt&CC S+[R譵t],ӻT.:t KuZÇ茵͊^VPCCRSж肆Kjr"[CCRSl>t >u+Js遶[AZYXRZR,QSP>uX[Y>t >u;SZJu[S$s[,su>AtRҶFYuT2TUUUM UUUUUhVTwVBUNUX\^V&VPUڹ@ڋʺ7ڋ1+ڋ<+t<-R<,t遵YuoRZ3>u>%t@RQZR66uYZZ[QPSeZ66"VYZaZZ&sA&'sBP#[r PSQRZY[Xr ca&ð@&2 R<,t鶴XR&Zr r ac閴ss tà uûuӊsJsBsÊrssZ[tʐΊuS`虊>u+;t>u+Um ^np I瀻a:JҀ L% 5轀7a%*c)[SPX[s(jl(jRy,br)Yte_觯tY<Ȝu蜯]KSS/t3s.gwts[uS`醰S\[@R(S^[SVB[#,Sو^[V*[ )ËOÉOËËPSQR3ɡ>u+@ȉa8q3ҡ>u+‹@Љc E ZY[XSPQRVWv#Tt3~qՀzbz;~K~zM_^ZYX[Ë|zÉ+S3PP# tQPX*[( tyVtȋ+.t :tCCC[Q.s" QS!tsB0 [Y.gtS>*t*((< t<`r, [*(<=tb<+t<-u3ҹ<,t<;t<:s<0r͋,0؇t*<W(Zr <;toQ[闾Ë(? rÀ>*rZAW(.*j*(^SPdS2 u2 u+>3 u/u4 u>2 u>3 uu2 3 2&ju u1Ot(2q tЋKS [ u3:ZY[XRQS.;_u.juuNr tK辋 t3:[YZË3۹;@tJ;@t B2öûIPSKS J[XPu>J sKKJ< v:X2<XVSQRs@LM2Nu1&W=T!r؉N@L!r2ZY[^ôD! ttPSQVP t>!^Y[XSQRL?!=tLZY[SQRsLLL@!ZY[#{ô<t<@u:P t P <u@RQSPvx? Ɉ5 ã? XPzH ã|? ~X[YZÊ2ӊ Sx>7 ߉l>6 8 SIr]>7 ߉n[>6 8 [ðSl[P4 ;vX~P4 ;xX}U`L .p>rtH !h b`;>t59`}ˋ`+ b;bu3;>t)`3ۊˋ!h!b3fjb3ۋArJ)`ۋÊ ؋0 Z2 \4 ^H !h!bu1h8j>;>tl;>tIbuj)jb3ۋAsۋӊ ډbK !hHj#!h!buj? bbj`2ftZ6\>^]UWRPL .p>r3fjty ;>zu6 tH Ћ;>zu#|!h!bu.,j2;>ztm;>ztJbuj)jb3ۋAsӋӊ ӉbK!hHj|!h!buj~bj tb? s2ftXZ_]á0 %3ҹP+ډp&2 2tJr؊ ãt&nbl УdhËȋ## >N u#%UU 3۹sCáh#d f& ##l Ȇ& P uP u >N uS߆ uC>N u$0 2 [XVR2N Ztt t" t< ~g u t0 tH t2}E uˀ t :/:) t :: ^^ t222}:拴 ܀2:拴( <wx>N tmRPQ<w2C : u=<w>t.$<w>tЊ.>t.YXZRSPʆ> X[ZM<tPSQRN 2<u*2~iP㋏ Ȁ>N uȉ[ZRʊΰ>N u36= RPX ؊&? ã>w; .vx.uxZY[XÀ>Hu ð  PQVW6>>N t1F ;>; r+>; P&2& @r?&3&_^YXPSQR._.vxZY[X.ux>ttÀ>N ã0 2 4 á0 2 4 À>N u2 2 s0 2 s0 >N u2 4 .0 |P0 ; -P0 X4 P0  ;; s0 X+; P0 XcPSQR4 36= RPX ã0 &? 0 ʰ2 ZY[XPSN 26 "A &8 [XÃ>? u P6 Ș&7 XPQ6 &7 YXSQR9 ? 0 2 >N u2&t? 2ZY[PSQR9 ? 0 6 2 ȋ? >8 ut&& ZY[Xt&0~} pPSQR-2 2 E u@>? t+؋3һI ʰF 0 @I ãG W9 6 >0 &E >8 u""7 ê"7 &0GI t7 >8 u&0G>G &F >8 u""7 ê"7 &0_ZY[Xk3f3N 2K.k.kPSRʊ> Z[XPSQN t  u >N t> Y[XRSʊ> > 2<u [ZRP> > 2XZP?r-tut rr?w >HtXXR t\G<v:N tR N ?rtG:O tR O >R t$N < >O t< >Q u,P SP 2 W [9S tR S >R t%] SN 2} \ ^ _ [>N t   M?rG>Q utG:v ?rt ?rtG:v PQVN <| ` :e v>N u7t S_ [>` }tS_ [.` >` \ a ^ c >N t=>` ||tG:i ~a >` |`t G:m tb .` >` |?tG:q wSc >N utE>` |tG:y w/>N u d Sa b pa Dc d _[^YX:S uÀ>N w#<(uP2N w$N w&<(uN P2_ ] ^ \ <u (>N w<|S (tQ ^ _ \ q2N 22䊇 ? = 2 ; <@u:P t 2P <u@S U vI2P JY[XãX Z ËS U SN 2 [r ^ _ \ ] 22s\ ] â^ _ >N u0PQÀu up  t̀$ Ģ YXÀ>N u*u & Ā~&  4>N u  >N u! &  u :~ PSQR:u/:tr ZY[XÊʊΊ*Àt :w   :w  ϊ22QPSR>N tUBQPSԴ> > [SP׊> Xܴ > [X& > YZ[XY  KVW>N u> }R2혺@22@ZL >N u ;>; r+6; +>; PPQVW_^Y_^SQRP<rt..X Y 6Z [ ɀ 3ɶW ʴ2%XZY[PSQRʊΊS ʴ2ZY[XÀ>N u  : u> PQR@>Q u2N& &ZYX> P N&Xà? PQRS  s ؋ Q X > u t ʸ袾  [ZYXPQ? RZpYX> uY 2 3ɨuA > t9袿  u> t@ ~@ u2 PSQRVWL 60 >   uQʋ&FGYO"   _^ZY[XPSQRVW@L  6 N0 O &" &" W _& "  && "  &  _^ZY[XNQʋ&%NOYNQʋ& %NOYNQʋ&%NOYÃuNQʋ&%NOYÃu &0NONQʋ&0%NOY.>vuP.vCX6uu.6u.;u=u.7u.9u utA.>6uu.>5uu#Q=u.7u.9uY.5u=.>4uu.6u t 's#.6u=u.7u.9uS.9u#r..O2.G.4uu.;u[QPu;u=u.;7ut.9uXYXYS.7u.;9ut(..O.GPu;u=u.7u.4uX[PQRt=BBZYXa aa$aPSR»M=t.rxZ[XP<u3.>utF.u;<u.;u/<u ".uvt.;u .px.uH.;u5ZYX<u .x.x<u+xxxxxxxxpx.px3 &.{x&G.}x$&.wx&G.yx&.x&G.x%y!% xz!%#y!6C@@.}x.{xش%!.yx.wxش% !.x.xش%#!.>rxt .rxul.>txt.txtP X.tx.>uxt .vxu\.>xtW.>xtO.xuH.x.xu .x.xxu&>xtxxpxPxxxxX..{x.>txu.tx6C@@.tx6C@@PSQRW.>_u!._3&&o`> r.t >9 t4 T >9 u6 <9 t*9 t0&8 Yt(9 t &8 E<*t<6t<t<8t> t5 uSt32 u: t/; t!  u  t <\uPX.>yxsyu 9tt-3Ƈ t Ƈ Ⓣ P XP2XSڃ|'t"C<u   t [0ÚBÚÚtÚÚaÚ3P>9 t$<u 4 4 <u6 6 XXÀtw2t\PgeXS9 P3&Xu: 0E *w S9 P tPG_ XS9 [ [Ê'Ctdu`Q2u .8 tY.8 .8 tPr >tPyXSVrE tt*u7r >ur^9n9+A8t >t$[`s:Fv >@u:Cu:ErPs S:Bv:Hw:GrPs2Ps2Ps2PY[XR rR[Y[PK8а[܈esBPP[sCPX:CX:B"tSPQYXr7[X須t^S;r[Sr[ S3ۊY[0àR&S:&Bv &C:sǩ(rI:ErC:Fv >@u6:Cu0Pr*   :Gr$:HwP)tr)u<t XYSXYSRъZ1Y[K覆*Sr[蕆u.DC@$P6X<,t /Ԋt#, hS**6r銇~QRP=YZYnPQRV>3KtDGA8sQW6>=_Ys3A<u SQW`_YӰ[«u> .^ZYXKƅt<,t腔K蹅t <,t<)tCȊCSC3ɊOIA?u WSQ蛸Y[[ÿ<3GAQW:_Yt P,uK]t#Xs3wGGrEAI< }AK.t#<,tܛPK t <,t<)tXTCXCÜP Xt|t+Au[RRZY;w||項[(ݯ ) u鋅SRAPഋuC#<(u@unSS@ VFQݷUV Y^VQ t  Y^u[V< u^@RC@ ulZR3XR3/)SiP0tJEV Q Vu2/^uNYu^Xju[X3Z/t)2PS u QY[XSfڋQ @GPȱX0t /Y[Q2 00YÃ<9~0P 4 Xt Ā1u r @P 4 Xu1u01P < Xv R)S ŲR[ldrdŊ-#-޲ 00ĈC蒤螐S㴊rfw>)6!6=s=dsD=Nsdl=4s4[ t,=P Xut/t=P Xutt[/>"{)w$P Xt u:sZK Q (軕P踡)XYVR ZF^RQS)Ct ڊ$t塝[YZRQSڊPX3$tKÜP XtJvP XuvPXõ,PX@аr#[PR>)t2,t,uHHrZXV tJÜx&~S,!ڰ<2pRPd2Z[ЃA\#z N[}萠(2艠)2 tsQr~ trZK ÜP XuuS38tP[P Xuhu txÜP XuLuFS t3ۊذr [ZK x~P Xu~ÜP Xu8S< r;~ u,nO[ÜP Xus tÜP XutR[t}ZP XtX<(uBL ZS[r #>tFÀ>s:sPAsK tGÀ r=s63ɀAs/ ts&s!s tAt0PQt u@YX32 uÒk0{F̱ ????????.???S˾>t[i S> uQVW ._^YR!>N!s*o.3>uA :s V- ^ 5O!<u t Z6!«3AlUTTqiA a[Ê yvn u !RG!r#@Z : <  tV ^w ð 84t8tVs ^P>Xt.D7@t#DP,̄XSP[D!r[< t+wmmu蕘$葘(tQ臘)^S\<D!rPXY<雦 S>[S !>3ɴN!s<u7gm_W  >A!s<tO!s#^[-mNm;9:P@ XSP<X!s<t m["m:mm(m.m:sH<ȿ谗A謗SsѺ  >V!s<tl S>+ω<>:uH#>3=!r ش>!3<te[COMSPECut G_sS< GOG;C  Ȏt֋锹txuX؎lҕ<=uX؎6>蛥w+=r׀>[u;'W6w+Q++SDZ@،ء`+؎J![S@=fY[^<ثɸ EMN Gsk>&>^2K!ʎێÎӋ&>> s\42= t>[u)`UJ!r1Y^>'+ċ+>s <t <tk[k顔=:Can't continue after SHELL uS!P !Xд![u\ L V2L!d<,uES裥 t8C$߶JtPVQI2H!Y^XPV6[;6]t tD^^XÊ&`Āu3t t*t%>at|4wSQR6EELZY[VKsG|the|1uÀ>t;SQR`$`2ZY[b t"lSQRd$7ZY[ ^Ë6%Ft2Nu|t&|/tD7urD/D0Àd7D2d2 u;  2ÜPHXPXS>9[V6%^ÈD2L77u ++v*` t"rRCI t RCIË6%Ë6%ËwV+YZr sV6%FtNtd5^^sQY< u r u < rt:r P Ӱ X< r< u<u tcE tVP u tyX^lV6%^WVPFtNu߁߁D4(X^_WP>3.= t).YX_&YP x2؜XbbyS<8 S ^+[bRWVt25_+tEItBW>1OVR2GD.u .8uJuG. y ^^^_ZG.tZ^.}ufbV2 ,@r<s u Jt$3:Is2RKZ6MD Ë6[;6]t :Dtt À>Jt;KvjPSQRw+;rtaPR躚ZX؋6[V?[6[\ZY[XÀ>JtDPSQRD+Ƌ[;trOGVWN+wtVVW y++FG_^;tQui2;t"9CCÝuPCX;tP9wV +t#%;r;s%w[R_^QO;wv;v;wWYÉ\\ÉDË;\tË\;t \ C;\r\ËDH++DsD+DU3][`5 K7~ðtSW.Q_[OOuP߁Wg_ t W3Y_ 3PXSQRR6S/6E tE3E3c`ub%ZY[PSŽۉ.6% ߊã&}[Xu蚽ێÎӋ&}.6ĀuBEA:.E BݿEҢĀtߢ@2._FDG9999H999FD9999H999PR$ik"ubmi$?`{&3!2Ұ3!ZXP$i3"u){y&3!XR ‰WZPSQR %!PS3[Xãޥ} ߣA'<t<t<t< t<t]]]]]]>_t uQX6E<*>:tx]_<Y uEÉLL!P t<u3ɴ!=!s<u7X<u<Pt\D2W!TLYQNu3ɋѰB!sDTYLu~|(t3r܀t uËL!3D(2D!rC€t7D(@tL7@P 2D!ruDXtDD!3 E\e|(t4-s32P? Xt|9tD#T%D8D|u|(u|/tH\>!|t/|u 2|,tD! t\;t2x9u#6[|\-u6ÍTC5.GA+BÊd8ôÃD#T%SPD#\%;\w;DvD\X[À|uD8|tED!S\;s%L0@9|uC\[|(u<t [|t|,u   uZ|u|t=S\|u ;\tۈ@9D/VC\|t ;\|D/[< uD8< T85|(tR3ҋDwZWAP ;IX_SRӋ\?![Ebj'cًËRZ;ù +Ӌ;tЊ؋*.2PNЊŘX.2Bu uɵ Ź +Ӌ;tNЊŘ؋*.2PЊX.2ŋBu uɵ S)C[tÜ ub%2uT)L+rb u tXT)L+PڋDr>ȋDщD#T%DŽD/D0!XtDDtD#T%$YSQR|(uʋЋ\2B!sXZY[QWD-D!P3|9|uY?M ͈L,|t D!D/D0D _YPQD-@L"tD\>!|(tsXmXDYXSRT9|u\!r+Z[PD4XPVWWQWP^jY[_^XWQ3ߋ9btr:<u 9CWY+Y+SQV^ u!% tGXQ+tRY[3Ɋ_ t3I tઆ37:8>7t32tvu8 utar:sMWu:Nu:= s/W>t t?l:v먀u87T Ct t=*=?=.s>7u7.BEASÿW^>% t  PQVW  G_W  t <.t GF_^YXù_WFPQW u!>Jt>M;>+s!}t>K>[;>]t }_YX;tPSW:Eu :uCGV_[Xɫ0j|1`?R^_'PSQRV3 &;&@<^3ۋ3 u>St3tjt,r<uKVtCr<uCSXS/[4tKS[/ô>_u&_9>::uA3Xt9>::u"RZr t<u 9:W`su < ru_^%PSQRPRZXJuZY[XVU]^SQVWu u>St u XC_^Y[SR t u ]u3< uPOt< tX Z[3;;<>uN2u tC u fs"u:tt r   StA&@C <&;>Xڮtr)uQG21,ASN%..t!t KC.yCC ͈.[YX [ uQ+(ʃ> tË t t>t>tYS3t%詯tsPKuZ鎊P9XІA[Ü u>SuPr tȢ/XP u>SuR /800tPZX|||ij||?R^_'BI ÈIuQPŠC腾XYI6%%%ÜP& ttt&XÀ> u< tP X< u  t< tPS t:D5w:BvȢSX :Bw S:Bvk&S:&Bv&BÊ&B td5|||||ձu|'WPEE_P"ĜtcYv"nu|}'WE E_WV> u^_Ëu tD7u R ZtP uX t2H.<r9NE9PQU}tYN{E t E uE}uE}nw E}vEEt?Y>_u uXU ܷQY tuE tME,EEEE EEE I8tr NGU$tr!2St ;s<;uQ ߀>Su<R6ShPS6SS TtS<+tS[Xt&ˁ<tWO G 8t :u u_Cu>Tuze;%/PU@X   +RuA[Ls:CCCCS#[? t \<E\R>SJQR uX)YSK>Y[뺢t t~-vuX<< u t t< utC;5N< t_uuWS N NPâDBCEQɈFYGHÜPQ**fYXÊ&GE.HFPF:CXPSQ<v<v7:w+:w'Q*@:CYw:.DE&GF.HY[X&SR~ՠ5ˊ6SR:6Bv6BÊ&BS۷LJGg$<t< s[SLJggG[3ɋJEIFJGCCRQS3Sn[>[YZÜr1>t*>u#ktP6%% tPX%XP>u">%u"Tt>u t֦XPrtQ/轰XP>%u&T"&S &ԠS" XÜt  ÝÑP2 t:&BwArtt:&Brm:&Bsđ:wr}erCtK.B}:Pu PQF6G\ u:wL͑#rS뵑r&B/s&B*:wPXR:Pu :&Qr&Q:Nu :6Os6OĈ&S8&BsrR&G&SPQX6LQR6B YZʏLPSQRr:FtrF:FZRtr:Er tZ(t ] rP=XsZR:FsZ@ Y[XQʊE EQFPSRŠ>G*wr$PP.D観ȴЊ6GX tZ[XYVPR!&E8$r&F8$v$NXP^:r:w$ÊEPSQŠÊ>GF*Pv.H0ȴ6GX xt@uY[XPSQŠ&GÊ.HPR=LJGCCGGZRLJGGGF rṵ ZQPSLJGg[XYPSQVW>@裢t@_^Y[X@SR6Su. C r T LSJG[t!RQ6GB_R:6BvR6PPsƋZ:Prw:.QrP:u *vRZRQ:ъ6GtYZ:.Gv+YZʊ.BT:v :&Gs&G:6BvRF2ɝryu: wq tp th:Pt`6Pd uXO6GK>PPW:P_t>P us!!rtp2ru_ZõSQR6L.B*r:Pu Qu&Bŋ؊P:v6G ut36LL&蓬:PuP*&QXv(&QsQ>QPϝXr t:>Bt>B t:uSXLZY[X&B3SQRP:wHڋYQ:v:Pu:.Qv.Q:w$Q*윊rYR :w SZX:Pu:.QrZY(.Qs QZY:v1u,<t(6L:Pu P>G>QL X< tZY[:Pt:&Qs/ 1H /1)R3<Sp[E t8/us0?t*XStO1M[_H ֻ<O8RZð+<t 9Tsދ7%s:FrtF:FtRjZ6GP Xr:&BsP PXrt<ṵ6GP .XtCt>c:r7:Pt,臥 7R:6BvZ:FuU\g%rt:&Bv, rts B&B\6G:PuP6QŠsr: Ƥ *:PuQPVi^r6G t蔤:FvFX6VPQR<P2 u XZYX^XruP_Xr tPXs :Pu*<u:&Qs QPŠ6GɇZPQ6YVƀw^:Frrr RZWQ:PBuQ:r:Pu:sRP*.Bw2*࣋tңX*Z[Q*ŜŠuiYr"t :>Bt t>BPR =ZX u:w:Pu :>Qv>Q_Ê< t:.Bv*.B QuY[S>B[2r t<u̝6LP &G7XL86Bs .r6G:6Gsr6B8Fr:Ert:Er8Frt:Pu :6Qr:rr:sŠ6G:w :Nu:6OwSr:trs ӊ6G [:Nt vrWsŠ6Gr6OR@s u<0r<:rJu;   t >t @rR<,u>a)P66ˋ6P2XĞt i6u׋697uRgPRGxA[VSu2t_^LV'CC^up<RCCXS)[Y*t )чp=?,u==%6=.VEE6/+sC6uuù LыV2.תNu Yɀ?0uCSd[t/C C>2++tC< t<*tKSP 2<-t<+t<$t<0uC sKKX tX t[%û / & t :*uu] t1}.:Ft tt&Mt.̚̚K0&tK$uK/2 0CuJ0CurU[t SPGZ[P tt u*PxOSPPhXuF7 XP6rĘ FϊĘX[xXYQPSP$X[2ܠ t ů2X6P.X ~6}X u K<.tCXrĊ&* t u &&&&&&&&&&&&&&&&&&&&&&&&&%%%$$$###""""!!!  L} Hz@PC$t >(kn@C:h* 51_c.1@v:k ^# bx-Àz&XƐn2xʴW ?h)͡SЅ@aQYԦo% 'N x9? 6!OgI#E@|o|p+L67EV߄vl: {Η@H½p Pv5$cCu͍M r5r1.eE%#!Dd,0Ƥ~@zZrN vH Tʚ;@B@B''d ;8|Yt&wz^Pc|u~r1e&X4#]I׳]b5~P$L~y DNn"~CÞ&0123456789ABCDEF&  ws y $P[ ta u@It  .sxu? 8ݰ 3 t y%r .P uXSrQ ty YP{ Xy Y&XyPX~ :r Űŵ[P2?0uCmK?0t?.tCXt+PE{D'CX+y-ش/, s:CĉCCٻ y< uT.C uÿø-ua-y tyà t ty Hr SB [3һ rrI66AlZ[ùCCùKKÀO û r$Q'GC2Y t& tQYGuþDÿ.߃ÿQSW_[YQSWË uà uS[rCr6SW2xC x+rFu>++r5u-+r+u#2Q,rSW2y& x ,'Qޠ yu s  Y_[û [rSW2yQ뿻u A.+V.^x xá xx6á=uS [û2rz_ùroivrY߹L[r>5Jr ?s]5OOUÿ sXGGPyrn2A{V3ϋPX uA<&u`C<-t<+tKss {3ҋ.:Ft tt#Mt.229΀s@3+s NFރ6$1Wu/y u K ur y&>r1RS66p[Z[Zt1 y=$S66,u["ڈSR66 Z[quRSd[ZyZ[4ySRKZ[؏&sWSR1Z[ QSR . sZ[SR  tZ[u Z[jZ[{/66 n1 ^f R ZÇ u 3һ|H SpX Z66 [ZRZrSu Z66i [Z3 u6AuuC ÃuD y y>SU[ËÜS)[M6C6_ ^66`t&Ç2Ȉ/C/s& S3ۉA<[AËsZûRrÊ2ڠA֋lO+AڋAÜIu%x ty3 u[ØAA[Z_[Z뎜C7CCCS_$ [:Q2y  C0  tt9À63݋‹Њxx  1++tpx2x;u3Hu tt‰ u6AOy y>ډí:tF;uW:Au:,uFЬ:t ttȋ[Ë.뾋.:tF;uX:Au:,uF:u ttЭЋX222s-+ x =rރIy ރ{2ˀSPQ|YX9s^S1[2ûxCCst3KKKK< CCsWKKuCCt 9 á t6 t t3ɋ6*s ن߉ߓ֊2㜴 2 tQr6&% ĢÀr't ֊2ۀtŀ uy%*̊Ês/u!Buus t n w>yDM2 tc t׀쀀*pĀP2ɭ̀FG%W!WW ‹tY[_63;s\ u;w;R3 tP t tZ]蕒sOsO+‹X x utwrtsu$߀ ǣ߿u uMD2쀀*p3ĀPɀT$2΀]-2ɀπV ‹t[*y8F;s[3sNsX x uCtŀwrt st$ ǣƣþ+ЋsSWQ,0P8Xy sx HPr3P$tyZ66A[ZZ-Y_[ß>Au SWZ_[3r<-u<+trÁ rP Z02 SWuD_[3~Ccxt/Y{Ruy=FA&@ˀ*s#u\yA3RV`^Zyu.PQ3ۀrݑ*͊r.t"πp yYXA x ut32D yފAq t  u*Ë p6   t,ϋ#S߁sBsB[tGGۋS[tFF뾾 t  xCCu_t u2QPXsBZsBڋ׋s u y uӊՊߊIy.C0uC3u .C3 u,C.{jQSS U[t p[Y~а P/PXPsXCXuQY)SQZ[t Y[APSR]/PXPs.V.^EEE~X[CXuBBqQV.G^YQ.GYSQ3WΠ. t _+W<>s1_OWrRwX, PvXPXY[   S[y -S[ C0uC y3xs>ٜuûGG GGy"2y&sQS[YS/sCC[SuC[ÊsLًu23Ü ۜˀy2 tyBuÝs2y Ӄñ*~Qu à,PSNZ[H_Z[UZ6Z[1r"9CC t%t!xu,vvv> x!uvފ2t u>.RUS[[Z.P66..Z[XHtPSRV^..V@^Ss㻊Hr [K%ss:u PQYX'[x?*y26R Z62 t6!Р tȊŠx2PQRS[ZYXx*y&8.C*y2!3R6R6**x'6tXZux*,Ƞ$@uÊ@u2  t+S[y-Sa[C01x̵s SR2Zw,xUR XP uKxC`tny .&Cы.E2&2.&C2.F.Hو&Ar  CC$렋3&IsCCutu&&$ĀsBuuu uFF> ߈ËQr >y>y?YQ#K"sEYűcRGW-BASIC 2.01 (C) Copyright Microsoft 1983,1984 Error detected in command line Bytes free>)+K{ t&D/)+'S.s[PSup$u%u'u(,r 2.[XòI`WJ![Ћ&S3+;r6+أr+G'+]v0s* r%;+v+'P'][R[=S=@@>SuIjruS{[ t@"S[R++KKwqyۮ@ t3@ڗ 5| Ƅ}&l.F}k +}+''c}jr$I~L~z# q}#cyK~vsc|1CeむtG鵚 ʀeQҬ?w   p>[3l_DNn"I,\zwpLDPLB!XVC0`[Z*2g')8n tz~@\);8h!I,k e35TeB׳] j0 !C|kst>AuXXP .@<t_>Au>Au 66r6AVsy)X<t>Atj43 Lÿ....þ þ ZPPPPZXXXX.&. U9 UtþetjMÉ6u6x.PVK^*XuPV^V^ t uÀ6^ր6tKy u`Otvy6mWa_es$tyVT+{73[ >{u>{ t:;tK"{C:;t  uy%tgʋRsi4PpR'Z+`>[t Y+`;UwÉW`+ں;rڱs>t ;r ؀덀>Jt.RQPWMGKI2 uȋC3_XYZ3You can not SHELL to BASIC $j؁Çs  !{y&3L! Incorrect DOS version $`,&^3& u& u%H\`P37!\/t/;6<ECB3)&S&T0!<s !2L!3SD!$YA2"uQsYSQPp J؉c؉؉؉؉+XY[<LISTRUN LOAD"SAVE"CONT ,"LPT" TRON TROFF KEY SCREEN 0,0,0 RORO:p8 !Զ  QWERTYUIOPASDFGHJKLZXCVBNM  ABCDEFGHIJKLMNOPQRSTUVWXYZX0G. LPT1    @PPP?@@(P(PPttttuu;<=>?@A B C D H KMP[ XZY?SKMHPSXZ[Ywxyhijkwxy؉؉؉+XY[<LISTRUN LOAD"SAVE"CONT ,"LPT" TRON TROFF KEY SCREEN 0,0,0 RORO:p8 !QWERTYUIOPASDFGHJKLZXCVBNM  ABCDEFGHIJKLMNOPQRSTUVWXYZX0G. LPT1PPP?@@(P(PP    "  2 & B @tttt u u;<=>?@A B C D H KMP[ XZY?BCDKMHPBCDXZ[Ylnmhijklnmrast>AuXXP .6<t_>Au>Au 66r6AVi)X<t>Atj43 Lÿ}....þ þ ZPPPPZXXXX.&. K}9 K}tþetjMÉ6u6x.PV                                                                           !  !  "  "  #  #  $  $  %  %  &  &  '  '