From:INET::"<@CUNYVM.CUNY.EDU:JJMCWILL@MTUS5.cts.mtu.edu>"  9-SEP-1992 01:50:19.65›To:BEN POEHLAND <PHVAX::POEHLAND>›CC:›Subj:LISTING 1››This file should be easier to handle, since it's not imbedded at the›end of the long manuscript.››Jeff›››1000 PRINT CHR$(125);"INITIALIZING..."›1010 DIM RW$(33),PR$(163),BUFFER$(198),PIC$(7680),EX$(512),FN$(25)›1020 DIM L$(5)›1030 FOR A=1 TO 33:READ B:RW$(A,A)=CHR$(B):NEXT A›1040 FOR A=1 TO 163:READ B:PR$(A,A)=CHR$(B):NEXT A›1050 EX$=CHR$(0):EX$(512)=CHR$(0):EX$(2)=EX$›1060 RVAL=4:WVAL=8:CNORM=0:CINV=1›1070 PRINT :? "Input Path and file to print : ";›1080 INPUT FN$›1090 TRAP 1670›1100 OPEN #1,4,0,FN$›1110 ? :? "LOADING FILE ";FN$›1120 A=USR(ADR(RW$),1,RVAL+3,ADR(PIC$),7680)›1130 CLOSE #1›1140 TRAP 40000›1150 OPEN #1,8,0,"E:"›1160 GRAPHICS 24›1170 A=USR(ADR(RW$),1,WVAL+3,ADR(PIC$),7680)›1180 FOR X=15 TO 0 STEP -0.1:SOUND 1,12,10,X:NEXT X›1190 OPEN #2,4,0,"K:":GET #2,A:CLOSE #2›1200 CLOSE #1:OPEN #1,8,0,"E:"›1210 ? :? "PRINT THIS FILE? (Y/N) ";›1220 OPEN #2,4,0,"K:":GET #2,A:CLOSE #2›1230 IF (A<>89 AND A<>121) THEN CLOSE #1:? CHR$(125):GOTO 1070›1240 ? CHR$(125)›1250 ? :? "CHOOSE PRINTER TYPE"›1260 ? :? "1.  9  PIN PRINTER":? "2.  24 PIN PRINTER"›1270 TRAP 1860›1280 ? :? :INPUT L$:A=VAL(L$)›1290 IF A<1 OR A>2 THEN 1240›1300 ? :? ;"                              PRINTING..."›1310 TRAP 1730›1320 OPEN #2,8,0,"P:"›1330 IF A=1 THEN PRINT #2;CHR$(27);CHR$(65);CHR$(8)›1340 IF A=2 THEN PRINT #2;CHR$(27);CHR$(51);CHR$(24)›1350 A=USR(ADR(PR$),2,CNORM,ADR(BUFFER$),ADR(PIC$))›1360 CLOSE #2›1370 TRAP 40000›1380 FOR A=1 TO 3›1390 FOR X=15 TO 0 STEP -0.25:SOUND 1,12,10,X:NEXT X›1400 NEXT A›1410 ? :? ;"                                DONE!!"›1420 CLOSE #1›1430 END›1440 REM›1450 REM THE FOLLOWING DATA IS FOR THE READ/WRITE FILE ROUTINE›1460 REM›1470 DATA 104,104,104,10,10,10,10,170,104,104,157,66›1480 DATA 3,104,157,69,3,104,157,68,3,104,157,73›1490 DATA 3,104,157,72,3,32,86,228,96›1500 REM›1510 REM THE FOLLOWING DATA IS FOR THE PRINT DUMP ROUTINE›1520 REM›1530 DATA 104,104,104,10,10,10,10,170,169,9,157,66›1540 DATA 3,104,104,133,208,104,157,69,3,133,206,104›1550 DATA 157,68,3,133,205,160,0,132,214,169,27,145›1560 DATA 205,200,169,75,145,205,200,169,192,145,205,200›1570 DATA 169,0,145,205,104,133,204,104,24,105,216,133›1580 DATA 203,133,212,165,204,105,29,133,204,133,213,169›1590 DATA 196,157,72,3,169,0,157,73,3,133,209,169›1600 DATA 4,133,207,164,209,177,203,69,208,201,155,208›1610 DATA 4,169,153,208,16,201,13,208,12,164,214,208›1620 DATA 6,160,1,208,6,160,0,169,11,160,0,132›1630 DATA 214,164,207,145,205,165,203,56,233,40,133,203›1640 DATA 176,2,198,204,200,132,207,192,196,208,200,32›1650 DATA 86,228,165,212,133,203,165,213,133,204,230,209›1660 DATA 165,209,201,40,208,177,96›1670 REM THIS TRAP IS FOR ATTEMPTING TO OPEN OR LOAD THE FILE›1680 ? :?›1690 GOSUB 1810:? "ERROR # ";PEEK(195);" DURING FILE INPUT!"›1700 FOR X=1 TO 950:NEXT X›1710 TRAP 40000›1720 CLOSE #1:? CHR$(125):GOTO 1070›1730 REM THIS TRAP IS FOR ATTEMPTING TO PRINT THE FILE›1740 ? :?›1750 GOSUB 1810:? "ERROR # ";PEEK(195);" DURING PRINTER OUTPUT!"›1760 FOR X=1 TO 950:NEXT X›1770 TRAP 40000›1780 CLOSE #2:? CHR$(125):? "PRESS ANY KEY TO TRY TO PRINT SAME FILE"›1790 OPEN #4,4,0,"K:":GET #4,X:CLOSE #4›1800 ? CHR$(125):GOTO 1280›1810 FOR A=1 TO 2›1820 FOR X=6 TO 15 STEP 2:SOUND 1,16,2,X:NEXT X›1830 FOR X=1 TO 15 STEP 0.25:SOUND 1,16,2,8:NEXT X:SOUND 1,0,0,0›1840 NEXT A›1850 RETURN›1860 REM THIS MEANS YOU TYPED A NON-NUMBER IN LINE 1260›1870 TRAP 40000›1880 GOTO 1240›