home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib35b.dsk / TRUNC.DEMO.bas < prev   
BASIC Source File  |  2023-02-26  |  678b  |  21 lines
  1. 10  REM   ************************
  2. 20  REM   * TRUNC.DEMO           *
  3. 30  REM   * BY LAWRENCE KUBICZ   &
  4. 40  REM   * COPYRIGHT(C) 1988    *
  5. 50  REM   * MICROSPARC, INC      *
  6. 60  REM   * CONCORD, MA 01742    *
  7. 70  REM   ************************
  8. 80 HM =  PEEK(116) *256 + PEEK(215): HOME : REM SAVE OLD HIMEM 
  9. 90  PRINT  CHR$(4)"BRUN TRUNC"
  10. 100  ONERR  GOTO 210
  11. 110  INPUT "ENTER A STRING >>> ";A$
  12. 120  IF A$ = ""  THEN  HIMEM: HM: HOME : END 
  13. 130  REM 
  14. 140  INPUT "ENTER NEW LENGTH >>> ";L
  15. 150  PRINT 
  16. 160  PRINT "OLD STRING: ";A$
  17. 170  & A$,L
  18. 180  PRINT "NEW STRING: ";A$
  19. 190  PRINT 
  20. 200  GOTO 110
  21. 210  PRINT : PRINT "ERROR IN LINE "; PEEK(219) *256 + PEEK(218): HIMEM: HM: END