home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / AMPOS.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  39 lines
  1. 10  REM ************************
  2. 20  REM * AMPOS.DEMO           *
  3. 30  REM * BY ED DOXTATOR       *
  4. 40  REM * COPYRIGHT (C) 1988   *
  5. 50  REM * BY MICROSPARC, INC.  *
  6. 60  REM * CONCORD, MA   01742  *
  7. 70  REM ************************
  8. 80  REM 
  9. 90  HOME 
  10. 100  VTAB 12: PRINT "AMPOS.DEMO BY ED DOXTATOR": PRINT "COPYRIGHT (C) 1988 BY MICROSPARC, INC."
  11. 110 EIGHTY = 1: IF  PEEK(64435) < >6  THEN EIGHTY = 0
  12. 120  POKE 49153,0: POKE 49237,0: POKE 1024,123:A =  PEEK(1024): POKE 49236,0: POKE 49152,0: IF A < >123  THEN EIGHTY = 0
  13. 130  ONERR  GOTO 400
  14. 140  PRINT  CHR$(4);"BRUN AMPOS": POKE 216,0
  15. 150  GOSUB 380: HOME 
  16. 160  PRINT  CHR$(27); CHR$(17)
  17. 170 A$ = "PLACING TEXT IS":B$ = "EASY WITH AMPOS":C$ = "                ": REM  16 SPACES
  18. 180  & 1,9,"40 COLUMN AMPOS DEMO"
  19. 190 YT = 20: GOSUB 230
  20. 200  IF EIGHTY  THEN  PRINT  CHR$(4)"PR#3":YT = 60: & 1,9,"80 COLUMN AMPOS DEMO": GOSUB 230
  21. 210  PRINT  CHR$(27); CHR$(17): HOME : END 
  22. 230  & 2,1,"---------------------------------------": & 22,1,"---------------------------------------": REM  39 -
  23. 240  FOR X = 4 TO 20
  24. 250  & X +1,1,B$: & X,1,A$
  25. 260  FOR T = 1 TO 100: NEXT T: REM  DELAY
  26. 270  & X,1,C$: NEXT X
  27. 280  FOR X = 1 TO YT
  28. 290  & 20,X,A$: & 21,X,B$
  29. 300  FOR T = 1 TO 100: NEXT T: REM  DELAY
  30. 310  IF X <YT  THEN  & 20,X," ": & 21,X," "
  31. 320  NEXT X
  32. 330  IF YT = 60  THEN  & 2,40,"---------------------------------------": & 22,40,"---------------------------------------": REM  39 -
  33. 340  IF YT = 60  THEN  & 1,9,"                    ": & 1,29,"80 COLUMN AMPOS DEMO": REM  20 SPACES
  34. 350  GOSUB 370
  35. 360  RETURN 
  36. 370  IF YT = 60  THEN  & 23,28,"PRESS RETURN TO CONTINUE": GOTO 390
  37. 380  & 23,8,"PRESS RETURN TO CONTINUE"
  38. 390  POKE 49168,0: WAIT  -16384,128: RETURN 
  39. 400  POKE 216,0: HOME : VTAB 12: PRINT "UNABLE TO LOAD AMPOS.": END