home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22b.dsk / WORDS.bas < prev   
BASIC Source File  |  2023-02-26  |  721b  |  18 lines
  1. 10  REM  ************************
  2. 20  REM  *        WORDS         *
  3. 30  REM  *      BY TIM LORS     *
  4. 40  REM  *  COPYRIGHT (C) 1984  *
  5. 50  REM  *  BY MICROSPARC, INC  *
  6. 60  REM  *  CONCORD, MA. 01742  *
  7. 70  REM  ************************
  8. 80  TEXT : HOME : VTAB 20: HTAB 8: PRINT "PRESS <SPACE> TO BEGIN"
  9. 90  DATA  AT,BAT,CAT,FAT,HAT,MAT,NAT,PAT,RAT,SAT,VAT
  10. 100  DATA  IT,BIT,FIT,HIT,LIT,MIT,NIT,PIT,SIT,WIT
  11. 110  DATA  SPLAT,SPLIT
  12. 120  DATA  ZZZZZ
  13. 130  READ ZZ$: IF ZZ$ = "ZZZZZ"  THEN  RESTORE : GOTO 130
  14. 140  IF  PEEK( -16384) <128  THEN 130
  15. 150  IF  PEEK( -16384) = 155  THEN  POKE  -16368,0: END 
  16. 160  POKE  -16368,0
  17. 170  VTAB 20: CALL  -868: IF  LEN(ZZ$) <27  THEN  HTAB (40 - LEN(ZZ$))/2
  18. 180  PRINT " ";ZZ$: GOTO 130