10 PRINT"[144][147]":POKE53280,0:POKE53281,0
20 GOSUB60000
50 SYS57812"BLOCKS.FONT",8,0:POKE780,0:POKE781,0:POKE782,120:SYS65493
60 SYS57812"BLOCKS.SOLN",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
80 PRINT"[147][144]LOAD"CHR$(34)"SLIDING BLOCKS"CHR$(34)",8"
90 PRINT"RUN"
100 POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:BLOCKS BOOT":CLOSE15:SAVE"BLOCKS BOOT",8:END
60000 PRINT"[129]       [211] [204] [201] [196] [201] [206] [199]   [194] [204] [207] [195] [203] [211]"
60005 PRINT"[159]  [193]N [197]XERCISE IN [211]TRATEGY AND [198]UTILITY"
60008 B9$="                                      "
60010 POKE214,14:PRINT: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][152]"
60020 FORI=0TO7:PRINTB9$:NEXT: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][152]"
60030 B9$(0)="[211][204][201][196][201][206][199] [194][204][207][195][203][211]"
60040 B9$(1)="BY [194]RIAN [194]OESE"
60050 B9$(2)="([195]) 1990 BY [211]OFTDISK, [201]NC."
60060 B9$(3)="[208]UBLISHED ON [204][207][193][196][211][212][193][210] #77"
60070 B9$(4)="[211]UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)="[193]LL [210]IGHTS [210]ESERVED"
60090 POKE214,16:PRINT:FORI=0TO5:PRINTTAB(20-(LEN(B9$(I))/2))""B9$(I):NEXT
60099 RETURN