95 REM NECFIX - IMPORTANT TO INCLUDE›96 REM ALL REM LINES!!›100 DATA 162,0,22,228,106,232,224,8,208,248,153,220,0,200›165 DIM D$(10)›250 DENS=ASC("S"):CL=60›260 REM ONLY 60 CHARACTERS/LINE ON NEC›270 REM SINCE SINGLE DENSITY GRAPHICS ONLY.›280 REM ›290 REM ›300 REM ›310 REM ›320 REM ›370 A=A-48:VS=16*A:IF A<1 OR A>2 THEN ? "ύRANGE ERROR":GOTO 330›490 ? #7;"T";STR$(VS);›500 ? #7;CHR$(24);:REM CANCEL LOGIC SEEKING MODE FOR BETTER COLUMNAR PRINTS›520 IF LINES>=48*(VS=32)+96*(VS=16)-8 AND PG<>0 THEN GOSUB 2180›640 A=8*LEN(A$):GOSUB 2600›650 ? #7;CHR$(27);CHR$(DENS);D$;›2190 FOR I=1 TO 5+(VS=16):? #7:NEXT I:? #7;"T16":? #7;"T";STR$(VS);›2210 A=LEN(TTL$)*8:GOSUB 2600›2220 ? #7;CHR$(27);CHR$(DENS);D$;›2240 A$=STR$(PG):PG=PG+1:A=8*LEN(A$):GOSUB 2600›2250 ? #7;CHR$(27);CHR$(DENS);D$;›2600 D$="0000":D=(A>9)+(A>99)+(A>999):D$(4-D,4)=STR$(A):RETURN ›