100 ! *****************************
110 ! *                           *
120 ! *         T  V              *
130 ! *                           *
140 ! * A screen oriented editor  *
150 ! *                           *
160 ! * IMPLEMENTED AT LYSATOR    *
170 ! * LiTH, Link|ping           *
180 ! *                           *
190 ! * BY  ANDERS ISAKSSON       *
200 ! *     ANDERS SUNDQVIST      *
210 ! *     ANDERS STR\M          *
220 ! *     ----------------      *
230 ! * Modifierad f|r ABC 800-   *
240 ! * datorer av Niklas Notteman*
250 ! * (995) Tel 063/11 50 12    *
260 ! * Observera att ny version  *
270 ! * av TVSUBR anv{nds.        *
280 ! *****************************
285 ! 
290 T$='TVSUB800ABS'+CHR$(14,255,205,27,96,208,33,255,255,201)
295 ! Skall ABS filen anropas fr}n RAM-disk, s} {ndras den f|rsta 255:an
296 ! till 29 om det g{ller RAM: rutinen till ABC806
300 A=VARPTR(T$)
310 Z=CALL(A+11,A)
320 IF Z<>-1 THEN 350
330 ; "Can't load TVSUBR"
340 END 
350 ; CHR$(12);"-wait-"
360 ; CUR(10,0);"Reenter with CON"
370 CHAIN "TVMAIN.800"