CLS
FOR i = 1 TO 50
PRINT i; "ABCDEFGHIJKLMNOPQRSTUVWYXZ";
NEXT
DEF SEG = &HB000
BSAVE "ae.aaa", 0, &HFA0
DEF SEG
WHILE a$ = ""
a$ = INKEY$
WEND
CLS
DEF SEG = &HB000
BLOAD "ae.aaa", 0
DEF SEG
WHILE b$ = ""
b$ = INKEY$
WEND