Sorry your browser is not supported!

rem my awssum gamez :P
rem by TheComet
goto startofprogram
startofprogram:
goto jumptothis
jumptothis:
goto ilovechunkies
ilovechunkies:
goto setupscreen
finishedsetupscreen:
goto makeimages
finishedmakeimages:
goto mainloop
mainloop:
startofloop:
   goto getinput
   finishedgetinput:
   goto syncscreen
   finishedsyncscreen:
goto startofloop
syncscreen:
sync
goto finishedsyncscreen
makeimages:
goto drawbox
finisheddrawbox:
goto getimage
finishedgetimage:
goto finishedmakeimages
getinput:
up=upkey()
goto pasteimage
pasteimage:
paste image 1,0,0
goto finishedgetinput
drawbox:
box 0,0,4,4
goto finisheddrawbox
getimage:
get image 1,0,0,10,10
goto finishedgetimages
setupscreen:
sync on
backdrop on
goto finishedsetupscreen

rem my awssum gamez :P
rem by TheComet
goto startofprogram
startofprogram:
goto jumptothis
jumptothis:
goto ilovechunkies
ilovechunkies:
goto setupscreen
finishedsetupscreen:
goto makeimages
finishedmakeimages:
goto mainloop
mainloop:
startofloop:
   goto getinput
   finishedgetinput:
   goto syncscreen
   finishedsyncscreen:
goto startofloop
syncscreen:
sync
goto finishedsyncscreen
makeimages:
goto drawbox
finisheddrawbox:
goto getimage
finishedgetimage:          `Heeeere's the label
goto finishedmakeimages
getinput:
up=upkey()
goto pasteimage
pasteimage:
paste image 1,0,0
goto finishedgetinput
drawbox:
box 0,0,4,4
goto finisheddrawbox
getimage:
get image 1,0,0,10,10
goto finishedgetimages     `Heeeere it is, the extra "s"
setupscreen:
sync on
backdrop on
goto finishedsetupscreen

Remark Comments must be preceded by "Remark". Witty comments must be preceded by "Witty Remark".
Remark START THE PROGRAM is necessary at the beginning of all programs as it denotes when and where execution must begin.
Remark THE SCREEN is a command that points any actions to the screen
Remark TO BE CLEARED is a command that points to the action "to clear". This command is  altered by its context.
Remark TO BE PRINTED means that the preceding data is to be printed.
Remark If the screen has been cleared recenly, it is assumed you are directing this action to the screen,
Remark otherwise it will be directed to a random bitmap between 1 and 32.
Remark NOT TO BE CLEARED is very important. You must specify that the screen, a file or any portion of memory
Remark not be cleared after writing data to it. If you fail to specify this, the portion of memory associated with
Remark the last data writing command may be cleared as it will be seen as an untidy "space" by the compiler and a cleanup instruction inserted.
Remark A KEYBOARD INPUT directs the next action to keyboard input context.
Remark TO BE WAITED FOR specifies that the preceeding action be waited for before execution of the program continues.
Remark END THE PROGRAM is necessary at the end of all programs. Failing to tell the program to end will cause a state of confusion
Remark within the machine which may manifest dire psychological problems, such as commitment problems.

START THE PROGRAM
   THE SCREEN, TO BE CLEARED
   "Hello World!", TO BE PRINTED
   "Press any key to exit...", TO BE PRINTED
   THE SCREEN, NOT TO BE CLEARED
   A KEYBOARD INPUT, TO BE WAITED FOR
END OF THE PROGRAM

for n = 1 to 10
    if n = 5 then exit
next n

do
loop

repeat
until a=b

while a=b
endwhile

10: nop
20: goto 10
30:
40: nop
50: if a<>b then goto 40
60:
70: nop
80: if a=b then goto 70

gosub MySub
end

MySub:
return

10: NextLine(stack) = 30
20: goto 40
30: 
40: nop
50: goto NextLine(stack)

SET WINDOW ON   `For the timid
Start:
FOR i = 1 TO 100
GOTO Start
NEXT i

start:
GOTO start

A()
wait key
end

function A()
    local myVar : myVar = 123
    goto Hack
EndHack:
endfunction

` Access function A's stack from our own function
function B()
    local v
Hack:
    print v
endfunction

A()
wait key
end

function A()
    local myVar : myVar = 123
    goto Hack
EndHack:
endfunction

` Access function A's stack from our own function
function B()
    local v
Hack:
    print v
endfunction

A()
wait key
end

function A()
    local myVar : myVar = 123
    local AnotherVar : AnotherVar = 126
    local BlaVar : BlaVar = 57
    local idiot : idiot = 4
    local hello : hello = 284
    goto Hack
EndHack:
endfunction

` Access function A's stack from our own function
function B()
    local v
    local u
    local w
    local x
    local y
    local z
Hack:
    print v
    print u
    print w
    print x
    print y
    print z
endfunction

A()
wait key
end

function A()
    local myVar = 123
    local AnotherVar = 126
    local BlaVar = 57
    local idiot = 4
    local hello = 284
    goto Hack
EndHack:
endfunction

` Access function A's stack from our own function
function B()
    local v
    local u
    local w
    local x
    local y
    local z
Hack:
    print v
    print u
    print w
    print x
    print y
    print z
endfunction

A()
wait key
end

function A()
    local myVar = 1
    myvar = 20
    local AnotherVar = 2
    local BlaVar = 3
    local idiot = 4
    local hello = 5
    goto Hack
EndHack:
endfunction

` Access function A's stack from our own function
function B()
    local v
    local u
    local w
    local x
    local y
    local z
Hack:
    `OUTPUT IS:
    `20
    `everchanging number
    `20
    `0
    `2
    `3
    `4
    `5
    print twenty                    `Is this coz of the 2nd PUSH? (myvar = 20)
    print whose_stack_is_this_from  `WTH? By-product of an operation?
    print v                         `Is this myvar after MOVing?
    print u                         `Is this the 2nd PUSH after the MOV or is it literally a blank space created for reasons unknown?
    print w
    print x
    print y
    print z
endfunction

function A()
  local a : a=10
  local b : b=20
  goto hack
endfunction

function B()
  local c
  local d
  local e
hack:
  e=30
  print e
endfunction

A()
wait key
end

function A()
    local a : a=10
    local b : b=20
    goto Hack
Endfunction

function B()
    local c : c=30
    local d : d=40
    local e
    local f
    local g
Hack:
    e=50
    f=60
    g=70
    print e
    print f
    print g
Endfunction

Hack:
A()

end

function A()
    local a : a=10
    local b : b=20
    goto Hack
Endfunction

v=-999
u=-999
w=-999
x=-999
y=-999
z=-999

A() 
wait key 
end 
 
function A() 
    local myVar : myVar = 123 
    local AnotherVar : AnotherVar = 126 
    local BlaVar : BlaVar = 57 
    local idiot : idiot = 4 
    local hello : hello = 284 
    goto Hack 
EndHack: 
endfunction 
 
` Access function A's stack from our own function 
function B() 
    local v 
    local u 
    local w 
    local x 
    local y 
    local z 
Hack: 
    print v 
    print u 
    print w 
    print x 
    print y 
    print z 
endfunction