Printing the screen to the printer - using simple code in DATA statements

' code DATA 205, 5 'int 5 DATA 203 'retf ' Initialize DIM a%(2) '4 bytes DEF SEG = VARSEG(a%(0)) FOR i% = 0 TO 2 READ d% : POKE VARPTR(a%(0)) + i%, d% NEXT i% DEF SEG ' Run routine DEF SEG = VARSEG(a%(0)) CALL ABSOLUTE(VARPTR(a%(0))) DEF SEG