0 PRINT"[147]"
10 IFA=.THENA=1:LOAD"UNPACKER",8,1
20 IFA=1THENA=2:LOAD"SAM.LNK",8,1
30 POKE53280,.:POKE53281,.
40 BM=57344:CO=52224
50 POKE249,BM/256:REM  BITMAP MEMORY
60 POKE250,CO/256:REM  COLOR MEMORY
70 SYS51459   :REM ENABLE HIRES SCREEN
80 FORSH=.TO3
90 REM CLEAR HI RES
100 X=18:Y=1:IFSH=.THENX=.:Y=.
110 POKE255,SH:REM   SHAPE NUMBER
120 POKE254,Y :REM   Y COORDINATE
130 POKE253,X :REM   X COORDINATE
140 POKE252,64:REM WHERE .LNK LIES (HI)
150 POKE251,. :REM WHERE .LNK LIES (LO)
160 SYS51462  :REM UNPACK SHAPE
170 POKE198,.
180 A=PEEK(203):IFA<>60THEN180
190 NEXT
200 PRINT"[147]":SYS51459
210 PRINT"[147][154]WOULD YOU LIKE TO READ THIS AGAIN? (Y[154]/N[154])":POKE198,.
220 A=PEEK(203):IFA<>25ANDA<>39THEN220
230 IFA=25THEN30
510 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
520 IFER<>63THENEND
530 LOAD"HELLO CONNECT",8