home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug041.ark / RANDTEXT.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.3 KB  |  50 lines
  1.     REM    RANDTEXT.BAS VERSION 1.00
  2.     REM    09/24/79
  3.     REM    BY JAMES K. MILLS WB9KFP
  4.     REM
  5.     REM    A PROGRAM IN BASIC-E TO GENERATE RANDOM
  6.     REM    CHARACTER 5-LETTER CODE GROUPS FOR USE
  7.     REM    WITH A MORSE CODE PRACTICE PROGRAM.
  8.     REM
  9.     PRINT    CHR$(26);CHR$(0)    :REM    CLEAR ADM-3A SCREEN
  10.     PRINT    "RANDTEXT VERSION 1.00"
  11.     PRINT
  12. 10    INPUT    "SEED (1 TO 1000)";SEED
  13.     IF    SEED < 1 OR SEED > 1E3 OR SEED <> INT (SEED) THEN 10
  14.     SEED = SEED / 1000
  15. 20    INPUT    "HOW MANY LINES OF 10 CODE GROUPS EACH";LAST
  16.     IF    LAST < 1 OR LAST > 255 OR LAST <> INT (LAST) THEN 20
  17.     INPUT    "FILENAME.TYP (CAPITAL LETTERS ONLY!)";FILE.NAME$
  18.     DIM    TABLE$(39),C(49)
  19.     FOR    I = 0 TO 38
  20.         READ TABLE$(I)
  21.     NEXT    I
  22.     TABLE$ (39) = CHR$ (44)
  23.     LINE = 1
  24.     FILE    FILE.NAME$
  25. REM
  26. REM    GENERATE RANDOM CHARACTERS FOR ONE LINE
  27. REM
  28. 100    PRINT "GENERATING LINE ";LINE
  29.     FOR I = 0 TO 49
  30.         SEED = ((SEED + 3.141593)^5) - \
  31.         INT    ((SEED + 3.141593)^5)
  32.         C(I) = INT (SEED * 39 + 1)
  33.     NEXT I
  34. REM
  35. REM    PRINT A LINE OUT TO DISKFILE
  36. REM
  37.     FOR I = 0 TO 49 STEP 5
  38.         PRINT #1;    TABLE$ (C (I))   + TABLE$ (C (I+1))+ \
  39.                 TABLE$ (C (I+2)) + TABLE$ (C (I+3))+ \
  40.                 TABLE$ (C (I+4))
  41.     NEXT I
  42.  
  43.     IF LINE < LAST THEN LINE = LINE + 1 : GOTO 100
  44.     CLOSE    1
  45.  
  46.     DATA    0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L
  47.     DATA    M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,?,.,-
  48.     END
  49.  
  50.