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

---

Back to previous page