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 'IJ' 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 áצסIJבדאIJפá 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 ? :? "גדשחבד«החכדמIJלדáחצ ";FILENAME$:? :? "Press צסIJבדאIJפ 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¢
