Goto zeile%

mode[rm]                 ;Realmode(startet den script)
gra[0f]<640,480,32,1>    ;Grafikfenster
buffer[bb]               ;Backbuffer
}
}
print[0f]<Hello World!>  ;Text ausgeben
wait[k]                  ;Warten auf Tasteneingabe
endmode[rm]              ;Realmode beenden(beendet den script)

#label
...
Goto label

print[add]<9,1,8,8>

.data
   x1 int 260
   x int 395
   y int 295
   xdir int 1
   ydir int 1
.text
main:
   app "One-Man-Pong"
   gfx 800,600
mainloop:
   jmp moveball
   w1:
   jmp movepl
   w2:
   jmp kontroll
   w3:
   jmp draw
   w4:
   int downkey,ESC
   cmp kbd,1
   jne mainloop
   end

moveball:
   mov cx,xdir
   mul cx,2
   add x,cx
   mov cx,ydir
   mul cx,2
   add y,cx
   cmp 5,x
   jg mb1
   mov x,6
   neg xdir
   mb1:
   cmp 790,x
   jl mb2
   mov x,789
   neg xdir
   mb2:
jmp w1

movepl:
   int downkey,LEFT
   cmp kbd,0
   jz mp1
   sub x1,2
   mp1:
   int downkey,RIGHT
   cmp kbd,0
   jz mp2
   add x1,2
   mp2:
jmp w2

kontroll:
   cmp 570,y
   jl kontroll2
   cmp 575,y
   jg kontroll2
   cmp x1,x
   jl kontroll2
   mov cx,x1
   add cx,80
   cmp cx,x
   jg kontroll2
   mov y,569
   neg ydir
jmp kontroll2

kontroll2:
   cmp 590,y
   jl kontroll3
   mov x,395
   mov y,295
   int delay,1000
jmp kontroll3

kontroll3:
   cmp 0,y
   jg w3
   mov y,1
   neg ydir
jmp w3

draw:
   cls
   org x1,575
   rect 80,5
   org x,y
   oval 10,10
   flip
jmp w4

Befehle:
00000000  interrupt
00000001  addiere register a und b (int)
00000010  subtrahiere register a und b (int)
00000011  multipliziere register a und b (int)
00000100  dividiere register a und b (int)
00000101  kopiere wert nach register
00000110  kopiere variable nach register
00000111  kopiere register nach register
00001000  tausche register
00001001  setze variable auf wert von register
00001010  sprung wenn nicht gleich(register a und b)
00001011  sprung wenn gleich(register a und b)
00001100  sprung wenn register a größer b
00001101  sprung wenn register a kleiner b
00001110  sprungmarke(label)
00001111  variable intereger
00010000  variable float
00010001  variable string
00010010  variable löschen
00010011  addiere register a und b (float)
00010100  addiere register a und b (string)
00010101  subtrahiere register a und b (float)
00010110  -
00010111  multipliziere register a und b (float)
00011000  -
00011001  dividiere register a und b (float)


interrupts:
00000000  programm beenden
00000001  auf tastendruck warten
00000010  print inhalt von register D