oftware is * & ! * hereby transmitted. Neither Erskine College nor the author assumes * & ! * any responsibility for the use or reliability of this software. The * & ! * author welcomes comments and/or bug reports mailed to Franklin * & ! * Mitchell, Erskine College, Box 86, Due West, South Carolina 29639. * & ! *********************************************************************** & 1000 ! Text file syntax: & ! & ! If the first non-space/tab character is & ! & ! ~ Standard 80 column size & ! & ! @ Double wide & ! & ! Double high + double wide & ! & ! ^ Wait for key & ! & ! Exposure: For ASA 200 Ektachrome daylight silde film, use an & ! exposure time of about two to three seconds at f8. & 1020 ON ERROR GOTO 1260 & 1040 ESC$ = CHR$(155%) & \ CSI$ = ESC$ + '[' & \ CLS$ = CSI$ + 'H' + CSI$ + 'J' & \ VT52$ = CSI$ + '?2l' & \ ANSI$ = ESC$ + '<' & \ DHDW1$ = ESC$ + '#3' & \ DHDW2$ = ESC$ + '#4' & \ DW$ = ESC$ + '#6' & \ DW% = ASCII('@') & \ QRX% = ASCII("^") & \ STD% = ASCII('~') & \ OH$ = "o " & \ DOT$ = ESC$ + "(0" + CHR$(96%) + ESC$ + "(B" & \ DASH% = ASCII("q") & \ DASH.ON$ = ESC$ + "(0" & \ DASH.OFF$ = ESC$ + "(B" & 1060 PRINT & \ PRINT "File of text "; & \ INPUT LINE F$ & \ F$ = CVT$$(F$, -1%) & \ F$ = "DECUS.TXT" IF LEN(F$) = 0% & \ OPEN F$ FOR INPUT AS FILE 1%, MODE 256% + 2048% + 8192% & 1080 OPEN "_KB:" AS FILE 2% & 1100 V$ = SYS(CHR$(6%) + CHR$(-7%)) & \ PRINT ANSI$; CLS$; & ! & ! Switch from VT52 mode to ANSI mode & 1120 INPUT LINE #1%, T$ & \ T$ = CVT$$(T$, 4%) & \ GOTO 1280 IF T$ = 'EOF' & \ T$ = DOT$ + RIGHT(T$, 2%) IF LEFT(T$, 2%) = OH$ & 1140 X% = INSTR(1%, T$, "--") & \ GOTO 1160 UNLESS X% & \ L% = LEN(T$) & \ A% = X% + 1% & \ A% = A% + 1% UNTIL (MID(T$, A%, 1%) <> "-") OR (A% > L%) & \ T$ = LEFT(T$, X% - 1%) + DASH.ON$ & + STRING$(A% - X%, DASH%) & + DASH.OFF$ & + RIGHT(T$, A%) & \ GOTO 1140 & 1160 A% = ASCII(CVT$$(T$, 2%)) & \ X% = INSTR(1%, T$, CHR$(A%)) & \ IF A% <> QRX% & THEN & PRINT UNLESS A% = STD% & ELSE & V$ = SYS(CHR$(6%) + CHR$(11%)) & \ INPUT #2% ZZ$ & \ PRINT CLS$ & \ GOTO 1240 & 1180 IF A% = DW% & THEN & PRINT DW$; LEFT(T$, X% - 1%); RIGHT(T$, X% + 1%) & \ GOTO 1240 & 1200 IF A% = STD% & THEN & PRINT LEFT(T$, X% - 1%); RIGHT(T$, X% + 1%) & \ GOTO 1240 & 1220 PRINT DHDW1$; T$ & \ PRINT DHDW2$; T$ & 1240 GOTO 1120 & 1260 RESUME 1280 IF ERR = 28% & \ ON ERROR GOTO 0% & 1280 PRINT VT52$ & \ CLOSE 1%, 2% & 32767 END SLIDE BAS[.050001]SLIDE .BAS[.050001]   X14|H [4;Ik(&'( k ߫H&P` \RrPP2PPzPP{PPPPP2P~\$\\TD 0D \~ hi) +\ ^( n ^( np\^txY\^ˀ\!kVk<\F˰<˴ˬ\VVkˤ1`@lP ABCDEFGHIJKLMNOPQRSTUVWXYZ$.?0123456789<@<SЬTЬ UQS>