10 MODE0
   20 REM ?&7B= Show Codes Flag  0/1
   90 PROCassemble
   92 FORA%=128TO255:CALLT%:NEXT
  160 PROCfile("Load File")
  170 OSCLI("EDIT "+f$)
  290 END
  300 :
  310 DEFPROCassemble
  314 code%=&900
  330 FORI%=0TO2STEP2
  340 P%=code%
  350 [OPTI%
  740 .T%
  750 STAtemp%
  770 CMP#&88:BCStb2
  780 LDA#0:STAgraph%
  790 LDA#65:JMPeor
  800 .tb2
  810 CMP#&8D:BNEtb3
  812 LDA#68:JMPeor
  820 .tb3
  830 CMP#&98:BCStb5
  840 CMP#&91:BCCspace
  850 .tb4
  860 LDA#1:STAgraph%
  870 LDA#71:JMPeor
  880 .tb5
  890 CMP#&99:BNEtb6
  900 LDA#0:STAsep%
  910 LDA#67:JMPeor
  920 .tb6
  930 CMP#&9A:BNEtb7
  940 LDA#1:STAsep%
  950 LDA#83:JMPeor
  960 .tb7
  970 CMP#&A0:BCCspace
  980 .tb8
  990 CMP#&C0:BCCgraphic
 1000 CMP#&E0:BCSgraphic
 1002 .space
 1003 LDX#8:LDA#0
 1004 .sploop
 1005 STAgstore%,X:DEX:BNEsploop
 1006 JMPredef
 1010 .graphic
 1030 LDX#0
 1040 LDA#1:BITtemp%:BEQtp10:LDX#&F0
 1050 .tp10
 1060 LDA#2:BITtemp%:BEQtp11
 1070 TXA:ORA#&0F:TAX
 1080 .tp11
 1090 STXgstore%+1:STXgstore%+2
 1100 LDX#0
 1110 LDA#4:BITtemp%:BEQtp12:LDX#&F0
 1120 .tp12
 1130 LDA#8:BITtemp%:BEQtp13
 1140 TXA:ORA#&0F:TAX
 1150 .tp13
 1160 STXgstore%+3:STXgstore%+4:STXgstore%+5
 1170 LDX#0
 1180 LDA#16:BITtemp%:BEQtp14:LDX#&F0
 1190 .tp14
 1200 LDA#64:BITtemp%:BEQtp15
 1210 TXA:ORA#&0F:TAX
 1220 .tp15
 1230 STXgstore%+6:STXgstore%+7:STXgstore%+8
 1232 JMPredef
 1240 .eor
 1250 LDX&7B:BEQspace   \ show codes flag
 1260 .edo
 1262 STAgstore%
 1264 LDX#gstore%MOD256:LDY#gstore%DIV256
 1270 LDA#10:JSR&FFF1
 1280 LDA#23:JSR&FFEE
 1290 LDAtemp%:JSR&FFEE
 1300 LDX#1
 1310 .eloop
 1320 LDAgstore%,X:EOR#&FF:JSR&FFEE
 1330 INX:CPX#9:BNEeloop:BEQemit
 1360 .redef
 1370 LDA#23:JSR&FFEE
 1380 LDAtemp%:JSR&FFEE
 1390 LDAgstore%+1:JSR&FFEE
 1400 LDAgstore%+2:JSR&FFEE
 1410 LDAgstore%+3:JSR&FFEE
 1420 LDAgstore%+4:JSR&FFEE
 1430 LDAgstore%+5:JSR&FFEE
 1440 LDAgstore%+6:JSR&FFEE
 1450 LDAgstore%+7:JSR&FFEE
 1460 LDAgstore%+8:JSR&FFEE
 1462 .emit
 1470 RTS
 1680 .gstore%
 1682 EQUB0
 1684 EQUD0
 1686 EQUD0
 1687 .temp%
 1688 EQUB0
 1700 .sep%
 1710 EQUB0
 1720 .graph%
 1730 EQUB0
 1760 ]NEXT
 1770 ENDPROC
 2300 :
 2310 DEFPROCfile(message$)
 2330 REPEAT
 2340 CLS
 2350 PRINTTAB(10)message$
 2360 PRINTTAB(10)"---------"
 2370 PRINT
 2380 OSCLI(".")
 2390 REPEAT
 2400 INPUTLINE'"OS command or Filename ? "f$
 2410 UNTILf$<>""
 2420 IFINSTR(f$,"*"):OSCLIf$
 2430 UNTILINSTR(f$,"*")=0
 2450 ENDPROC