1 'WRITTEN FOR THE M200 W/T-S DOS(ROM)+TPDD2 2 'TANDY 100 USER GROUP 8/9/91 3 'BY JOHN RUSSO 4 'YOU CAN DELETE "FILES" IN LINE #136 IF THERE'S NO ROOM FOR 5 'THEM BELOW THE MAIN MENU 6 'IF YOU HAVE TOO MUCH STUFF, THERE WON'T BE ENOUGH RAM 7 'SPACE TO SORT THEM IN ORDER. LOAD "SORT.BA & KILL STUFF.BA 8 ' RUN "SORT.BA" TO ALPHA. BOTH FILES. 9 'HAVE FUN! 10 'HOME INVENTORY PROGRAM 20 CLEAR5000:SCREEN,0:MAXFILES=3 22 CALL28189 25 CH$="E"+"L"+"O"+"V"+"P"+"S" 30 M$="Make: " 40 D$="Description: " 50 N$="Model #: " 60 S$="Serial #: " 65 SW$="Something wrong !!!" 70 OP$=" OK to print? Y/N" 80 AK$=" Hit any key to continue... to return to main menu" 90 HI$=" HOME INVENTORY PROGRAM VER 2.10 " 95 ONERRORGOTO2000 100 CLS:PRINT:PRINTHI$:PRINT 110 PRINT" (E)nter stuff";TAB(23);" (V)iew files" 115 PRINT 120 PRINT" (L)oad files";TAB(23);" (P)rint files" 125 PRINT 130 PRINT" (O)rder";TAB(23);" (S)ave to disk" 135 PRINT:PRINTTAB(17);"(Q)uit" 136 PRINT:FILES 140 GOSUB1000 145 IFC$="Q"THENMAXFILES=1:MENU 150 ONINSTR(CH$,C$)+1GOSUB200,300,400,500,600,700,800 160 CLOSE:GOTO100 200 BEEP:BEEP:RETURN 300 CLS:PRINT:PRINTTAB(15);"ENTER...":PRINT 310 LINEINPUT" DESCRIPTION: ";E$:PRINT 315 LINEINPUT" MAKE: ";A$:PRINT 320 LINEINPUT" MODEL #: ";U$:PRINT 325 LINEINPUT" SERIAL #: ";F$:PRINT 330 PRINT " IS THIS ALL CORRECT? Y?N" 331 PRINT:PRINT" or to quit" 335 GOSUB1000 337 IFC$=CHR$(27)THENRETURN 340 IFC$="Y"THENCLS:GOTO355 345 IFC$="N"THEN300 350 GOTO335 355 OPEN"STUFF1.DO"FORAPPENDAS1 360 OPEN"STUFF2.DO"FORAPPENDAS2 370 PRINT#1,E$;",";A$;",";U$;",";F$ 372 PRINT#2,A$;",";E$;",";U$;",";F$ 375 CLOSE 380 PRINT@130,"GOT IT...":PRINT 385 PRINTAK$:GOSUB1000 390 IFC$=CHR$(27)THENRETURN 395 GOTO300 400 CLS:PRINT@125,"Is correct disk installed":PRINT@206," @ the drive ready? Y/N" 405 GOSUB1000 410 IFC$="N"THENRETURN 415 IFC$="Y"THEN425 420 GOTO405 425 PRINT@290,"Uno momento..." 430 OPEN"0:STUFF1.DO"FORINPUTAS1 435 OPEN"STUFF1.DO"FOROUTPUTAS2 440 IFEOF(1)THENCLOSE:GOTO460 445 INPUT#1,E$,A$,U$,F$ 450 PRINT#2,E$;",";A$;",";U$;",";F$ 455 GOTO440 460 OPEN"0:STUFF2.DO"FORINPUTAS1 465 OPEN"STUFF2.DO"FOROUTPUTAS2 470 IFEOF(1)THENCLOSE:RETURN 475 INPUT#1,A$,E$,U$,F$ 480 PRINT#2,A$;",";E$;",";U$;",";F$ 490 GOTO470 500 CLS:PRINT@125,"Press any key to begin sorting...":PRINT 502 PRINT@210,"or to quit" 504 GOSUB1000:IFC$=CHR$(27)THENRETURN 506 DIMNN$(100) 508 FORJ=1TO2 510 CLS:I=1 512 IFJ=2THEN516 514 OPEN"STUFF1.DO"FORINPUTAS1:GOTO518 516 OPEN"STUFF2.DO"FORINPUTAS1 518 IFEOF(1)THEN526 520 LINEINPUT#1,NN$(I) 522 I=I+1 524 GOTO518 526 CLOSE#1 528 IFJ=2THEN532 530 OPEN"SORT1.DO"FOROUTPUTAS1:GOTO534 532 OPEN"SORT2.DO"FOROUTPUTAS1 534 CLS 536 PRINT@137,"SORTING" 538 I=I-1 540 X=0 542 X=X+1 544 IFX>ITHEN560 546 IFNN$(X)="ZZ"THEN542 548 FORY=1TOI 550 IFNN$(Y) to quit" 605 GOSUB1000:IFC$=CHR$(27)THENRETURN 610 IFC$="M"THEN650 615 IFC$="D"THEN625 620 BEEP:GOTO600 625 OPEN"STUFF1.DO"FORINPUTAS1 630 INPUT#1,E$,A$,U$,F$ 635 CLS:PRINT 640 PRINTD$;E$:PRINTM$;A$:PRINTN$;U$:PRINTS$;F$:PRINT 642 PRINTAK$:GOSUB1000:IFC$=CHR$(27)THEN695 645 IFEOF(1)THEN695 647 GOTO630 650 OPEN"STUFF2.DO"FORINPUTAS1 655 INPUT#1,A$,E$,U$,F$ 660 CLS:PRINT 665 PRINTM$;A$:PRINTD$;E$:PRINTN$;U$:PRINTS$;F$ 670 PRINT 675 PRINTAK$:GOSUB1000 680 IFC$=CHR$(27)THEN695 685 IFEOF(1)THEN695 690 GOTO655 695 CLOSE#1:RETURN 700 CLS:PRINT:PRINTOP$:PRINT 703 GOSUB1000 706 IFC$="N"THENRETURN 709 IFC$="Y"THEN715 712 GOTO703 715 PRINT" PRESS ANY KEY TO BEGIN PRINTING..." 718 GOSUB1000 721 IF(INP(187)AND6)<>2THENCLS:PRINT@130," PRINTER NOT READY!":BEEP:GOTO721 724 CLS:PRINT@130,"PRINTING...WAIT" 727 LPRINTTAB(27);"****** OUR PROPERTY...******":LPRINT 730 LPRINTTAB(28);DAY$;" ";DATE$;" ";TIME$:LPRINT 733 LPRINTSTRING$(80,36):LPRINT 735 LPRINTTAB(20),"Description Order...":LPRINT 736 OPEN"STUFF1.DO"FORINPUTAS1 739 INPUT#1,E$,A$,U$,F$ 741 LPRINTD$;E$;TAB(40);M$;A$ 743 LPRINTN$;U$;TAB(40);S$;F$ 746 LPRINT 749 IFEOF(1)THEN755 752 GOTO739 755 CLOSE#1 756 LPRINT:LPRINTSTRING$(80,36):LPRINT 757 LPRINTTAB(24),"Make Order...":LPRINT 760 OPEN"STUFF2.DO"FORINPUTAS1 765 INPUT#1,A$,E$,U$,F$ 770 LPRINTM$;A$;TAB(40);D$;E$ 775 LPRINTN$;U$;TAB(40);S$;F$ 780 LPRINT 785 IFEOF(1)THEN795 790 GOTO765 795 CLOSE#1:RETURN 800 CLS:PRINT@120,"Must have entire stuff.do files in RAM" 805 PRINT@200,"This will replace entire disk stuff.do files !!!" 807 PRINT@370,"Are you sure? Y/N" 810 GOSUB1000 815 IFC$="N"THENRETURN 820 IFC$="Y"THENCLS:PRINT@210,"Uno momento...":GOTO830 825 GOTO810 830 OPEN"STUFF1.DO"FORINPUTAS1 835 OPEN"0:STUFF1.DO"FOROUTPUTAS2 840 IFEOF(1)THENCLOSE:GOTO860 845 INPUT#1,E$,A$,U$,F$ 850 PRINT#2,E$;",";A$;",";U$;",";F$ 855 GOTO840 860 OPEN"STUFF2.DO"FORINPUTAS1 865 OPEN"0:STUFF2.DO"FOROUTPUTAS2 875 IFEOF(1)THENCLOSE:RETURN 880 INPUT#1,A$,E$,U$,F$ 885 PRINT#2,A$;",";E$;",";U$;",";F$ 890 GOTO875 1000 C$=INKEY$:IFC$=""THEN1000 1005 IFC$>"Z"THENC$=CHR$(ASC(C$)-32) 1010 RETURN 2000 BEEP:CLS:PRINT@125,SW$ 2010 IFERR=55THENPRINT@205,"TS-DOS OFF!":PRINT:GOTO3000 2120 IFERR=7THENPRINT:PRINT"OUT OF MEMORY, KILL SOMETHING":PRINT:GOTO3000 2130 IFERR=18THEN2200 2140 IFERR=52THEN2300 2150 PRINT@205,"Start over":PRINT:PRINTAK$ 2160 GOSUB1000:CLOSE:RUN 2200 PRINT@205,"Drive not ready !":PRINT 2210 PRINTAK$ 2220 GOSUB1000 2230 IFC$=CHR$(27)THENCLOSE:RUN 2240 RESUME 2300 PRINT@205,"File not found !" 2310 PRINT@285,"Install serial # diskette" 2320 PRINT@365,"(L)oad or (E)nter stuff":PRINT 2360 PRINTAK$ 2370 GOSUB1000 2380 IFC$=CHR$(27)THENCLOSE:RUN 2390 RESUME 3000 PRINT" Press any key to exit program..." 3010 GOSUB1000 3020 CLOSE:MAXFILES=1:MENU