5 REM MIGHTY LISTER›20 REM (c) 1988, ANTIC PUBLISHING›33 GRAPHICS 2:POKE 710,186:POKE 712,186:POKE 708,3:POKE 709,3:POSITION 6,3:? #6;"MIGHTY"›36 POSITION 6,5:? #6;"LISTER"›40 DIM SUB$(255),RAND$(260),FILENAME$(14),EOL$(2),IO$(7),MSG1$(28),MSG2$(24),MSG3$(36)›60 MSG3$="IF PRINTER READY PRESS 'Á' TO PRINT"›90 REM ›100 REM ›120 FILENAME$="D:INVNTORY":GOSUB 1330›130 REM MAIN MENU›135 GRAPHICS 0:POKE 752,1:POKE 764,255:POKE 82,2:POKE 756,226:POKE 702,64:POKE 710,204:POKE 709,0:RAND=0›150 ? :? :? "     ± - LOCATE ITEM & PRINT"›170 ? :? "     ³ - PRINT LIST"›270 REM FIND ENTRY & PRINT ENVELOPES›280 ? "}":POKE 702,0:POKE 752,0:POSITION 2,10:? "Locator for item to display":INPUT SUB$›282 ? :? "Do you want automatic printout of all locators Ù/Î":POKE 702,64:GET #1,A:IF A<>89 THEN 290›284 A=65:GOSUB 1070:GOSUB 1160:? FILE$(START,RAND+1)›286 GOTO 284›320 ? :? "Press  ÓÐÁÃÅÂÁÒ  to get next locator":? :? FILE$(START,RAND+1)›360 REM SERIALLY PRINT ENVELOPES›410 IF A=32 OR A=65 THEN 370›430 REM PRINT COMPLETE LIST›440 ? "}":? :? MSG3$:POKE 764,255›441 IF PEEK(764)<>63 THEN 441›450 REM ›460 REM ›470 POKE 764,255:CLOSE #4:OPEN #4,8,0,"P":PRINT #4;FILE$:CLOSE #4›490 REM SCREEN COMPLETE›530 REM CHANGE MENU›550 ? :? :? "± - Add items":? :? "² - Delete items":? :? "³ - Save Updated List"›610 REM ADD NAME›710 REM DELETE A NAME›730 POKE 702,0:POSITION 2,6:? "Item to Delete";:INPUT SUB$:IF LEN(SUB$)=0 THEN 540›830 REM SAVE ROUTINE›860 ? :? "ÄÅÖÉÃÅ®ÆÉÌÅÎÁÍÅ ÉÓ ";FILENAME$:? :? "Press ÓÐÁÃÅÂÁÒ to add changes to this file. Press §Ó§ to change ";›865 REM ›940 REM MAKE NEW LIST›960 ? :? "If you have a word processor use it tomake new files. Separate entrieswith two ÒÅÔÕÒÎ's."›990 REM PAUSE SUBROUTINE›1040 IF A=65 THEN GOSUB 1220›1060 REM RAND SUBROUTINE›1150 REM SEARCH SUBROUTINE›1160 START=START-10:IF START<0 THEN START=1›1210 REM PRINTER SUBROUTINE›1230 ? "}":? :? "I/O ERROR #";PEEK(195):TRAP 40000:CLOSE #4:GOTO 130›1240 REM ›1250 IF A=65 THEN PRINT #4;CHR$(27);"l";CHR$(10);FILE$(START,RAND-1):CLOSE #4:RETURN ›1270 REM LOAD MENU›1300 REM LOAD ROUTINE›1340 CLOSE #2:FILE$(TRUELEN)=CHR$(155):TRAP 40000:GOTO 130›1370 REM I/O LOAD & SAVE›