100 ! **********************************************************************
110 ! Program          TV2.800          Utg}va  2.0      1984-04-26
120 ! av Anders Sandberg, {ndrad av Bo Kullmar
130 ! Ins{nd av Bo Kullmar
140 ! F|r ABC800M ABC800C ABC802 ABC806
150 ! Testad p} ABC806
160 ! F|r dos ver 6.1x
170 ! Screened by --"-TCP-"---
180 ! **********************************************************************
190 ! 
200 ! *****************************
210 ! *                           *
220 ! *         T  V              *
230 ! *                           *
240 ! * A screen oriented editor  *
250 ! *                           *
260 ! * IMPLEMENTED AT LYSATOR    *
270 ! * LiTH, Link|ping           *
280 ! *                           *
290 ! * BY  ANDERS ISAKSSON       *
300 ! *     ANDERS SUNDQVIST      *
310 ! *     ANDERS STR\M          *
320 ! *     ----------------      *
330 ! * Modifierad f|r ABC 800-   *
340 ! * datorer av Niklas Notteman*
350 ! * (995) Tel 063/11 50 12    *
360 ! * Observera att ny version  *
370 ! * av TVSUBR anv{nds.        *
380 ! *                           *
390 ! * Anropar version av TVMAIN *
400 ! * f|r DOS 6.1x              *
410 ! *                           *
420 ! * Ny version av TVMAIN {r   *
430 ! * gjord av Anders Sandberg, *
440 ! * 4104 och modifierad av    *
450 ! * Bo Kullmar, 1789.         *
460 ! *                           *
470 ! *****************************
480 ! 
490 T$='TVSUB800ABS'+CHR$(14,255,205,27,96,208,33,255,255,201)
500 ! 
510 ! Skall ABS filen anropas fr}n RAM-disk, s} {ndras den f|rsta 255:an
520 ! {ndras till 29. Detta g{ller RAM-rutinen f|r ABC806.
530 ! 
540 A=VARPTR(T$)
550 Z=CALL(A+11,A)
560 IF Z<>-1 THEN 590
570 ; "Can't load TVSUBR"
580 END 
590 ; CHR$(12);"-wait-"
600 ; CUR(10,0);"Reenter with CON or GOTO <line no>"
610 CHAIN "TVMAIN2.800"