home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / Geneve / 9640news / MBP / LEDRNDXL.TXT < prev    next >
Text File  |  2006-10-19  |  421b  |  25 lines
  1.  
  2. 90 CALL INIT
  3. 100 A=-31040
  4. 110 B=-31232
  5. 120 T=15
  6. 130 DATA 16,32,8,64,4,128,0
  7. 140 FOR I=2 TO 8
  8. 150 READ L(I)
  9. 160 NEXT I
  10. 170 FOR I=2 TO 7
  11. 180 FOR J=1 TO 15 :: NEXT J
  12. 190 R=1+RND*6
  13. 195 Z=L(R)XOR Z
  14. 200 CALL LOAD(A,Z)
  15. 210 CALL LOAD(B,Z)
  16. 220 NEXT I
  17. 230 GOTO 170
  18. 240 CALL LOAD(A,L(8))
  19. 250 FOR I=2 TO 8
  20. 260 FOR J=1 TO T :: NEXT J
  21. 270 CALL LOAD(B,L(I))
  22. 280 NEXT I
  23. 290 GOTO 170
  24. 300 REM SAVE "DSK2.LEDRNDX"
  25.