LOC    Data_Segment
         GREG   @
OutBuf   BYTE   0,0           Ausgabepuffer f"ur PutChar

         LOC    #100
         GREG   @
PutChar  LDA    $255,OutBuf
         STB    $1,$255,0
         TRAP   0,Fputs,StdOut
         GO     $0,$0,0		R"ucksprung aus dem Unterprogramm

Newline  IS     10           

Main     SET    $1,Newline    Programm schreibt eine neue Zeile 
         GO     $0,PutChar    Aufruf des Unterprogramms
         TRAP   0,Halt,0