home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22b.dsk / ALPH.bas next >
BASIC Source File  |  2023-02-26  |  2KB  |  23 lines
  1. 10  REM  ************************
  2. 20  REM  *       ALPH           *
  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  DIM A$(26)
  9. 90  DATA  A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
  10. 100  POKE 768,160: POKE 769,103: POKE 770,152: POKE 771,32: POKE 772,168: POKE 773,252: POKE 774,173: POKE 775,48: POKE 776,192: POKE 777,136: POKE 778,208: POKE 779,246: POKE 780,96
  11. 110  TEXT : HOME : PRINT "HI THERE"
  12. 120  PRINT : PRINT : PRINT "HERE IS THE ALPHABET:": PRINT : FOR Z = 1 TO 26: READ A$(Z): NEXT : RESTORE 
  13. 130 Z = 0: FOR Y = 1 TO 2: HTAB 2: FOR X = 1 TO 13:Z = Z +1: PRINT A$(Z)"  ";: NEXT : NEXT 
  14. 140  VTAB 13: PRINT "NOW YOU MUST TYPE THE ALPHABET."
  15. 150  PRINT : HTAB 2:F = 1: FOR Z = 1 TO 26
  16. 160  INVERSE : PRINT " ";: NORMAL : VTAB  PEEK(37) -8: PRINT "<";: HTAB  POS(0) -2: PRINT ">";: VTAB  PEEK(37) +10
  17. 170  FOR I = 1 TO 10:K =  PEEK( -16384):S =  PEEK( -16368 *(K >127)): IF K <128  AND I <10  THEN  NEXT 
  18. 180 A =  ASC(A$(Z)) +128: IF I <10  AND K < >A  AND A -32 < >K  AND A -64 < >K  THEN  FOR L = 1 TO 66:S =  PEEK( -16336): NEXT 
  19. 190 I = 99: NEXT : NORMAL : PRINT " ";: VTAB  PEEK(37) -8: PRINT " ";: HTAB  POS(0) -2: PRINT " ";: VTAB  PEEK(37) +10: IF K = A  OR A -32 = K  OR A -64 = K  THEN 210
  20. 200 F = 1 +F *(F = 1): ON F GOTO 160,170
  21. 210  PRINT  CHR$(7)A$(Z)"  ";: IF   NOT  POS(0)  THEN  HTAB 2
  22. 220 F = 1: NEXT : CALL 768: PRINT : PRINT : INVERSE : PRINT " GREAT ! " CHR$(7);: NORMAL : PRINT "  DO YOU WANT TO DO IT AGAIN ?";: HTAB  POS(0): GET A$: IF A$ < >"N"  THEN 90
  23. 230  HOME : END