VCCC2024 IS-Basic Christmas Present

Author: SlashNet
Category: Christmas Challenge
System:   Enterprise 64/128
Language: IS-BASIC 2.1
Len source code: 299 bytes

Instructions:
Install EP128emu
Set working directory to the location where the file is located (alt+F)
Select a File I/O config eg. : EP_128k_Tape_FileIO.cfg (alt+Q)
Select enable Virtual File I/O (shift + F10 then tick it)
then enter the following command in Basic
LOAD "CH2024.BAS"
Or just simply press F1 and select the file

Description:
Clears screen
Prints one horizontal line.
Reads special characters from DATA block and output them for printing top and vertical symbols (it uses EDITOR: device capabilities)  
Then repeatedly displays the required lines of the VIDEO screen.
P.S.: You can make sure the program is ended correctly by pressing F2 (LIST command)

Comments:
Made just for fun