UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU<BOOGALOO iÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU<ÿCr’49151,64:•1500:‹Z,L,SE,SB,M$,I,LL:100C¨ SE¯0:€Z¯SB¢LL:‡1¨(Ä(M$,Z,L)¯I$)10:SE¯Z:Z¯255:Š:C° Š:C×dƒ BASIC Week 2: Halloween BoogalooDnƒ http://reddit.com/r/RetroBattlestationsDxƒ written by FozzTexxDL‚ƒ TRS-80 Color Computer port by FoIUU<ÿzzTexxDqŒƒ ---- mc-10 edits by jim gerrieD˜Èƒ Clear screen and setup variablesDÁÒ• 1500:ƒ CoCo needs room for stringsDÝÜ:L$¯Á(92):I$¯Á(13):L¯1E æCL¯32:RW¯16:ƒ Columns and Rows of screenE3,ƒ Load background and draw on screenE=6‚1510ES@NR¯4UU<ÿSR:WD¯SC:WX¯¨2EzJX¯2:KF¯X§WD:„µ(2)®1£X¯CL¨WD¨2:KF¯0E‘TY¯RW¨NR:KW¯CL¨WD¨4E›^‚2010E½ôƒ Load sprites into variablesEßþ‚1510:BT$(0)¯M$:BE$¯SE$:BC¯SCEó‚1510:BT$(1)¯M$FWW¯SC:WH¯SRFXƒ AnimationFbNB¯3F(l€I¯1¢NBFfvBX(I)¯µ(KW¨3)¨1:BY(I)¯(¶UU<ÿµ((RW¨4¨NRª2)ªNB)¨1)©NB§I§1§3§µ(2)F„€BW(I)¯µ(2)¨1:BF(I)¯µ(9)¨1FŠŠŠFÞ”€I¯1¢NB:Y¯²(BF(I)ª3):X¯²((BF(I)ª3¨Y)©3§.05):X¯X§BX(I)§KF:Y¯Y§BY(I):M$¯BE$:‚2010G ÆBW(I)¯BW(I)§1:‡1¨(BW(I)®1)720:BW(I)¯0GgÐBF(I)¯µ(9):Y¯²(BF(I)ª3):X¯²((BF(I)ª3¨Y)©3§.05):X¯X§BX*UU<ÿ(I)§KF:Y¯Y§BY(I):M$¯BT$(BW(I)):‚2010GŽî‡1¨(WX¯¨1)760:X¯0:Y¯0:‚5280:WX¯¨2G¸ø‡1¨(WX®¯0)770:X¯WX:Y¯0:‚5180:WX¯WX¨1GÙ‡1¨(WX¯¨2¬µ(50)°3)780:WX¯20Gä Š:660Hèƒ Position cursor at X,YHò†@Y©CL§X,;:H>܃ Load a sprite from DATA into a stringHY“UU<ÿæM$¯"":SE$¯"":SR¯0:SC¯0HÃðCC¯CC§1:‡CC5000,5010,5020,5030,5040,5050,5060,5070,5080,5090,5100,5110,5120,5130,5140,5150,5160,5170HÜò„½(M$)®0£M$¯M$§Á(13)IúM$¯M$§S$:SR¯SR§1:„½(S$)®SC£SC¯½(S$)I(BL$¯"":€I¯1¢½(S$):BL$¯BL$§" ":ŠID„½(SE$)®0£SE$¯SE$§Á(ÆUU<ÿ13)ITSE$¯SE$§BL$Ig"„T$°®"SE"£1520Im,IŒЃ Draw sprite in M$ at X,YI£ÚSE¯1:SB¯1:LL¯½(M$)IÁä‚9:‡1¨(SE¯0)2040:SE¯LL§1Iïø‚1010:†Ä(M$,SB,SE¨SB);:‡1¨(SE®¯LL)2070:J‡1¨(À(Ä(M$,SE))¯13)2080:SE¯SE§1J* SB¯SE:Y¯Y§1:2020JQˆT$¯"SP":S$¯" öUU<ÿhalloween ":1522Jx’T$¯"SP":S$¯" boogaloo ":1522JŸœT$¯"SP":S$¯"FOR THE TRS-80 ":1522JƦT$¯"SP":S$¯" MICRO COLOR ":1522Jí°T$¯"SP":S$¯" COMPUTER ":1522KºT$¯"SP":S$¯" BY JIM GERRIE ":1522K.ÄT$¯"SP":S$¯" ":1522KSÎT$¯"SP":S$¯"æUU<ÿ /--"§L$:1522K…ØT$¯"SP":S$¯" /"§L$§" / "§L$§"IIII":1522KÂâT$¯"SP":S$¯" / "§L$§"! "§Á(91)§Á(93)§" ! "§L$:1522KýìT$¯"SP":S$¯" / "§Á(91)§Á(93)§" "§L$§" !-----":1522L&öT$¯"SP":S$¯"/----- ! +-+!":1522LOT$¯"SP":S$¯" ! + UU<ÿ--+ ! !+!!":1522Lx T$¯"SP":S$¯" ! ! ! ! +-+!":1522L¡T$¯"SP":S$¯" ! !O ! !----!":1522LÅT$¯"SE":S$¯" !---!--!-!":1522Lâ(T$¯"SE":S$¯"/V"§L$:1522Lý2T$¯"SE":S$¯"-V-":1522M<†@(Y§0)©CL§X," . ";M6F†@(Y§1)©CL§X," -/(- ";MYP†@UU<ÿ(Y§2)©CL§X," <"§L$§L$§" ";MvZ†@(Y§3)©CL§X," /;-) ";M˜d†@(Y§4)©CL§X,"=='/ <===<<< ";M¿n†@(Y§5)©CL§X," "§L$§"--"§L$§" ";MÞx†@(Y§6)©CL§X," '' ";:Mú †@(Y§0)©CL§X," ";Nª†@(Y§1)©CL§X," ";N3´†@(Y§2)©CL§X," ";NP¾†@(YÌUU<t§3)©CL§X," ";NrȆ@(Y§4)©CL§X," ";NŽÒ†@(Y§5)©CL§X," ";N­܆@(Y§6)©CL§X," ";:wUU<ÿÿU