home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38a.dsk / MAY.1990 / FORMATTER.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  28 lines
  1. 10  REM  **************************
  2. 20  REM  * FORMATTER.DEMO         *
  3. 30  REM  * BY MIKE PRIDMORE       *
  4. 40  REM  * COPYRIGHT(C) 1990      *
  5. 50  REM  * MINDCRAFT PUBL. CORP.  *
  6. 60  REM  * CONCORD, MA 01742      *
  7. 70  REM  **************************
  8. 80  ONERR  GOTO 280
  9. 90  PRINT  CHR$(21): GOTO 140
  10. 100 ZZ = 40:ZY = 1:ZU =  LEN(ZZ$)
  11. 110 ZX = ZY +ZZ -1:ZW = ZX:ZV = 0: IF ZX >ZU  THEN  PRINT  MID$ (ZZ$,ZY,ZU): RETURN 
  12. 120  ON ( MID$ (ZZ$,ZX +1,1) =  CHR$(32)) GOTO 130:ZX = ZX -1: ON (ZX >ZY) GOTO 120:ZX = ZW:ZV = 1
  13. 130  PRINT  MID$ (ZZ$,ZY,ZX +1 -ZY);:ZY = ZX +2 -(ZV = 1): ON (ZX = ZW) GOTO 110: PRINT : GOTO 110
  14. 140  IF  PEEK(1015) < >149  THEN  PRINT  CHR$(4);"BRUN FORMATTER.BIN"
  15. 150  READ B$: READ C$: READ AA$(5)
  16. 160  HOME 
  17. 170  &  PRINT "THIS PART OF THE PROGRAM WILL PRINT OUT THE STRINGS USING THE BASIC FORMATTER ROUTINE. SINCE WE ARE FORMATTING 3 DIFFERENT NAMED STRINGS, WE WILL USE A DUMMY STRING NAMED ZZ$, AND SET IT EQUAL TO THE STRING WE NEED PRINTED OUT.
  18. 180  PRINT : PRINT "PRESS ANY KEY TO START DEMO ";: GET QQ$
  19. 190  HOME :ZZ$ = B$: GOSUB 100: PRINT :ZZ$ = C$: GOSUB 100: PRINT :ZZ$ = AA$(5): GOSUB 100: PRINT : PRINT "PRESS ANY KEY TO CONTINUE WITH DEMO ";: GET QQ$
  20. 200  HOME 
  21. 210  &  PRINT "WE WILL NOW PRINT THE SAME STRINGS, BUT WITH THE MACHINE LANGUAGE ROUTINE, ONLY THIS TIME NO TEMP STRING NEEDS TO BE SET UP. WE CAN USE THE NAME OF THE STRING TO PRINT IN THE & PRINT STATEMENT. (I.E. & PRINT B$, & PRINT AA$)."
  22. 220  PRINT : PRINT "PRESS ANY KEY TO CONTINUE ";: GET QQ$: HOME 
  23. 230  &  PRINT B$: PRINT : &  PRINT C$: PRINT : &  PRINT AA$(5): PRINT : PRINT "PRESS ANY KEY TO END DEMO ";: GET QQ$
  24. 240  HOME : &  PRINT "THIS IS HOW THE 3 STRINGS WOULD LOOK IF NOT FORMATTED OUT.": PRINT : PRINT : PRINT B$: PRINT : PRINT C$: PRINT : PRINT AA$(5): PRINT : END 
  25. 250  DATA  "THE APPLE COMPUTER IS THE BEST HOME & BUSINESS COMPUTER ON THE MARKET TODAY AND I'M PROUD TO OWN ONE!"
  26. 260  DATA  "YOU'RE IN A DEEP AND DARK CAVE. THE LIGHT FROM THE OUTSIDE, JUST SHOWS YOU A NOTE ON THE LEFT WALL, THE NOTE READS: 'GO BUY YOURSELF A 'NIBBLE' MAGAZINE AND QUIT READING CAVE WALLS!!!"
  27. 270  DATA  "80 DASHES FOLLOW TO PROVE THAT THE ROUTINES CAN HANDLE NO SPACES IN A LINE. --------------------------------------------------------------------------------"
  28. 280  IF  PEEK(222) = 6  THEN  HOME : PRINT "THE FILE FORMATTER.BIN MUST": PRINT "BE ON THIS DISK": END