10 REM TVSUB ers{tter TVSUBR.ABS vid kassett 20 REM av G Tidner och K-] Johansson senast {ndrad 1981-12-17 30 ONERRORGOTO 80 40 FOR I%=1 TO 100 50 READ B% : FOR J%=0% TO 15% 60 READ V% : POKE B%+J%,V% 70 NEXT J% : NEXT I% 80 IF ERRCODE<>30 THEN ; "Fel nr";ERRCODE : STOP 90 POKE 63532,1 : POKE 64136,127 : REM Ruta-pointer 100 IF INP(4) AND PEEK(472)=80 THEN GOSUB 180 110 ; CHR$(12%);"-wait-" 120 ; CUR(10%,0%);"Reenter with LIST" 130 CHAIN "TVMAIN" 140 REM ***************************** 150 REM Denna rutin {ndrar TVSUB assemblerprogram 160 REM till 80-kol sk{rm GeJo och MyAB minne 170 REM ***************************** 180 ; CHR$(12)CUR(10,10)"Vill du anv{nda 80-kol sk{rm? (J):"; : GET C$ : ; C$ 190 IF ASC(C$)=13 OR INSTR(1,"Jj",C$) THEN Z=INP(4) ELSE Z=INP(3) 200 POKE 63716,PEEK(472) 210 POKE 63738,PEEK(928),PEEK(929) 220 POKE 63746,PEEK(928)+2%,PEEK(929) 230 POKE 63749,PEEK(472)-2% 240 POKE 63760,PEEK(930),PEEK(931) 250 POKE 63765,PEEK(930)+1%,PEEK(931) 260 POKE 63768,PEEK(623) 270 POKE 63949,PEEK(623) 280 POKE 64091,PEEK(623) 290 IF PEEK(472)=40 THEN RETURN 300 POKE 64127,232 310 FOR I=64189 TO 64228 320 POKE I,32 330 NEXT I 340 POKE 64229,8,32,8,13,10 350 RETURN 360 DATA 63488,0,0,0,0,0,0,0,0,0,0,0,0,255,0,255,0 370 DATA 63504,195,25,248,195,241,248,195,32,249,33,0,0,34,243,253,237 380 DATA 63520,75,0,248,42,2,248,167,237,66,32,9,1,3,0,33,136 390 DATA 63536,250,205,11,0,42,0,248,35,34,0,248,237,91,6,248,55 400 DATA 63552,237,82,242,170,248,58,243,253,254,21,48,106,42,4,248,237 410 DATA 63568,91,0,248,25,43,126,50,8,248,254,32,56,11,1,1,0 420 DATA 63584,33,8,248,205,11,0,24,183,254,13,32,37,42,0,248,237 430 DATA 63600,91,2,248,167,237,82,40,25,42,0,248,237,91,4,248,25 440 DATA 63616,126,254,10,32,12,205,223,248,42,0,248,35,34,0,248,24 450 DATA 63632,142,1,1,0,33,148,250,205,11,0,1,1,0,33,8,248 460 DATA 63648,126,198,64,119,205,11,0,195,31,248,205,223,248,58,243,253 470 DATA 63664,254,22,56,246,24,18,33,21,0,34,243,253,1,8,0,33 480 DATA 63680,139,250,205,11,0,205,223,248,33,22,0,34,243,253,1,1 490 DATA 63696,0,33,147,250,205,11,0,205,223,248,42,0,248,43,201,58 500 DATA 63712,244,253,79,62,40,145,200,79,6,0,33,149,250,205,11,0 510 DATA 63728,201,33,243,253,54,22,35,54,1,33,80,127,54,42,35,54 520 DATA 63744,32,17,82,127,1,38,0,237,176,205,2,0,50,8,248,33 530 DATA 63760,208,127,54,32,17,209,127,1,39,0,237,176,111,38,0,201 540 DATA 63776,62,0,18,237,83,4,248,50,10,248,103,111,34,6,248,58 550 DATA 63792,8,248,254,8,32,5,205,164,249,24,38,254,24,32,5,205 560 DATA 63808,145,249,24,29,205,55,250,58,8,248,254,13,32,10,62,10 570 DATA 63824,205,55,250,205,115,250,24,9,254,9,32,2,62,36,205,71 580 DATA 63840,250,42,6,248,175,180,181,200,17,234,1,237,82,56,9,62 590 DATA 63856,9,205,55,250,42,6,248,201,205,2,0,50,8,248,254,9 600 DATA 63872,32,176,42,4,248,190,32,170,62,36,205,71,250,42,6,248 610 DATA 63888,201,205,164,249,175,42,6,248,180,181,200,42,4,248,126,254 620 DATA 63904,10,32,238,201,42,6,248,43,34,6,248,42,4,248,126,43 630 DATA 63920,34,4,248,254,10,32,7,126,254,13,40,38,62,10,254,32 640 DATA 63936,220,195,249,33,244,253,53,126,167,242,208,249,54,39,43,53 650 DATA 63952,42,243,253,229,33,149,250,1,1,0,205,11,0,225,34,243 660 DATA 63968,253,201,58,10,248,87,62,22,146,48,2,62,0,111,38,1 670 DATA 63984,34,243,253,237,75,6,248,11,237,67,6,248,42,4,248,43 680 DATA 64000,34,4,248,167,237,66,35,4,126,35,254,13,32,7,126,254 690 DATA 64016,10,40,9,62,10,229,197,205,71,250,24,12,13,32,3,5 700 DATA 64032,40,15,35,229,197,205,115,250,193,225,13,32,219,5,32,216 710 DATA 64048,201,62,10,205,71,250,201,42,4,248,35,119,34,4,248,42 720 DATA 64064,6,248,35,34,6,248,201,254,32,48,10,245,62,94,205,85 730 DATA 64080,250,241,6,64,176,71,42,243,253,124,254,39,32,9,125,254 740 DATA 64096,23,32,4,33,10,248,52,120,33,9,248,119,1,1,0,205 750 DATA 64112,11,0,201,58,243,253,254,23,32,4,33,10,248,52,33,192 760 DATA 64128,250,1,2,0,205,11,0,201,60,42,62,45,45,109,111,114 770 DATA 64144,101,45,45,42,94,32,32,32,32,32,32,32,32,32,32,32 780 DATA 64160,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 790 DATA 64176,32,32,32,32,32,32,32,32,32,32,32,32,32,8,32,8 800 DATA 64192,13,10