Weekly Qbasic and Qb64 Lesson Topics
October 12, 2024, 04:57:47 pm
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
News: Want to see a specific Tutorial? ASK!
 
  Home Help Search Arcade Links Staff List Login Register  

StickMan12, Hello World

Pages: [1]
  Print  
Author Topic: StickMan12, Hello World  (Read 252 times)
GarrisonRicketson
Admin
Administrator
Hero Member
*****
Posts: 583



WWW
« on: August 08, 2011, 01:26:35 am »

This is a demo useing the draw command, and pset, it was a very tedious project,....but works,...It also uses PLAY ,it is for qb64
Code:
SCREEN 12
PLAY "Mbaga12gae15fae8gbcaa"
PSET (0, 0): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 1): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 2): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 3): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 4): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 5): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 6): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 7): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 8): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 9): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 10): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 11): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 12): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 13): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 14): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 15): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 16): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 17): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 18): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 19): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 20): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 21): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 22): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 23): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 24): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 25): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 26): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 27): DRAW "C255R1C0R72C255R13C0R199C0R34C0R1"
PSET (0, 28): DRAW "C255R1C0R72C255R13C0R199C0R34C0R1"
PSET (0, 29): DRAW "C255R1C0R72C255R13C0R199C0R34C0R1"
PSET (0, 30): DRAW "C255R1C0R72C255R13C0R199C0R34C0R1"
PSET (0, 31): DRAW "C255R1C0R72C255R13C0R199C0R34C0R1"
PSET (0, 32): DRAW "C255R1C0R72C255R13C0R199C0R34C0R1"
PSET (0, 33): DRAW "C255R1C0R72C255R13C0R199C0R34C0R1"
PSET (0, 34): DRAW "C255R1C0R72C255R13C0R199C0R34C0R1"
PSET (0, 35): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 36): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 37): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 38): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 39): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 40): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 41): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 42): DRAW "C255R1C0R98C255R12C0R199C0R9C0R1"
PSET (0, 43): DRAW "C255R1C0R97C255R14C0R199C0R8C0R1"
PSET (0, 44): DRAW "C255R1C0R93C255R20C0R199C0R6C0R1"
PSET (0, 45): DRAW "C255R1C0R91C255R24C0R199C0R4C0R1"
PSET (0, 46): DRAW "C255R1C0R90C255R10C0R8C255R9C0R199C0R3"
PSET (0, 47): DRAW "C255R1C0R90C255R9C0R10C255R9C0R199C0R2"
PSET (0, 48): DRAW "C255R1C0R90C255R7C0R14C255R9C0R198C0R1"
PSET (0, 49): DRAW "C255R1C0R90C255R4C0R19C255R9C0R196C0R1"
PSET (0, 50): DRAW "C255R1C0R90C255R4C0R21C255R8C0R195C0R1"
PSET (0, 51): DRAW "C255R1C0R89C255R5C0R22C255R7C0R195C0R1"
PSET (0, 52): DRAW "C255R1C0R89C255R5C0R24C255R6C0R194C0R1"
PSET (0, 53): DRAW "C255R1C0R88C255R5C0R26C255R5C0R194C0R1"
PSET (0, 54): DRAW "C255R1C0R88C255R5C0R27C255R5C0R193C0R1"
PSET (0, 55): DRAW "C255R1C0R88C255R4C0R28C255R5C0R193C0R1"
PSET (0, 56): DRAW "C255R1C0R88C255R4C0R29C255R4C0R193C0R1"
PSET (0, 57): DRAW "C255R1C0R88C255R4C0R18C255R2C0R9C255R5C0R192C0R1"
PSET (0, 58): DRAW "C255R1C0R88C255R4C0R17C255R4C0R8C255R5C0R192C0R1"
PSET (0, 59): DRAW "C255R1C0R88C255R4C0R17C255R4C0R9C255R4C0R192C0R1"
PSET (0, 60): DRAW "C255R1C0R88C255R4C0R4C255R2C0R12C255R2C0R10C255R4C0R192C0R1"
PSET (0, 61): DRAW "C255R1C0R88C255R4C0R3C255R4C0R23C255R4C0R192C0R1"
PSET (0, 62): DRAW "C255R1C0R88C255R4C0R3C255R4C0R23C255R4C0R192C0R1"
PSET (0, 63): DRAW "C255R1C0R88C255R4C0R4C255R2C0R24C255R4C0R192C0R1"
PSET (0, 64): DRAW "C255R1C0R88C255R4C0R30C255R4C0R192C0R1"
PSET (0, 65): DRAW "C255R1C0R88C255R4C0R30C255R4C0R192C0R1"
PSET (0, 66): DRAW "C255R1C0R87C255R5C0R30C255R4C0R192C0R1"
PSET (0, 67): DRAW "C255R1C0R87C255R5C0R30C255R4C0R192C0R1"
PSET (0, 68): DRAW "C255R1C0R87C255R4C0R31C255R4C0R192C0R1"
PSET (0, 69): DRAW "C255R1C0R87C255R4C0R31C255R4C0R192C0R1"
PSET (0, 70): DRAW "C255R1C0R87C255R4C0R31C255R4C0R192C0R1"
PSET (0, 71): DRAW "C255R1C0R87C255R4C0R31C255R4C0R192C0R1"
PSET (0, 72): DRAW "C255R1C0R87C255R4C0R31C255R4C0R192C0R1"
PSET (0, 73): DRAW "C255R1C0R87C255R4C0R31C255R4C0R192C0R1"
PSET (0, 74): DRAW "C255R1C0R87C255R4C0R9C255R3C0R19C255R4C0R192C0R1"
PSET (0, 75): DRAW "C255R1C0R87C255R4C0R8C255R12C0R11C255R4C0R192C0R1"
PSET (0, 76): DRAW "C255R1C0R87C255R4C0R8C255R13C0R10C255R4C0R192C0R1"
PSET (0, 77): DRAW "C255R1C0R87C255R4C0R9C255R12C0R10C255R4C0R192C0R1"
PSET (0, 78): DRAW "C255R1C0R87C255R4C0R10C255R10C0R11C255R4C0R192C0R1"
PSET (0, 79): DRAW "C255R1C0R87C255R4C0R31C255R4C0R192C0R1"
PSET (0, 80): DRAW "C255R1C0R87C255R4C0R31C255R4C0R192C0R1"
PSET (0, 81): DRAW "C255R1C0R87C255R4C0R31C255R4C0R192C0R1"
PSET (0, 82): DRAW "C255R1C0R87C255R4C0R31C255R4C0R18C255R2C0R172C0R1"
PSET (0, 83): DRAW "C255R1C0R87C255R4C0R31C255R4C0R17C255R4C0R171C0R1"
PSET (0, 84): DRAW "C255R1C0R87C255R4C0R31C255R4C0R17C255R4C0R171C0R1"
PSET (0, 85): DRAW "C255R1C0R87C255R5C0R30C255R4C0R17C255R4C0R171C0R1"
PSET (0, 86): DRAW "C255R1C0R66C255R2C0R19C255R8C0R26C255R5C0R16C255R5C0R171C0R1"
PSET (0, 87): DRAW "C255R1C0R65C255R4C0R18C255R12C0R22C255R5C0R16C255R5C0R171C0R1"
PSET (0, 88): DRAW "C255R1C0R65C255R5C0R18C255R13C0R19C255R5C0R16C255R5C0R172C0R1"
PSET (0, 89): DRAW "C255R1C0R65C255R6C0R20C255R12C0R16C255R6C0R16C255R5C0R172C0R1"
PSET (0, 90): DRAW "C255R1C0R66C255R6C0R22C255R12C0R12C255R6C0R17C255R4C0R173C0R1"
PSET (0, 91): DRAW "C255R1C0R67C255R5C0R25C255R26C0R18C255R4C0R173C0R1"
PSET (0, 92): DRAW "C255R1C0R68C255R5C0R26C255R23C0R19C255R4C0R173C0R1"
PSET (0, 93): DRAW "C255R1C0R68C255R6C0R27C255R20C0R20C255R4C0R173C0R1"
PSET (0, 94): DRAW "C255R1C0R69C255R6C0R28C255R16C0R21C255R5C0R173C0R1"
PSET (0, 95): DRAW "C255R1C0R69C255R6C0R28C255R4C0R33C255R5C0R173C0R1"
PSET (0, 96): DRAW "C255R1C0R71C255R5C0R27C255R4C0R33C255R4C0R174C0R1"
PSET (0, 97): DRAW "C255R1C0R71C255R6C0R26C255R4C0R32C255R5C0R174C0R1"
PSET (0, 98): DRAW "C255R1C0R71C255R8C0R24C255R4C0R32C255R5C0R174C0R1"
PSET (0, 99): DRAW "C255R1C0R73C255R7C0R23C255R4C0R29C255R7C0R175C0R1"
PSET (0, 100): DRAW "C255R1C0R74C255R7C0R22C255R4C0R28C255R8C0R175C0R1"
PSET (0, 101): DRAW "C255R1C0R75C255R8C0R20C255R4C0R27C255R8C0R176C0R1"
PSET (0, 102): DRAW "C255R1C0R76C255R8C0R19C255R4C0R26C255R7C0R178C0R1"
PSET (0, 103): DRAW "C255R1C0R78C255R8C0R17C255R4C0R25C255R6C0R180C0R1"
PSET (0, 104): DRAW "C255R1C0R79C255R8C0R16C255R4C0R22C255R8C0R181C0R1"
PSET (0, 105): DRAW "C255R1C0R81C255R9C0R13C255R4C0R20C255R9C0R182C0R1"
PSET (0, 106): DRAW "C255R1C0R82C255R10C0R11C255R4C0R9C255R19C0R183C0R1"
PSET (0, 107): DRAW "C255R1C0R84C255R9C0R10C255R4C0R8C255R18C0R185C0R1"
PSET (0, 108): DRAW "C255R1C0R86C255R44C0R188C0R1"
PSET (0, 109): DRAW "C255R1C0R88C255R40C0R190C0R1"
PSET (0, 110): DRAW "C255R1C0R90C255R28C0R199C0R2"
PSET (0, 111): DRAW "C255R1C0R92C255R25C0R199C0R3"
PSET (0, 112): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 113): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 114): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 115): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 116): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 117): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 118): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 119): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 120): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 121): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 122): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 123): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 124): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 125): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 126): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 127): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 128): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 129): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 130): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 131): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 132): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 133): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 134): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 135): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 136): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 137): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 138): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 139): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 140): DRAW "C255R1C0R103C255R4C0R199C0R12C0R1"
PSET (0, 141): DRAW "C255R1C0R103C255R6C0R199C0R10C0R1"
PSET (0, 142): DRAW "C255R1C0R103C255R7C0R199C0R9C0R1"
PSET (0, 143): DRAW "C255R1C0R103C255R7C0R199C0R9C0R1"
PSET (0, 144): DRAW "C255R1C0R103C255R7C0R199C0R9C0R1"
PSET (0, 145): DRAW "C255R1C0R102C255R8C0R199C0R9C0R1"
PSET (0, 146): DRAW "C255R1C0R101C255R9C0R199C0R9C0R1"
PSET (0, 147): DRAW "C255R1C0R101C255R9C0R199C0R9C0R1"
PSET (0, 148): DRAW "C255R1C0R101C255R4C0R1C255R4C0R199C0R9C0R1"
PSET (0, 149): DRAW "C255R1C0R100C255R5C0R1C255R4C0R199C0R9C0R1"
PSET (0, 150): DRAW "C255R1C0R99C255R6C0R1C255R4C0R199C0R9C0R1"
PSET (0, 151): DRAW "C255R1C0R98C255R6C0R2C255R4C0R199C0R9C0R1"
PSET (0, 152): DRAW "C255R1C0R97C255R6C0R3C255R4C0R199C0R9C0R1"
PSET (0, 153): DRAW "C255R1C0R96C255R6C0R4C255R4C0R199C0R9C0R1"
PSET (0, 154): DRAW "C255R1C0R94C255R7C0R5C255R4C0R199C0R9C0R1"
PSET (0, 155): DRAW "C255R1C0R92C255R8C0R6C255R4C0R199C0R9C0R1"
PSET (0, 156): DRAW "C255R1C0R91C255R8C0R7C255R4C0R199C0R9C0R1"
PSET (0, 157): DRAW "C255R1C0R90C255R8C0R8C255R5C0R199C0R8C0R1"
PSET (0, 158): DRAW "C255R1C0R90C255R6C0R10C255R5C0R199C0R8C0R1"
PSET (0, 159): DRAW "C255R1C0R89C255R5C0R13C255R4C0R199C0R8C0R1"
PSET (0, 160): DRAW "C255R1C0R88C255R6C0R13C255R4C0R199C0R8C0R1"
PSET (0, 161): DRAW "C255R1C0R87C255R6C0R14C255R5C0R199C0R7C0R1"
PSET (0, 162): DRAW "C255R1C0R86C255R6C0R15C255R6C0R199C0R6C0R1"
PSET (0, 163): DRAW "C255R1C0R85C255R6C0R17C255R6C0R199C0R5C0R1"
PSET (0, 164): DRAW "C255R1C0R84C255R7C0R17C255R6C0R199C0R5C0R1"
PSET (0, 165): DRAW "C255R1C0R83C255R6C0R21C255R20C0R188C0R1"
PSET (0, 166): DRAW "C255R1C0R83C255R6C0R21C255R21C0R187C0R1"
PSET (0, 167): DRAW "C255R1C0R83C255R6C0R22C255R20C0R187C0R1"
PSET (0, 168): DRAW "C255R1C0R83C255R6C0R23C255R19C0R187C0R1"
PSET (0, 169): DRAW "C255R1C0R84C255R5C0R35C255R7C0R187C0R1"
PSET (0, 170): DRAW "C255R1C0R85C255R9C0R29C255R8C0R187C0R1"
PSET (0, 171): DRAW "C255R1C0R85C255R10C0R28C255R7C0R188C0R1"
PSET (0, 172): DRAW "C255R1C0R86C255R9C0R29C255R5C0R189C0R1"
PSET (0, 173): DRAW "C255R1C0R87C255R7C0R199C0R25C0R1"
PSET (0, 174): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 175): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 176): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 177): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 178): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 179): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 180): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 181): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 182): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 183): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 184): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 185): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 186): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 187): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 188): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 189): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 190): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 191): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 192): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 193): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 194): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 195): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 196): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 197): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 198): DRAW "C255R1C0R199C0R119C0R1"
PSET (0, 199): DRAW "C255R1C0R199C0R119C0R1"
PRINT "Hello World"
 
Report Spam   Logged

Share on Facebook Share on Twitter


Pages: [1]
  Print  
 
Jump to:  

Powered by EzPortal
Bookmark this site! | Upgrade This Forum
SMF For Free - Create your own Forum


Powered by SMF | SMF © 2016, Simple Machines
Privacy Policy