10 REM ** POWERSPRITE DEMO **
20 IFPEEK(49152)<>76THENLOAD"POWERSPRITE",8,1
30 POKE53280,11:POKE53281,6
40 PRINT"[147]"CHR$(14):POKE53269,0
50 PRINT"       [208]OWER[211]PRITE  [196]EMONSTRATION"
60 PRINT"[159] [208]OSITIONING, MOVING AND ANIMATING      "
70 PRINT" MULTIPLE SPRITES IS NOW A SNAP.  [212]HIS  "
80 PRINT" UTILITY CONNECTS UP TO EIGHT SPRITES TO"
90 PRINT" CREATE A GIANT '[208]OWER[211]PRITE', THAT CAN "
100 PRINT" BE MOVED OR ANIMATED WITH ONE COMMAND. "
110 PRINT" [208]OWER[211]PRITE IS ACCESSED USING SIMPLE   "
120 PRINT" [211][217][211] COMMANDS FROM DIRECT MODE, OR YOUR "
130 PRINT" OWN [194][193][211][201][195] OR MACHINE LANGUAGE PROGRAMS."
140 PRINT"[158]       - [200]IT A KEY TO [195]ONTINUE -"
150 GET K$:IFK$=""THEN150
160 PRINT"[147][159] [208]OWER[211]PRITE CAN BE USED TO STORE DATA  "
170 PRINT" FOR ALL SPRITES, INCLUDING ALL [216] AND [217]     "
180 PRINT" VALUES, COLORS, FRAMES, AND EXPANSION. "
190 PRINT" [193] SIMPLE EDITOR ALLOWS SPRITE SETUP    "
200 PRINT" WITHOUT TEDIOUS [208][197][197][203][211] AND [208][207][203][197][211].  [196]ATA "
210 PRINT" CAN BE STORED ON DISK FOR USE IN YOUR  "
220 PRINT" OWN PROGRAMS.  [196]ATA IS RECALLED WITH   "
230 PRINT" ONE SIMPLE COMMAND.  [208]LEASE HIT A KEY  "
240 PRINT" TO SEE A [208]OWER[211]PRITE IN ACTION...      "
250 GET K$:IFK$=""THEN250
260 REM ** POWERSPRITE DEMO **
270 PRINT"[147]":POKE53281,0
280 PRINT"[159][212]HE BIG BLOCK IS A [208]OWER[211]PRITE USING    "
290 PRINT"ALL EIGHT SPRITES CONNECTED.  [193] SINGLE  "
300 PRINT"COMMAND WILL MOVE OR ANIMATE THIS GIANT "
310 PRINT"SPRITE.  [206][207][212][197]: [208]OWER[211]PRITE IS NOT A     "
320 PRINT"SPRITE EDITOR.  [193]NY SPRITE EDITOR, SUCH "
330 PRINT"AS [211]PRITE [205]AGIC WILL CREATE GRAPHICS    "
340 PRINT"COMPATIBLE WITH [208]OWER[211]PRITE.
350 [153]"SYS    - LEFT$IT A KEY & WAIT TO LENONTINUE -"
360 [129] X[178]12288 [164] 12352:[151]X,255:[130]
370 [158] 49158: [143] ** DISPLAY/RECALL SPRITES
380 [158] 49164,50,200,0: [143] ** SET START X AND Y COORDINATES FOR POWERSPRITE
390 [129] X[178]50 [164] 200 [169] 2
400 [158]49164,X,200,0:[130]
410 [129] Y[178]200 [164] 100 [169] [171]1
420 [158]49164,200,Y,0:[130]
430 [129] X[178]200 [164] 50 [169] [171]2
440 [158]49164,X,100,0:[130]
450 [129] Y[178]100 [164] 200
460 [158]49164,50,Y,0:[130]
470 [139] [194](198)[178]0[167] 390
480 [151]53269,0:[151]53281,6:[151]198,0
490 [153]"LOAD          (null)OWER(null)PRITE  LENOMMANDS"
500 [153]"SYSATNLL ACCESSABLE THRU PEEKATN(null)RIGHT$LEN OR DIRECT MODE"
510 [153]" (null)(null)(null) 49152 OPEN- VALNTER (null)OWER(null)PRITE EDITOR
520 PRINT" [211][217][211] 49155 [159]- [211]TORE SPRITE INFO MANUALLY"
530 PRINT" [211][217][211] 49158 [159]- [196]ISPLAY/RECALL SPRITES"
540 PRINT" [211][217][211] 49161,[198][159] - [193]NIMATES A [208]OWER[211]PRITE"
550 PRINT" [211][217][211] 49164,[216],[217],[205] [159]- [205]OVES A [208]OWER[211]PRITE"
560 PRINT"[158]   [208]LEASE SEE ARTICLE FOR A DETAILED    "
570 PRINT"      EXPLANATION OF EACH COMMAND."
580 GET K$:IF K$=""THEN580
590 GOTO30