0 REM �����Ò��Ҹ���Dz���ӄ�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 �