100 REM *****************************
110 REM *                           *
120 REM *         T  V              *
130 REM *                           *
140 REM * A screen oriented editor  *
150 REM *                           *
160 REM * IMPLEMENTED AT LYSATOR    *
170 REM * LiTH, Link|ping           *
180 REM *                           *
190 REM * BY  ANDERS ISAKSSON       *
200 REM *     ANDERS SUNDQVIST      *
210 REM *     ANDERS STR\M          *
220 REM *     ----------------      *
230 REM * Modif t 80 kol G Tidner   *
240 REM * Subrutinen anpassar TVSUB *
250 REM * assemblerprogram till     *
260 REM * till 80-kol sk{rm utrustad*
270 REM * med GeJo eller MyAB minne *
280 REM * Senast {ndrad 1981-12-17  *
290 REM *****************************
300 POKE 65408%,33%,146%,255%,205%,94%,109%,17%,240%,255%,205%,27%,96%,56%,4%,33%,255%,255%,201%,33%,0%,0%,201%
310 POKE 65520%,84%,86%,83%,85%,66%,82%,32%,32%,65%,66%,83%
320 OUT 58,INP(58) OR 8% : IF CALL(65408%) THEN 340
330 ; "Can't find TVSUBR" : STOP 
340 POKE 63532,1 : POKE 64136,127 : REM Ruta-Mark|r
350 IF INP(4) AND PEEK(472)=80 THEN GOSUB 390
360 ; CHR$(12%);"-wait-"
370 ; CUR(10%,0%);"Reenter with LIST"
380 CHAIN "tvmain"
390 REM Subrutin f|r 80-kol minne
400 ; CHR$(12)CUR(10,10)"Vill du anv{nda 80-kol sk{rm?  (J):"; : GET C$ : ; C$
410 IF ASC(C$)=13 OR INSTR(1,"Jj",C$) THEN Z=INP(4) ELSE Z=INP(3)
420 POKE 63716,PEEK(472)
430 POKE 63738,PEEK(928),PEEK(929)
440 POKE 63746,PEEK(928)+2%,PEEK(929)
450 POKE 63749,PEEK(472)-2%
460 POKE 63760,PEEK(930),PEEK(931)
470 POKE 63765,PEEK(930)+1%,PEEK(931)
480 POKE 63768,PEEK(623)
490 POKE 63949,PEEK(623)
500 POKE 64091,PEEK(623)
510 IF PEEK(472)=40 THEN RETURN 
520 POKE 64127,232
530 FOR I=64189 TO 64228
540 POKE I,32
550 NEXT I
560 POKE 64229,8,32,8,13,10
570 RETURN