DO CLS _DELAY 1 LOCATE 5, 6 PRINT "T" _DELAY 1.2 LOCATE 5, 7 PRINT "H" _DELAY 1.2 LOCATE 5, 8 PRINT "I" _DELAY 1.2 LOCATE 5, 9 PRINT "S" _DELAY 1.2 LOCATE 5, 11 PRINT "I" _DELAY 1.2 LOCATE 5, 12 PRINT "S" _DELAY 1.2 LOCATE 5, 14 PRINT "H" _DELAY 1.2 LOCATE 5, 15 PRINT "E" _DELAY 1.2 LOCATE 5, 16 PRINT "L" _DELAY 1.2 LOCATE 5, 17 PRINT "L" _DELAY 1.2 LOCATE 5, 18 PRINT "O" _DELAY 1.2 LOCATE 5, 20 PRINT "W" _DELAY 1.2 LOCATE 5, 21 PRINT "O" _DELAY 1.2 LOCATE 5, 22 PRINT "R" _DELAY 1.2 LOCATE 5, 23 PRINT "L" _DELAY 1.2 LOCATE 5, 24 PRINT "D" _DELAY 1.2 LOCATE 5, 25 PRINT "!!!" _DELAY .5LOOP
DEFLNG A-ZSCREEN _NEWIMAGE(640, 480, 32)CLS_DELAY 1LOCATE 5, 6PRINT "T"_DELAY 1.2LOCATE 5, 7PRINT "H"_DELAY 1.2LOCATE 5, 8PRINT "I"_DELAY 1.2LOCATE 5, 9PRINT "S"_DELAY 1.2LOCATE 5, 11PRINT "I"_DELAY 1.2LOCATE 5, 12PRINT "S"_DELAY 1.2LOCATE 5, 14PRINT "H"_DELAY 1.2LOCATE 5, 15PRINT "E"_DELAY 1.2LOCATE 5, 16PRINT "L"_DELAY 1.2LOCATE 5, 17PRINT "L"_DELAY 1.2LOCATE 5, 18PRINT "O"_DELAY 1.2LOCATE 5, 20PRINT "W"_DELAY 1.2LOCATE 5, 21PRINT "O"_DELAY 1.2LOCATE 5, 22PRINT "R"_DELAY 1.2LOCATE 5, 23PRINT "L"_DELAY 1.2LOCATE 5, 24PRINT "D"_DELAY 1.2LOCATE 5, 25PRINT "!!!"_DELAY .5WorkPage& = _LOADIMAGE("NEWGHOST_blu1.png")_DEST 0DO FOR x = 0 TO 261 STEP 67 _PUTIMAGE (100, 100)-(220, 190), WorkPage&, 0, (x, 0)-(x + 67, 67) _DELAY .08 NEXT LOCATE 15, 20 PRINT " I am the ghost comeing to save the world" LOCATE 25, 4 PRINT " use ctrl-pause to exit"LOOP'I couldn't remember ,how to say look until the escape key is hit, I have it some'where, tommorow I'll fix that.
DEFLNG A-ZSCREEN _NEWIMAGE(640, 480, 32)CLSTextprn$ = "Hello World !!!": RRow% = 6: CColumn% = 6: z% = 0: Pause! = .5GOSUB Showtext_DELAY .5WorkPage& = _LOADIMAGE("NEWGHOST_blu1.png")_DEST 0Textprn$ = " I am the ghost comeing to save the world": RRow% = 15: CColumn% = 20: z% = 0: Pause! = .025DO FOR x = 0 TO 261 STEP 67 _PUTIMAGE (100, 100)-(220, 190), WorkPage&, 0, (x, 0)-(x + 67, 67) _DELAY .08 NEXT LOCATE 15, 20 PRINT STRING$(LEN(Textprn$), 32) GOSUB Showtext LOCATE 25, 4 PRINT " press + hold escape to exit"LOOP UNTIL _KEYDOWN(27)SYSTEMEND'I couldn't remember ,how to say look until the escape key is hit, I have it some'where, tommorow I'll fix that.Showtext:z% = 0Length% = LEN(Textprn$)FOR a = 1 TO Length% LOCATE RRow%, CColumn% + z% PRINT MID$(Textprn$, a, 1) z% = z% + 1 _DELAY Pause!NEXT aRETURN
SCREEN 12COLOR , 7CLSa$ = "Another way to write across the screen!"' Center the text' Since this text will be 8 pixels per chr we divide screen width' by 16 to find text center.xx = _WIDTH / 16'Then subtract center value from length a$ / 2xx = INT(xx - LEN(a$) / 2)FOR x = xx TO LEN(a$) + xx c = INT(RND * 6) + 1 COLOR c ' --- set color for each character b = b + 1 ' --- Select next character to be printed LOCATE 15, x PRINT MID$(a$, b, 1); ' --- Do the print centered _DELAY .2 ' Slow it down a bitNEXT xCOLOR 0: LOCATE 18, 5PRINT "press a key to End";SLEEPSYSTEM
DEFLNG A-ZSCREEN _NEWIMAGE(640, 480, 32)m$ = "THIS IS HELLO WORLD !"fps = 2FOR i = 1 TO LEN(m$) c$ = MID$(m$, i, 1) IF c$ <> " " THEN _LIMIT fps IF c$ = "!" THEN c$ = "!!!" PRINT c$; IF LEN(INKEY$) THEN fps = 10NEXT_DELAY 1.5WorkPage& = _LOADIMAGE("NEWGHOST_blu1.png")_DEST 0_SETALPHA 0, _RGB(0, 0, 0) TO _RGB(50, 50, 50), WorkPage&DO CLS , _RGB(0, 0, 0) '///Note , I (garry) did change this, it had a green back ground, as Galleon had it,anyone can experiment with useing different colors. _PUTIMAGE (100, 100)-(220, 190), WorkPage&, 0, (x, 0)-(x + 67, 67) x = x + 67: IF x > 261 THEN x = 0 LOCATE 15, 20 PRINT " I am the ghost coming to save the world !!! " IF INKEY$ = CHR$(27) THEN EXIT DO LOCATE 25, 4 PRINT " Use the ESC key to exit " _LIMIT 10 _DISPLAYLOOP