0 CLR
10 REM COPYRIGHT 1991 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
20 POKE808,234:PRINT"[147][155]";:DIMX,Q$,A,B,C,S,E,E$:X=121:E$="[196][193][212][193][160][197][210][210][207][210] IN [204]INES"
30 S=828:E=934:GOSUB180:IFC<>11409THENPRINTE$190"-"250:STOP
40 SYSS:PRINT"[211]PEED[211]CRIPT 3.2 [211]PEED[211]WAP":PRINT"[151][195]OPYRIGHT 1991"
50 PRINT"[195][207][205][208][213][212][197] [208]UBLICATIONS [201]NTL [204]TD":PRINT"[193]LL [210]IGHTS [210]ESERVED"
60 S=53000:E=53226:GOSUB180:IFC<>25771THENPRINTE$260"-"390:SYS906:STOP
70 PRINT"[208]RESS [195][210][211][210] UP/DOWN TO SELECT SIZE       (IN BYTES) OF EACH TEXT AREA."
80 PRINT"[208]RESS [210][197][212][213][210][206] TO LOAD [211]PEED[211]CRIPT."
90 PRINT"[208]RESS [195][212][210][204]/[195]= FROM WITHIN [211]PEED[211]CRIPT   TO SWAP TEXT AREAS."
100 FORA=.TO1:PRINT"[212]EXT [193]REA"ASPC(8)"[196]ISK [194]LOCKS":NEXT
110 PRINT"[212]OTAL [194]YTES 43264   [212]OTAL [194]LOCKS 169[145]"
120 PRINT"[145][145]"SPC(11-(X<77))X*256-9472SPC(13-(X<137)-(X<47))" "X-37
130 PRINTSPC(11-(X>166));52992-(X+1)*256;SPC(13-(X>106)-(X>196));" ";206-X
140 GETQ$:ON-(Q$=""ORQ$="[145]")GOTO170:IFQ$<>CHR$(13)THEN140
150 POKE53041,X:X=X+1:POKE53209,X:POKE53218,X:POKE53224,X:POKE53226,X
160 SYS906:PRINT"[147][155][204]OADING [211]PEED[211]CRIPT...":POKE808,237:SYSS:END
170 X=X+(Q$="")-(Q$="[145]"):X=X-162*((X=40)-(X=203)):POKE646,-(X=121):GOTO120
180 C=.:FORA=S TOE:READB:POKEA,B:C=C+B:NEXT:RETURN
190 DATA120,169,0,141,14,220,169,27,141,17,208,169,91,141,20,3,169
200 DATA3,141,21,3,169,1,141,26,208,141,18,208,88,96,169,58,172
210 DATA135,3,205,18,208,208,8,169,1,172,136,3,140,32,208,140,33
220 DATA208,141,18,208,201,1,240,8,169,1,141,25,208,76,188,254,169
230 DATA1,141,25,208,76,49,234,0,12,0,120,169,0,141,26,208,141
240 DATA32,208,141,33,208,169,49,141,20,3,169,234,141,21,3,169,1
250 DATA141,14,220,88,96
260 DATA169,5,162,8,168,32,186,255,169,11,162,205,160,207,32,189,255
270 DATA169,0,133,10,141,8,32,32,213,255,169,76,162,207,141,134,10
280 DATA142,135,10,142,11,32,169,121,141,177,9,169,37,141,9,32,173
290 DATA29,13,141,235,207,173,44,13,141,236,207,32,55,9,76,13,8
300 DATA162,49,142,38,216,173,11,32,201,207,240,1,202,142,38,4,173
310 DATA141,2,201,6,208,103,165,2,160,0,145,57,132,162,165,162,41
320 DATA16,240,250,162,3,189,12,32,157,220,207,202,16,247,162,3,189
330 DATA19,32,157,227,207,202,16,247,160,16,185,8,32,190,216,207,153
340 DATA216,207,138,153,8,32,136,16,240,162,1,181,57,188,233,207,157
350 DATA233,207,152,149,57,202,16,242,173,29,13,172,235,207,140,29,13
360 DATA141,235,207,173,44,13,172,236,207,140,44,13,141,236,207,160,0
370 DATA177,57,133,2,32,246,9,76,228,255,83,80,69,69,68,83,67
380 DATA82,73,80,84,0,122,0,207,0,0,0,0,40,0,122,0,0
390 DATA0,0,0,122,0,122