home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / FLEX.TYPE.SHK / FLEX.TYPE / FLASHER.bas < prev    next >
BASIC Source File  |  2000-01-01  |  1KB  |  29 lines
  1. 10  REM THIS PROGRAM DEMONSTRATES FLASH SIMULATION
  2. 20 ADDR =  PEEK(974) + PEEK(975) *256:ADDR = ADDR +2048: IF  PEEK(ADDR -9) < >3  THEN  HOME : PRINT "THIS PROGRAM EXPECTS A 70 COLUMN": PRINT "CHARACTER SET TO BE LOADED IN": PRINT "POSITION 1.": STOP 
  3. 30  IF  PEEK(104) <64  THEN  LOMEM: 24576
  4. 40 T$ =  CHR$(20)
  5. 50  & : HOME 
  6. 60  PRINT T$1: VTAB 9
  7. 70  HTAB 6: PRINT "This program demonstrates FLEX TYPE'S flashing capabilities."
  8. 80  INVERSE 
  9. 90  VTAB 3: HTAB 1: FOR I = 1 TO 70: PRINT " ";: NEXT 
  10. 100  FOR I = 3 TO 21: VTAB I: HTAB 1: PRINT " ";: HTAB 70: PRINT " ";: NEXT I
  11. 110  VTAB 21: HTAB 1: FOR I = 1 TO 70: PRINT " ";: NEXT 
  12. 120  NORMAL 
  13. 130 A1$ = "FLEX TYPE     FLEX TYPE     FLEX TYPE     FLEX TYPE     FLEX TYPE     "
  14. 140 A2$ = A1$
  15. 160  HTAB 1
  16. 170  VTAB 1: PRINT A1$;
  17. 180  VTAB 23: PRINT A2$;
  18. 190 A1$ =  RIGHT$(A1$, LEN(A1$) -2) + LEFT$(A1$,2)
  19. 200 A2$ =  RIGHT$(A2$,2) + LEFT$(A2$, LEN(A2$) -2)
  20. 210  GOSUB 240
  21. 220  IF  PEEK( -16384) >127  THEN  POKE  -16368,0: GOTO 300
  22. 230  GOTO 170
  23. 240 TGGLE =   NOT TGGLE
  24. 250  NORMAL 
  25. 260  IF (TGGLE)  THEN  INVERSE 
  26. 270  VTAB 11: HTAB 24: PRINT " PRESS ANY KEY TO END "
  27. 280  NORMAL 
  28. 290  RETURN 
  29. 300  VTAB 23: END