10 REM Disc Sleeve Creator 20 REM (c) Andrew Snodgrass Aug. 1991 30 REM Released into the 40 REM Public Domain 50 REM by 8-Bit Software, 1 Oakwood Drive, Heaton, BOLTON BL1 5EE 60 : 70 MODE7 80 ON ERROR VDU3:MODE7:REPORT:PRINT" at ";ERL:END 90 *FX14,6 100 PROCscreen:VDU28,9,20,31,8 110 PROCmain 120 MODE0 130 PROCprint 140 MODE7 150 PROCdisplay 160 PROCagain 170 VDU7:MODE7:PRINT"QUIT":END 180 : 190 DEFPROCmain 200 PRINT''"How many disc sleeves" 210 INPUT"do you want";N 220 IF N<=0 ORN>=1000CLS:PRINT'''" Don't be Stupid !" 230 IF N>=1000 PRINT'"That's too many for the printer to handle in one go!" 240 IF N<=0 ORN>=1000 G=GET:RUN 250 IF N=1 sens$="copy" ELSEsens$="copies" 260 PRINT'"Printing";N;"";sens$ 270 INPUT''"Is this Correct";ans$ 280 IF NOT (ans$="Y" OR ans$="y") RUN 290 CLS:PRINT" When the(se) printout(s) are completed, cutround the edges andthen fold downthe remaining dottedmargins.After this glueA to the other side ofthe paper at position C.Then do the same forpositions B&D." 300 PRINT'TAB(5)"":G=GET:CLS:PRINT"Prepare your printer";CHR$(137)"now and press a key"'"when you are ready!":G=GET 310 ENDPROC 320 : 330 DEFPROCprint 340 FOR P=1 TO N STEP 1 350 VDU2:*PRINT DISCENV 360 PRINT''''''''''''' 370 VDU3:CLS:IF N>1 PRINTTAB(0,15)"Please preform any necessary Line Feeds now (otherwise you might find that thedisc sleeve is printed over the perforation!).When you are finished press anykey to continue.":G=GET:VDU2 380 NEXT 390 VDU3 400 ENDPROC 410 : 420 DEFPROCagain 430 INPUT"Do you wish to repeat"'"the process again";ans2$ 440 IF ans2$="Y" ORans2$="y"RUN ELSEENDPROC 450 : 460 DEFPROCscreen 470 PRINT " "; 480 PRINT " "; 490 PRINT " ssssDisc Sleeve Creatorssss "; 500 PRINT " Disc Sleeve Creator "; 510 PRINT " "; 520 PRINT " "; 530 PRINT " 7`````````````````````````k "; 540 PRINT " 5 j "; 550 PRINT " 5 j "; 560 PRINT " 5 j "; 570 PRINT " 5 j "; 580 PRINT " 5 j "; 590 PRINT " 5 j "; 600 PRINT " 5 j "; 610 PRINT " 5 j "; 620 PRINT " 5 j "; 630 PRINT " 5 j "; 640 PRINT " 5 j "; 650 PRINT " 5 j "; 660 PRINT " 5 j "; 670 PRINT " 5 j "; 680 PRINT " upppppppppppppppppppppppppz "; 690 PRINT " "; 700 PRINT " Programmed By Andrew P Snodgrass "; 710 ENDPROC