100 PRINT"[147]":POKE53280,.:POKE53281,.
110 SYS57812"GEOCHART.SHP",8,0:POKE780,.:POKE781,.:POKE782,64:SYS65493
120 SYS57812"UNPACKER.89",8,0:POKE780,.:POKE781,.:POKE782,201:SYS65493
130 :
140 POKE53265,PEEK(53265)AND239
150 POKE251,64:REM  .SHP MEMORY
160 POKE252,32:REM  BITMAP MEMORY
170 POKE253,4 :REM  COLOR MEMORY
180 SYS51456  :REM UNPACK THAT SHAPE!
190 SYS51459  :REM DISPLAY SCREEN
200 POKE53265,PEEK(53265)OR16
210 GETA$:IFA$=""THEN210
220 PRINT"[147]":SYS51459
230 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
240 IF ER<>63 THEN PRINT"[147]":END
250 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
260 PRINT"[158]LOAD"Q$A$Q$",8"
270 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END