Getting something on the screen
SCREEN 320, 240PRINT "Hello, CrashBASIC!"PAUSEEND
SCREEN 320, 240END
SCREEN 320, 240 WHILE NOT keydown("Q") YIELD WEND END
SCREEN 320, 240 TEXTTOIMAGE "Z", "tempSprite", 8 WHILE NOT keydown("Q") YIELD WEND END
SCREEN 320, 240 TEXTTOIMAGE "Z", "tempSprite", 8playerX = 0playerY = 0 WHILE NOT keydown("Q") YIELD WEND END
SCREEN 320, 240 TEXTTOIMAGE "Z", "tempSprite", 8playerX = 0playerY = 0 WHILE NOT keydown("Q") PUTIMAGE(playerX, playerY), "tempSprite" YIELD WEND END
SCREEN 320, 240 TEXTTOIMAGE "Z", "tempSprite", 8playerX = 0playerY = 0 WHILE NOT keydown("Q") PUTIMAGE(playerX, playerY), "tempSprite" YIELD WEND END
SCREEN 320, 240 TEXTTOIMAGE "Z", "tempSprite", 8playerX = 0playerY = 0 WHILE NOT keydown("Q") CLS 0 ' Clear to black PUTIMAGE(playerX, playerY), "tempSprite" YIELD WEND END
SCREEN 320, 240 TEXTTOIMAGE "Z", "tempSprite", 8playerX = 0playerY = 0 WHILE NOT keydown("Q") CLS 0 ' Clear to black PUTIMAGE(playerX, playerY), "tempSprite" IF keydown("LEFT") THEN playerX = clamp(playerX - 1,0,319) END IF IF keydown("UP") THEN playerY = clamp(playerY - 1,0,199) END IF IF keydown("RIGHT") THEN playerX = clamp(playerX + 1,0,319) END IF IF keydown("DOWN") THEN playerY = clamp(playerY + 1,0,199) END IF YIELD WEND END
TEXTTOIMAGE "Z", "tempSprite", 8playerX = 0playerY = 0 WHILE NOT keydown("Q") BEGIN FRAME CLS 0 ' Clear to black PUTIMAGE(playerX, playerY), "tempSprite" END FRAME IF keydown("LEFT") THEN playerX = clamp(playerX - 1,0,319) END IF IF keydown("UP") THEN playerY = clamp(playerY - 1,0,199) END IF IF keydown("RIGHT") THEN playerX = clamp(playerX + 1,0,319) END IF IF keydown("DOWN") THEN playerY = clamp(playerY + 1,0,199) END IF YIELD WEND END
1 / 18