'moving the bunny back and forth:limitfps% = 32bunnymaxsp% = 100 * limitfps% '*pixels/secbunnydirection% = 1bunnyspeed% = bunnymaxsp% / limitfps%BunnyWidth% = 16BunnyHeight% = 16SCREEN 13OUT &H3C8, 0OUT &H3C9, 0OUT &H3C9, 48_FULLSCREENCLS' Bitmap for the spriteDATA 0,0,0,0,0,15,0,0,0,0,15,0,0,0,0,0,0DATA 0,0,0,0,0,15,15,0,0,15,15,0,0,0,0,0,0DATA 0,0,0,0,0,0,15,0,0,0,15,0,0,0,0,0,0DATA 0,0,0,0,0,0,0,15,15,15,0,0,0,0,0,0,0DATA 0,0,0,0,0,0,0,15,15,15,0,0,0,0,0,0,0DATA 0,0,0,0,0,0,15,0,15,0,15,0,0,0,0,0,0DATA 0,0,0,0,0,0,15,15,15,15,15,0,0,0,0,0,0DATA 0,0,0,0,0,0,0,15,15,15,15,0,0,0,0,0,0DATA 0,0,0,0,0,0,0,0,15,15,15,0,0,0,0,0,0,0DATA 0,0,0,0,0,0,0,15,15,15,15,15,0,0,0,0,0DATA 0,0,0,0,0,0,15,15,15,15,15,15,0,0,0,0,0DATA 0,0,0,0,0,15,0,15,15,15,15,0,15,0,0,0,0DATA 0,0,0,0,0,0,0,0,15,15,15,15,0,0,0,0,0DATA 0,0,0,0,0,0,15,15,0,0,0,0,15,15,0,0,0DATA 0,0,0,15,15,15,0,0,0,0,0,0,15,15,15,0DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0' An array to hold the spriteDIM Bunny%(BunnyWidth%, BunnyHeight%)' Read the sprite in from DATA to the arrayFOR Y = 0 TO BunnyHeight% FOR X = 0 TO BunnyWidth% READ Bunny%(X, Y) NEXT XNEXT Ybunnystart# = TIMER(.001)bunnydirection% = 1BunnyStartx% = 0dothisstuff% = 1DO DO LOOP UNTIL _MOUSEINPUT = 0 SELECT CASE INKEY$ CASE CHR$(27) dothisstuff% = 0 END SELECT IF dothisstuff% THEN CLS '* your mouse and key handling here IF bunnypositionx% >= _WIDTH(0) - BunnyWidth% THEN '* BunnyWidth% is width of bunny image bunnydirection% = -bunnydirection% BunnyStartx% = bunnypositionx% - 1 bunnystart# = TIMER(.001) ELSEIF bunnypositionx% < 0 THEN bunnydirection% = -bunnydirection% BunnyStartx% = bunnypositionx% + 1 bunnystart# = TIMER(.001) END IF bunnypositionx% = BunnyStartx% + bunnydirection% * bunnyspeed% * (TIMER(.001) - bunnystart#) PUT2 Bunny%(), BunnyWidth%, BunnyHeight%, bunnypositionx%, 170 _DISPLAY _LIMIT limitfps% ELSE EXIT DO END IFLOOPSUB PUT2 (Sprite() AS INTEGER, XSize AS INTEGER, YSize AS INTEGER, X AS INTEGER, Y AS INTEGER)' Draw the sprite from the array onto the screenFOR YP = 0 TO YSize - 1 FOR XP = 0 TO XSize - 1 PSET (X + XP, Y + YP), Sprite(XP, YP) NEXT XPNEXT YPEND SUB
'==============================================================================_TITLE "***MASK 8X16 FUJI ***" 'by Quark 7/11DEFDBL A-ZSCREEN _NEWIMAGE(808, 616, 256)DIM SHARED rows, colsmaskrows = 37: maskcols = 100DIM SHARED mask(maskrows, maskcols) AS STRINGDIM SHARED brush AS STRINGDIM drawbrush AS STRING: drawbrush$ = CHR$(219)DIM maskbrush AS STRING: maskbrush$ = CHR$(177)DIM drawcolor, maskcolor, commentcolor AS INTEGERdrawcolor = 0: maskcolor = 11: commentcolor = 15rows = INT(_HEIGHT / 8 - 1): cols = INT(_WIDTH / 5 - 1)RANDOMIZE (TIMER)'------------------------------------------------------------------------------FOR r = 1 TO maskrows: READ t$ FOR c = 1 TO maskcols mask(r, c) = MID$(t$, c, 1)NEXT: NEXTDO FOR r = 1 TO maskrows FOR c = 1 TO maskcols SELECT CASE mask(r, c) CASE "A" COLOR 0: IF Chance%(1, 10) THEN COLOR 8 CASE "B" COLOR 1: IF Chance%(1, 10) THEN COLOR 9 CASE "C" COLOR 2: IF Chance%(1, 10) THEN COLOR 10 CASE "D" COLOR 3: IF Chance%(1, 10) THEN COLOR 11 CASE "E" COLOR 4: IF Chance%(1, 10) THEN COLOR 6 CASE "F" COLOR 5: IF Chance%(1, 10) THEN COLOR 13 CASE "G" COLOR 6: IF Chance%(1, 10) THEN COLOR 4 CASE "H" COLOR 7: IF Chance%(1, 10) THEN COLOR 15 CASE "I" COLOR 8: IF Chance%(1, 10) THEN COLOR 7 CASE "J" COLOR 9: IF Chance%(1, 10) THEN COLOR 3 CASE "K" COLOR 10: IF Chance%(1, 10) THEN COLOR 2 CASE "L" COLOR 11: IF Chance%(1, 10) THEN COLOR 3 CASE "M" COLOR 12: IF Chance%(1, 10) THEN COLOR 4 CASE "N" COLOR 13: IF Chance%(1, 10) THEN COLOR 5 CASE "O" COLOR 14: IF Chance%(1, 10) THEN COLOR 15 CASE "P" COLOR 15: IF Chance%(1, 10) THEN COLOR 7 CASE ELSE COLOR ASC(mask(r, c)) - 65 END SELECT LOCATE r, c: PRINT "ŝ"; NEXT: NEXT _DELAY (.15)LOOP UNTIL INKEY$ = CHR$(27)SLEEP: END'==============================================================================FUNCTION RndRange% (lo AS INTEGER, hi AS INTEGER)DIM r AS INTEGERr = hi - lo + 1RndRange% = INT(RND(1) * (hi - lo + 1) + lo)END FUNCTION'------------------------------------------------------------------------------FUNCTION Chance% (lo AS INTEGER, hi AS INTEGER)'returns 1 if chance is successful, 0 otherwiseIF lo >= hi THEN Chance% = -1Chance% = INT(RND * hi) < loEND FUNCTION'------------------------------------------------------------------------------DATA "ABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"DATA "ABBBBHBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBHHBBHPHPPHBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBA"DATA "ABBBBHHPHPHPPPHHPBHPPBBHPHBBBBBBBBBBBBBBBBBHHPHHPHBBBBBBBBPHHHPHBHHHHBBBHBBAAPPPABBBBBBBBBBHHPPHPBBA"DATA "ABBBBBBBBBBHHPHBPHHBBHBBBBBBBBBBBBBBHHPPPHBBBBBBBBBBBBBBBHHHPPBPHHHBHHHHBBAPPPPPPABBHPHBHHHPHPHBBBBA"DATA "ABJJBBBBBBBBBBBBBBBBBJBJJJJJBBBJBJJBBBBBJJBJBBBBBJJBBBBJJJBBBBBBBBDBBBBBIAPPJPPJPPPABBBBBBBBBBBBBBBA"DATA "AJBJJJBBBDJDJDDBJBJJDBBJJDJJJDJJJJJBJJDDJJJDDDJBDJJJJDDDBDDJJBJBJJBDBBBAIJJJJJJJJJJHABBBBBDBJDJBBDBA"DATA "ABJJJJBJJDBJDDJBJDJJJBJDJJJDDBBBJDDJJDDJJJBBBBJJDDJBBBBJDJJJDBBBBBDBBIAHJJJJJJJJJJJJJABBBBBDDBBBBDBA"DATA "AAAAACCCCCCCCCKCKCKKCAAAAAAAAACKCKCCCCCKCKCCCAAAAAACCKCCCCCKCAAAAAAAAILLLJJLJJJJLLJJLLAAAAAACKAACCCA"DATA "ACJKJKJJCCCCCKCCCCCJCKJCCCCACAKLLLALLLLACCCCCJCCCCJCJJCCCCJCCCCCCIAALLLJJLLLLLJLJLLLJLLLAIACCCCCCCCA"DATA "ACCCCCKJCCCCCCCCCCCCKCCLLLLLLLLLLLLLLLLLLLLLLALLLACCCCCKCCCCCAAALLLLLLLLLLLLLLLLLLLLLLLLLLAHAACACACA"DATA "AAAAAAAAAACACAACAACCAAACCCACCCAALLLLLLLACAAAAACCCCKCCCAACCCCCCCCACCCCCCCAAAAAAAAAAAAAAAAAAAAAAAAAAAA"DATA "ADDDLLLLLLLLLLLLLLLDDDLLABBAAPPPAPPAAAAAALLDDLLLDLLLDLLLLLLLLLLLDDDDDLLLLLDLLLDDDDDDDLLLLDLLDDDDDDDA"DATA "ALLLDLLLLLLDDLLDDLDDDDABBAALPLLLLPPPPPPPAAPAAADDDDDDLDDDLLDLDDDDDDDDLLDDLLLDDDDDLDDDDDDDDDDDDLDDDDLA"DATA "ADDDDDDDDDDDDDDDDDDDAAAALLLLLLPPPPPLPPPPPPPPPAAADDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDPDDDA"DATA "ADDDDDDDDDDDDDDDDDDAAAJJLLLJPPPJJLLPPPPPPPPPPPPPADDDDDDDDPPPDDDPDDDPDDDAHAAADPPDPHPHHHDDPDHHDHHDDPDP"DATA "AJJAPPPHHHHPPHPPAAAAALJLLJJJPLLJJBBBBAAAAAPPPPPPPPPDDDDDDDDDDDDDPPAPAAAPDDPDAPPPAHPAAPPAAAAAAAAAAAAA"DATA "AAAJJJJJAAAAAJJJAABLLBBLJJFJLLJJLBBAABBBPPPPPPPPPPPBPPBBADDBBBDBBABDDDDDDDDDBBDBBBBBBABBDDBBDBBBDBDA"DATA "AJJPPJPPAAAAAAAJABBLJBJLJBFJLJJJLBAAABPPPDDDAPJJPPPPDDDDDBDBHDHDHDDDDDBDBDDBBBBABJJBBBABBDBDBBBBBBAA"DATA "BFBJJJJJPHPFPJJBBPLJBBLJBBJLLJJLLBAABBDDBPPPPPAAADDDDDDDDDPPPDPDDPBPDPPBPBPAAJJJJJJJJJJAAABBAAAAJJJA"DATA "AFJJBBFFBBBBBBJBPPLBJLLJBJJLLJJPBBAABJBABBBDDBBDDDDDDDDDDDDDDAAABBABBBBJBJJJJJJJJJJJJJJJBBJJJJJJJJJA"DATA "AAJJJJJJJJJJJJBPPLBJLJJJBJJLLJLPBBJAABJJJJAABBBABBBBBABBFFBBBBBJJJJJJJJJJJJJJJJAABABBBBBABBBBBBBBAAA"DATA "AAPPHPPHHHPPJAAPLBLLFLLJBJJLLFFPLBAAAAJJJJJJLLJJJJJJJJJLLLLLJJJJJJPFFAAAABBFBBFBBAAAAJJJFFJJJJJJJFJA"DATA "ABBBJJJAAAAAAAPJBLJFFLJJBFJLLJFPPLBAAAAAAJJJJLLLLLLLJLLJJJJJBPPPPPBBBABJBAAAJJJJJJAAAAJJJJLLLJJJJJJA"DATA "APPHPPFBBJJAAPJLLJFFBLJJBFJJLLFABPBJAABAABBBAPAABBPPPPPHHHPPPLJJBBBAAAPPPJJLLLLLAAAPPPHPPLPPHLBJJJJA"DATA "AJJJJJJJJLPPBJBBLFJBJLLLJBFAJLJABLPPPAJBBJBJJJJJJJJJJLJLLLLJJJJJAAAPPPJJJFJJJJBAAPPJJJJJJJJJJJBBBBBA"DATA "AFFJJHLAPHPBBFJFFJBBJLJLJBBAALLJBBLLPAAJBBJBJJJJJLLLJJJJJJJJAAAAPPPBBFJJJJJJJAFPPJJJJJJJJJJJJJJJJJJA"DATA "AALLPAAABBBFFFJJJBAJLLJJLJBBAJJJJBBLLAABBABBAAPAJJJJJABAAAAAPPPPJJJJFFJJJJJJPLLLLLLLLJJFJLLLLLLLFJJA"DATA "BBLAAAABBBFFJJJBAAJJLLJJLLJBBJLJJJJJLLLLBBBBABBBBAAJAAAAJLLLLLLJLLLJJJJJLLLLBJJJJBBJJJJJJJJJJJJJJJJA"DATA "ABAAJBFFFJJJLBBBJJLLLJJJJLLLJLBBBLLLLBBBBBBBBBBBJAJJJJJJLJJJJJJJJJJJJBBBJJJJJJJJBAAJJJJJJJJJJJJJJJBA"DATA "ABFFFFAAAAJLLLJJLLLJJJJJJJJLLJJJBBBAAJJJBJJJJJJJBBBBBBBFJJFFFJJJBBBBAAJJJJJJJJJJJBBBABBBBBBBBBBBBBJA"DATA "BBBABBBBBBBBJJJJJJJJJJJAJJAAJAAJJJJAAABABBBBBAAAAJABBABBBBBBBBBBAJJJJJJJJJJJJJJJJJJJJJJJJJJLLLLLJÛJA"DATA "AAAAJJJJJJJJBPJJAAAAAJJJJAJJPPJJAAJAAJJJJJJJJBBBBBBJJJJJPJJJJJJJJJJPPPPJPPPPPPLLLJJJJJPPLLLBBBBJJJJA"DATA "AJJJJJJFFJFFFJPPAPPBPPPPPPPPBPPPPBBBBABAAAAAAAJJJLLLLJLLPPPPPJPJPPAJJJAJJJJJJJJFFLJJJJJJPPPHPHPPJJJA"DATA "ABBJBJBBBBBBBJJJJJFFAAJJJJJAAAAAAPPPPPPBPBBBBLAAAAABAAAAAAABAAAABBBJJJJFJJBJBJBJBBJBJBBBBJJJJJJBBBBA"DATA "AJPPPJJPJPJPPPPPPPPJPPAPAAFFBFJBBABBABBAABBBBJJJJJJJAAAAAAAJAJBJBJJBBBBJBJBJBBBJBJBBJBBBJBBBBJBJJJJA"DATA "AJJJJJJJJJJPJJJJJJBBBJBJBBAAJJJJJJJJJJAAAAFABFFJBJJBBJBFJBJBAAAAAJAJAAAAAAAAJJJJJJJJJJJJJJJJJJJJJJJA"DATA "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
'==============================================================================_TITLE "***MASK 8X16 FUJI ***" 'by Quark 7/11DEFDBL A-ZSCREEN _NEWIMAGE(808, 616, 256)DIM SHARED rows, colsmaskrows = 37: maskcols = 100DIM SHARED mask(maskrows, maskcols) AS STRINGDIM SHARED brush AS STRINGDIM drawbrush AS STRING: drawbrush$ = CHR$(219)DIM maskbrush AS STRING: maskbrush$ = CHR$(177)DIM drawcolor, maskcolor, commentcolor AS INTEGERdrawcolor = 0: maskcolor = 11: commentcolor = 15rows = INT(_HEIGHT / 8 - 1): cols = INT(_WIDTH / 5 - 1)RANDOMIZE (TIMER)'------------------------------------------------------------------------------FOR r = 1 TO maskrows: READ t$ FOR c = 1 TO maskcols mask(r, c) = MID$(t$, c, 1)NEXT: NEXTDO FOR r = 1 TO maskrows FOR c = 1 TO maskcols SELECT CASE mask(r, c) CASE "A" COLOR 0: IF Chance%(1, 10) THEN COLOR 8 CASE "B" COLOR 1: IF Chance%(1, 10) THEN COLOR 9 CASE "C" COLOR 2: IF Chance%(1, 10) THEN COLOR 10 CASE "D" COLOR 3: IF Chance%(1, 10) THEN COLOR 11 CASE "E" COLOR 4: IF Chance%(1, 10) THEN COLOR 6 CASE "F" COLOR 5: IF Chance%(1, 10) THEN COLOR 13 CASE "G" COLOR 6: IF Chance%(1, 10) THEN COLOR 4 CASE "H" COLOR 7: IF Chance%(1, 10) THEN COLOR 15 CASE "I" COLOR 8: IF Chance%(1, 10) THEN COLOR 7 CASE "J" COLOR 9: IF Chance%(1, 10) THEN COLOR 3 CASE "K" COLOR 10: IF Chance%(1, 10) THEN COLOR 2 CASE "L" COLOR 11: IF Chance%(1, 10) THEN COLOR 3 CASE "M" COLOR 12: IF Chance%(1, 10) THEN COLOR 4 CASE "N" COLOR 13: IF Chance%(1, 10) THEN COLOR 5 CASE "O" COLOR 14: IF Chance%(1, 10) THEN COLOR 15 CASE "P" COLOR 15: IF Chance%(1, 10) THEN COLOR 7 CASE ELSE COLOR ASC(mask(r, c)) - 65 END SELECT LOCATE r, c: PRINT "ŝ"; NEXT: NEXT _DELAY 5 '// I changed the delay to 5 and added this below, CLS DEF SEG = 0 ' set to PEEK and POKE TIMER Ticks POKE 550, 0 ' zero Timer tick ' loop code PRINT "one more"LOOP UNTIL PEEK(550) >= 0DEF SEG ' reset segment to default'//the rest of the code is the same, no modification.SLEEP: END'==============================================================================FUNCTION RndRange% (lo AS INTEGER, hi AS INTEGER)DIM r AS INTEGERr = hi - lo + 1RndRange% = INT(RND(1) * (hi - lo + 1) + lo)END FUNCTION'------------------------------------------------------------------------------FUNCTION Chance% (lo AS INTEGER, hi AS INTEGER)'returns 1 if chance is successful, 0 otherwiseIF lo >= hi THEN Chance% = -1Chance% = INT(RND * hi) < loEND FUNCTION'------------------------------------------------------------------------------DATA "ABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"DATA "ABBBBHBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBHHBBHPHPPHBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBA"DATA "ABBBBHHPHPHPPPHHPBHPPBBHPHBBBBBBBBBBBBBBBBBHHPHHPHBBBBBBBBPHHHPHBHHHHBBBHBBAAPPPABBBBBBBBBBHHPPHPBBA"DATA "ABBBBBBBBBBHHPHBPHHBBHBBBBBBBBBBBBBBHHPPPHBBBBBBBBBBBBBBBHHHPPBPHHHBHHHHBBAPPPPPPABBHPHBHHHPHPHBBBBA"DATA "ABJJBBBBBBBBBBBBBBBBBJBJJJJJBBBJBJJBBBBBJJBJBBBBBJJBBBBJJJBBBBBBBBDBBBBBIAPPJPPJPPPABBBBBBBBBBBBBBBA"DATA "AJBJJJBBBDJDJDDBJBJJDBBJJDJJJDJJJJJBJJDDJJJDDDJBDJJJJDDDBDDJJBJBJJBDBBBAIJJJJJJJJJJHABBBBBDBJDJBBDBA"DATA "ABJJJJBJJDBJDDJBJDJJJBJDJJJDDBBBJDDJJDDJJJBBBBJJDDJBBBBJDJJJDBBBBBDBBIAHJJJJJJJJJJJJJABBBBBDDBBBBDBA"DATA "AAAAACCCCCCCCCKCKCKKCAAAAAAAAACKCKCCCCCKCKCCCAAAAAACCKCCCCCKCAAAAAAAAILLLJJLJJJJLLJJLLAAAAAACKAACCCA"DATA "ACJKJKJJCCCCCKCCCCCJCKJCCCCACAKLLLALLLLACCCCCJCCCCJCJJCCCCJCCCCCCIAALLLJJLLLLLJLJLLLJLLLAIACCCCCCCCA"DATA "ACCCCCKJCCCCCCCCCCCCKCCLLLLLLLLLLLLLLLLLLLLLLALLLACCCCCKCCCCCAAALLLLLLLLLLLLLLLLLLLLLLLLLLAHAACACACA"DATA "AAAAAAAAAACACAACAACCAAACCCACCCAALLLLLLLACAAAAACCCCKCCCAACCCCCCCCACCCCCCCAAAAAAAAAAAAAAAAAAAAAAAAAAAA"DATA "ADDDLLLLLLLLLLLLLLLDDDLLABBAAPPPAPPAAAAAALLDDLLLDLLLDLLLLLLLLLLLDDDDDLLLLLDLLLDDDDDDDLLLLDLLDDDDDDDA"DATA "ALLLDLLLLLLDDLLDDLDDDDABBAALPLLLLPPPPPPPAAPAAADDDDDDLDDDLLDLDDDDDDDDLLDDLLLDDDDDLDDDDDDDDDDDDLDDDDLA"DATA "ADDDDDDDDDDDDDDDDDDDAAAALLLLLLPPPPPLPPPPPPPPPAAADDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDPDDDA"DATA "ADDDDDDDDDDDDDDDDDDAAAJJLLLJPPPJJLLPPPPPPPPPPPPPADDDDDDDDPPPDDDPDDDPDDDAHAAADPPDPHPHHHDDPDHHDHHDDPDP"DATA "AJJAPPPHHHHPPHPPAAAAALJLLJJJPLLJJBBBBAAAAAPPPPPPPPPDDDDDDDDDDDDDPPAPAAAPDDPDAPPPAHPAAPPAAAAAAAAAAAAA"DATA "AAAJJJJJAAAAAJJJAABLLBBLJJFJLLJJLBBAABBBPPPPPPPPPPPBPPBBADDBBBDBBABDDDDDDDDDBBDBBBBBBABBDDBBDBBBDBDA"DATA "AJJPPJPPAAAAAAAJABBLJBJLJBFJLJJJLBAAABPPPDDDAPJJPPPPDDDDDBDBHDHDHDDDDDBDBDDBBBBABJJBBBABBDBDBBBBBBAA"DATA "BFBJJJJJPHPFPJJBBPLJBBLJBBJLLJJLLBAABBDDBPPPPPAAADDDDDDDDDPPPDPDDPBPDPPBPBPAAJJJJJJJJJJAAABBAAAAJJJA"DATA "AFJJBBFFBBBBBBJBPPLBJLLJBJJLLJJPBBAABJBABBBDDBBDDDDDDDDDDDDDDAAABBABBBBJBJJJJJJJJJJJJJJJBBJJJJJJJJJA"DATA "AAJJJJJJJJJJJJBPPLBJLJJJBJJLLJLPBBJAABJJJJAABBBABBBBBABBFFBBBBBJJJJJJJJJJJJJJJJAABABBBBBABBBBBBBBAAA"DATA "AAPPHPPHHHPPJAAPLBLLFLLJBJJLLFFPLBAAAAJJJJJJLLJJJJJJJJJLLLLLJJJJJJPFFAAAABBFBBFBBAAAAJJJFFJJJJJJJFJA"DATA "ABBBJJJAAAAAAAPJBLJFFLJJBFJLLJFPPLBAAAAAAJJJJLLLLLLLJLLJJJJJBPPPPPBBBABJBAAAJJJJJJAAAAJJJJLLLJJJJJJA"DATA "APPHPPFBBJJAAPJLLJFFBLJJBFJJLLFABPBJAABAABBBAPAABBPPPPPHHHPPPLJJBBBAAAPPPJJLLLLLAAAPPPHPPLPPHLBJJJJA"DATA "AJJJJJJJJLPPBJBBLFJBJLLLJBFAJLJABLPPPAJBBJBJJJJJJJJJJLJLLLLJJJJJAAAPPPJJJFJJJJBAAPPJJJJJJJJJJJBBBBBA"DATA "AFFJJHLAPHPBBFJFFJBBJLJLJBBAALLJBBLLPAAJBBJBJJJJJLLLJJJJJJJJAAAAPPPBBFJJJJJJJAFPPJJJJJJJJJJJJJJJJJJA"DATA "AALLPAAABBBFFFJJJBAJLLJJLJBBAJJJJBBLLAABBABBAAPAJJJJJABAAAAAPPPPJJJJFFJJJJJJPLLLLLLLLJJFJLLLLLLLFJJA"DATA "BBLAAAABBBFFJJJBAAJJLLJJLLJBBJLJJJJJLLLLBBBBABBBBAAJAAAAJLLLLLLJLLLJJJJJLLLLBJJJJBBJJJJJJJJJJJJJJJJA"DATA "ABAAJBFFFJJJLBBBJJLLLJJJJLLLJLBBBLLLLBBBBBBBBBBBJAJJJJJJLJJJJJJJJJJJJBBBJJJJJJJJBAAJJJJJJJJJJJJJJJBA"DATA "ABFFFFAAAAJLLLJJLLLJJJJJJJJLLJJJBBBAAJJJBJJJJJJJBBBBBBBFJJFFFJJJBBBBAAJJJJJJJJJJJBBBABBBBBBBBBBBBBJA"DATA "BBBABBBBBBBBJJJJJJJJJJJAJJAAJAAJJJJAAABABBBBBAAAAJABBABBBBBBBBBBAJJJJJJJJJJJJJJJJJJJJJJJJJJLLLLLJÛJA"DATA "AAAAJJJJJJJJBPJJAAAAAJJJJAJJPPJJAAJAAJJJJJJJJBBBBBBJJJJJPJJJJJJJJJJPPPPJPPPPPPLLLJJJJJPPLLLBBBBJJJJA"DATA "AJJJJJJFFJFFFJPPAPPBPPPPPPPPBPPPPBBBBABAAAAAAAJJJLLLLJLLPPPPPJPJPPAJJJAJJJJJJJJFFLJJJJJJPPPHPHPPJJJA"DATA "ABBJBJBBBBBBBJJJJJFFAAJJJJJAAAAAAPPPPPPBPBBBBLAAAAABAAAAAAABAAAABBBJJJJFJJBJBJBJBBJBJBBBBJJJJJJBBBBA"DATA "AJPPPJJPJPJPPPPPPPPJPPAPAAFFBFJBBABBABBAABBBBJJJJJJJAAAAAAAJAJBJBJJBBBBJBJBJBBBJBJBBJBBBJBBBBJBJJJJA"DATA "AJJJJJJJJJJPJJJJJJBBBJBJBBAAJJJJJJJJJJAAAAFABFFJBJJBBJBFJBJBAAAAAJAJAAAAAAAAJJJJJJJJJJJJJJJJJJJJJJJA"DATA "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
DO ' main program loop PRINT " This could be the splash image" '///Print would need to be rplaced with the code to load the image, not print PRINT "this and that" _DELAY 5 '// sleep 3 (or what ever value you chose) could also be used CLS DEF SEG = 0 ' set to PEEK and POKE TIMER Ticks POKE 550, 0 ' zero Timer tick 'DO ' loop code PRINT "one more"LOOP UNTIL PEEK(550) >= 0DEF SEG ' reset segment to default'CLSPRINT "new program"SLEEP