Listing of file='INMENU.BAS;01' on disk='vmedia/chip_107-sector.ccvf'
1000 CLEAR 200:PLOT 29,14,6,2,12,27,11,3,8,0 1010 PLOT 15 1100 PRINT " R E N A I S S A N C E M A R K E T I N G" 1200 PRINT 1210 PRINT 1300 PRINT "TYPE IN THE NUMBER OF THE PROGRAM YOU WANT "; 1400 PRINT "FROM THE MENU BELOW" 1500 PRINT 1510 PRINT "---------------------------------------------------------------" 1520 PRINT :PRINT 1600 PRINT TAB( 15)"( 1 ) - INVENTORY" 1605 PRINT 1610 PRINT TAB( 15)"( 2 ) - PRINT REPORTS" 1620 PRINT 1700 PRINT TAB( 15)"( 3 ) - CREATE DATA FILES" 1705 PRINT 1800 PRINT TAB( 15)"( 4 ) - COPY DATA FILES" 1850 PRINT :PRINT TAB( 15)"( 5 ) - OTHER PROGRAMS" 1900 PRINT 1910 PRINT 2000 INPUT " MENU SELECTION ( TYPE NUMBER & HIT RETURN KEY ) :";P 2100 ON PGOTO 2300,2600,2400,2500,3000 2200 PLOT 28,11:GOTO 2000 2300 LOAD "INV":RUN 2400 LOAD "FILECR":RUN 2500 LOAD "COPY":RUN 2600 LOAD "IPRINT":RUN 3000 PLOT 12 3010 PRINT TAB( 19)"RENAISSANCE MARKETING'S":PRINT 3020 PRINT TAB( 17)"LOW COST BUSINESS PROGRAMS" 3030 PRINT TAB( 13)"FOR YOUR COMPUCOLOR MODEL 4, MODEL 5" 3040 PRINT TAB( 13)"AND INTERCOLOR 3600 SERIES COMPUTERS" 3050 PRINT "---------------------------------------------------------------" 3060 PRINT :PRINT 3070 PRINT TAB( 15)"( 1 ) - GENERAL LEDGER":PRINT 3080 PRINT TAB( 15)"( 2 ) - INVOICE CONTROL A/R":PRINT 3090 PRINT TAB( 15)"( 3 ) - ACCOUNTS PAYABLE":PRINT 3100 PRINT TAB( 15)"( 4 ) - OTHER PRODUCTS":PRINT 3120 PRINT TAB( 15)"( 5 ) - PURCHASE ORDER FORM":PRINT 3130 PRINT TAB( 15)"( 6 ) - MAIN MENU." 3140 PRINT :PRINT 3150 INPUT " MENU SELECTION ( TYPE NUMBER & HIT RETURN KEY ) :";P 3160 ON PGOTO 4000,5000,6000,7000,8000,1000 3170 PLOT 28,11:GOTO 3150 4000 PLOT 12:PRINT TAB( 15)"COLORDATA GENERAL LEDGER SYSTEM." 4010 PRINT "---------------------------------------------------------------" 4020 PRINT 4030 PRINT TAB( 5)"A COMPLETE GENERAL LEDGER PROGRAM WITH FEATURES USUALY" 4040 PRINT TAB( 5)"FOUND ON MICRO SYSTEMS. FAST EASY TO USE, ALMOST GOOF" 4050 PRINT TAB( 5)"PROOF AND SUPPORTS SINGLE OR DUAL DISK DRIVES. PERFECT" 4060 PRINT TAB( 5)"FOR SMALL BUSINESS, TRAINING OR HOME ACCOUNTING. 4065 PRINT 4070 PRINT TAB( 5)"THERE ARE FIVE PROGRAMS IN THE COLORDATA G/L SYSTEM." 4075 PRINT TAB( 5)"---------------------------------------------------":PRINT 4080 PRINT TAB( 5)"(1) = MENU : INCLUDES UTLITIES SUBROUTINES FOR CLEARING" 4090 PRINT TAB( 18)"MONTH TO DATE OR/AND YEAR TO DATE DATA.":PRINT 4100 PRINT TAB( 5)"(2) = ACCOUNT : CREATES ACCOUNT NUMBERS, ACCOUNT" 4110 PRINT TAB( 21)"DESCRIPTIONS, ACCOUNT UTILITIES.":PRINT 4130 PRINT TAB( 5)"(3) = JOURNAL : ENTER JOURNAL DATA, DISPLAY DATA," 4150 PRINT TAB( 21)"LIST DATA AND EDIT DATA":PRINT 4160 PRINT TAB( 5)"(4) = PROOF : PRINT OR DISPLAY JOURNAL DATA.":PRINT 4170 PRINT TAB( 5)"(5) = POST : APPLIES JOURNAL DATA TO ACCOUNTS.":PRINT 4180 PRINT TAB( 5)"(6) = REPORT : PRINTS TRIAL BALANCE, CHART OF ACCOUNTS," 4190 PRINT TAB( 21)"BALANCE SHEET AND INCOME STATEMENT." 4200 PRINT :PRINT TAB( 18):INPUT "HIT RETURN TO CONTINUE";X:FOR I= 1TO 25:PLOT 28,11:NEXT I 4210 PRINT "(1) = 3651 SUPPORTS 120 ACCOUNTS WITH 1000 JOURNAL ENTRIES.":PRINT 4220 PRINT "(2) = COMPUCOLOR SUPPORTS 100 ACCOUNTS WITH 600 JOURNAL ENTRIES.":PRINT 4224 PRINT TAB( 10)"INCLUDED : EASY TO UNDERSTAND INSTRUCTIONS," 4226 PRINT TAB( 10)"SAMPLE ACCOUNTS, SAMPLE FORMS & REPORTS." 4227 PRINT TAB( 10)"------------------------------------------":PRINT 4230 PRINT :PRINT TAB( 12)"COLORDATA G/L FOR 3651......... $ 79.95":PRINT 4240 PRINT :PRINT TAB( 12)"COLORDATA G/L FOR MODELS 4&5... $ 49.95":PRINT 4250 PRINT :PRINT TAB( 18):INPUT "HIT RETURN TO CONTINUE";X:GOTO 3000 5000 PLOT 12:PRINT TAB( 15)"COLORDATA INVOICE CONTROL A/R SYSTEM." 5010 PRINT "---------------------------------------------------------------" 5020 PRINT 5030 PRINT "THE INVOICE CONTROL PROGRAM PROVIDES DATA FOR 768 INVOICES PER" 5040 PRINT "DISK, PER SIDE. GIVES ON A DAILY BASIS MONTH-TO-DATE, YEAR-TO-" 5050 PRINT "DATE INVOICE INFORMATION ON TOTAL SALES, ACCOUNTS RECEVIABLE," 5060 PRINT "AMOUNT PAID, TAX DUE, FREIGHT CHARGES, INVOICE COST AND PROFIT." 5065 PRINT 5070 PRINT TAB( 5)"THERE ARE FOUR PROGRAMS IN THE COLORDATA INVOICE SYSTEM." 5075 PRINT TAB( 5)"--------------------------------------------------------":PRINT 5080 PRINT "(1) = MENU : INCLUDES UTLITIES SUBROUTINES.":PRINT 5090 PRINT "(2) = CREATE : CREATES DATA FILES, STARTING NUMBERS.":PRINT 5100 PRINT "(3) = INVOICE : LISTS ALL INVOICES, SEARCH BY CUSTOMER DISPLAY" 5110 PRINT TAB( 6)"INVOICE DATA, SEARCH BY PO.#, LIST ALL TOTALS ( TOTAL" 5120 PRINT TAB( 6)"SALES, SALES TAX, FREIGHT AND ITEM COSTS. ENTER INVOICE," 5130 PRINT TAB( 6)"UPDATE INVOICE AND DELETE INVOICE.":PRINT 5140 PRINT "(4) = PRINT : PRINTS ALL INVOICE DATA ( BY MONTH OR YEAR )" 5150 PRINT TAB( 6)"A/R DATA ( BY CUSTOMER, OR ALL INVOICES M-T-D OR Y-T-D )," 5160 PRINT TAB( 6)"INVOICE TOTALS ( M-T-D, Y-T-D AMOUNTS PER INVOICE AND" 5170 PRINT TAB( 6)"TOTALS FOR SALES, TAX DUE, FREIGHT, COST AND PROFIT.":PRINT :PRINT 5180 PRINT TAB( 5)"UPDATING INVOICE IS FAST, NO LONG SEARCHING IS REQUIRED." 5190 PRINT TAB( 5)"--------------------------------------------------------" 5200 PLOT 3,18,30:INPUT "HIT RETURN TO CONTINUE";X:FOR I= 1TO 29:PLOT 28,11:NEXT I 5210 PRINT :PRINT TAB( 10)"(1) = 3651 SUPPORTS 960 INVOICES ON FILE.":PRINT 5220 PRINT TAB( 10)"(2) = COMPUCOLOR SUPPORTS 768 INVOICES ON FILE.":PRINT :PRINT 5224 PRINT TAB( 10)"INCLUDED : EASY TO UNDERSTAND INSTRUCTIONS," 5226 PRINT TAB( 10)"SAMPLE INVOICES, SAMPLE FORMS & REPORTS." 5227 PRINT TAB( 10)"------------------------------------------":PRINT 5230 PRINT :PRINT TAB( 5)"COLORDATA INVOICE CONTROL FOR 3651......... $ 59.95":PRINT 5240 PRINT :PRINT TAB( 5)"COLORDATA INVOICE CONTROL FOR MODELS 4&5... $ 49.95":PRINT 5250 PRINT :PRINT TAB( 18):INPUT "HIT RETURN TO CONTINUE";X:GOTO 3000 6000 PLOT 12:PRINT TAB( 15)"COLORDATA ACCOUNTS PAYABLE SYSTEM." 6010 PRINT "---------------------------------------------------------------" 6020 PRINT 6030 PRINT "THE ACCOUNTS PAYABLE SYSTEM PROVIDES VENDOR KEYED ACCOUNTS BY" 6040 PRINT "NUMBER. INFORMATION WITH INVOICES IS TIED TO ACCOUNT NUMBER." 6050 PRINT "FEATURES ARE: YEAR TO DATE PURCHASES ON EACH VENDOR, PURGING OF" 6060 PRINT "PAID INVOICES AFTER END OF MONTH. VERY FAST, UPDATING OF " 6070 PRINT "INVOICES AND VENDOR DATA. THIS PROGRAM IS A TRUE BUSINESS A/P" 6080 PRINT "SYSTEM AND IS RUNNING IN SEVERAL BUSINESS LOCATIONS. MAY ALSO" 6090 PRINT "BE AN EXCELLANT LEARNING / TRAINING TOOL FOR SCHOOLS." 6095 PRINT 6100 PRINT TAB( 5)"THERE ARE FOUR PROGRAMS IN THE COLORDATA A/P SYSTEM." 6110 PRINT TAB( 5)"------------------------------------------------------":PRINT 6120 PRINT "(1) = MENU : INCLUDES UTLITIES SUBROUTINES.":PRINT 6130 PRINT "(2) = CREATE : CREATES DATA FILES, STARTING NUMBERS.":PRINT 6140 PRINT "(3) = A/P : LISTS ALL VENDORS ON FILE, SEARCH BY VENDOR" 6150 PRINT " SEARCH BY P.O.#, DISPLAY VENDOR / INVOICES," 6160 PRINT " ENTER, EDIT, UPDATE INVOICES AND VENDORS" 6170 PRINT " DISPLAY ALL VENDORS AND A/P BALANCES.":PRINT 6180 PRINT "(4) = REPORTS: LIST OF VENDORS BY NUMBER, LIST VENDORS AND A/P" 6190 PRINT " BALANCES, LIST ALL OR OPEN INVOICES BY VENDORS" 6200 PRINT " PRINT VENDOR DATA AND LIST ALL OR OPEN INVOICES" 6210 PRINT " PRINT MAILING LIST BY A VENDOR, ALL VENDORS," 6220 PRINT " OR BY VENDORS WITH A/P BALANCES." 6300 PLOT 3,18,30:INPUT "HIT RETURN TO CONTINUE";X:FOR I= 1TO 29:PLOT 28,11:NEXT I 6310 PRINT :PRINT TAB( 1)"(1) = 3651 SUPPORTS 244 VENDORS & 1600 INVOICES ON FILE." 6320 PRINT TAB( 1)"(2) = COMPUCOLOR SUPPORTS 244 VENDORS & 900 INVOICES ON FILE.":PRINT :PRINT 6330 PRINT TAB( 5)"* NOTE : VENDORS CAN BE 12 TO 244 IN MULTIPLES OF 12" 6340 PRINT TAB( 5)"PROGRAM WILL ADJUST INVOICE FILE SPACE AUTOMATICALLY":PRINT :PRINT 6350 PRINT TAB( 10)"INCLUDED : EASY TO UNDERSTAND INSTRUCTIONS," 6360 PRINT TAB( 10)"SAMPLE INVOICES, SAMPLE FORMS & REPORTS." 6370 PRINT TAB( 10)"------------------------------------------":PRINT 6380 PRINT :PRINT TAB( 5)"COLORDATA ACCOUNTS PAYABLE FOR 3651......... $ 79.95":PRINT 6390 PRINT :PRINT TAB( 5)"COLORDATA ACCOUNTS PAYABLE FOR MODELS 4&5... $ 59.95":PRINT 6400 PRINT :PRINT TAB( 18):INPUT "HIT RETURN TO CONTINUE";X:GOTO 3000 7000 PLOT 12:PRINT TAB( 20)"RENAISSANCE MARKETING":PRINT TAB( 5)"7 SO. PIERSON RD. MAPLEWOOD, NJ 07040 201 762-0585" 7010 PRINT "---------------------------------------------------------------" 7015 PRINT "WE ARE DEALERS FOR : ":PRINT 7020 PRINT :PRINT "COMPUTERS";TAB( 17)"PRINTERS";TAB( 34)"MONITORS";TAB( 51)"TERMINALS" 7025 PRINT "------------";TAB( 17)"------------";TAB( 34)"------------";TAB( 51)"------------" 7040 PRINT "ALTOS",TAB( 17)"DATASOUTH";TAB( 34)"AMDEK";TAB( 51)"HAZELTINE" 7050 PRINT "EAGLE",TAB( 17)"OKIDATA";TAB( 34)"N.E.C.";TAB( 51)"TELEVIDEO" 7055 PRINT "INTELLIGENT SYS";TAB( 17)"TELETEX";TAB( 34)"PANASONIC";TAB( 51)"TTX TELETEX" 7060 PRINT "N.E.C.",TAB( 17)"";TAB( 34)"SANYO";TAB( 51)"" 7070 PRINT "NORTHSTAR",TAB( 17)"";TAB( 34)"ZENITH";TAB( 51)"" 7075 PRINT "SANYO",TAB( 17)"";TAB( 34)"";TAB( 51)"" 7080 PRINT "TELEVIDEO",TAB( 30)"" 7090 PRINT :PRINT 7100 PRINT :PRINT "SOFTWARE";TAB( 17)"SOFTWARE";TAB( 34)"MISC.";TAB( 51)"" 7110 PRINT "------------";TAB( 17)"------------";TAB( 34)"-----------------------------" 7120 PRINT "ASHTON-TATE",TAB( 17)"MICRO-MED";TAB( 34)"O'SULLIVAN - COMPUTER STANDS" 7130 PRINT "ACCOUNTING PLUS",TAB( 17)"MICRO-PRO";TAB( 34)"MAXELL - FLOPPY DISKS" 7140 PRINT "DIGITAL RES.",TAB( 17)"MICRO-SOFT";TAB( 34)"ANGEL BUFFERS" 7150 PRINT "IMS",TAB( 17)"SORCIM";TAB( 34)"HAYES - MODEMS" 7160 PRINT "INTELLIGENT SYS",TAB( 17)"";TAB( 34)"ANCHOR - MODEMS" 7200 PLOT 3,18,30:INPUT "HIT RETURN TO CONTINUE";X:FOR I= 1TO 28:PLOT 28,11:NEXT I 7210 PRINT :PRINT TAB( 15)">>>>>>>>>>> SPECIALS <<<<<<<<<<<":PRINT 7220 PRINT TAB( 5)"MAXELL MD1 BLANK DISKS ( BOX OF 10 )........$ 27.50":PRINT 7230 PRINT TAB( 5)"ANCHOR MK I 300 BAUD RS-232 MODEM...........$ 79.00":PRINT 7240 PRINT TAB( 5)"O'SULLIVAN CT-709 COMPUTER TABLE............$129.00":PRINT 7250 PRINT TAB( 5)"TELETEX DAISY WHEEL PRINTER 14 IN. CARRIAGE, 10,12," 7260 PRINT TAB( 5)"15 CPI SERIAL & PARALLEL INTERFACES. FRICTION &/OR" 7270 PRINT TAB( 5)"PIN FEED, 3,6,8 LIN. PER IN, 100 CHR. WHL...$525.00":PRINT 7500 PRINT :PRINT TAB( 18):INPUT "HIT RETURN TO CONTINUE";X:GOTO 3000 8000 PLOT 12:PRINT "E = EXIT";TAB( 22)"O R D E R F O R M" 8010 PRINT "---------------------------------------------------------------" 8030 PRINT TAB( 1)"NAME : _________________________" 8040 PRINT TAB( 1)"ADDRESS : ____________________" 8050 PRINT TAB( 1)"CITY : _______________" 8060 PRINT TAB( 1)"STATE : __";TAB( 20)"ZIP : _____";TAB( 35)"TELEPHONE : ____________" 8070 PRINT "---------------------------------------------------------------" 8080 PRINT TAB( 1)"DESCRIPTION";TAB( 46)"PRICE";TAB( 53)"QTY.";TAB( 59)"EXT." 8090 PRINT "---------------------------------------------------------------" 8100 PRINT TAB( 1)"COLORDATA GENERAL LEDGER FOR 3651.......... $ 79.95 __ ______" 8110 PRINT TAB( 1)"COLORDATA GENERAL LEDGER FOR MODELS 4&5.... $ 49.95 __ ______" 8120 PRINT TAB( 1)"COLORDATA INVOICE CONTROL FOR 3651......... $ 59.95 __ ______" 8130 PRINT TAB( 1)"COLORDATA INVOICE CONTROL FOR MODELS 4&5... $ 49.95 __ ______" 8140 PRINT TAB( 1)"COLORDATA ACCOUNTS PAYABLE FOR 3651........ $ 79.95 __ ______" 8150 PRINT TAB( 1)"COLORDATA ACCOUNTS PAYABLE FOR MODELS 4&5.. $ 59.95 __ ______" 8160 PRINT TAB( 1)"MAXELL MD1 BLANK DISKS ( BOX OF 10 )........$ 27.50 __ ______" 8170 PRINT TAB( 1)"ANCHOR MK I 300 BAUD RS-232 MODEM...........$ 79.00 __ ______" 8180 PRINT TAB( 1)"O'SULLIVAN CT-709 COMPUTER TABLE............$129.00 __ ______" 8190 PRINT TAB( 1)"TTX TELETEX PRINTER.........................$525.00 __ ______" 8200 PRINT "---------------------------------------------------------------" 8210 PRINT TAB( 1)"RENAISSANCE MARKETING SUB TOTAL _________" 8220 PRINT TAB( 1)"7 SOUTH PIERSON RD. SHIPPING 2.50" 8230 PRINT TAB( 1)"MAPLEWOOD, N.J. 07040 NJ RES. ADD SALES TAX _________" 8240 PRINT TAB( 1)"( 201 ) 762-0585 TOTAL _________" 8250 PRINT 8260 PRINT TAB( 1)"TERMS : PAYMENT WITH ORDER ";TAB( 38)"TABLE SHIPPED FT. COLLECT" 8280 PRINT "---------------------------------------------------------------" 8290 PLOT 3,0,30:PRINT TAB( 15):INPUT "'C'=CONTINUE / 'E'=EXIT : ";X$:PLOT 28,11:IF X$= "E"THEN 3000 8293 IF X$= "C"THEN 8300 8295 PLOT 28,11:GOTO 8290 8300 PLOT 3,11,3:INPUT " ";X1$:IF X1$= ""OR X1$= "E"THEN 3000 8310 PLOT 3,11,4:INPUT " ";X2$ 8320 PLOT 3,11,5:INPUT " ";X3$ 8330 PLOT 3,11,6:INPUT " ";X4$:IF LEN (X4$)> 2THEN 8330 8340 PLOT 3,26,6:INPUT " ";X5$:IF LEN (X5$)> 5THEN 8340 8350 PLOT 3,46,6:INPUT " ";X6$:IF LEN (X6$)> 12THEN 8350 8400 PLOT 3,0,30:PRINT TAB( 5):INPUT "'C'=CONTINUE TO PRINT ORDER FORM / 'E'=EXIT : ";X$:PLOT 28,11:IF X$= "E"THEN 3000 8410 IF X$= "C"THEN 8440 8420 PLOT 28,11:GOTO 8400 8440 PLOT 28,11:PRINT TAB( 15):INPUT "ENTER PRINTER BAUD RATE ( 1 TO 7 ) : ";BR 8450 PLOT 28,11:PRINT TAB( 18)"OUTPUT TO PRINTER ....":PLOT 14,27,18,3,15:TMP= PEEK (33265):PLOT 27,13 8500 PRINT TAB( 22)"O R D E R F O R M" 8510 PRINT "---------------------------------------------------------------" 8530 PRINT TAB( 1)"NAME : ";X1$ 8540 PRINT TAB( 1)"ADDRESS : ";X2$ 8550 PRINT TAB( 1)"CITY : ";X3$ 8560 PRINT TAB( 1)"STATE : ";X4$;TAB( 20)"ZIP : ";X5$;TAB( 35)"TELEPHONE : ";X6$ 8570 PRINT "---------------------------------------------------------------" 8580 PRINT TAB( 1)"DESCRIPTION";TAB( 46)"PRICE";TAB( 53)"QTY.";TAB( 59)"EXT." 8590 PRINT "---------------------------------------------------------------" 8600 PRINT TAB( 1)"COLORDATA GENERAL LEDGER FOR 3651.......... $ 79.95 __ ______" 8605 PRINT 8610 PRINT TAB( 1)"COLORDATA GENERAL LEDGER FOR MODELS 4&5.... $ 49.95 __ ______" 8615 PRINT 8620 PRINT TAB( 1)"COLORDATA INVOICE CONTROL FOR 3651......... $ 59.95 __ _______" 8625 PRINT 8630 PRINT TAB( 1)"COLORDATA INVOICE CONTROL FOR MODELS 4&5... $ 49.95 __ ______" 8635 PRINT 8640 PRINT TAB( 1)"COLORDATA ACCOUNTS PAYABLE FOR 3651........ $ 79.95 __ ______" 8645 PRINT 8650 PRINT TAB( 1)"COLORDATA ACCOUNTS PAYABLE FOR MODELS 4&5.. $ 59.95 __ ______" 8655 PRINT 8660 PRINT TAB( 1)"MAXELL MD1 BLANK DISKS ( BOX OF 10 )........$ 27.50 __ ______" 8665 PRINT 8670 PRINT TAB( 1)"ANCHOR MK I 300 BAUD RS-232 MODEM...........$ 79.00 __ ______" 8675 PRINT 8680 PRINT TAB( 1)"O'SULLIVAN CT-709 COMPUTER TABLE............$129.00 __ ______" 8685 PRINT 8690 PRINT TAB( 1)"TTX TELETEX PRINTER.........................$525.00 __ ______" 8695 PRINT 8700 PRINT "---------------------------------------------------------------" 8710 PRINT TAB( 1)"RENAISSANCE MARKETING SUB TOTAL _________" 8720 PRINT TAB( 1)"7 SOUTH PIERSON RD. SHIPPING 2.50" 8730 PRINT TAB( 1)"MAPLEWOOD, N.J. 07040 NJ RES. ADD SALES TAX _________" 8740 PRINT TAB( 1)"( 201 ) 762-0585 TOTAL _________" 8750 PRINT 8760 PRINT TAB( 1)"TERMS : PAYMENT WITH ORDER ";TAB( 38)"TABLE SHIPPED FT. COLLECT" 8780 PRINT "---------------------------------------------------------------" 8790 PLOT 12:POKE 33265,TMP:PLOT 28,11 8800 PLOT 3,0,30:PRINT TAB( 18):INPUT "HIT RETURN TO CONTINUE";X:PLOT 28,11:GOTO 3000