1 REM *******************************›2 REM *                             *›3 REM *   STATUS LINE SUBROUTINES   *›4 REM *            by               *›5 REM *        Algie Gray           *›6 REM *                             *›7 REM *   For Atari Classic 1993    *›8 REM *                             *›9 REM *******************************›100 DIM SL$(80)›105 GOSUB 9000›110 SL$=" THESE TOP TWO LINES ARE TO"›115 SL$(28)="TALLY IMMUNE    TO SCRO"›120 SL$(51)="LLING. PRESS A KEY TO L"›125 SL$(74)="IST.   "›130 GOSUB 9500›135 POKE 764,255›140 IF PEEK(764)=255 THEN GOTO 140›145 LIST :FOR N=1 TO 1000:NEXT N›150 SL$=" AND THAT IS ALL THERE IS T"›155 SL$(28)="O IT.  HOPE   THAT YOU "›160 SL$(51)="FIND THESE SUBROUTINES "›165 SL$(74)="HANDY. "›170 GOSUB 9500›175 END ›9000 REM ****************************›9010 REM *  SET UP THE STATUS LINE  *›9020 REM ****************************›9030 POKE 106,PEEK(740)-2›9040 DL=(PEEK(106)+1)*256›9050 GRAPHICS 0›9060 FOR N=0 TO 36›9070 READ D›9080 POKE DL+N,D›9090 NEXT N›9100 POKE DL+9,PEEK(88)›9110 POKE DL+10,PEEK(89)›9120 POKE DL+4,DL/256›9130 POKE DL+5,50›9140 POKE DL+35,DL/256›9150 POKE 561,DL/256:POKE 560,0›9160 RETURN ›9500 REM ****************************›9510 REM *   PRINT TO STATUS LINE   *›9520 REM ****************************›9530 TLC1=PEEK(88):TLC2=PEEK(89)›9540 POKE 82,0:POKE 83,40›9550 POKE 88,DL/256:POKE 89,50›9560 ? CHR$(125):POSITION 0,0›9570 ? SL$›9580 POKE 88,TLC1:POKE 89,TLC2›9590 ? CHR$(125):POSITION 0,0›9600 RETURN ›9990 REM ****************************›9991 DATA 112,0,0,66,0,0,2,0,66,0,0›9992 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2›9993 DATA 2,2,2,2,2,2,2,2,2,2,65,0,0›9994 REM ****************************›