0 REM Diskette Label Maker for the C.Itoh Prowriter 1 REM By John Snell 1/18/83 2 ? "}" 5 DIM NAME$(13),ANSWER$(1),DNAME$(135),MARGIN$(3) 6 LN=1:MARGIN$="000" 25 ? "Do you wish to give this diskette a special name";:INPUT ANSWER$ 30 IF ANSWER$="Y" OR ANSWER$="y" THEN 100 35 OPEN #1,6,0,"D:*.*" 40 TRAP 90:INPUT #1;NAME$ 60 IF NAME$(11,13)="SYS" OR NAME$(11,13)="SAV" OR NAME$(11,13)="CAT" THEN 40 61 IF NAME$(3,6)="MENU" THEN 40 62 IF NAME$(5,8)="FREE" THEN 90 70 LPRINT CHR$(27);CHR$(81);CHR$(27);CHR$(76);MARGIN$;NAME$:LN=LN+1 80 IF LN=5 THEN MARGIN$="016":GOSUB 200 81 IF LN=9 THEN MARGIN$="032":GOSUB 200 82 IF LN=13 THEN MARGIN$="048":GOSUB 200 83 IF LN=17 THEN MARGIN$="064":GOSUB 200 84 IF LN=21 THEN GOSUB 1000 85 IF LN<21 THEN GOTO 40 86 ? "Advance Printer to Next Label, Hit ANY KEY When Ready" 87 LN=0:POKE 764,255 88 IF PEEK(764)=255 THEN GOTO 88 89 GOTO 40 90 CLOSE #1:ANSWER$="Q":POKE 764,255:? "Want to do another one";:INPUT ANSWER$ 91 IF ANSWER$="Y" OR ANSWER$="y" THEN RUN 92 END 100 INPUT DNAME$ 102 GOSUB 1000 110 LPRINT CHR$(27);CHR$(81);CHR$(27);CHR$(88);DNAME$;CHR$(27);CHR$(34);CHR$(27);CHR$(89) 120 GOTO 35 200 LPRINT CHR$(27);CHR$(91);CHR$(27);CHR$(114):LPRINT :LPRINT :LPRINT :LPRINT :LPRINT CHR$(27);CHR$(102);CHR$(27);CHR$(93) 210 RETURN 1000 MARGIN$="000" 1001 LPRINT CHR$(27);CHR$(81);CHR$(27);CHR$(76);MARGIN$:RETURN