[comp.binaries.atari.st] v05i049: bigscrn -- Create a huge virtual screen

koreth@ssyx.ucsc.edu (Steven Grimm) (07/22/89)

Submitted-by: marcog@hpbeo25.hp.com (Marco Gommersbach)
Posting-number: Volume 5, Issue 49
Archive-name: bigscrn

[This version really works.  Wonder how many programs it will break. -sg]

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 BIGSCRN.ARC
M&@A"24=30U).+D1/0P#_W L  ,H2K8I@)\D2   ,4LJP"9.GA94R<N:D>>-&z
M!P@["!4R!.'D#9TR<T#(<'$#! X;+V#<"#EC!PB%%T&@@2-&C!PR+I! <3'Dy
M29,&"HS(>=/&X1,G340"(=)DRI4K56($<2$D"14G1:C@)!+FHD.=:5AH!*&Dx
MCAN/.4# P*%#!MD:-$ T(2)5 =6++0*.*9,&(AF'4ZIJG<'5*UBQ,'3 J%&Vw
MX]JV4^J(45-F#!V'*-PP+),"9Q.,<\*<*=,B"1&'/'#D@&$#AHP8-,RZ"!(Dv
M!HP8,FP J3-&C)TP>)@B7".P3!X718A4\8'SB9PS8=RDT5-U84,05-"4 9'$u
MS44Y;LK0P0FE*AJ'*UN^#!%>C!OR<%K,P8A^H)@Y(6C;QAV"J%&D2IDZA4HEt
MQ,^@-^#D1!EWS''&3G7 ,8=#8_ $APMSY#&'"U6%(4<:$&ZGP!1EN$$&0@Z1s
M$489;3 T6VVWY29$$5(L4003160!G' X,9%&=@N" -L,.&'10A5NP&%A9F*Pr
MP=E;95QUH5:F]?65:#K&H$,,-PA6@UI%3('35%4E*98,3DX70PZB:16#E#'8q
MH ,-,&"I94X[]=07&VDD!X(1+H 0T!QCH,$;") D@()I-<20@D<VQ* 1#8I"p
M<L!_(@%*0%4@V'=44D'@1,4;#D$RP(UFO-%"A2!0RN<;<I2QI0))G  1"*G.o
M55<99)0* AL6@?"&&2#$40=&=#B741ABO%$''2"TD0<(<.QT8!AM@"!$&F=,n
M,4:J';JP:G33-?O&L]&B2NV-8;#!QK)WA)$1'(K1.8=TM=X(@@A34-%"$YJ%m
MH<>-(FB5QAQS_!KE"V/B@ -.+;0 @AC'@O O"-E!) <=TAD), AF8)MGJ^:"l
M0(<<R]+QQDEUM-&&A<M-1_%T)<ZA81IMP($J'<DA*_.-=&0D+\4/6QCL&$:"k
M4(=";IR1[+(NO<';5QV>X2X:+GBZ*L*0%(!3%9EM1K75"N T;;77EM$A"$@$j
M,87'(XO1[4!SQ6O=R"N#$$055#S10JAL?"C'QLB.8:?:.#7HAAG4UI%JK6(Li
MB\8;>=]H-!EOW/'5$ Q]S+A64Z"1AAET:!4$&]>YT:6N<N T1!@*,O'&&&N h
M0(;ACI]$\\0)YHEU[">L<()6)[2P.P@GJ'!"J1X"_\+O>1@;N)U])K>9Q]*Yg
MCE$:AY\4]MBISL'XL<Z!@,+7UF+[%1G_PC&0A#C%O1X=P1:-,:K0JXP&MK!Bf
MM'VP#,V10IY09#^L&\NRB'3D  +>Y"%](Q-<^WZ5IRE (0A#* ((%'BC7V7De
M#FF@F+&0E1D[Q"YNV;G#!!E"N#,8KCD,80%.I!"5*DC!":Y[ T8<ABP4@)! d
M)]%.^\XPK%2=) QV<1WU&D.'<SGL;?'#B;? A;$T!"UA$!N9D.0 +>T@I(E&c
MTHIDCNBR<@T$?U]9(A7;$(+]K:H(<M@) =N &<U@1 >K$@'XKO<5R2#K1ETTb
M%ZU$X#5JA4]L7TE71NS(19KID0Q:49O?AC:=Y-5!)4"<SGJ,Y!A:)5$!7?20a
MA6I5KQ9D[W[.T5;7%" "R@VN<%0$XP_M$K4!\%$!<Q0?)#/204O>4(3KV^&$z
MXAA+0!;2B[1JY2M[.3;RN2V/;  !!C78,(2H<9>C%($1G#@=+H3A6&_@@ABHy
MQ2?LN*!91B-DJ+P"DV'ZD8XCK$/>W' "9!&N>'$3([2PJ+*1U3)^$",03G+Ix
M.&CBI)3)::<R+Y02D3'+66.DIPO,"399"I*=R")6T QZ!X+*;SHAS"'[^GE$w
M@ZY,B0B=)^&,),I_;N%C>?C@R B'AX.^H4@DNF &T:"KO$'G"6>3F$3<,"%/v
M=>&55Y#.5X86N[I-H04Z%18(>! #%]! *\3\BA=7UZ5A_= ,VCF@ AAF!JP2u
MT*#-*@-$K#-!*KYKAHM<#^)"%KTPD($,_HL=PWB(DYU%CT[9&94G-W@CC&SLt
M#)+Q(0K6H[+&0.V(H9+#R<"8@A"LJ@60R !.@DHI@T).F3.5UCG%1S7)CC*Js
M#LO(.Z>36*$1S6C>@@-"C"A/DUGR"$5HPJC@8+XT^ V,<\#)1 9RG"MV$Y 9r
M@2)&5#N&.IEK69O#)P8]%#FAP4%$.PSM27!U!YR@@)&WLM!F"+A<R!6HE?N3q
M5L,R>(*,G$Q>[)*#S-8C78-6# X@_=88V9@0M TT@]W:B6H)"%O9HJZVMU7Jp
M,A?7,#0 T7$(7%@=EA4&$$RA"3K* 0U>@"\Z_+%#%&8(?A5;TE%"E@*:BI[Ho
MV*@K7L4-.6RD&H@_NUE?"HD.?9JA]DB<'>0$ZU5XY4P8D(HRB<[P#D+%9Q"Rn
MA!/(S5!S&;'#%]X !S?<80TH2$$+_&:N/'&+O;>YD(][.!W(C:%D';J(VW Rm
MA=6X@ EF)D*>4) <MQUM86]0&O"",+LT.)@*(.C?KM+ L#[];@IY4%M+CX"0l
MDP'0C*,,ZMB(ZKX&GR"P)V/#\!9W(3U4KESUTQX;N#<1%*1A.C9@TQ')1BTTk
M**S-:J%5"U98!CT0KU8SD$&;Y*6Z.\2EU2G02C<9AU>C/0QRV1%BK(J(-+9.j
MQ\ O25>JK.O!!JL/G6)0UW12=89_70?1DPTRHXW68 SJS7KB@VJ+QS;5V\[0i
MT1ZD7;E.L$]THKI!</BTSI#UN@NYSPI"Z"C<H@<'-$C(MIC^;8=PPL82@<Q[h
MRID+",J !VB9C[3PBQOYNHJ0#BE<;72X@XO]/8=HKP<GJ,;5&3Q>AA!X*KRMg
M>M7'/ETKRXY,60L#5B+'^Q6>Y58!)?J09AOJ2PQV; [4C:'D\'FR/O7U)-12f
M#N'\9IUS=9A;*A&7I:V#Z4]N6I5,UY4;C*BV"1JX:):4E\O*H* 2XR1-TLK#e
M1>:0R,9<D[UQ:PI.ZT>G&4Y$"%F@0I:^  46?8$)28"*?0&G@ :W09W!>GB)d
M=60#[S&A# S9I$O;\"];KC0-+;7YJ./VSG+A)%5&DO;BC:HCIV); 7J&:1MDc
M2K&:?MNH2(V(L!P"]1SK%4'MLSNO2-]4&"P/HI#T4- $SM.%46N[T+-3K&]@b
M QRD?>VZ'AEH?<X&G!"RZ[LBWK*P.Q'-OU335@0!3F.?D%!2YRN\=X$,5*B a
ME?GP82YS8C(;["W5@P"*ZFL6?C'F%<<H];IJ]3Y?)1T$9RSKT0(W8QT(<2C8z
M]2XS,RIPA1F.LS&N(DF,$T0V%U_VESC,0CW-X3YQ@WM'ES$\<5-GTU1/I4R:y
MTR?*A"IK<$$"P08=]CG)E(#7P65>YSR6M&WXA 5"( 5!@( [(3(-P@9: 62Vx
M15,/(S%:)3/LPENC1FB*E1R_01UT4%[$LW!X<!$\U3W99R>,\VUI\"$-MBN6w
M\09G)2U4E!T$Y&E7F!%>!F8*Z&9QHV>$TV<TA6HS-AW;96B!XR#'<D4G@QS[v
M@B.GIVA#=5H[=V%NH!7N-QT/(SIT<$+'%47,\@8X8UH(I@!!P 3V@@0O @7Vu
MI7]D]6SBLS$\=1%NI14I!XD\A1!B!G+\YP;^UWT&ABPJL'(8H0+V=4^FZ$LPt
MXT:EDA%)T 1'<#?4I%LU%SW%DBMP-2O>4R*2T2=Q,AT,<2[AA021(U8(H160s
M$SN$U@:0,P=3YD4W1X+1$C?XE@2A!7RU%'W4 0(F9"$U(S8"&$4\4S1/UU:.r
M40>8EE03\3!-U513HP"0]0"FPV1Y<"%G@ ;(8D<8034(R6(\-S8/DS%BHQ7Jq
M<BL,X6MWE!%.\ 1XQDBUTB"N)0?%Y455J(T:)S'LURJ(<VS_%3(CLQD115MTp
M$F#Y(ST0@2NJ52L#AD_O97:P-&Y?P6;%PXXL% 55D"5X9I+TE9+)I#UFH&Q=o
MQHT^&1&]V"%D((OP%D F%CWO]"_PXE+@DFNZXGXQ)(E*A6I0%#!GL!GQES\=n
MA@05AX4P-P>BXT3)$@9\Z581"#!P-$I=02=V@B=Z@A%]PAL):1T7PC#112L9m
M!#_9=P*=A"^$>"/LI@!V^8JI:%;LA1HR,!4M0 -LTB9-\"NIB! X@2=2X )'l
MT&& ,@!4(! NX!"$$@,O\!&PP2B6X9=L4"QXX!#X,C1JH9IC)P=,(@.%LILPk
M, ,?@1,:"$))1U-#4DXN4%)' /^X#@  Q1(\16VR*Q4   Q@-   $$'<0 $\j
M $ :H$2A R1Y!DI(%@9  RDO$@((8.A'0A-.G'!Y H/'OW].A(P -I""!X\ i
M1(2D\F1E2QE1\K74 1.&DR T8?&I ( -!"@Z 5#0 7%@!'85&Q@0DJNE%R$1h
ME5K!VA(+U99"N"KUX?$DS 5.FF!YH@3(&0(5%PAAD$? GX$3I)F1 "-'2QATg
M SS"2^W,0&Q- 4C(49&!*Q!O !  H3$  &BH ## K)0S!R&!9/@%D%=*$'-)f
M#$2T3)J:L*03J!%831A:(&B\!@: HB3KTC,&< \$%!.%9$F9 < *Y$:,D#,Oe
M % >6.%,[YW A0,@#HS7OX4 ;"J54O:?Z)8N9&7-:\9 =# #$63\3B ZS (Ad
MG[S3G%$W,)@@B?0$3#'\E-@$(\2%SG,_*<'/@4/$A0T8[H" !P"(5*29A04(c
MH"$!3M3! "I>F?8//6;0,Z(021PQQ3_XG($ "&C\P\\9Y(!!3F(2I!*7)V#0b
M,@(^&!Y$0 C\'(0 AJ"$AXQ5,.!  !7E(&$A 5;(08 2L$  @(Q8!"$+$"F&a
M&$)NDBGB98@E!L&BBPIM.=H$Z)B!@E  S&&&%2 $,0(ZFK6D!0A0, #%1F9 z
M,,)^ K0DQ@M\'*0'  * D)4 ($*#IYX>]/EGH$H-6NBA 9C!P C7..H"F@+Hy
M86E+'CBA*1\GF6',=)0"X<0<0@ !@91,! $;.U6. $^<%+@@+%[X&(NL".,@x
ML:Q2!#@+"0$4F. L 2VIH"$8KX8:PWK44#HN7M(,%()O(@!@0'GS7?O":!20w
MEQ!^3NBG&0,X4$H $XD.V:%3(B#IE D=(H47.O,Z&J)J&Z$+,6NQ_?HO+ D%v
MX 8.,R2Y)&GJ=$QI2QR<UYHX2<P0#&$-F6&!R*Q14/*<TJ"L,KJS14R:-#E3u
M3$VX%'C1%V&@R0" -)$&( @Z_TASLU)&0 * ;S  0RL^,["D%!1#[USTT4D_t
M30$2--#+ 3EIB,W$T@.)K834OKE@-8Q9M^1$U['% $0_3D@!1-VDD8.W-'KWs
MPX3?@$\@SKE*,?&//XQ3P(2YOBGQ#S61&_&/-01D9ED EPL!2->2 \,TX4#\r
M@PWC>9TH18WTL$Z-C:_;^&<_4N#E#>E,3*#U!.?, .BU%)BQ;DLBX,ZF$*:]q
M.46<2LR)CF$#J'*=4CJ<P<*55KS])0DA1&J1/P,!+0,#4@/ CS^"F.$ $.< p
MP,<!TN6V/B-&?*-$54IY<88+9<.+.DQ& 2@ S0MP   ,4- /5,"M)5: A6],o
MT 8)2+ E*&"# ,  @VKXQ@I@,$ E/G@]"EB!#5/YH'H@Z 8#B&TK_*. $$CGn
M@@ONS$ZB(YT5@)$4R4$#%R"*S@3V8YE_""( 0QR9$1GRB1 1T D)7& _3/% m
MI6#!AA10006QR((VT !B7K(B&!"0LS!2  LEQ (*Q7+&%5JQA6+S2@R%@(13l
MG$0)>"" #\Q *3E,K"4^."#I;  +-$S1#!X@'0X*V<"]"" B P!D"?=(*1*0k
MS@=60Q2E+""$4WP@(D;\W"<!L$1*@> +(O"-$/8'%C.X((?TVF$/F0"-&$I!j
M!$ 0@B ":$4;F,T<:IB&,$:0#+#PRU],,$P L*%+7DJ.$I$"A1PFP(1L\ $?i
M2$#'-0=2S6MF<YLHZ"8VM4DD*(CSFT3"@S#/24X @(*=VT0&/(D$CWD&  /Kh
MM.8XKQD (-@3#?:4FCUQD4]ODC, X)BG !"@4!@H% L%W2<^!  (A:)"H=!0g
M*#XBBLX!@&"> T "2.$ 4DQPE)P#  9(T3%/ D"@I3@XZ34) (:6(J*EL&@If
M-F2*CP( 8)X%"*<^T5D <PZ5G 50IS" ^LZC7K, \G1J3^LI50/@4QA!0(<!e
M@!"%9/B#3[[Q@O"FV!(;C#4Y%, !$SYQDA UDUY,@"8 H""'!,R3FU(%  IXd
M.M>[*O6N335H//E*5<'BXYX\[><_$RM0J0: H$MU;$*ENE">"L"AE(5H9 U+c
M48M:-J.4W>AF)>I1D"*!IP,@J50'8-+1=E2EJT4'3UT*T]G65*H$0,1L<XK;b
MG;H6J3^5:E!Y6E2@_E6X@94H5(E;6(E:E:=;G:<!T #=QAK6 )"5[F0->P $a
M\/0 F.6N9N=Y@(I*]0"H^"YHN2O:><[(O:?][341H%K#(J"U[H6M?64K7WPDz
MX*5234!,^YN VQHV ;HE,&\/[-MY*B"XAE7 7ONK *-&^+@13BXZ%8 ,GBJ@y
MN>A<P%7GN0!_2G4!U.WO JPKT05D]\3;E2@#O-M?!H17QIK-*@, T55^* (^x
M_.#"'W<VY-B4Y 3*68\T4)@X:=@P-DS^'37H0E%TL0$!':ORS@*3OM9<N6,!w
MZ')L*A( )!SH$F26 4P.\).@)&0%9E  Q(BS,S!8 F, :$&<<T;GO(#!$'A6v
M@:G 2!CX_,,.>'Z!J<I8:%*2X4!?T! WUMSF)^ 9!(8! ";PW  SJ(-']@+ u
M#GX"$P'P" LPZ<%/].4 )0"B#0.A!. HP(/G_$ Z&LF+U+RS$'+8)R%"6/5^t
M%.#J-H"A83LCP"4B%H 7/* _"R' #^C% YCH*@CZ@D"Q<3#MEE0[(3[XR5J*s
M;0(>@4!#-CC0)#3$@I[AC#:M"1&/$J$A"( !,5F1 !D^! 9FL. +,$G 3T;Br
M!&L@X1R/&]RT)A *#0F-9@MGA8;N1C-Q2 LVM] 0#_!&C86;@MT<M_C"8Z$Aq
M#83\XGCAA888^HT_H*0.!W_<$))2$!ED@ 8 ($0P(B"$@5A5@<0(AM16F8:!p
MF(&E+7\Y_.1'OP,B(#G^8,49<" ZT"S0'ZB0 0K\H8K\*6'KK3"#".K(DB*@o
MPQ^V(+,[U@H CX;5[&C/*C]0L?(0Y2]$/S#.NXR#@+ H 0V2T2 =(/ # 80%n
M :J(F &D!G@ E,$"OD27)2+U %@,00P00( Z% \&!4 C4A"@ P+ ((#!2P+Pm
M L@J !10!@E$OC63!\ #9'%Y">C!WAC000"T ?IR!$%JP1!"$#JO@SE10Q-!l
MD$(1*B( %(@@CTZ81C".D)0'2",AO(@4 LK  .H/Y '$X$%"(, )(*A@#R!Pk
M 0O0#T!ZF<$& K#&$'  UQ(D@5(U*$)\-K\0 Q1A\PC@ @D@ P4 !D3P?5WVj
M )KP?:;P?8DG>[CP?;[0*^+ *-$ !!4H&>< != 0&7JU!])Q</#A!); !-_@i
M+KI7#DT@-<6@>U1P"")P!%&@#$W#!8\0(M]'#M_'#M]'#]^7)    8T2A \6h
MA&$$ 1A  Q& !$)  S$  P!  L(0?3,@"%#(A#(@"-) #%'0#/^ #B&BA#0Pg
MA=.0A5O8A2<2AA$PADP8?5BHA5SHA? 0(E&$ >V "W(  #)@A[G@!-10AT@ f
M!.R AWJ( =+"#GU(#8 0"$8 ",0 "$Y0#80 "$80",00")'8B(](")@HB8# e
MB9$X"X*@B9#HB:*8B8X("*=8#;$@"*!8#8BG$ -@ )EF##B@ @-! P0P!4+Pd
M>I(# FI *4, @,77$F90!44@!E1P!AR  +AH&0809S"0"= P##/X#_H0(B! c
MC=9(@]E8!RJ !-A !,ZH>'M! DE #<0  ]D  YJ@#<,  DUPC?80(NBHCNK(b
MCC"@#?KXCO$XCS0H#R$2CN-8CM"(2/=(#":@!-9 #"BP!..HC_RX#3# "? Ha
MC]<HD'4PC@FYD WYD-BPCNTXD3# #1() Q1ID?]XC>H@;Z< A<,P2[[( 3B'z
M!,) #+0"#^8@!M(@")GT &S' #@X (UB&6WB/'$2)01@!-"0$$'@.W@A#,]Qy
M(,( $SSP$U#P!+/& \4V$(QP(-8 ;0- > !@;<*F&;"0&PL! 6; !3Y@?$)@x
M"#P 5RP ?0=B#F(I -VF%-\& ->F+PR0EK(H &9@ B_@ "_P+M1FEMBV'X%Iw
M".[3#<80!<_P#\!@ 'Y!,<NPE[0&$^$6!&L1 _QP$@3@#B$R (!"!JNG,UM v
M!W*0!VG@!F<  G3P!B!@!FF !R  !W+P!F+ !F70!G,  G>0!G2 !I#!!F0 u
M C0Q!2!@!V4@!W.0!F_@!G/@ @O1!0WP8$-0G;AY!G4@!V% !]3I!B P!V$ t
MG62 G0.PG0 @!&EP!E,P!G)0!F5@GK$Y!W00!FP G.NY$.[)!6%0![4) &(0s
MGW- GV[@ KQI& =@!&D G" @H 3Z!EQPH&>0H'*PH T* F[P!G1PFV]0!VZPr
MGNYY !'B!B<0HG<@!\99!K1IF[SY!F<@GFUPFQ%:!BYPHO IG_1IG^;)G_49q
M!F20!R"0G_O9GV5@H@^VG3TZG_5YGR!@!3'@ C$  @D  S3@ C!0I?2W/3% p
M SH0 S6@ WVQG=T)!WG@HF> !B&* F.0 @F@!'7 !FD0!N9I!"X  E)0!@F*o
M!FL HR2ZG$T0!G*P!G1@ E10!F. !FZ0!FMPHDX HB!PGR/:IB#0!L'Y!J]Yn
M;G80!A$:!K]9!B' H_$)I4#JH92*I/SIGZ7:I K  U, !V$P!F7@ SH  MWIm
M!N3I!G4 HY31IW00GFZ JR P!>D)HV/@G?$9GN-9GNZY 670  "P 7:R BWPl
M BJ0 KD* ]>B MXZ&2 0KN!Z+2 PKM\:KM0Z CK !5,P!,I7!#_A DG0!$<Pk
M$ ?P!P/P"Q&S));1*)"  ,1Q+1 0 +=V#'8!  C[!X(A .C@L % !Q!+!Q$Kj
M'0!P"M(1 !]@L1@+!'KIEP'P!'[YL9&T$ *@ !3@  9  08@9]?2C B@ "+ i
M  :   [@ 2LK9R!  1"@ RJK "!@ 1(  34K 2IK  [@ '*& ->RM @@ 1I0h
MLRW[M A0LS3+M+-H !+0LDA;LW(F9S1[M0MAM QPM%5K 0J0><UH  9PM0I0g
MM7"[> .@LVZ[M%++LFW[LR+ M5RK !(0 +J  #8;9@,@-3$+MX>K  J@ 1  f
M 1( M!" M@9@ 11  8\[8PC  !S0MS$[M6^;13*@ RJPLPY  0K  00 "04@e
8)9!P ++@ +1@ #9@LPP  C&KN9L+ !H d
 c
end