Compucolor.org – Virtual Media

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