kbd$ = INKEY$ IF kbd$ = "+" THEN size = size + .5 IF kbd$ = "-" THEN size = size - .5 IF kbd$ = CHR$(27) THEN END 'display the screen _DISPLAY
PRINT "use the + key to make the text bigger, - key to make it smaller"sleep 3 'to give the person time to read thisCLS ' to clear the screenLOCATE 10,30PRINT "HELLO WORLD" 'then useing the kbd to be able to make the text bigger if one wants kbd$ = INKEY$ IF kbd$ = "+" THEN size = size + .5 IF kbd$ = "-" THEN size = size - .5 IF kbd$ = CHR$(27) THEN END 'display the screen _DISPLAY
PRINT "use the + key to make the text bigger, - key to make it smaller"SLEEP 3 'to give the person time to read thisCLS ' to clear the screenLOCATE 10, 30PRINT "HELLO WORLD"DO ' The do loop will keep from ending prog till your ready with Chr$(27) 'then useing the kbd to be able to make the text bigger if one wants kbd$ = INKEY$ IF kbd$ = "+" THEN size = size + .5 : ' call sub to change the sizes IF kbd$ = "-" THEN size = size - .5 : ' call " " " " " ' ----- IF kbd$ = CHR$(27) THEN END ---- You dont realy need this here 'display the screen _DISPLAYLOOP WHILE DBD$ <> CHR$(27) ' ----- The loop will keep the program from endingSystem
kbd$ = INKEY$ IF kbd$ = "+" THEN size = size + .5 : ' call sub to change the sizes IF kbd$ = "-" THEN size = size - .5 : ' call " " " " "
REMDEFLNG A-ZSCREEN _NEWIMAGE(800, 600, 32) '<-- this creats it and makes it the active screen.Hidden& = _NEWIMAGE(100, 50, 32) '<-- very small screen_DEST Hidden& '<--point to the surface to print onPRINT "Hello World"Size = 0 '<-- set our variable_DEST 0 '<--reset to point to the surface we see else everything referenced will go to hiddenDO _LIMIT 30 kbd$ = INKEY$ IF kbd$ = "+" THEN Size = Size + 1 ' call sub to change the sizes IF kbd$ = "-" THEN Size = Size - 1 ' call " " " " " CLS _PUTIMAGE (400 - Size, 300 - Size)-(500 + Size, 350 + Size), Hidden&, 0 _DISPLAYLOOP UNTIL _KEYDOWN(27)
a = _NEWIMAGE(800, 400, 32)SCREEN a, 2, 2xx = 7 ' set size of enlarged pixelsyy = 8 'LOCATE 1, 1PRINT "Hello World"FOR x = 0 TO 86 FOR y = 2 TO 11 ' ----- point finds pixels of the Hello world printed at top left corner IF POINT(x, y) = _RGB(255, 255, 255) THEN ' ------ Line simulates those points in larger size in the middle of the screen. LINE (x * xx + 25, y * yy + 154)-(x * xx + 31, y * yy + 161), _RGB(100, 200, 0), BF END IF NEXT yNEXT xSLEEPSYSTEM
REMDEFLNG A-ZPRINT "Instructions, you have about 5 seconds to read this" 'this was just for someone who did not know,which keys to use.PRINT " Use + to increse sisze , - to decrease size "SLEEP 4CLSSCREEN _NEWIMAGE(800, 600, 32) '<-- this creats it and makes it the active screen.Hidden& = _NEWIMAGE(100, 160, 32) '<-- very small screen //'note this is where I'//changed 50 to 160 so the addedtext shows ,actaully each time I added more text'//I had to increase this._DEST Hidden& '<--point to the surface to print onPRINT "Hello World Hola Mundo! "PRINT "HOLA!"PRINT "ALFONSO"PRINT "How Many "PRINT "Lines"PRINT " can I make?"Size = 0 '<-- set our variable_DEST 0 '<--reset to point to the surface we see else everything referenced will go to hiddenDO _LIMIT 30 kbd$ = INKEY$ IF kbd$ = "+" THEN Size = Size + 1 ' call sub to change the sizes IF kbd$ = "-" THEN Size = Size - 1 ' call " " " " " CLS _PUTIMAGE (400 - Size, 300 - Size)-(500 + Size, 350 + Size), Hidden&, 0 _DISPLAYLOOP UNTIL _KEYDOWN(27)
xx = 7 ' set size of enlarged pixelsyy = 8 '
REMDEFLNG A-ZPRINT "Instructions, you have about 5 seconds to read this" 'this was just for someone who did not know,which keys to use.PRINT " Use + to increse sisze , - to decrease size "SLEEP 4CLSSCREEN _NEWIMAGE(800, 600, 32) '<-- this creats it and makes it the active screen.Hidden& = _NEWIMAGE(100, 160, 32) '<-- very small screen //'note this is where I'//changed 50 to 160 so the addedtext shows ,actaully each time I added more text'//I had to increase this._DEST Hidden& '<--point to the surface to print on'//------Instead of Print, to load the bunny data ?--------PRINT "Hello World Hola Mundo! "PRINT "HOLA!"PRINT "ALFONSO"PRINT "How Many "PRINT "Lines"PRINT " can I make?"'//------ The bunny data, would load INSTEAD of text------Size = 0 '<-- set our variable_DEST 0 '<--reset to point to the surface we see else everything referenced will go to hiddenDO _LIMIT 30 kbd$ = INKEY$ IF kbd$ = "+" THEN Size = Size + 1 ' call sub to change the sizes IF kbd$ = "-" THEN Size = Size - 1 ' call " " " " " CLS _PUTIMAGE (400 - Size, 300 - Size)-(500 + Size, 350 + Size), Hidden&, 0 _DISPLAYLOOP UNTIL _KEYDOWN(27)
DECLARE SUB PUT2 (Sprite() AS INTEGER, XSize AS INTEGER, YSize AS INTEGER, X AS INTEGER, Y AS INTEGER)DEFINT A-ZSCREEN 13_FULLSCREENCLS' Bitmap for the spriteDATA 0,15,0,0,0,0,15,0,0,0DATA 0,15,0,0,0,15,0,0,0,0DATA 0,0,15,15,15,0,0,0,0,0DATA 0,15,0,15,0,15,0,0,0,0DATA 0,0,15,15,15,0,0,0,0,0DATA 0,0,15,15,15,0,0,0,0,0DATA 0,0,15,15,15,0,0,0,0,0DATA 15,15,0,0,0,15,15,0,0,0DATA 0,0,0,0,0,0,0,0,0,0DATA 0,0,0,0,0,0,0,0,0,0' An array to hold the spriteDIM Bunny%(9, 9) 'DIM bunny% ?' Read the sprite in from DATA to the arrayFOR Y = 0 TO 9 FOR X = 0 TO 9 READ Bunny%(X, Y) 'DIM bunny% ? NEXT XNEXT Y' Draw the sprite from the array onto the screenPUT2 Bunny%(), 9, 9, 0, 0 ' SUB 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
REMDEFLNG A-ZSCREEN _NEWIMAGE(800, 600, 32) '<-- this creats it and makes it the active screen.Hidden& = _NEWIMAGE(10, 10, 32) '<-- very small screen to place the colors from the data statements_DEST 0PRINT " Use + to increse sisze , - to decrease size ,any key to continue"Dummy$ = INPUT$(1)CLS_DEST Hidden& '<--point to the surface to print onFOR x = 1 TO 10 '<--load the bunny data FOR y = 1 TO 10 READ z IF z = 0 THEN Tint = _RGB32(0, 0, 255) ELSE Tint = _RGB32(0, 255, 255) PSET (y, x), Tint NEXT yNEXT x_DEST 0 '<--reset to point to the surface we see else everything referenced will go to hiddenSize = 0 '<-- set our variableDO _LIMIT 30 kbd$ = INKEY$ IF kbd$ = "+" THEN Size = Size + 1 ' call sub to change the sizes IF kbd$ = "-" THEN Size = Size - 1 ' call " " " " " CLS _PUTIMAGE (400 - Size, 300 - Size)-(410 + Size, 310 + Size), Hidden&, 0 _DISPLAYLOOP UNTIL _KEYDOWN(27)SYSTEM'--------------------------' Bitmap for the spriteDATA 0,15,0,0,0,0,15,0,0,0DATA 0,15,0,0,0,15,0,0,0,0DATA 0,0,15,15,15,0,0,0,0,0DATA 0,15,0,15,0,15,0,0,0,0DATA 0,0,15,15,15,0,0,0,0,0DATA 0,0,15,15,15,0,0,0,0,0DATA 0,0,15,15,15,0,0,0,0,0DATA 15,15,0,0,0,15,15,0,0,0DATA 0,0,0,0,0,0,0,0,0,0DATA 0,0,0,0,0,0,0,0,0,0