10 RESTORE:READA:BO=PEEK(66)*256+PEEK(65)+3:DV=PEEK(186):IFDV<8THENDV=8
20 CE=BO+3:BL=BO+6:CO=BO+9:SW=BO+12:C2=BO+15:DY=BO+18:SYSBO
50 SYSCE,15,"[194] [204] [193] [200] [212] [213] [206] [197]":SYSCE,17,"[194]Y [211]TEVEN [202]UDD
70 [158]CE,19,"(LEN) 1997 BY (null)TEVEN MID$UDD
5000 SYSBL,"EDITOR",DV,31744:POKE631,147:POKE632,ASC("Y"):POKE198,2:SYS31744
6000 DATA0