Info

Factory Authorized Dealer

TRS-80 Is a Reg. Trademark of Tandy Corp.

•Call for FREE CATALOG and Price Guarantee Calif. Res. Call 619-244-6883

Listing 1 continued from p. 47

1570 PRINT 0 1077 INPUT YR

1590 IP YE < 1 OR YE > 10 THEN CLS : PRINT @ 912 , "Out of Range!" : FOR I = 1 TO 500 : NEXT I : GOTO 1550

1600 CLS s PRINT : PRINT e 892 , "Enter month (1 - 12) to be edited" ; s INPUT ME 1610 IF ME < 1 OR ME > 12 THEN CLS : PRINT § 892 , "Mast be in range of 1 to 12" :

FOR I ■= 1 TO 500 ! NEXT I s GOTO 1600 1620 CLS : PRINT : PRINT s PRINT : PRINT 1630 PRINT "The data for the month of " MS(ME) ; 1640 PRINT " of the year" Yl + YE - 1 " = " DA(YE,ME)

1650 PRINT : PRINT s PRINT "Do You want to edit this data?" 1660 INS =» INKEYS : IF INS » "" THEN GOTO 1660 1670 IF INS « "Y" OR INS - "y" THEN GOTO 1700 1680 IF INS < > "N" AND INS < > "n" THEN GOTO 1660 16 90 GOTO 17 60

1700 INPUT "Enter your new Data" ; DA(YE,ME)

1710 IF (DPS - "N" OR DPS « "n") AND DA(YE,ME) > 99999.990000000111 THEN PRINT "To o Highl - Graph will not handle values over 99,999.99." : GOTO 1700

1720 IF DA(YE,ME) > 999999999999.99061 THEN PRINT "Too High! Graph will not handle values over 999,999,999,999.99." : GOTO 1700 1730 IF DA(YE,ME) •= -99 THEN GOTO 1760

1740 IF DA(YE,ME) < 0 THEN PRINT "Too Low! - Graph not equipped to handle negative numbers." : GOTO 1700 1750 IF DA(YE,ME) > DM THEN DM = DA(YE,ME)

1760 CLS : PRINT 0 892 , "Do you want to edit another item?"

1770 INS = INKEYS s IF INS = "" THEN GOTO 1770

1780 IF INS = "Y" OR INS = "y" THEN GOTO 1550

1790 IF INS < > "N" AND INS < > "n" THEN GOTO 1770

Was this article helpful?

0 0

Post a comment