5 PRINT "POKING VALUES TO MEMORY FROM ADDR $8000"
   10 REM BINARY SAVE DEMO
   20 FOR N=0 TO 255
   30 POKE 32768+N,N:PRINT N,
   40 NEXT
   50 GOSUB 10000
   60 PRINT "SAVE MEMORY CODE FROM $8000 TO SDCARD"
  900 END
 10000 REM SAVE BINARY CODE SUBROUTINE
 10005 REM MAINCH 9 RECOGNIZED BY FPGA MODULE INDEPENDENT OF JUMPER SETTING
 10010 LABOUT "9:AIS=0"
 10020 LABOUT "9:AIR=128"
 10030 LABOUT "9:AIW=1"
 10040 LABOUT "9:AIM=32768":REM STARTADDR
 10050 LABOUT "9:AIE=33024":REM ENDADDR
 10060 LABOUT "9:BSV=BINCODE.DAT":REM FILENAME
 10070 RETURN