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 ¢
