Ubroutines

11 Z0=64+64*ZL-LEN(ZT$)/2-32:PRINTS ZO, ZT$;:RETURN

12 GOSUB 2:GOTO 5

13 GOSUB 5:GOTO 3

14 GOSUB 5:GOTO 4

16 PRINTS 0,;:FOR Z=0 TO ZE:PRINTSTRING $(64," ");:NEXT Z:PRINTS 0,;:RETURN

17 N=1:FOR Z=1 TO ZSsFOR ZZ=1 TO 300:NE XT ZZ:PRINTSZL*64+ZT,N "SECONDS";:N=N +1:NEXT Z:RETURN

18 PRINTS981,"T0 PROCEED HIT ANY KEY";: GOTO 9

19 Z0=ZL*64+ZT:PRINTS ZO,ZT$;:RETURN

21 GOSUB 26:Z=(64-LEN(ZT$))/2:LPRINTTAB (Z)ZT$:RETURN

22 GOSUB 26:Z=(32-LEN(ZT$))/2 sLPRINTCHR $(31):LPRINTTAB(Z)ZT$:LPRINTCHRS(30): RETURN

23 GOSUB 26:GOSUB 142:LPRINTTAB((64-ZN) /2)STRING$(ZN,ZC$):RETURN

24 GOSUB 141:GOTO 23

25 FOR Z=1 TO ZN:LPRINT" ":NEXT Z:RETUR N

26 LPRINTCHRS(27)CHR$(66):RETURN

29 GOTO 101

41 GOTO 115

42 PRINTSPZ-1,STRINGS(Z+2," ");:RETURN

NTER-SCREEN FLICKER----'

100 '------REFERRED ROUTINES BEGIN HERE

101 GOSUB 26

102 FOR Z=15360 TO 16383

105 LPRINTCHR$(C);:NEXT ZsRETURN

106 TZ$=CHR$(191)+CHR$(131)+STRING$(60, 179)+CHR$(131)+CHR$(191)

107.MZ$=CHR$(191)+CHRS(128)+CHR$(191)+S TRING$(58,128)+CHR$(191)+CHR$(128)+CH R$ (191)

108 BZ$=CHR$(191)+CHR$(176)+STRING$(60, 179)+CHR$(176)

109 PRINT TZ$;

110 FOR N=1 TO 14:PRINT MZ$;:NEXT:PRINT BZS;:GOTO 114

111 PRINTCHR$(191);:PRINTSTRING$(62,CHR $(131));:PRINTCHR$(191);

112 FOR N=1 TO 14:PRINTCHR$(192);:PRINT CHR$(191);:PRINTCHR$(254);:PRINTCHR$( 191);:NEXT

114 P0KE16383,191:RETURN

115 Z=LEN(ZT$):IF ZT=0 THEN PZ=64*ZL-Z/ 2-32 ELSE PZ=64*(ZL-1)+ZT-1

118 PRINTS PZ,ZT$;

191);:PRINTS PZ+Z+1,CHR$(191);sPRINTS PZ+62,BZS;:RETURN

122 FOR D=1 TO ZD:PRINTSZ,ZT$;:FOR F=1 TO ZF:NEXT F:PRINTSZ,STRING$(ZJ," "); :FOR F=1 TO ZF:NEXT F:NEXT D:RETURN

124 DEFINT H

125 H1=D/4096:I=D-H1*4096:H2=I/256:1=1-H2*256:H3=I/16:H4=I-H3*16

126 IF H1>9 H1=H1+55 ELSE Hl=Hl+48

127 IF H2>9 H2=H2+55 ELSE H2=H2+48

128 IF H3>9 H3=H3+55 ELSE H3=H3+48

129 IF H4>9 H4=H4+55 ELSE H4=H4+48

132 H$=CHR$(H1)+CHRS(H2)+CHRS(H3)+CHR$( H4):IF LEFTS(H$,2)="00" H$=RIGHT$(H$, 2)

134 RETURN

^ FED UP WITH PATCHES?

THEN MOVE UP TO PROSOFTS NewScript:

Easy-to-use Full Screen Editing Headings, Page Numbering, Centering

Global Search and Change Table of Contents, Indexing All 12 MX-80 fonts + underlining Italics on GRAFTRAX MX-80 Supports Diablo, Microline, Anadex

Typehead—never loses keystrokes

Form Letters, Big Documents Double Width, Underlining Sub-scripts, Super-scripts t Proportional font right-margin justification on 737, 739, L.P. IV, and now R/S Daisy wheel II

* 160 pages of excellent documentation includes "EZEDIT", "EZSCRIPT", self-study tutorial, and hundreds of examples

* see review in Computronics, luly 1981

* runs under TRSDOS, NEWDOS, NEWDOS/8G, LDOS, DOSPLUS

* Requires 48K TRS-80 with one disk drive. Specify Model I or Model III fSome features work only if your printer has the mechanical capability.

NewScript

Mailing Labels Option Special: New Script + Labels

EtPM

RPM measures the rotational speed and variation of your disk drives, and reveals a common cause of unexplained errors. Simple one-key operation, runs under any DOS, interchangeable between Models I and III. Shows current and average speeds, plus fluctuation history. Recovers from severe errors. Documentation explains how to adjust drives. Use RPM monthly for best results.

16-48K Model I or III, tape and disk:

Order from your Software dealer, or from:

Monitors your BASIC programs while they run, then displays a simple change (usually one line) that can reduce run-times by as much as 50%. No hardware changes, and handles programs that cannot be compiled! Complex programs benefit the most. See review in Personal Computing, May, 1981.

16-48K Model I or III, tape and disk:

0 0

Post a comment