10 POKE55,0:POKE56,56:CLR:A$=""
20 IP=828:UN=51456:HG=51459:CM=49784:V=53248
30 CL$="                                      "
40 DIMG$(100):T=RND(-TI)
50 FORI=0TO2:POKE49152+2040+I,I:NEXT
60 FORI=0TO5:READC%(I):NEXT
70 DATA4,2,1,2,4,0
80 FORI=0TO2:FORJ=0TO5:READD%(I,J):NEXT:NEXT
90 DATA160,128,160,128,160,128,94,128,94,128,94,128,98,68,98,68,98,68
100 FORI=0TO2:POKEV+39+I,1:NEXT:POKEV+16,0
110 SYS57812"INPUT ANY.O",8,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
120 GOSUB580:REM TITLE SCREEN
130 GOSUB830:REM  READ SCREEN
140 IFW=0THENPRINT"          [204]OADING PICTURE DATA":GOTO170
150 POKE214,22:PRINT:PRINT"        [211][208][193][195][197] [150]- [208]AGE THROUGH TEXT"
160 PRINT" ([198][150])ENDER   ([202][150])EFF   ([211][150])COTT   ([209][150])UIT"
170 Z=0:PRINT""TAB(28)"   [157][157][157]"P"[159]"
180 FORJ=ETOE+19
190 PRINT""G$(J)
200 NEXT
210 IFW=0THENW=1:GOSUB760:GOTO150
220 GETA$:IFA$=""THEN220
230 IFA$<>" "THEN270
240 P=P+1:E=E+19:IFP>PTTHENP=1:E=1
250 PRINT"[145][145]":FORK=1TO20:PRINTCL$"[145][145]":NEXT
260 GOTO170
270 Z=0:IFA$="F"THENX=84:Z=1:BC=0:GOTO320
280 IFA$="J"THENX=104:BC=15:GOTO320
290 IFA$="S"THENX=124:BC=11:GOTO320
300 IFA$="Q"THEN480
310 GOTO220
320 SYSCM,X*256,16384,4864
330 POKE249,224:POKE250,204
340 POKE251,0:POKE252,64
350 POKE253,0:POKE254,0
360 PRINT"[147]";:SYSUN:SYSHG:POKE53280,BC
370 POKE198,0
380 IFZ=0THEN460
390 IFRND(1)>.01THEN460
400 FORI=0TO2:POKEV+39+I,1:POKE49152+1016+3*1024+I,I:NEXT:POKEV+16,0
410 FORI=0TO2:FORJ=0TO5:POKEV+J,D%(I,J):NEXT
420 FORK=0TO5:POKEV+21,C%(K):FORT=0TO60:NEXT:NEXT:QQ=0
430 QQ=QQ+1:GETA$:IFA$<>""THENI=2:NEXT:GOTO470
440 IFQQ<200THEN430
450 NEXT
460 GETA$:IFA$=""THEN380
470 SYSHG:GOSUB830:GOTO140
480 POKE214,22:PRINT:PRINTCL$:PRINTCL$"[145][145]"
490 PRINT"        [209]UIT[150] TO [204][207][193][196][211][212][193][210]  (Y[150]/N[150])"
500 GETA$:IFA$<>"Y"ANDA$<>"N"THEN500
510 IFA$="N"THEN140
520 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
530 IFER%<>63THENPRINT"[147]":END
540 PRINT"[147][151]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
550 PRINT"RUN"
560 POKE631,13:POKE632,13:POKE198,2:END
570 PRINT"[147]":POKE53281,0:POKE53280,0
580 POKE53281,0:POKE53280,0:PRINT"[147]"
590 PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
600 PRINT"  [152]                                    "
610 PRINT"           [205] [213] [199]    [211] [200] [207] [212] [211]         "
620 PRINT"                                      "
630 PRINT"          [193] [204][207][193][196][211][212][193][210] [205]ENAGERIE        "
640 PRINT"                                      "
650 PRINT"      [215]HEREIN THE [204][207][193][196][211][212][193][210] [199]ENERAL    "
660 PRINT"           [211]TAFF [194]ARES [201]TS [193]LL        "
670 PRINT"                                      "
680 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
690 P=1:PT=0:E=1
700 OPEN3,8,3,"T.BLURB
710 [129]I[178]0[164]1
720 [158]828,3,40:H[178]H[170]1:I[178]ST
730 G$(H[170]PT[172]19)[178]A$:[139]H[178]19[167]PT[178]PT[170]1:H[178]0
740 [130]:[160]3
750 [142]
760 [158]57812"UNPACKER",8,0:[151]780,0:[151]781,0:[151]782,201:[158]65493
770 [158]57812"CPM",8,0:[151]780,0:[151]781,120:[151]782,194:[158]65493
780 [158]57812"PIC1.SHP",8,0:[151]780,0:[151]781,0:[151]782,84:[158]65493
790 [158]57812"PIC2.SHP",8,0:[151]780,0:[151]781,0:[151]782,104:[158]65493
800 [158]57812"PIC3.SHP",8,0:[151]780,0:[151]781,0:[151]782,124:[158]65493
810 [158]57812"SPRITES",8,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
820 [142]
830 [151]53281,11:[151]53280,11:[153]"LOAD     (null) (null) CHR$   (null) LEFT$ (null) (null) (null)"[163]31)"DEF OF"PT
840 [153]"STOPORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
850 [129]I[178]1[164]20:[153]"(null)"[166]38)"(null)";:[130]
860 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";
870 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]
880 [142]