10 PROGRAM "EXOS_Dem.bas"
   20 ALLOCATE 200
   30 CODE R=HEX$("06,01,0E,18,16,20,F7,10,06,01,0E,19,16,1B,F7")
   50 CODE =HEX$("10,06,01,0E,16,16,01,F7,10,06,01,0E,17,16,00,F7")
   70 CODE =HEX$("10,3E,01,11")&WORD$(R+41)
   80 CODE =HEX$("F7,01,18,07,06,56,49,44,45,4F,3A,3E,01,06,01,0E")
  100 CODE =HEX$("01,16,1B,1E,01,F7,0B,3E,01,01,0A,00,11")
  120 CODE =WORD$(R+72)&HEX$("F7,08,18,0A,1B,43,67,28,00,00,00,00")
  140 CODE =HEX$("00,00,3E,01,01,06,00,11")
  150 CODE =WORD$(R+94)&HEX$("F7,08,18,06")
  160 CODE =HEX$("1B,41,00,02,E6,01,3E,1F,01,E6,01,11,00,00,ED,43")
  180 CODE =WORD$(R+153)&HEX$("ED,53")&WORD$(R+155)&HEX$("F5,C5,D5")
  200 CODE =HEX$("3E,01,01,06,00,11")&WORD$(R+151)&HEX$("F7,08,11")
  220 CODE =HEX$("10,00,E1,19,E5,D1,01,10,00,E1,37,3F,ED,42,E5,C1")
  240 CODE =HEX$("F1,3D,20,D6,C9,1B,45,00")
  250 CALL USR(R,0)
  260 DO 
  270 LOOP WHILEINKEY$=""
  280 DISPLAY TEXT