home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25b.dsk / MESSAGE.CREATE.bas < prev    next >
Encoding:
BASIC Source File  |  1990-01-01  |  1.7 KB  |  36 lines
  1. 1  REM **********************
  2. 2  REM *   MESSAGE.CREATE   *
  3. 3  REM * BY JAN HARRINGTON  *
  4. 4  REM *   NIBBLE SEPT 85   *
  5. 5  REM * COPYRIGHT (C) 1985 *
  6. 6  REM * BY MICROSPARC, INC *
  7. 7  REM * CONCORD, MA  01742 *
  8. 8  REM **********************
  9. 10  HIMEM: 7168:SA = 7169
  10. 20  DIM CHECKS(100,2)
  11. 30  FOR I = 1 TO 100: FOR J = 1 TO 2
  12. 40  READ CHECKS(I,J): NEXT J: NEXT I: FOR I = 1 TO 100
  13. 50  PRINT : PRINT "ENTER MESSAGE #";I;":": INPUT "";M$: PRINT 
  14. 60 CHECK = 0: FOR J = 1 TO  LEN(M$): IF  MID$ (M$,J,1) = "^"  THEN CHECK = CHECK +13: NEXT J
  15. 70  IF  MID$ (M$,J,1) = "%"  THEN CHECK = CHECK +44: NEXT J
  16. 80 CHECK = CHECK + ASC( MID$ (M$,J,1)): NEXT J:CHECK = CHECK - INT(CHECK/10) *10
  17. 90  IF CHECK < >CHECKS(I,2)  OR  LEN(M$) < >CHECKS(I,1)  THEN  PRINT "THERE'S AN ERROR SOMEWHERE.  TRY AGAIN.": GOTO 50
  18. 100  PRINT M$: PRINT : INPUT "STORE(S) OR REDO(R)? ";Q$: IF Q$ = "R"  THEN 50
  19. 110  FOR J = 0 TO ( LEN(M$) -1)
  20. 120 L$ =  MID$ (M$,J +1,1): IF L$ = "^"  THEN L$ =  CHR$(13):
  21. 130  IF L$ = "%"  THEN L$ =  CHR$(44)
  22. 140  POKE SA +J, ASC(L$)
  23. 150  NEXT J
  24. 160  POKE SA +J,34:SA = SA +J +1
  25. 170  NEXT I
  26. 180  PRINT  CHR$(4)"BSAVE TUTOR.MESSAGES,A$1C01,L$1A28"
  27. 190  DATA 46,7,97,4,12,3,65,3,32,2,32,6,40,1,42,1,38,2,40,2
  28. 200  DATA  40,5,111,5,108,6,110,1,71,0,71,0,60,8,61,8,34,3,87,5
  29. 210  DATA 60,4,81,2,38,2,55,1,85,4,48,9,74,1,108,5,107,5,92,7
  30. 220  DATA 67,5,71,5,72,0,40,1,61,9,39,6,121,7,67,4,45,7,69,6
  31. 230  DATA 38,0,86,5,40,9,106,9,69,0,40,3,71,2,39,3,87,8,38,5
  32. 240  DATA 115,8,65,7,41,9,30,1,42,1,29,6,37,9,85,4,33,0,38,9
  33. 250  DATA 99,3,71,8,44,1,92,8,64,7,90,0,54,5,49,5,26,8,17,9 
  34. 260  DATA 22,3,118,6,124,7,124,8,123,4,124,8,81,8,30,6,30,4,105,6
  35. 270  DATA 14,4,25,9,89,2,89,2,97,8,115,1,19,0,137,1,19,0,26,9
  36. 280  DATA 162,6,90,9,24,9,25,2,23,8,149,9,134,5,24,0,5,4,117,3