LLLLLLLLLLLLLLLLLLLLLKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKf" ***************** # * (C) WIZARD 86 *$# *BY: S.NORTHCOTT*<# ***************** DUMPING THE DATA TO THE SCREEN OR TO THE P";!<"RINTER. THE BOX AT THE TOP RIGHT RECORDS THE COORDINATES OF THE LAST ";"F" POINT PLOTTED. K MOVE THE ARROW UP TO THE OUTPUT BOX AND ";!- " PRESS ";p!2" FIRE. YOU MAY CHOSE BETWEEN DUMPING THE DATA TO THE SCREEN OR TO THE P";!<"RINTER. THE BOX AT THE TOP RIGHT RECORDS THE COORDINATES OF THE LAST ";"F" POINT PLOTTED. K29,129 129,129,0,1,1,1,0,129 ** INSTRUCTIONS **1 0,1,0: 4,1,0h (("315"))6 "PLEASE LOAD SUPER SPRITE..."tSPRAK 0"  SPRITE DEFINER --------------" "USE A JOYSTICK IN PK X0 157 Y0 15:SCR1024Y,127: (SCRY)95SCRY,32:՗SCRY,95? Yb GRUMP32X,255(GRUMP32X)tL(X)255L(X)R(X)255R(X) GRUMP32X16,255(GRUMP32X16)SCRSCR40 X *** INPUT KEYS **KKKKK BOTH DOWN AND ACROSS ARE NUMBERED 0 TO 15. THIS IS A ";i"P"PROGRAM WRITTEN USING SUPER SPRITE. YOU MAY LIST IT IF YOU LIKE. PLEASE";"Z" TYPE 'SPRAK 0' BEFORE DOING SO.":"d" HIT SPACE TO USE THE EDITOR...""n (198)60 1390"xKORT 1 OR THE ARROW KEYS ON THE KEYBOARD TO MOVE AROUN";j "D. TO DRAW YOUR SPRITE MOVE THE ARROW AROUND THE LARGE BLUE SQUARE AND "; "PRESS FIRE OR SPACE BAR. PRESS FIRE AGAIN TO ERASE. WHEN YOU HAVE "; !(" FINISHED DEFINING YOUR SPRITEK*B(198)$ B43 A1. B51 A3%8 B40 A56B B48 A7NL B60 FIRE1:A0`V ZA 380h`ZArj 360xt~ *** JOYSTICK STUFF *** 1210 X1 16 A:M(X)A X 0,1,1,1,0,129,1KKK   1230$ L(16),R(16),M(16)M Y1 16:L (Y)0:R(Y)0: Y: 1150g( *******************2 ** SPRITE EDITOR **< **(C) WIZARD 1986**F **BY: S.NORTHCOTT**P ******************* Z (("665"))("31") GRUMP("3700"):  8i`P??bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb100 00 30GX200:SPRAK0:"":"(C) WIZARD 86":"":Md **** OUTPUT ****"PRINTRSCREEN" 310: FIRE0 680 (("606"))42 (("606"))55 PRIT1 (("606"))55 ( ڽi(xЕ ''І`hL8 %. 7@ȹ. .`8`&3G)i꬘iHi QQi&嬖m^~~Gވ S7GRUMP16384SCR("C00")(("318E"))83(40(("3185"))): 530lSCR("C00")((("F78E"))83(40(("F785"))))SX256(("5F6"))(("5FE")):SY(("606")) SY50 SY35 590& SX32 SY71 SX160 SY200 560 : 1Hm'+hmi ..Lbɀ+Ȱ'Hu..h)HhLX(ڭ(i(xL ''`hLb`  380TZA"^ A128 AA128:FIRE1Eh A0 370:XM(A):YM(A8)~rSPRP 1,(256(("5F6"))(("5FE"))),(("606")),X,Y| **** DEFINE ARROW **** 470 X0 31: A: GRUMPX,A: GRUMP32X,0: XFGRUMP  GRUMGLLHHHH;;< l:`hhhhL;<`bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"0 X1 16: " ": XK """";"";):X PRIT1 1: 1-"":" ":M ****** EDIT SPRITE ****** SCRSCR("C00"):SCRSCR(740):Y(SCR40):X(((((SCR40)Y)40)0.5)1)"";:30);" ":"":30);"";X;"";Y  X15 X0 YGRUMP("F000")Dd (("315"))6 "PLEASE LOAD SUPER SPRITE..."n(("315"))6 "OR TYPE:SPRAK 0 ;IF YOU HAVE RUN/STOP RESETED":xSPRAK 0 0,1,0: 4,1,0: "*** SPRITE EDITOR: CHOOSE WITH ARROW ***"SPRP 1,0,0,0,0:SPRP -1, FILES SCRATCHED,01,0050403020yP2heHHRSHQ1 ..hޑRԌShhД`ɀ)}B`;8`L)8i`iɀ}8`) ("606"))63 PRIT0 PRIT1 1,4:1a"";24);"SPRITE DATA":24);"-----------":"": PRIT1 740X015:24);"L:";(GRUMP32X):30);"R:";(GRUMP32X16): XPRIT1X015:24);"L:";(GRUMP32X);" R:";(GRUMP32X16i )H & & &heHHRSHQ1 ..hޑRԌShhД`ɀ)}B`;8`L)8i`iɀ}8`)0SCR1024,127:GRUMP16384 (("3297"))95E0:SCR,95:770k: GRUMP16384 (("F897"))95 E0: SCR,95: 770D SCR,32:E1: 770NX(("5FE"))X (("5F6"))1 b X85 660: OUTPUTl X140 920v X140 X2 ؅م꼅i(i}i` ) 1i i'Hm'+kghmi8 4ɀ.Ȱ*Li  ..P16384 F("E800")256. X0 8: F1016X,255: X4M *** ARROW DATA *** 255,255,255,254,252,254,255,231,195,129,0,0,0,0,0,0 192,128,0,0,0,0,0,128,192,224,240,120,60,30,15,0 **** DETECT FIRE **** FIRE0 : ***bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbȍة `u9 ,u. Tɲ b Z Auuu`)jjJJJJJ)` "5..Li ( ) 1i '"";: "PLEASE WAIT.."RSPRC 1,127,1:SPRP 1,100,100,0,0:X100:Y100:SPRAK 2\ 390{22);" " 310" 490, 2806 *** SPRITE CONTROL ***@A(1):X0:Y0:FIRE0: A0 (198)64 1040J ZA 15 Y0 * X7 XX8: 8704X7X1> E0 L(Y)L(Y)2XKH E1 L(Y)L(Y)2XaR GRUMP32Y,L(Y)g\qfX7Xp E0 R(Y)R(Y)2Xz E1 R(Y)R(Y)2X GRUMP48Y,R(Y) *** FLIP! ***SCR("D19")2,192,120,0,0:SPRC 2,113,0H "USE CURSOR KEYS AND SPACE TO MOVE & PLOT"~ "" "OUTPUTݜFLIP!݁CLEAREXIT " "" " ( ********************************G (C) WIZARD SOFTWARE 1986n ********************************( AUTO LOADER FOR PLUS 4 / C162 PRESS THE COMMODORE KEY AND THE RUN/STOP KEY SIMULTANEOUSLY< TO AUTOMATICALLY LOAD SUPERS Pidddddddd2&54G6 QQQQd x? 1>Xux`X`? 1>L808` ޝ` `L `L~ @莈7.8 L lL.6. .ڐ` L Pi2&54G6 QQQQx? >Xux`X`? >L808`>X ޝx?`>X x?`>XL>X x?`>XL~b @莈78x? >XL lLx? >X`> >00000000 88p88p<~~~~<6>````````~<<~<~ff~<ff<>>0000>v66?`ߙp?p p000000pp??N?`<|bf 0fFf<00`0~~p  p<?333333?8p80??00000p08 0p88  833333f3f333333̙3f̙3flxp` l Έ z| zngQ&L ! lB;`<|bf 0fF````````~<<~<~ff~<ff<>>0000>v66?333333|ff|``>ff>|f```<`<|00006ffff<fff<ck6"f<|~ 0~<00000< 0|0b< <<~00ffffffff>`<|bf 0fF / ~Έ^/ zt^/ zf^/_Q&Lt0 0 /Bb/;c/f<00`0~~p  p>00000000 88p88pf>``|fff|fff>60x000>ff>|``|fffff<``flx|f8<kcc|fffff<00`0~~p  pVYVY(VY5):VXVX(VX0.1)NHXXVX:YYVYTRv\SILLSILL1: SILL10 760fSPRAK 0p X1 300: Xz"": 170 X0 63: A: GRUMPX,A: XSPRAK 2SPRP 2,300,,0:SPRP 1,0,0,0,0. 80: X0 31: A: GRUMPX,A: X :SPRP 1,100,96,1,0FSPRC 1,63,0:SPRAK 1"ALL THE REMS IN THIS PROGRAM ARE FOR YOUR REFERENCE... PLEASE USE THEM.""TYPE:SPRAK 0 BEFORE LISTING..." A2 A( UPGRADE - PLEASE USE AUTOLOADER.\ PRESS THE COMMODORE KEY (BOTTOM LEFT) AND THE RUN/STOP KEY TOGETHER.( LOADING WILL BE AUTOMATICX GRUMP32Y,L(Y)dX7Xe E0 R(Y)R(Y)2Xn E1 R(Y)R(Y)2( UPGRADE - PLEASE USE AUTOLOADER.\ PRESS THE COMMODORE KEY (BOTTOM LEFT) AND THE RUN/STOP KEY TOGETHER.( LOADING WILL BE AUTOMATICX GRUMP32Y,L(Y)dX7Xe E0 R(Y)R(Y)2Xn E1 R(Y)R(Y)2,0,0,0,0,00 0,0,0,0,0,32,224,32,0,0,0,0,0,0,0,00,0,0,0,0,63,72,250,249,124,0,0,0,0,0,0,0,0,6,13,29,253,61,157,73,167,80,56 0,0,0,0,0,0,0,0,112,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,127,2,15,19,35,35,47,31,15,69,63,0 **************"<"(C) WIZARD '86"HSPRAK 0 ** DECIDE WHERE SPRITE BASE IS ** AS THIS RUNS ON C16 & +4S." (("665"))("31") GRUMP("3700"): GRUMP("F000"), 160: X0 32: A: Y0 7:): X'^ X1 8:SPRC X,48(X1.5),((1)1): X3hSPRAK 8Hr X1 1000: Xi| X5 8:SPRP X,0,0,0,0: X"WITH ALL EIGHT ON SCREEN THE SPEED IS QUITE SLOW,NOW WITH ONLY FOUR SPRITES:"SPRAK 4 ** ONLY ACTIVATE 4 SPRITES X X1 4:SPRP X,0,0,0,0: X+(27);"N":SPRAK 0"WITH ALL THE SPRITES GONE WE CAN BUILD A RANDOMWALL OF STARS TO STOP ONE!!!""COLLISON DETECTION WILL TELL THE SPRITE WHEN IT HIT THE WALL" X1 15: Y1 ((1)10):"HE SPRITE ONLY SEEMS TO HAVE BEEN WINDED BY THE WALL WE CAN USE A ";Zb"MISSILE...":SPRP 1,330,100,129,0}lSPRP 2,100,100,133,130:SPRAK 2v A8SPRB 2,A:SPRC 2,((1)127),0SPRP2,0,0,0,0:SPRP 1,(256(("5F6")))(("5FE")),1: A: GRUMPX,A: GRUMPX32,A: X:SPRC 1,127,0MVY1:VX0:X200:Y30:SILL0:SPRAK 2:SPRC 2,50,0[ Y167SPRP 1,X,Y,0,0:SPRP 2,(256(("5F7")))(("5FF")),Y,1,0 XXVX:YYVYVYVY(VY6):VXVX(VX0.1) * VY14SPR50,0,0:SPRC 1,114,0SPRP 1,300,50,140,0:SPRC 1,113,0+A0: 1050d"SPRITE DEMO." X50 94:SPRP 2,300,X,0,0: XSPRP 1,300,94,140,0: 1050"BY: THE BUG HUNTER!!!"SPRP 2,0,0,0<4$SPRB 1,A. 8SPRP 1,0,0,0,0:A0: B 1090A0: 1050d"SPRITE DEMO." X50 94:SPRP 2,300,X,0,0: XSPRP 1,300,94,140,0: 1050"BY: THE BUG HUNTER!!!"SPRP 2,0,0,0KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK