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 

---

Back to previous page