> HiDemo 3 Demostrates running above BASIC on 6502 CoPro : ( =himem0 2err:end <"Program is at &";~ F'"Data space is at &";~;" to &";~ P1"Available memory &";~-;" (";-;" bytes)" Zmenu:end: d: nend:=himem1: x: ݤerr:::=-1 : "ݤhimem0:=&B800 >&FFFF:= 7A%=130:((&FFF4)&FFFF00)=&FFFF00 ?&FFF7<>&6C:= =&C000:=&800:=&8000 =&C000:=&F800:$&600 ݤhimem1:<:=&F800 = ݤhimem2:<:=&800:= = : ݤmenu "M: Return to 8BS Menu" ("H: Chain a program in high memory" '"L: Chain a program in low memory" "Q: Quit" :  "1A$=:A$="*":"*"A$:A$:A$="":":";:A$="*" ,.A$=(A$(&DF (A$<"`"))):"MHLQ",A$):A$ 6: @ A$="M":=himem2:"$.!Boot" J