10 REM 10 REM CENTIPOD.BAC     Ver. 2.1
20 REM (c)  S.Software  Dat. 1983.11.30
30 REM Stefan Svensson  Tel. 0511-83332
40 REM 
50 REM 
60 ; CHR$(12%);
70 ; '`rsq0'
80 ; '/'' +/  ,,, (,,$(,,$,,,($ ($ ,, (,,, ,,,';
90 ; 'o||0 bq "!s  sb1   s b1 b1r!"qb1 b1s'
100 ; ' ##//  (,, ,  ,(,,  , ($ ($,,,,(,,, ,,$';
110 ; 'o}p~? `0 b1s  sb1   s b1pb1s  sb1#p s'
120 ; ' (,$ / ,,, (,,$($   ,  ,,, ,  ,($ ($,,,';
130 ; '';
140 ; ',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,z%,,,,';
150 ; ' `<.#mp<x.kt<''k4`<''} `<''k4x.kv?#-'
160 ; '  j5  j5j?! h7  ~i7   h7  ~k?!`?z%  x,t';
170 ; '     z%    p>! ##+t p>!  z%  *up3';
180 ; ' j5  x''j5   #!     x''#!`~5   k4    ';
190 ; '`?+,''! /    "-.# +,''! "-.#/   "- +,+,.!';
200 ; '.!#####################################';
210 ; CUR(0%,23%)CHR$(5%)'copyright nov''83'CUR(20%,0%);
220 REM 
230 FOR L%=15% TO 19% : READ R$ : R$=CHR$(20%)+R$+SPACE$(39%-LEN(R$)) : ]%=PEEK(L%*2%+884%)+SWAP%(PEEK(L%*2%+885%))
240 FOR R%=0% TO 39% : POKE ]%+R%,ASC(RIGHT$(R$,R%+1%))+128% : NEXT R% : NEXT L%
250 CHAIN 'CENTIPOD.GAM'
260 REM 
270 DATA ''
280 DATA '    7##!ppp`pp0pupp1ppp`pp0ppz'
290 DATA '    5   upzj  5 5  55 jj  55 j'
300 DATA 'ppp0upppuppz  5 up0uupzzppuupzppppppppp'
310 DATA '                    %'